mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
18 lines
373 B
Plaintext
18 lines
373 B
Plaintext
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
|