1 restore [locate_data_file cylindre.rle] cyl
2 restore [locate_data_file contour.rle] cont
6 ttranslate cont 0 0 -100
8 # flo : 25/06/1998 : Argument 4 featperformval -> face et non surface
12 featprism cyl cont cont 0 1 0 1 1
13 featperformval prism result 55 face