;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Meadows>
;;;
;;; Description:
;;;   <Sunsetting meadows
;;;    nice, calm, pastel aesthetics
;;;    with dark scary tree.>

  ; YOUR CODE HERE

(define (sky col start x radius)
	(cond 
		((> start 0)
			(penup)
			(setpos x 0)
			(begin_fill)
			(pendown)
			(color (car col))
			(circle radius 360)
			(end_fill)
			(penup)
			(end_fill)
			(sky (cdr col) (- start 1) (- x 50) (- radius 50)))
		(else
			(penup)))
	)



(define (meadow mead-col startx starty n)
	(penup)
	(cond 
		((> starty -700)
		(penup)
		(setpos startx starty)
		(begin_fill)
		(pendown)
		(color (car mead-col))
		(circle 600 360)
		(penup)
		(end_fill)
		(meadow (cdr mead-col) (+ (* (expt -1 n) (+ 350 (/ 350 n))) startx) (- starty 50) (+ n 1)))
		(else
			(penup))))

(define (fractaltree penwidth)
	(color "Black")
	(pensize (/ penwidth 10))
	(cond
		((> penwidth 10)
		(forward penwidth)
		(left 25)
		(fractaltree (- penwidth (randint 10 15)))
		(right 50)
		(fractaltree (- penwidth (randint 10 15)))
		(left 25)
		(penup)
		(forward (* penwidth -1))
		(pendown) 		
		)
		(else
			(penup))
	))


(define (draw)
	(bgcolor "LightSteelBlue2")
	(define skycolor
	(list "LightSteelBlue2" "Thistle" "RosyBrown2" "lightpink1" "peachpuff2" "navajowhite" "PaleGoldenrod"))
	(define meadowcolor
		(list "DarkSeaGreen" "PaleGreen3" "DarkOliveGreen4" "PaleGreen4"))
  (sky skycolor 6 400 400)
  (meadow meadowcolor 1000 -500 1)
  (penup)
  (begin_fill)
  (color "Sienna")
  (setpos -150 -400)
  (setpos -20 -94)
  (setpos 15 -107)
  (setpos 0 -400)
  (setpos -150 -400)
  (end_fill)
  (penup)
  (begin_fill)
  (color "Sienna")
  (setpos 73 -140)
  (setpos 157 -4)
  (setpos 177 -3)
  (setpos 108 -161)
  (setpos 73 -140)
  (end_fill)
  (penup)
  (begin_fill)
  (color "Sienna")
  (setpos 250 -2)
  (setpos 225 74)
  (setpos 223 74)
  (setpos 230 -1)
  (setpos 250 -2)
  (end_fill)
  (penup)
  (setpos -350 -300)
  (pendown)
  (fractaltree 120)
  (exitonclick))


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