|
|
|
forward :dist
fd :dist
Definition:
to forward :dist make local "newpos :pos + (point :dist 0) ° :ang 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 |
|
|
|