; CS61A Spring 2016 - Scheme Recursive Art Contest
;  Name: [redacted]
; Title: Recursive Bleeding
; Haiku: Hilfinger in spring
;        and then Hilfinger in fall
;        Will it ever end?


(define (draw)

  (bgcolor 'black)

  (speed 0)

  (spiral1 1 500)
  (reset)
  (spiral2 1 500)
)


(define (reset)
  (penup)
  (setpos 0 0)
  (pendown)
)


(define (spiral1 i limit)
  (color 'red)
  (cond
    ((< i limit)
      (fd (+ (* 0.5 i) (* 0.00001 (* i (* i i)))))
      (lt 91)
      (define i (+ 1 i))
      (spiral2 i limit))
    (else (exitonclick))))

(define (spiral2 i limit)
  (color 'white)
  (cond
    ((< i limit)
      (fd (+ (* 0.5 i) (* 0.00001 (* i (* i i)))))
      (lt 91)
      (define i (+ 1 i))
      (spiral1 i limit))
    (else (exitonclick))))

(draw)
(hideturtle)