tests/bugs/vis/bug597_6

   1 if { [array get env os_type] != "" } {
   2     set os $env(os_type)
   3 }
   4 if { [string compare $os "windows"] != 0 } {
   5 }
   6
   7 puts "=================================="
   8 puts "BUC60569"
   9 puts "OCC597"
  10 puts "=================================="
  11 puts ""
  12 puts "=================================="
  13 puts "It takes visual check for this BUG"
  14 puts "=================================="
  15 puts ""
  16
  17 restore [locate_data_file buc60569a.rle] result
  18 tclean result
  19 vinit
  20
  21 checkshape result
  22
  23 BUC60569 result
  24 vfit
  25
  26 vselect 250 190
  27 vselect 180 350 1
  28 vmoveto 250 190
  29 vmoveto 180 350
  30 vselect 390 390
  31 vselect 250 190 1
  32 vselect 180 350 1
  33 vmoveto 250 190
  34
  35 set x_coord 335
  36 set y_coord 331
  37
  38 checkcolor $x_coord $y_coord 0 1 1
  39
  40 if {$stat != 1} {
  41   puts "Error : The right face is NOT highlighted by Move To command."
  42 }
  43
  44 set only_screen 1