[occt.git] / tests / feat / featdprism / B6

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
ttranslate cont 0 200 0
#
# flo : 25/06/1998 : Argument 4 featperformval -> face et non surface
#
mksurface surf cyl_3
mkface face surf
featdprism cyl cont cont 10 1 1
featperformval dprism result 55 face

set square 99444.8
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	ttranslate cont 0 200 0
	8	#
	9	# flo : 25/06/1998 : Argument 4 featperformval -> face et non surface
	10	#
	11	mksurface surf cyl_3
	12	mkface face surf
	13	featdprism cyl cont cont 10 1 1
	14	featperformval dprism result 55 face
	15
	16	set square 99444.8