tests/bugs/vis/bug597_7

   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 vselect 390 390
  25 vselect 250 190 1
  26 vselect 180 350 1
  27 vmoveto 250 190
  28 vmoveto 180 350
  29
  30 set x_coord 335
  31 set y_coord 331
  32
  33 checkcolor $x_coord $y_coord 0.8 0.8 0.8
  34
  35 if {$stat != 1} {
  36    puts "Error : The right face is NOT highlighted by Move To command."
  37 }
  38
  39 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
  40