;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: LAYERS!
;;;
;;; Description:
;;;    layers on layers?
;;;    are they on top of eachother?
;;;    or thrown side by side

(define (draw)
	(pu)
	(goto -315 215)
	(trapezoidsforward 4 400 320 80 color_sequence)
	(triangle 80 "#3C260F")
	(bwtrapezoid 160 80 80 "#4D2F0F")
	(bwtrapezoid 240 160 80  "#FF5733")
	(bwtrapezoid 320 240 80  "#FFC300")
	(bwtrapezoid 400 320 80  "#F4F42D")
	(goto -315 -65)
	(rt 90)
	(fd 71)
	(rt 330)
	(diamond "#6C3483")
	(fd 80)
	(diamond "#6600FF")
	(bk 80)
	(fd 160)
	(diamond "#33CCFF")
	(bk 160)
	(rt 60)
	(fd 80)
	(rt 300)
	(diamond "#FF0033")
	(fd 80)
	(diamond "#FF0099")
	(bk 80)
	(rt 60)
	(fd 80)
	(rt 300)
	(diamond "#FF9966")
  (exitonclick))

(define (diamond_fractal color_sequence)
	(fd 80)
	(diamond)
	(bk 80)
	(rt 70)
	(fd 80)
	(diamond)
	)

(define (trapezoidsforward n a b c lst)
	(trapezoid a b c (car lst))
	(define n (- n 1))
	(define a (- a 80))
	(define b (- b 80))
	(define lst (cdr lst))
	(if (> n 0)
	(trapezoidsforward n a b c lst))
	)

(define (diamond clr)
	(pd)
	(color clr)
	(begin_fill)
	(fd 80)
	(rt 60)
	(fd 80)
	(rt 120)
	(fd 80)
	(rt 60)
	(fd 80)
	(rt 120)
	(end_fill)
	(pu)
		)



 (define (trapezoid a b c clr)
 	(pd)
	(begin_fill)
	(color clr)
	(fd c)
	(rt 120)
	(fd a)
	(rt 120)
	(fd c)
	(rt 60)
	(fd b)
	(end_fill)
	(pu)
	(rt 60)
	(bk 80)
  
)

 (define (bwtrapezoid a b c clr)
 	(pd)
	(begin_fill)
	(color clr)
	(bk c)
	(rt 60)
	(fd a)
	(rt 240)
	(fd c)
	(rt 300)
	(fd b)
	(end_fill)
	(pu)
	(rt 300)
	(fd 80)
	(rt 180)
  
)



(define (triangle a clr)
	(pd)
	(begin_fill)
	(color clr)
	(fd a)
	(rt 120)
	(fd a)
	(rt 120)
	(fd a)
	(end_fill)
	(rt 120)
	)





(define (trapezoid_iter n a b)
	(if (> n 0) trapezoid(a b 80 "#D4E157")
	(define a (- a 80))
	(define b (- b 80))
	(define n (- n 1))
	(trapezoid_iter n a b)

		))



(define color_sequence (list "#D4E157" "#66BB6A" "#322153" "#292137" "#3C260F" "#4D2F0F" "#FF5733" "#FFC300" "#F4F42D"))



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