tests/bugs/vis/buc60574

   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 "BUC60574"
  12 puts "==========="
  13 puts "=================================="
  14 puts "It takes visual check for this BUG"
  15 puts "=================================="
  16
  17 vinit
  18 BUC60574
  19
  20 vselect 220 210
  21 puts ""
  22
  23 set x_coord 205
  24 set y_coord 205
  25
  26 checkcolor $x_coord $y_coord 0.8 0.8 0.8
  27
  28 if {$stat != 1} {
  29    puts "OK: Plane of trihedron was selected properly "
  30 }
  31
  32 ## modified colors
  33
  34 set only_screen 1