;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: War and Peace
;;;
;;; Description:
;;;   Harmony and discord
;;;    By the entropy of war
;;;    Never know what will be

(define (draw-it r min-r max-r)
  (if (>= r min-r)
    (begin ; 25% line, 75% pendulum
      (pendown)
      (right 90)

      (define ratio-r (/ (- r min-r) (- max-r min-r)))

      (color_random (* ratio-r 255) 255 200 255 (* ratio-r 255) 255)
      (begin_fill)
      (circle r (* ratio-r 180) )
      (penup)
      (left (* ratio-r 90))
      (forward r)
      (left (* ratio-r 90))
      (forward (randfloat (* r 0.75) (* r 1.2)))
      (left (* ratio-r 90))
      (pendown)
      (end_fill)
      (color "#000000")
      (penup)
      (circle r (randfloat 90 180))

      (left 90)
      (draw-it (/ r 1.17) min-r max-r)
    )
    '())
)

(define (draw)
  (penup)
  (setposition 0 -320)
  ;(right 45)
  (draw-it 400 6 400)
  (hideturtle)
  (exitonclick))

; Please leave this last line alone.  You may add additional procedures above
; this line.  All Scheme tokens in this file (including the one below) count
; toward the token limit.
(draw)