1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-07-30 13:05:50 +03:00
ski 5747059b21 0026833: Create command checkview containing all viewer types
Created command checkview for displaying shapes.
2016-02-05 11:14:37 +03:00

25 lines
492 B
Plaintext
Executable File

puts "================"
puts "OCC16"
puts "================"
puts ""
torus a 10 10
mkface result a
vinit
vdisplay result
vsetdispmode result 1
set info [trinfo result]
regexp { +([-0-9.+eE]+) +triangles} $info full tri
regexp { +([-0-9.+eE]+) +nodes} $info full nod
if { $tri != 2592 || $nod != 1369 } {
puts "Faulty OCC16: here can be shading problem"
}
puts "If here is bug - face is displaied in wireframe mode"
checkview -display result -2d -path ${imagedir}/${test_image}.png