tests/bugs/vis/buc60632_1

   1 puts "================"
   2 puts "BUC60632"
   3 puts "================"
   4
   5 vinit
   6 BUC60632 0 100
   7 vfit
   8 vmoveto 126 143
   9 puts "Highlighting by 'Move To' command in wireframe mode"
  10
  11 set x_coord 129
  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 wireframe mode is WRONG."
  18 }
  19 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
  20
  21