;;; 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)
(pd)
(bgcolor "#005580")

(define (move2 d l)
(if (= d 360) (move 0 l))
(right d)
(backward l)
(move (+ d 8) l)
)

(define (move d l)
(if (>= d 360) (move2 0 l))
(right d)
(backward l)
(move (+ d 10) l)
)

(define (star n l x y)
(if (> n 30) (begin (color "silver") (pu) (setposition -100 110) (pd) (move 0 60))
(begin (setposition x y) (pd) (color "#80bfff") (circle l) (pu)
(star (+ 1 n) l (* x -1.3) (* y -1.3)))
))

(star 0 10 1 1)






  (exitonclick))

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