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 vaspects -setwidth 5
  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    if {  "[vreadpixel $x_coord $y_coord rgb name]" != "YELLOW"  } {
  25      puts "Error : color is not yellow"
  26    }
  27 }
  28
  29 vscale 0.5 1.5 0.7
  30 vfit
  31
  32 set x2 [list 80 390 25]
  33 set y2 [list 390 218 167]
  34
  35 puts ""
  36 for {set i 0} {$i < 3} {incr i} {
  37    set x_coord [lindex ${x2} $i]
  38    set y_coord [lindex ${y2} $i]
  39    if {  "[vreadpixel $x_coord $y_coord rgb name]" != "YELLOW"  } {
  40      puts "Error : color is not yellow"
  41    }
  42 }
  43
  44 checkview -screenshot -3d -path ${imagedir}/${test_image}.png