#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