puts "TODO ?OCC12345 ALL: Error : The feat grid is not valid. The area is 0." puts "TODO ?OCC12345 ALL: Error : The area of the resulting shape is 0" restore [locate_data_file cylindre.rle] cyl restore [locate_data_file contour.rle] cont mkplane cont cont nexplode cyl F ttranslate cont 0 0 -100 # # flo : 25/06/1998 : Arguments 3 et 4 featperform -> face et non surface # mksurface surf cyl_3 mkface face surf featprism cyl cont cont 0 1 0 0 1 if { [catch { featperform prism result face face } ] != 0 } { puts "Error in featperform" } set square 82351.1