;;; 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")

    (repeats 1 0 360 4 400 92)
    (repeats 1 0 360 7 400 93)
    (repeats 1 0 360 7 400 94)
    (repeats 1 0 360 7 400 92)
    (repeats 1 0 360 7 280 92)
    (repeats 1 0 360 7 280 93)
    (repeats 1 0 360 7 280 94)
    (repeats 1 0 360 7 280 92)
    (repeats 1 0 360 7 190 92)
    (repeats 1 0 360 7 190 93)
    (repeats 1 0 360 7 190 92)
    (repeats 1 0 360 7 100 92)
    (repeats 1 0 360 7 100 92)
    (repeats 1 0 360 7 80 92)
    (repeats 1 0 360 7 80 92)

    (exitonclick))

(define (rand_color)
    (randint 22 220))

(define (s_pos size)
    (pu)
    (seth 0)
    (goto (/ size -2) (/ size -2))
    (pd))

(define (repeats n start end step f r)
    (s_pos f)
    (web_loop start end step f r)
    (if (< 1 n)
        (repeats (- n 1) start end (* step 5) f r)))

(define (web_loop start end step f r)
    (web f r)
    (if (< start end)
        (web_loop (+ start step) end step f r)))

(define (web f r)
    (crgb (rand_color) (rand_color) (rand_color))
    (forward f)
    (right r))

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