mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-06 10:36:12 +03:00
19 lines
317 B
Plaintext
19 lines
317 B
Plaintext
#box b -10 -10 -10 20 20 20
|
|
#pcylinder c 8 15
|
|
#ttranslate c 0 0 10
|
|
#fuse f1 b c
|
|
#pcylinder c 6 15
|
|
#ttranslate c 0 0 10
|
|
#trotate c 0 0 0 1 0 0 90
|
|
#fuse s f1 c
|
|
#donly s
|
|
|
|
restore 6_A56.draw s
|
|
tscale s 0 0 0 SCALE2
|
|
explode s E
|
|
mkevol result s
|
|
updatevol s_10 0 5*SCALE2 1 6*SCALE2 2 3*SCALE2
|
|
buildevol
|
|
|
|
set square 3676.87
|