puts "========" puts "OCC280" puts "3. Fitall on perspective view does not fit all properly" puts "========" vinit box b 100 900 300 vdisplay b vsetdispmode b 1 OCC280 0 1 set x_coord 22 set y_coord 241 puts "Before View->FitAll()" checkcolor $x_coord $y_coord 0 0 0 vfit puts "After View->FitAll()" checkcolor $x_coord $y_coord 0.78 0.55 0.9 if { $stat != 1 } { puts "Error : Function vfit works wrongly" } checkview -screenshot -3d -path ${imagedir}/${test_image}.png