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

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
featdprism cyl cont cont 10 0 1
featperform dprism result

set square 83382.4
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	featdprism cyl cont cont 10 0 1
	8	featperform dprism result
	9
	10	set square 83382.4