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 | puts "*" |
7 | #puts "TODO OCC22810 All:Faulty .*" |
8 | puts "TODO OCC22810 ALL:Faulty shapes in variables faulty_1 to faulty_3" |
49c093ae |
9 | puts "TODO OCC22810 ALL:Error : The square of result shape is" |
40093367 |
10 | ttranslate cont 0 0 -100 |
11 | |
12 | # |
13 | # flo : 25/06/1998 : Arguments 3 et 4 featperform -> face et non surface |
14 | # |
15 | mksurface surf cyl_3 |
16 | mkface face surf |
17 | featprism cyl cont cont 0 1 0 0 1 |
18 | if { [catch { featperform prism result face face } ] != 0 } { |
19 | puts "Error in featperform" |
20 | } |
21 | |
22 | set square 0 |