#lang racket
(require gigls/unsafe)

(define turtle-watch-me!
  (lambda (t)
    (for-each (lambda (i)
                (turtle-forward! t (mod (* i 11) 71))
                (turtle-turn! t (* 15 i))
                (sleep 0.1))
              (iota 100))))

;;; Procedure:
;;;   sample-turtle
;;; Parameters:
;;;   [None]
;;; Purpose:
;;;   Create a new turtle at the center of a new 200x200 world
;;; Produces:
;;;   turtle, a turtle
;;; Preconditions:
;;;   [No additional]
;;; Postconditions:
;;;   (turtle-angle turtle) = 0
;;;   (turtle-x turtle) = 100
;;;   (turtle-y turtle) = 100
;;;   (image-width (turtle-world turtle)) = 200
;;;   (image-height (turtle-world turtle)) = 200
(define sample-turtle
  (lambda ()
    (turtle-teleport! (turtle-new (image-show (image-new 200 200)))
                      100 100)))