mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
22 lines
286 B
Plaintext
22 lines
286 B
Plaintext
# Original bug : fra50046
|
|
# Date : 19Mai98
|
|
|
|
pcylinder cyl 1 4
|
|
|
|
vertex va 0 -1 0
|
|
vertex vb 0 1 0
|
|
vertex vc 0 1 2
|
|
vertex vd 0 -1 2
|
|
edge e1 va vb
|
|
edge e2 vb vc
|
|
edge e3 vc vd
|
|
edge e4 vd va
|
|
wire w e1 e2 e3 e4
|
|
mkplane f w 1
|
|
prism priz f 1 0 0
|
|
|
|
bop priz cyl
|
|
bopfuse result
|
|
|
|
set square 33.9911
|