Commit | Line | Data |
---|---|---|
8418c617 | 1 | restore [locate_data_file cylindre.rle] cyl |
2 | restore [locate_data_file contour.rle] cont | |
40093367 | 3 | mkplane cont cont |
4 | nexplode cyl F | |
5 | ||
6 | ttranslate cont 0 0 -100 | |
7 | ttranslate cont 0 200 0 | |
8 | # | |
9 | # flo : 25/06/1998 : Argument 4 featperformval -> face et non surface | |
10 | # | |
11 | mksurface surf cyl_3 | |
12 | mkface face surf | |
13 | featdprism cyl cont cont 10 1 1 | |
14 | featperformval dprism result 55 face | |
15 | ||
16 | set square 99444.8 |