;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Your title here>
;;;
;;; Description:
;;;   <It's your masterpiece.
;;;    Use these three lines to describe
;;;    its inner meaning.>

(define (spooky mini maxi start inc1 inc2)
	(if (eq? mini maxi) nil (begin (circle mini start) 
		(spooky (+ mini inc1) maxi (+ start inc2) inc1 inc2)
		)))

(define (sequence1) (begin
	(color "red")
  (spooky 10 50 0 5 10)
  (color "green")
  (spooky 10 50 0 5 10)
  (color "blue")
  (spooky 10 50 0 5 10)
  ))

(define (sequence2) (begin
	(color "yellow")
  (spooky 10 80 0 10 10)
  (color "orange")
  (spooky 10 80 0 10 10)
  (color "blue")
  (spooky 10 80 0 10 10)
  ))

(define (sequence3) (begin
	(color "black")
  (spooky 10 50 0 5 10)
  (color "green")
  (spooky 10 50 0 5 10)
  (color "orange")
  (spooky 10 50 0 5 10)
  ))

(define (loop1 n) (if (= n 0) nil (begin (sequence1) (loop1 (- n 1)))))
(define (loop2 n) (if (= n 0) nil (begin (sequence2) (loop2 (- n 1)))))
(define (loop3 n) (if (= n 0) nil (begin (sequence3) (loop3 (- n 1)))))
(define (draw)
  ; YOUR CODE HERE
  (pendown)
  (bgcolor "white")
  (speed 10)
  (loop1 5)
  (penup)
  (setheading 45)
  (forward 200)
  (pendown)
  (loop2 5)
  (penup)
  (setheading 135)
  (forward 200)
  (pendown)
  (loop3 5)
  (penup)
  (setheading 300)
  (forward 400)
  (pendown)
  (loop1 5)
  (penup)
  (setheading 45)
  (forward 200)
  (pendown)
  (loop2 5)
  (penup)



  (exitonclick))

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