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

pcone c1 2 1.5 5
profile p x 2 y 2 x -2 y -2
trotate p 0 0 0 1 0 0 90
ttranslate p -1 -4 4
explode c1 f
mksurface f c1_1
mkface f f

featprism c1 p p 0 1 0 1 1
featperform prism result f

set square 100.937
Commit	Line	Data
40093367	1	pcone c1 2 1.5 5
	2	profile p x 2 y 2 x -2 y -2
	3	trotate p 0 0 0 1 0 0 90
	4	ttranslate p -1 -4 4
	5	explode c1 f
	6	mksurface f c1_1
	7	mkface f f
	8
	9	featprism c1 p p 0 1 0 1 1
	10	featperform prism result f
	11
	12	set square 100.937