[occt.git] / tests / feat / featprism / C3

restore [locate_data_file cylindre.rle] cyl
restore [locate_data_file contour.rle] cont
mkplane cont cont
nexplode cyl F

ttranslate cont 0 0 -100
#
# flo : 25/06/1998 : Argument 3 featperform -> face et non surface
#
mksurface surf cyl_3
mkface face surf
featprism cyl cont cont 0 1 0 0 1
featperform prism result face

set square 82351.1
Commit	Line	Data
8418c617	1	restore [locate_data_file cylindre.rle] cyl
8418c617	2	restore [locate_data_file contour.rle] cont
40093367	3	mkplane cont cont
	4	nexplode cyl F
	5
	6	ttranslate cont 0 0 -100
	7	#
	8	# flo : 25/06/1998 : Argument 3 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	featperform prism result face
	14
	15	set square 82351.1