+++ /dev/null
-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