tests/bugs/vis/bug597_1

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