tests/bugs/vis/buc60747

   1 puts "==========="
   2 puts "BUC60747"
   3 puts "BUC60611"
   4 puts "BUC60639"
   5 puts "==========="
   6 puts "=================================="
   7 puts "It takes visual check for this BUG"
   8 puts "=================================="
   9
  10 v2dinit
  11 pcone c_o 15 0 50 360
  12 v2ddisplay c_o
  13 v2dfit
  14
  15 set x_coord 37
  16 set y_coord 287
  17 set color2d 1
  18
  19 checkcolor $x_coord $y_coord 1 1 0
  20
  21 if {$stat != 1} {
  22    puts "Error : function V2DFIT works wrongly"
  23 }
  24
  25 set only_screen2d 1