tests/bugs/vis/buc60814

   1 puts "========"
   2 puts "BUC60814"
   3 puts "========"
   4 puts ""
   5
   6 vinit
   7 BUC60814
   8 vfit
   9 QAUpdateLights
  10
  11 set x_coord 131
  12 set y_coord 352
  13
  14 checkcolor $x_coord $y_coord 0 0 1
  15
  16 #AKI.111002.Against **Exception..-it's on lin.Changed coord of trihedron.
  17
  18 if {$stat != 1} {
  19    puts "Error : Circle has NOT blue color."
  20 }
  21
  22 set x_coord 170
  23 set y_coord 319
  24
  25 checkcolor $x_coord $y_coord 0 0 1
  26
  27 if {$stat != 1} {
  28    puts "Error : Trihedron has NOT blue color."
  29 }
  30
  31 set only_screen 1