tests/bugs/vis/bug597_2

   1 puts "=================================="
   2 puts "BUC60569"
   3 puts "OCC597"
   4 puts "=================================="
   5 puts "It takes visual check for this BUG"
   6 puts "=================================="
   7 puts ""
   8
   9 restore [locate_data_file buc60569a.rle] result
  10 tclean result
  11 vinit
  12 vhighlightselected 0
  13 checkshape result
  14
  15 BUC60569 result
  16 vfit
  17 vselect 250 190
  18 vselect 180 350 1
  19 vmoveto 250 190
  20
  21 set x_coord 335
  22 set y_coord 331
  23
  24 checkcolor $x_coord $y_coord 0.8 0.8 0.8
  25
  26 if {$stat != 1} {
  27    puts "Error : The right face is highlighted by Move To command."
  28 }
  29
  30 set only_screen 1