puts "========" puts "BUC60876" puts "========" puts "" pcylinder c 100 300 vinit BUC60876 c vfit vmoveto 200 200 set x_coord 200 set y_coord 200 checkcolor $x_coord $y_coord 0 1 1 set only_screen 1