tests/bugs/vis/bug11615

   1 puts "============"
   2 puts "OCC11615"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Anisotropic scaling in 3D view
   7 ######################################################
   8
   9 set BugNumber OCC11615
  10
  11 box b 10 10 10
  12 vinit
  13 vdisplay b
  14 vfit
  15 vscale 1 1 1
  16
  17 set x1 [list 165 340 70]
  18 set y1 [list 384 283 79]
  19
  20 puts ""
  21 for {set i 0} {$i < 3} {incr i} {
  22    set x_coord [lindex ${x1} $i]
  23    set y_coord [lindex ${y1} $i]
  24
  25    checkcolor $x_coord $y_coord 1 1 0
  26 }
  27
  28 vscale 0.5 1.5 0.7
  29 vfit
  30
  31 set x2 [list 80 390 25]
  32 set y2 [list 390 218 167]
  33
  34 puts ""
  35 for {set i 0} {$i < 3} {incr i} {
  36    set x_coord [lindex ${x2} $i]
  37    set y_coord [lindex ${y2} $i]
  38
  39    checkcolor $x_coord $y_coord 1 1 0
  40 }
  41
  42 set only_screen 1