puts "TODO OCC12345 ALL: Error: Number of triangles" puts "TODO OCC12345 ALL: Error: Number of nodes" puts "TODO OCC12345 ALL: Error: Maximal deflection" puts "============" puts "OCC15519" puts "============" puts "" ####################################################################### # Exception while meshing shape ####################################################################### set BugNumber OCC15519 restore [locate_data_file OCC15519.brep] result tclean result set Deflection 1. catch {incmesh result ${Deflection} } if { [string compare $tcl_platform(platform) "windows"] == 0 } { set good_tri 96265 set good_nod 71339 set good_defl 27.956052399907215 } else { set good_tri 95582 set good_nod 70796 set good_defl 0.99827404224216676 } checktrinfo result -tri ${good_tri} -nod ${good_nod} -defl ${good_defl} -tol_rel_defl 0.001 -tol_rel_tri 0.001 -tol_rel_nod 0.001 checkview -display result -2d -path ${imagedir}/${test_image}.png