|
|
|
setxy :x :y
Definition:
to setxy :x :y make local "newpos (point :x :y) if :pen [ make "turtle_seg segment :pos :newpos make "turtle_seg.color :col traced "turtle_seg repaint delete "turtle_seg ] make "pos :newpos image end |
|
|
|