#lang racket
(require gigls/unsafe)
(provide (all-defined-out))

;;; File:
;;;   iteration-lab.rkt
;;; Authors:
;;;   Samuel A. Rebelsky
;;;   Jerod Weinman
;;;   YOUR NAME(S) HERE
;;; Summary:
;;;   Code for the lab entitled "Iteration"

; +-------------------+---------------------------------------------------------
; | Turtle Procedures |
; +-------------------+

(define turtle-action-01!
  (lambda (turtle distance)
    (turtle-forward! turtle distance)
    (turtle-turn! turtle 23)))

(define turtle-action-02!
  (lambda (turtle angle)
    (turtle-forward! turtle 5)
    (turtle-turn! turtle angle)))

(define turtle-spiral!
  (lambda (turtle steps)
    (for-each (l-s turtle-action-02! turtle)
              (list-drop (iota (+ 1 steps)) 1))))