mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-06 18:26:22 +03:00
27 lines
413 B
Plaintext
27 lines
413 B
Plaintext
# Original bug : pro13305
|
|
# Date : 4June98
|
|
|
|
pcylinder cyl 3 5
|
|
|
|
vertex v1 0 3 2
|
|
vertex v2 0 4 2
|
|
vertex v3 0 4 3
|
|
vertex v4 0 3 3
|
|
|
|
edge e1 v1 v2
|
|
edge e2 v2 v3
|
|
edge e3 v3 v4
|
|
edge e4 v4 v1
|
|
|
|
wire w e1 e2 e3 e4
|
|
mkplane f w
|
|
|
|
revol ring f 0 0 0 0 0 1 269
|
|
## works correctly for values 270 and above
|
|
## problem associated with the straight
|
|
## edge of the cylinder
|
|
|
|
bfuse result cyl ring
|
|
|
|
set square 190.356
|