mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-07 18:30:55 +03:00
26 lines
389 B
Plaintext
26 lines
389 B
Plaintext
## Extension of /users/skv/testref/cd1/ED/cto/014/B1
|
|
|
|
circle ca 0 0 0 1
|
|
mkedge ea ca
|
|
wire wa ea
|
|
mkplane fa wa
|
|
prism cyla fa 0 0 2
|
|
|
|
vertex v3 0 0 0
|
|
vertex v4 0.5 0 0
|
|
vertex v5 0.5 0 1
|
|
vertex v6 0 0 1
|
|
edge eb v3 v4
|
|
edge ec v4 v5
|
|
edge ed v5 v6
|
|
edge ee v6 v3
|
|
wire wb eb ec ed ee
|
|
mkplane pb wb
|
|
revol cylb pb 0 0 0 0 0 1 360
|
|
|
|
ttranslate cylb 0 0 1
|
|
|
|
bcommon result cyla cylb
|
|
|
|
set square 4.71239
|