;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Where has the time gone?
;;;
;;; Description:
;;;   Star light, star bright
;;;    it is beautiful outside
;;;      but I am coding tonight.>

(bgcolor "#003366")
(speed 10)
(define (draw)
    (draw-stripe-rectangle  (list "#005f7f" "#004c66" "#00394c" "#002633" "#001319")
        -320 320 270 110)
    (draw-stars -300 260)
    (draw-campanile)
    (draw-moon)
    (hideturtle)
    (exitonclick))

(define (draw-campanile)
    (draw-stripe-rectangle (list "#bda27e" "#a89070" "#937d62" "#7e6c54" "#695a46") -50 50 100 80)
    (draw-rectangle "#000000" -30 -12 90 60)
    (draw-rectangle "#000000" -8 8 90 60)
    (draw-rectangle "#000000" 12 30 90 60)
    (draw-rectangle "#d2b48c" -60 60 110 10)
    (draw-rectangle "#695a46" -50 50 130 20)
    (draw-rectangle "#e4d2ba" -40 40 150 20)
    (draw-stripe-rectangle (list "#d2b48c" "#d6bb97" "#dbc3a3" "#dfcaae" "#e4d2ba") -35 35 250 20)
    (draw-triangle "#005f7f" -35 250 0 250 -35 130)
    (draw-triangle "#005f7f" 0 250 35 250 35 130)
    (draw-triangle "#544838" -50 125 -40 170 -30 125)
    (draw-triangle "#544838" 30 125 40 170 50 125)
)

(define (draw-stars x1 y1)
    (cond
        ((< y1 0) nil)
        ((> x1 320) (draw-stars (- -300 (modulo y1 100)) (- y1 50)))
        (else (draw-triangle "#f6f0e8" (- x1 2) y1 (+ x1 2) y1 x1 (+ y1 4))
            (draw-stars (+ x1 100) y1))
    )
)

(define (draw-moon)
    (color "#ede1d1")
    (penup)
    (goto 220 200)
    (begin_fill)
    (circle 30)
    (end_fill)
)

(define (draw-triangle c x1 y1 x2 y2 x3 y3)
    (color c)
    (penup)
    (goto x1 y1)
    (begin_fill)
    (pendown)
    (goto x2 y2)
    (goto x3 y3)
    (end_fill)
)

(define (draw-stripe-rectangle lst x1 x2 y1 height)
    (cond
        ((null? lst) nil)
        (else (draw-rectangle (car lst) x1 x2 y1 height)
                (draw-stripe-rectangle (cdr lst) x1 x2 (- y1 height) height)))
)

(define (draw-rectangle c x1 x2 y1 height)
    (color c)
    (penup)
    (goto x1 y1)
    (begin_fill)
    (pendown)
    (goto x2 y1)
    (goto x2 (- y1 height))
    (goto x1 (- y1 height))
    (goto x1 y1)
    (end_fill)
)

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