mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-26 10:19:45 +03:00
15 lines
255 B
Plaintext
15 lines
255 B
Plaintext
pcylinder c1 2 5
|
|
profile p x 1 y 1 x -1 y -1
|
|
trotate p 0 0 0 1 0 0 90
|
|
trotate p 0 0 0 0 0 1 90
|
|
ttranslate p 0 -2 0.5
|
|
explode c1 f
|
|
explode p e
|
|
|
|
featrevol c1 p p 0 0 0.5 0 0 1 0 1
|
|
addslide revol p_4 c1_1
|
|
featperformval revol result 360
|
|
|
|
|
|
set square 100.531
|