aUCBLogo Demos and Tests / testobj4

be testobj4
   be point x y c
      be print
         (::print this'x this'y)
      end
      be draw
         setPixelXY x y c
      end
   end
   p=point 200 100 "red
   p'print
   p'draw
end