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 | |
40093367 | 5 | ttranslate cont 0 0 -100 |
6 | ||
7 | # | |
8 | # flo : 25/06/1998 : Arguments 3 et 4 featperform -> face et non surface | |
9 | # | |
10 | mksurface surf cyl_3 | |
11 | mkface face surf | |
12 | featprism cyl cont cont 0 1 0 0 1 | |
13 | if { [catch { featperform prism result face face } ] != 0 } { | |
14 | puts "Error in featperform" | |
15 | } | |
16 | ||
9aa684ed | 17 | set square 82351.1 |