mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-13 03:30:56 +08:00
13 lines
207 B
Plaintext
13 lines
207 B
Plaintext
pcone c1 2 1.5 5
|
|
profile p x 2 y 2 x -2 y -2
|
|
trotate p 0 0 0 1 0 0 90
|
|
ttranslate p -1 -4 4
|
|
explode c1 f
|
|
mksurface f c1_1
|
|
mkface f f
|
|
|
|
featprism c1 p p 0 1 0 1 1
|
|
featperform prism result f
|
|
|
|
set square 100.937
|