;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Colorful Angles
;;;
;;; Description:
;;;    Red, yellow, green, blue.
;;;    So simple, yet so pretty.
;;;    Colorful angles.

(define (draw)
  (angle "red" 100)
  (angle "yellow" 50)
  (angle "green" 75)
  (rt 45)
  (angle "blue" 51)
  (angle "red" 95)
  (lt 62)
  (angle "yellow" 61)
  (angle "green" 66)
  (angle "blue" 195)
  (angle "red" 10)
  (rt 60)
  (angle "yellow" 30)
  (angle "green" 99)
  (lt 81)
  (angle "blue" 100)
  (exitonclick))

(define (angle clr size)
  (color clr)
  (fd size)
  (rt 90)
  (fd size)
)

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