tests/bugs/vis/buc60632_2

   1 puts "================"
   2 puts "BUC60632"
   3 puts "================"
   4
   5 vinit
   6 BUC60632 1 100
   7 vfit
   8 vmoveto 126 143
   9 puts "Highlighting by 'Move To' command in shading mode"
  10
  11 set x_coord 128
  12 set y_coord 143
  13
  14 checkcolor $x_coord $y_coord 0 1 1
  15
  16 if { $stat != 1 } {
  17    puts "Error : Highlighting by Move To command in shading mode is WRONG."
  18 }
  19
  20 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
  21
  22