puts "========" puts "OCC185" puts "========" pload XDE igesbrep [locate_data_file OCC185.igs] a * tpcompound result tclean result vinit vdisplay result vfit set x_coord 235 set y_coord 214 vsetdispmode result 1 checkcolor $x_coord $y_coord 0.78 0.55 0.9 if { $stat != 1 } { puts "Error : Shading is OFF, but should be ON" } vsetdispmode result 0 checkcolor $x_coord $y_coord 0 1 0 if { $stat != 1 } { puts "Error : Shading is ON, but should be OFF" } checkview -screenshot -3d -path ${imagedir}/${test_image}.png