mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
15 lines
327 B
Plaintext
15 lines
327 B
Plaintext
#K3----------------------------------------------
|
|
beziercurve cb 4 2 0 0 20 10 0 20 20 0 2 30 0
|
|
polyline pl 2 30 0 2 0 0
|
|
mkedge ed cb
|
|
wire ww ed pl
|
|
mkplane ww ww
|
|
revol rv ww 0 0 0 0 1 0 -180
|
|
plane p 0 15 12 0 0 1
|
|
pcone p p 7 5 15
|
|
bfuse f rv p
|
|
nexplode f f
|
|
depouille result f 0 0 1 f_5 10 0 0 27 0 0 1
|
|
|
|
set square 2510.01
|