mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
13 lines
285 B
Plaintext
13 lines
285 B
Plaintext
#A5----------------------------------------------
|
|
plane p 0 0 0 1 0 0
|
|
pcylinder p p 15 20
|
|
profile pf o 5 1 5 l 10 c 2 90 l 5 d -1 0 \
|
|
l 14 d 0 -1 l 5 c 2 90
|
|
polyline pl 0 0 5 0 0 30
|
|
pipe p2 pl pf
|
|
bfuse f p p2
|
|
nexplode f f
|
|
depouille result f 0 0 1 f_5 5 0 0 29 0 0 1
|
|
|
|
set square 3953.7
|