;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Mind-Boggling
;;;
;;; Description:
;;;   <This is how my head
;;;    feels every time I hear the
;;;    words tree recursion.>

(penup)
(speed 0)
(bgcolor '"#000000")

(define (design amount turn count)
  (define (helper x)
    (if (= x count) nil
      (begin (forward (* x amount)) (left turn) (helper (+ x 1)))
    )

  )
  (helper 0)
)

(define (draw)
	(begin (
	  (setpos 0 0)
	  (pendown)
      (color '"#A65BAD")
      (design 0.45 15 400)
    (penup)
    (setpos 1 1)
    (pendown)
      (color '"#A65BAD")
      (design 0.45 15 400)
    (penup)
    (setpos -1 0)
    (pendown)
      (color '"#A65BAD")
      (design 0.45 15 400)
    (penup)
    (setpos 0 0)
    (pendown)
      (color '"#DECA50")
      (design 0.35 170 1200)
    (penup)
    (setpos 0 0)
    (pendown)
      (color '"#DE9450")
      (design 0.35 170 1000)
    (penup)
    (setpos 0 0)
    (pendown)
      (color '"#DE6150")
      (design 0.35 170 800)
    (penup)
    (setpos 0 0)
    (pendown)
      (color '"#DE5050")
      (design 0.35 170 600)
    (penup)
    (hideturtle)


    (define (printing count)
      (if (= count 100) nil
        (printing (+ 1 count)))
      )
    (define (printing count)
      (if (= count 100) nil
        (printing (+ 1 count)))
      )
    (define (printing count)
      (if (= count 100) nil
        (printing (+ 1 count)))
      )
    (define (printing count)
      (if (= count 100) nil
        (printing (+ 1 count)))
      )
    (define (printing count)
      (if (= count 100) nil
        (printing (+ 1 count)))
      )
    (define (printing count)
      (if (= count 100) nil
        (printing (+ 1 count)))
      )
    (define (printing count)
      (if (= count 100) nil
        (printing (+ 1 count)))
      )
    (define (printing count)
      (if (= count 100) nil
        (printing (+ 1 count)))
      )
    (define (printing count)
      (if (= count 100) nil
        (printing (+ 1 count)))
      )
    (define (printing count)
      (if (= count 100) nil
        (printing (+ 1 count)))
      )
    (define (printing count)
      (if (= count 100) nil
        (printing (+ 1 count)))
      )
    (define (printing count)
      (if (= count 100) nil
        (printing (+ 1 count)))
      )
	  )
  )
	(exitonclick)
 )

(draw)