mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-09 13:22:24 +03:00
16 lines
253 B
Plaintext
16 lines
253 B
Plaintext
#pcone c 25 50 50
|
|
#ttranslate c 0 0 50
|
|
#explode c f
|
|
#prism p c_3 -25 0 -50
|
|
#explode p F
|
|
#glue s c p c_3 p_2
|
|
|
|
restore 7_F1.draw s
|
|
tscale s 0 0 0 SCALE1
|
|
explode s e
|
|
blend result s 5*SCALE1 s_2
|
|
explode result So
|
|
tcopy result_1 result
|
|
|
|
set square 782458
|