2 puts "TODO #22911 ALL: Faulty shapes in variables faulty_1 to faulty_"
3 puts "TODO #22911 ALL: Error : The area of the resulting shape is"
5 restore [locate_data_file cts20461.rle] a
13 ## ttranslate pz 0 0 -5
14 ## essential step to avoid tangent faces
23 trotate p1 p1 0 0 0 1 0 0 360/7
24 trotate p2 p2 0 0 0 1 0 0 2*360/7
25 trotate p3 p3 0 0 0 1 0 0 3*360/7
26 trotate p4 p4 0 0 0 1 0 0 4*360/7
27 trotate p5 p5 0 0 0 1 0 0 5*360/7
28 trotate p6 p6 0 0 0 1 0 0 6*360/7