mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
23 lines
389 B
Plaintext
23 lines
389 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
|
|
|
|
checkprops result -s 33.9911
|
|
checkview -display result -2d -otherwise { priz cyl } -s -path ${imagedir}/${test_image}.png
|