tests/bugs/vis/buc60915

   1 puts "TODO ?OCC12345 ALL: An exception was caught"
   2 puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
   3 puts "TODO ?OCC12345 ALL: \\*\\* Exception \\*\\*.*"
   4 puts "TODO ?OCC12345 ALL: Error : Cannot set the arrow size when using AIS_LengthDimension or AIS_RadiusDimensin."
   5 puts "TODO ?OCC12345 ALL: TEST INCOMPLETE"
   6
   7 puts "==========="
   8 puts "BUC60915"
   9 puts "==========="
  10 puts "=================================="
  11 puts "It takes visual check for this BUG"
  12 puts "=================================="
  13
  14 vinit
  15 BUC60915
  16
  17 set x_coord 300
  18 set y_coord 164
  19
  20 checkcolor $x_coord $y_coord 0.51 0.98 0
  21
  22 if {$stat != 1} {
  23    puts "Error : Cannot set the arrow size when using AIS_LengthDimension or AIS_RadiusDimensin."
  24 }
  25
  26 set only_screen 1
  27
  28