mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-30 13:05:50 +03:00
22 lines
415 B
Plaintext
22 lines
415 B
Plaintext
#box b -15 -15 -15 15 30 30
|
|
#beziercurve w 4 0 0 0 10 0 0 10 10 0 20 10 0
|
|
#mkedge w w
|
|
#wire w w
|
|
#circle profile 0 0 0 1 0 0 10
|
|
#mkedge profile profile
|
|
#wire profile profile
|
|
#mkplane profile profile
|
|
#pipe p w profile
|
|
#explode b F
|
|
#explode p F
|
|
#glue s p b p_2 b_2
|
|
|
|
restore 6_G1234.draw s
|
|
tscale s 0 0 0 SCALE2
|
|
explode s E
|
|
mkevol result s
|
|
updatevol s_13 0 2*SCALE2 1 6*SCALE2 2 4*SCALE2
|
|
buildevol
|
|
|
|
set square 4892.76
|