;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: CS61Avengers
;;;
;;; Description:
;;;   <Did you pass 61A? Yes
;;;    What did it cost? Everything
;;;    We're in the endgame now>
(define berkeley_blue "#003262")
(define california_gold "#FDB515")

(define (triangle x1 x2 x3 y1 y2 y3 color-fill)
  (penup)
  (setposition x1 y1)
  (color color-fill)
  (pendown)
  (begin_fill)
  (setposition x2 y2)
  (setposition x3 y3)
  (setposition x1 y1)
  (end_fill)
)

(define (rect x-ul x-ur x-bl x-br y-t y-b color-fill)
  (penup)
  (setposition x-ul y-t)
  (color color-fill)
  (pendown)
  (begin_fill)
  (setposition x-ur y-t)
  (setposition x-br y-b)
  (setposition x-bl y-b)
  (setposition x-ul y-t)
  (end_fill)
)


(define x-cent 0)
(define y-cent 0)

(define (a-circle rad iter)
  (penup)
  (if (= iter 16)
  (pendown)
  (
  (setposition (+ x-cent rad) y-cent)
  (pendown)
  (color berkeley_blue)
  (circle rad)
  (penup)
  (a-circle (- rad 1) (+ iter 1))
  )
)
)

(define (a-letter color1 color2)
  (pendown)
  (rect (+ x-cent 20) (+ x-cent 40) (+ x-cent -100) (+ x-cent -60) (+ y-cent 132) (+ y-cent -100) color1)
  (rect (+ x-cent 20) (+ x-cent 47) (+ x-cent 20) (+ x-cent 47) (+ y-cent 132) (+ y-cent -58) color1)
  (triangle (+ x-cent 20) (+ x-cent 60) (+ x-cent 20) (+ y-cent 22) (+ y-cent -18) (+ y-cent -58) color2)
  (rect (+ x-cent -30) (+ x-cent 20) (+ x-cent -30) (+ x-cent 20) (+ y-cent -33) (+ y-cent -3) color1)
  (triangle (+ x-cent 20) (+ x-cent 52) (+ x-cent 20) (+ y-cent 12) (+ y-cent -18) (+ y-cent -48) color1)
  (penup)
)

(define (avengers-a col1 col2)
  (a-letter col1 col2)
  (a-circle 100 0)
)


(define (draw)
  ; YOUR CODE HERE
  (speed 10)
  (bgcolor california_gold)
  (avengers-a berkeley_blue california_gold)
  (exitonclick))

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