#circle c1 0 0 0 100
#mkedge e1 c1 0 pi
#explode e1 V
#edge e2 e1_2 e1_1
#wire w1 e1  e2
#mkplane w1 w1
#prism s1 w1 0 20 40
#prism s2 w1 0 0 -60
#explode s1 f
#explode s2 f
#sewing s s1_1 s2_1

restore [locate_data_file 7_A2.draw] s
tscale  s 0 0 0 SCALE1 
explode s e
blend result s 15*SCALE1 s_3
explode result sh
tcopy result_1 result 

checkprops result -s 803799
