puts "=========" puts "CR25837: Bad triangulation when IGES loaded in meters" puts "=========" puts "" pload XDE param xstep.cascade.unit M newmodel igesbrep [locate_data_file bug25837_S.igs] result * vinit vdisplay result vfit vsetdispmode 1 set x 200 set y 200 checkcolor $x $y 0 0 0 set area [triarea result 1.0e-4] set t_area [lindex $area 0] set g_area [expr abs([lindex $area 1])] set r_area [expr $t_area/$g_area] checkreal "Relative area" $r_area 1.0 0.01 0.0 checkview -screenshot -3d -path ${imagedir}/${test_image}.png