;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: 61A Lecture Number 36. Announcements 
;;;
;;; Description:
;;;   <Thank you Denero
;;;    I love the sound of your voice
;;;    At 1.5 speed>

(define (oneline)
	(penup)
	(setposition 0 0)
	;;;(begin_fill)
	(pendown)
    (forward 100)
    (right 20)
    (forward 10)
    (left 40)
    (forward 25)
    (right 20)
    (forward 10)
    (left 40)
    (forward 25)
    (right 20)
    (forward 1)
    (penup)
    (right 1)
    (forward 200)
    ;;;(end_fill)
)

(define (both i)
	(color (rgb (/ i 400) (/ i 400) (/ i 400)))
	(oneline)
	(squiggly (+ i 1)) 
)

(define (squiggly i)
  (if (<= i 200)
  	(both i))
)

(define (second_part n)
  (if (> n 0)
      (go_again n)
      )
  )

(define (go_again n)
	(forward 150) 
	(right 45) 
	(forward 150) 
	(right 45) 
	(forward 150) 
	(right 45) 
	(forward 150) 
	(right 45)
	(forward 150) 
	(right 45) 
	(forward 150) 
	(right 45) 
	(forward 150) 
	(right 45) 
	(forward 150) 
	(right 46)
	(second_part (- n 1))
	)

(define (circle_maker n)
	(penup)
	(setposition (- 400 (* n n)) 0)
	(pendown)
	(circle (- 400 (* n n)))
	(penup)
	(setposition (* n n) 0)
	(pendown)
	(circle (* n n))
	;;(setposition 0 (- 400 (* n n)))
	;;(circle (* n n))
	;;(circle (- 400 (* n n)))
	(draw_circles (+ n 0.3))
	;;(right 2)
)

(define (draw_circles n)
	(if (< n 40)
		(circle_maker n)
	)
)

(define (draw)
	(speed 300)
	(pendown)
	(draw_circles 0)
  (squiggly 1)
  (setposition 0 0)
  (pendown)
  (color (rgb 0 0 0))
  (second_part 360)
  (exitonclick))

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