puts "==========="
puts "BUC60747"
puts "BUC60611"
puts "BUC60639"
puts "==========="
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="

v2dinit
pcone c_o 15 0 50 360
v2ddisplay c_o
v2dfit

set x_coord 37
set y_coord 287
set color2d 1

checkcolor $x_coord $y_coord 1 1 0

if {$stat != 1} {
   puts "Error : function V2DFIT works wrongly"
}

set only_screen2d 1