tests/bugs/vis/bug280_3

   1 puts "========"
   2 puts "OCC280"
   3 puts "3. Fitall on perspective view does not fit all properly"
   4 puts "========"
   5
   6 vinit
   7 box b 100 900 300
   8 vdisplay b
   9 vsetdispmode b 1
  10
  11 OCC280 0 1
  12
  13 set x_coord 10
  14 set y_coord 240
  15
  16 puts "Before View->FitAll()"
  17
  18 checkcolor $x_coord $y_coord 0 0 0
  19
  20 vfit
  21
  22 puts "After View->FitAll()"
  23
  24 checkcolor $x_coord $y_coord 0.78 0.55 0.9
  25
  26 if { $stat != 1 } {
  27     puts "Error : Function vfit works wrongly"
  28 }
  29
  30 set only_screen 1