[occt.git] / tests / blend / simple / I1

circle w -20 0 0 20
mkedge w w 0 pi/2
wire w w
polyline profile 0 0 0  10 0 0  5 0 5  0 0 0
mkplane profile profile
pipe s w profile
tscale s 0 0 0 SCALE1
fsameparameter s SCALE1*1.e-7
explode s E
blend result s 1*SCALE1 s_5

set square 91635.9
Commit	Line	Data
40093367	1	circle w -20 0 0 20
	2	mkedge w w 0 pi/2
	3	wire w w
	4	polyline profile 0 0 0 10 0 0 5 0 5 0 0 0
	5	mkplane profile profile
	6	pipe s w profile
	7	tscale s 0 0 0 SCALE1
	8	fsameparameter s SCALE1*1.e-7
	9	explode s E
	10	blend result s 1*SCALE1 s_5
	11
	12	set square 91635.9