tests/bugs/vis/buc60915

   1 puts "==========="
   2 puts "BUC60915"
   3 puts "==========="
   4 puts "=================================="
   5 puts "It takes visual check for this BUG"
   6 puts "=================================="
   7
   8 vinit
   9 BUC60915
  10
  11 set x_coord 300
  12 set y_coord 164
  13
  14 checkcolor $x_coord $y_coord 0.51 0.98 0
  15
  16 if {$stat != 1} {
  17    puts "Error : Cannot set the arrow size when using AIS_LengthDimension or AIS_RadiusDimensin."
  18 }
  19
  20 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
  21
  22