1 puts "TODO OCC22817 All:Faulty shapes in variables faulty_1 to faulty_2"
2 #box b -15 -15 -15 15 30 30
3 #beziercurve w 4 0 0 0 10 0 0 10 10 0 20 10 0
6 #circle profile 0 0 0 1 0 0 10
7 #mkedge profile profile
9 #mkplane profile profile
15 #ttranslate c -7.5 0 15
25 updatevol s_12 0 6*SCALE2 1 8*SCALE2 2 6*SCALE2