;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: EECS Daddy Denero
;;;
;;; Description:
;;;   <Test summary
;;;    420 test cases passed!
;;;    No cases failed.>

(define (hd) (setheading -90))
(define (hd2) (setheading 180))
(define (f30) (fd 30))
(define (f20) (fd 20))
(define (f15) (fd 15))
(define (r) (rt 90))
(define (l) (lt 90))
(define (b30) (bk 30))
(define (b20) (bk 20))
(define (b15) (bk 15))

(define (letter_e) (hd) (f30) (l) (f15) (l) (f20) (b20) (r) (f15) (l) (f30))
(define (letter_c) (hd) (f30) (l) (f30) (l) (f30))
(define (letter_s) (hd) (f30) (l) (f15) (l) (f30) (r) (f15) (r) (f30))
(define (letter_d) (letter_c) (l) (f30) (l))
(define (letter_a) (hd2) (f30) (b15) (r) (f30) (b30) (r) (f15) (l) (f30) (l) (f30))
(define (letter_y) (hd2) (f15) (r) (f15) (l) (f15) (b15) (r) (f15) (r) (f15))

(define (sp x y) (pu) (setpos x y) (pd))

(define (eecs-daddy sx sy)
  (sp sx sy) (letter_e)
  (sp (+ sx 35) sy) (letter_e)
  (sp (+ sx 70) sy) (letter_c)
  (sp (+ sx 105) sy) (letter_s)
  (sp (+ sx 150) sy) (letter_d)
  (sp (+ sx 185) sy) (letter_a)
  (sp (+ sx 220) sy) (letter_d)
  (sp (+ sx 255) sy) (letter_d)
  (sp (+ sx 290) sy) (letter_y))

(define (draw-image y)
  (if (< y -280) nil (begin (eecs-daddy -310 y) (eecs-daddy 35 y) (draw-image (- y 40)))))

(define (draw)
  ; YOUR CODE HERE
  (speed 100)
  (bgcolor "black")
  (color "white")
  (draw-image 320)
  (exitonclick))

; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)