;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Your title here>
;;;
;;; Description:
;;;   <It's your masterpiece.
;;;    Use these three lines to describe
;;;    its inner meaning.>

(define (draw)
  (speed 0)
  (bgcolor "black")

  (define (adjust x y)
    (penup)
    (setposition x y)
    (pendown))
  (define (up n)
    (penup)
    (forward n)
    (pendown)
  )
  (define (triangle3 x y ln)
    (adjust x y)
    (setheading 0)
    (left 30)
    (color "yellow")
    (forward ln)
    (right 120)
    (forward 25)
    (up 37)
    (forward 175)
    (up 40)
    (forward 25)
    (right 120)
    (forward ln)
    (adjust x (- y (/ ln 5)))
    (setheading 0)
    (left 30)
    (forward (+ ln (/ ln 3)))
    (right 120)
    (forward 60)
    (up 38)
    (forward 204)
    (up 40)
    (forward 58)
    (right 120)
    (forward (+ ln (/ ln 3)))
  )
  (define (triangle1 x y ln)
    (adjust x y)
    (setheading 0)
    (left 30)
    (color "blue")
    (forward 36)
    (up 37)
    (forward 169)
    (up 30)
    (forward 28)
    (right 120)
    (forward ln)
    (right 120)
    (forward ln)
    (adjust x (- y (/ ln 5)))
    (setheading 0)
    (left 30)
    (forward 70)
    (up 37)
    (forward 205)
    (up 30)
    (forward 58)
    (right 120)
    (forward (+ ln (/ ln 3)))
    (right 120)
    (forward (+ ln (/ ln 3)))
  )
  (define (triangle2 x y ln)
    (adjust x y)
    (setheading 0)
    (left 30)
    (color "yellow")
    (forward ln)
    (right 120)
    (forward ln)
    (right 120)
    (forward 32)
    (up 32)
    (forward 167)
    (up 35)
    (forward 34)
    (adjust x (- y (/ ln 5)))
    (setheading 0)
    (left 30)
    (forward (+ ln (/ ln 3)))
    (right 120)
    (forward (+ ln (/ ln 3)))
    (right 120)
    (forward 63)
    (up 32)
    (forward 201)
    (up 37)
    (forward 67)
  )


  (triangle1 460 -100 300)
  (triangle2 360 -150 300)
  (triangle3 460 -205 300)

  (triangle1 -500 -350 300)
  (triangle2 -600 -400 300)
  (triangle3 -500 -455 300)

  (triangle1 -475 200 300)
  (triangle2 -575 150 300)
  (triangle3 -475 95 300)

  (triangle1 -15 250 300)
  (triangle2 -115 200 300)
  (triangle3 -15 145 300)

  (triangle1 560 -575 300)
  (triangle2 460 -625 300)
  (triangle3 560 -685 300)


  (triangle1 670 320 300)
  (triangle2 570 270 300)
  (triangle3 670 215 300)

  (triangle1 0 -250 300)
  (triangle2 -100 -300 300)
  (triangle3 0 -355 300)


  (exitonclick))

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