mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-20 12:45:50 +03:00
3b1817a9e2
StdPrs_ToolShadedShape::IsClosed(): - return true if shape is closed Solid (NOT just free closed Shell) - accept compound of closed Solids as well - ignore Solids with incomplete triangulation TKOpenGl, automatically disable back face culling when: - clipping/capping planes are in effect - for translucent objects Update bug23227 test case (now back faces are clipped). OpenGl_Workspace::AspectFace() - disable culling in case of hatched style
40 lines
1008 B
Plaintext
Executable File
40 lines
1008 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC23227"
|
|
puts "New Draw Harness command to estimate current geometry complexity of OpenGL scene"
|
|
puts "============"
|
|
puts ""
|
|
|
|
set BugNumber OCC23227
|
|
|
|
box b 1 2 3
|
|
vinit View1
|
|
vclear
|
|
vdisplay b
|
|
vsetdispmode 1
|
|
vfit
|
|
set vfeedback1 [vfeedback]
|
|
vdump $imagedir/${casename}_box.png
|
|
|
|
vclear
|
|
set vfeedback2 [vfeedback]
|
|
|
|
set llength_vfeedback1 [llength ${vfeedback1}]
|
|
set llength_vfeedback2 [llength ${vfeedback2}]
|
|
set IndexTriangles1 [lsearch ${vfeedback1} Triangles:]
|
|
set IndexTriangles2 [lsearch ${vfeedback2} Triangles:]
|
|
|
|
if { ${llength_vfeedback1} < 36 || ${llength_vfeedback2} < 36 || ${IndexTriangles1} < 0 || ${IndexTriangles2} < 0 } {
|
|
puts "Bad format of vfeedback command"
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
set Triangles1 [lindex ${vfeedback1} ${IndexTriangles1}+1]
|
|
set Triangles2 [lindex ${vfeedback2} ${IndexTriangles1}+1]
|
|
if { ${Triangles1} == 6 && ${Triangles2} == 0 } {
|
|
puts "OK ${BugNumber}"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
}
|
|
|
|
set only_screen 1
|