tests/bugs/vis/bug597_5

   1 if { [array get env os_type] != "" } {
   2     set os $env(os_type)
   3 }
   4 if { [string compare $os "windows"] != 0 } {
   5    puts "TODO ?OCC12345 ALL: An exception was caught"
   6    puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
   7    puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
   8 }
   9
  10 puts "=================================="
  11 puts "BUC60569"
  12 puts "OCC597"
  13 puts "=================================="
  14 puts ""
  15 puts "=================================="
  16 puts "It takes visual check for this BUG"
  17 puts "=================================="
  18 puts ""
  19
  20 restore [locate_data_file buc60569a.rle] result
  21 tclean result
  22 vinit
  23
  24 checkshape result
  25
  26 BUC60569 result
  27 vfit
  28
  29 vselect 250 190
  30 vselect 180 350 1
  31 vmoveto 250 190
  32 vmoveto 180 350
  33 vselect 390 390
  34 vselect 250 190 1
  35
  36 set x_coord 335
  37 set y_coord 331
  38
  39 checkcolor $x_coord $y_coord 0.8 0.8 0.8
  40
  41 if {$stat != 1} {
  42    puts "Error : The right face is NOT Selected by Shift Select command"
  43 }
  44
  45 vselect 180 350 1
  46
  47 set x_coord 101
  48 set y_coord 347
  49
  50 checkcolor $x_coord $y_coord 0.8 0.8 0.8
  51
  52 if {$stat != 1} {
  53    puts "Error : The left face is Selected by Shift Select command"
  54 }
  55
  56 set only_screen 1
  57