0024612: Wrong pcurve of the section curve
[occt.git] / tests / feat / featprism / C4
CommitLineData
8418c617 1restore [locate_data_file cylindre.rle] cyl
2restore [locate_data_file contour.rle] cont
40093367 3mkplane cont cont
4nexplode cyl F
40093367 5ttranslate cont 0 0 -100
6
7#
8# flo : 25/06/1998 : Arguments 3 et 4 featperform -> face et non surface
9#
10mksurface surf cyl_3
11mkface face surf
12featprism cyl cont cont 0 1 0 0 1
13if { [catch { featperform prism result face face } ] != 0 } {
14 puts "Error in featperform"
15}
16
b92f3572 17set square 82351.1