tests/bugs/vis/bug597_3

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