1 puts "TODO OCC22817 All:Faulty shapes in variables faulty_1 to faulty_2 "
3 #box b -15 -15 -15 15 30 30
4 #beziercurve w 4 0 0 0 10 0 0 10 10 0 20 10 0
7 #circle profile 0 0 0 1 0 0 10
8 #mkedge profile profile
10 #mkplane profile profile
16 #ttranslate c -7.5 0 15
26 blend result s 7*SCALE2 s_12