1 restore [locate_data_file cylindre.rle] cyl
2 restore [locate_data_file contour.rle] cont
7 #puts "TODO OCC22810 All:Faulty .*"
8 puts "TODO OCC22810 ALL:Faulty shapes in variables faulty_1 to faulty_3"
9 puts "TODO OCC22810 ALL:Error : The square of result shape is"
10 ttranslate cont 0 0 -100
13 # flo : 25/06/1998 : Arguments 3 et 4 featperform -> face et non surface
17 featprism cyl cont cont 0 1 0 0 1
18 if { [catch { featperform prism result face face } ] != 0 } {
19 puts "Error in featperform"