0024612: Wrong pcurve of the section curve
[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 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
17 set square 82351.1