mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-04 13:13:25 +03:00
39 lines
815 B
Plaintext
Executable File
39 lines
815 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC22818"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# Wrong triangulation of Revolution surface with slice angle <= 180 degree
|
|
######################################################################################
|
|
|
|
set BugNumber OCC22818
|
|
|
|
vertex v1 0 10 0
|
|
vertex v2 0 10 10
|
|
vertex v3 0 0 -10
|
|
edge e1 v1 v2
|
|
edge e2 v2 v3
|
|
edge e3 v3 v1
|
|
wire w1 e1 e2 e3
|
|
plane pln 0 10 0 1 0 0
|
|
mkface f1 pln
|
|
add w1 f1
|
|
don f1
|
|
revol result f1 0 10 0 0 0 1 180
|
|
checkshape result
|
|
|
|
set square 673.385
|
|
|
|
checknbshapes result -vertex 3 -edge 8 -wire 4 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 21
|
|
vinit
|
|
vdisplay result
|
|
vsetdispmode 1
|
|
vfit
|
|
vzfit
|
|
|
|
# relative tolerance (%)
|
|
set rel_tol 1
|
|
set area_eps 0
|
|
|
|
set only_screen 1
|