wedge s 10 7 10 5 5 5 5
tscale s 0 0 0 SCALE1 
explode s E
blend result s 0.5*SCALE1 s_2 0.5*SCALE1 s_3 0.5*SCALE1 s_5 0.5*SCALE1 s_6
explode  result So
tcopy result_1 result 

checkprops result -s 6703.48