;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Your title here>
;;;
;;; Description:
;;;   <I love Denero
;;;    Denero is my savior
;;;    Refrigerator>

;(setheading <h>)
(define color1 "#FAFED9")
(define color2 "#9BB771")
(define color3 "#24AB3F")
(define color4 "#51919E")
(define last-pos (list 1 1))

(define (color-select iterator)
  (cond ((= (modulo iterator 3) 1) (color color1))
        ((= (modulo iterator 3) 2) (color color2))
        ((= (modulo iterator 3) 0) (color color4))
  )
)
(define (pos-select iterator)
  ;(pixelsize (* iterator 2))

  ;(define last-pos (list (+ (car last-pos) iterator) (+ (car (cdr last-pos)) iterator)))
  (cond ((= (modulo iterator 3) 1) (setposition 0 (car (cdr last-pos))))
        ((= (modulo iterator 3) 2) (setposition (car last-pos) (- 0 (car (cdr last-pos)))))
        ((= (modulo iterator 3) 0) (setposition (- 0 (car last-pos)) (- 0 (car (cdr last-pos)))))
  )
)
(define (pos-behavior i range pos)
  (define (drawspiral index size)
    (if (<= index 0) size
      (begin 
        (forward size)
        (right 91)
        (drawspiral (- index 1) (+ size 1))
      )
    )
  )
  (define (drawleaf index size)
    (if (<= index 0) size
      (begin 
        (forward (- size index))
        (right 182)
        (forward (- size index))
        (left 179)
        (drawleaf (- index 1) (+ size 1))
      )
    )
  )
  (drawspiral 100 5)
  (drawleaf 100 5)
  (drawleaf 200 5)
  ;(end_fill)
  ;(pos-select (* 10 size))
  ;(speed <s>)
  ;(forward <n>)
  ;(backward <n>)
  ;(left <n>)
  ;(right <n>)
)

(define (draw)
  (bgcolor "black")
  (speed 0)
  (define (run-procedures i order maxres resolution)
    (color-select i)
    (pendown)
    (pos-behavior i resolution last-pos)
    (penup)    
    (pos-select (* resolution i))

    (if (< maxres resolution) 
      i
      (run-procedures (+ i 1) order maxres (+ resolution 1))
    )
  )
  (run-procedures 0 3 7 0)
  (exitonclick)  
)

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