mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-06 10:36:12 +03:00
23 lines
369 B
Plaintext
23 lines
369 B
Plaintext
#box b -15 -20 -15 25 35 30
|
|
#polyline w 0 0 0 20 -10 0
|
|
#circle p 0 0 0 1 0 0 12
|
|
#mkedge p p
|
|
#wire p p
|
|
#mkplane p p
|
|
#pipe s1 w p
|
|
#fuse f1 s1 b
|
|
#pcylinder c 8 30
|
|
#trotate c 0 0 0 1 0 0 90
|
|
#donly f1 c
|
|
#fuse s f1 c
|
|
#donly s
|
|
|
|
restore 6_H56.draw s
|
|
tscale s 0 0 0 SCALE2
|
|
explode s E
|
|
mkevol result s
|
|
updatevol s_2 0 3*SCALE2 1 5*SCALE2 2 3*SCALE2
|
|
buildevol
|
|
|
|
set square 6600.76
|