puts "================" puts "OCC23282" puts "================" puts "" ####################################################################################### # Wrong triangulation on cone ###################################################################################### set BugNumber OCC23282 pcone result 10 0 20 90 incmesh result 0.1 triangles result isos result 0 checkshape result set square 454.16 set nb_v_good 4 set nb_e_good 7 set nb_w_good 4 set nb_f_good 4 set nb_sh_good 1 set nb_sol_good 1 set nb_compsol_good 0 set nb_compound_good 0 set nb_shape_good 21 vinit vdisplay result vsetdispmode 1 vfit vzfit # relative tolerance (%) set rel_tol 1 set area_eps 0 # puts "\nChecking triangulation area (triarea command)..." set rel_err [expr abs([CheckTriArea result $area_eps])] if { $rel_err > $rel_tol } { puts "Error : area by triangles differs from the actual area by $rel_err %" } else { if { $rel_tol > 1 && $rel_tol < 100 } { puts "Error: Improvement: The current area difference is $rel_err instead of $rel_tol" } } set only_screen 1