puts "========" puts "OCC591" puts "========" puts "" restore [locate_data_file OCC591.brep] result tclean result vinit vdisplay result vfit vsetdispmode result 1 vsettransparency result .5 set x_coord 250 set y_coord 115 checkcolor $x_coord $y_coord 0.58 0.41 0.07 if {$stat != 1} { puts "Error : Function VSETTRANSPARENCY works wrongly." } checkview -screenshot -3d -path ${imagedir}/${test_image}.png