[occt.git] / tests / blend / bfuseblend / A9

box b -30 -30 -30 60 60 20
ellipse w1 0 0 0 15 10
mkedge w1 w1 0 pi/2
trotate w1 0 0 0 1 0 0 90
polyline w2 15 0 0  27 0 -12  0 0 -12  0 0 10
orientation w2 R
wire w w1 w2
revol r w 0 0 0 0 0 1 360
shape s So
add r s
trotate s b 0 0 0 1 1 0 -40
trotate s b 0 0 0 0 0 1 -10
tscale b 0 0 0 SCALE1
tscale s 0 0 0 SCALE1
bfuseblend result s b 1*SCALE1
 
set square 1.29262e+06
Commit	Line	Data
40093367	1	box b -30 -30 -30 60 60 20
	2	ellipse w1 0 0 0 15 10
	3	mkedge w1 w1 0 pi/2
	4	trotate w1 0 0 0 1 0 0 90
	5	polyline w2 15 0 0 27 0 -12 0 0 -12 0 0 10
	6	orientation w2 R
	7	wire w w1 w2
	8	revol r w 0 0 0 0 0 1 360
	9	shape s So
	10	add r s
	11	trotate s b 0 0 0 1 1 0 -40
	12	trotate s b 0 0 0 0 0 1 -10
	13	tscale b 0 0 0 SCALE1
	14	tscale s 0 0 0 SCALE1
	15	bfuseblend result s b 1*SCALE1
	16
	17	set square 1.29262e+06