;;; 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 (multiple_circles start-radius) 
  (cond 
    ((< start-radius 1) nil)
    (else 
      (begin
        (circle start-radius)
        (multiple_circles (- start-radius (/ start-radius 2)))
      )
    )
  )
)

(define bottom_y (- 0 (/ (screen_height) 2)))
(define start_x (- 0 (/ (screen_width) 2)))
(define color_step (/ 1 (screen_height)))

(define (color_pos_y y) (abs (/ y (screen_height))))
(define (color_pos_x x) (abs (/ x (screen_width))))

(define (gradient_bg_horizontal inpu) 
  (penup)
  (setposition start_x bottom_y)
  (setheading 90)
  (define (inner r g b y_pos)
    (if (> y_pos (/ (screen_height) 2)) nil
      (begin 
        (pendown)
        (color (rgb r g b))
        (forward (screen_width))
        (penup)
        (setposition start_x y_pos)
        (print (color_pos_y y_pos))
        (inner (* (color_pos_y y_pos) 2) 0.7 0.7 (+ y_pos 10))
      )
    )
  )
  (inner 0 0 0 (+ bottom_y inpu))
)

(define (gradient_bg_vertical) 
  (penup)
  (setposition start_x bottom_y)
  (setheading 0)
  (define (inner r g b x_pos)
    (if (> x_pos (/ (screen_width) 2)) nil
      (begin 
        (pendown)
        (color (rgb r g b))
        (forward (screen_height))
        (penup)
        (setposition x_pos bottom_y)
        (print (color_pos_x x_pos))
        (inner (* (color_pos_x x_pos) 2) 0.7 0.7 (+ x_pos 55))
      )
    )
  )
  (inner 0 0 0 start_x)
)

(define (make_center_circle r g b) 
  (color (rgb r g b))
  (begin_fill)
  (penup)
  (setposition (/ (screen_width) 3) 0)
  (pendown)
  (circle (/ (screen_width) 3))
  (end_fill)

  (define (inner r e)
    (if (< r 0) nil 
      (begin
        (circle r e)
        (inner (- r 4) (+ e 55))
      )
    )
  )

  (setposition (/ (screen_width) 3) 0)
  (begin_fill)
  (color (rgb 0.2 0.7 0.4))
  
  (inner (/ (screen_width) 3) 1)
)

(define (circ r) 
  (if (< r 0) nil
    (begin 
      (circle r)
      (circ (- r 1))
    )
  )
  
)

(define (lines x) 
  (if (< x 0)
    nil
    (begin 
      (forward 400)
      (right x)
      (lines (- x 1))
    )
  )

)

(define (ls x y lns h)
    (setheading h)
    (setposition x y)
    (pendown)
    (lines lns)
    (penup)
)

(define (box w h c x y)
  (penup)
  (setposition x y)
  (setheading 0)
  (color c)
  (begin_fill)
  (forward w)
  (right 90)
  (forward h)
  (right 90)
  (forward w)
  (right 90)
  (forward h)
  (right 90)
  (end_fill)
)

(define (draw)

  (begin 
    (bgcolor (rgb 0.1 0.1 0.1))

    (speed 22)

    (gradient_bg_vertical) 
    (gradient_bg_horizontal 0)
    (gradient_bg_horizontal 1)
    (gradient_bg_horizontal 2)
    (gradient_bg_horizontal 3)
    (gradient_bg_horizontal 4)
    (gradient_bg_horizontal 5)
    (gradient_bg_horizontal 6)
    (gradient_bg_horizontal 7)
    (gradient_bg_horizontal 8)
    (gradient_bg_horizontal 9)
    (penup)
    (setheading 0)
    (setposition 0 0)
    '(make_center_circle 0.25 0.25 0.25)

    (color "white")
    (pendown)
    (lines 80)
    (penup)

    (color (rgb 0.1 0.1 0.1))
    (begin_fill)
    (ls 41 53 10 42)

    (color "white")
    (ls 10 10 100 0)
    (color "#34495e")
    (ls 40 20 100 23)
    (ls 33 20 100 2)
    (end_fill)
  )
  (exitonclick)
)

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