tests/bugs/vis/bug597_5

   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
  27 set x_coord 335
  28 set y_coord 331
  29
  30 checkcolor $x_coord $y_coord 0.8 0.8 0.8
  31
  32 if {$stat != 1} {
  33    puts "Error : The right face is NOT Selected by Shift Select command"
  34 }
  35
  36 vselect 180 350 1
  37
  38 set x_coord 101
  39 set y_coord 347
  40
  41 checkcolor $x_coord $y_coord 0.8 0.8 0.8
  42
  43 if {$stat != 1} {
  44    puts "Error : The left face is Selected by Shift Select command"
  45 }
  46
  47 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
  48