7a5b0a4122ff1f904751aa23c0f0e145501f81af
[occt.git] / tests / feat / featprism / C4
1 restore [locate_data_file cylindre.rle] cyl
2 restore [locate_data_file contour.rle] cont
3 mkplane cont cont
4 nexplode cyl F
5
6 puts "*"
7 #puts "TODO OCC22810 All:Faulty .*"
8 puts "TODO OCC22810 ALL:Error : The area of the resulting shape is"
9 ttranslate cont 0 0 -100
10
11 #
12 # flo : 25/06/1998 : Arguments 3 et 4 featperform -> face et non surface
13 #
14 mksurface surf cyl_3
15 mkface face surf
16 featprism cyl cont cont 0 1 0 0 1
17 if { [catch { featperform prism result face face } ] != 0 } {
18   puts "Error in featperform"
19 }
20
21 set square 0