mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-09 13:22:24 +03:00
21 lines
391 B
Plaintext
21 lines
391 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
|
|
#save s 6_G1234.draw
|
|
|
|
restore 6_G1234.draw s
|
|
tscale s 0 0 0 SCALE2
|
|
explode s E
|
|
blend result s 6*SCALE2 s_13
|
|
|
|
set square 4837.68
|