tests/bugs/vis/buc60814

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