[occt.git] / tests / blend / buildevol / J6

#box b -20 -13 -20 40 25 20
#ellipse w 0 0 0 15 10
#mkedge w w
#wire w w
#mkplane w w
#prism f w 2 0 30
#fuse s f b

restore 6_F1234.draw s
tscale s 0 0 0 SCALE2
explode s E
mkevol result s
updatevol s_14 0 5*SCALE2 1 2*SCALE2 2 5*SCALE2 3 2*SCALE2
buildevol

set square 6856.71
Commit	Line	Data
40093367	1	#box b -20 -13 -20 40 25 20
	2	#ellipse w 0 0 0 15 10
	3	#mkedge w w
	4	#wire w w
	5	#mkplane w w
	6	#prism f w 2 0 30
	7	#fuse s f b
	8
	9	restore 6_F1234.draw s
	10	tscale s 0 0 0 SCALE2
	11	explode s E
	12	mkevol result s
	13	updatevol s_14 0 5SCALE2 1 2SCALE2 2 5SCALE2 3 2SCALE2
	14	buildevol
	15
	16	set square 6856.71