;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: The Presidential Paw
;;;
;;; Description:
;;;    Presidential
;;;    DeNero’s Dogs and SQL
;;;    Ready for data, big or little.

(define (draw_circle ri ex r g b)
  (cond
    ((= ex 360)
    (circle ri 36))
  (else
    (color (rgb r g b))
    (circle ri 36)
    (draw_circle ri (+ 36 ex) (- r 0.1) g (+ 0.1 b)))
  ))

(define (circle_loop n ri ex r g b)
  (cond
    ((= n 0)
      (draw_circle ri ex r g b)
      (bgcolor (rgb "#fcfcee")))
    (else
      (draw_circle ri ex r g b)
      (left 90)
      (forward 1)
      (right 90)
      (circle_loop (- n 1) ri ex r g b))
  ))

(define (draw)

  (pixelsize 50)
  (define c (rgb 0.3 0.3 1))
  (pixel 5 9 c)
  (pixel 7 11 c)
  (pixel 9 11 c)
  (pixel 11 9 c)
  (pixel 7 7 c)
  (pixel 9 7 c)
  (pixel 8 7 c)
  (pixel 8 8 c)

  (pixelsize 30)
  (pixel 10 9 c)
  (pixel 10 8 c)
  (pixel 10 7 c)
  (pixel 10 6 c)
  (pixel 10 5 c)
  (pixel 11 5 c)
  (pixel 12 5 c)
  (pixel 12 6 c)
  (pixel 12 7 c)
  (pixel 12 8 c)
  (pixel 12 9 c)

  (pixel 17 9 c)
  (pixel 16 9 c)
  (pixel 15 9 c)
  (pixel 15 8 c)
  (pixel 15 7 c)
  (pixel 16 7 c)
  (pixel 17 7 c)
  (pixel 17 6 c)
  (pixel 17 5 c)
  (pixel 16 5 c)
  (pixel 15 5 c)

  (speed 10)
  (penup)
  (right 180)
  (forward 335)
  (left 90)
  (pendown)
  (circle_loop 15 300 36 1 0 0)
  (hideturtle)

  (exitonclick))


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