;;; 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 (repeat f n) (f) (if (= n 1) (f) (repeat f ( - n 1))))
(define (side) (right 120) (forward 50))
(define (side1) (right 90) (forward 85))
(define (side2) (right 120) (forward 10))
(define (side3) (right 90) (forward 4))
(define (sq) (repeat side1 4))
(define (sq2) (sq) (penup) (forward 85) (pendown)(sq))
(define (sq3) (color "white")(begin_fill)(repeat side3 4)(end_fill))
(define (tri) (begin_fill)(right 45)(repeat side2 3)(end_fill))
(define (rep f n)(right 10)(forward 5)(f)(if (= n 0) (f)(rep f ( - n 1))))
(define (ball) (pendown)(rep side 55)(left 80)(penup)(forward 100))
(define (link)(sq2)(right 165) (forward 35) (backward 70)(penup) (right 35) (forward 2) (pendown)(tri)(right 175))
(define (link4) (color "white")(repeat link 2)(sq2))
(define (3ball) (penup)
(color "#ff0000") (setposition (- 245) 235)(ball)
(color "#ffff00") (setposition (- 105) 130)(ball)
(color "#0014ff") (setposition 112 25)(ball)
(color "#00ff00") (setposition 295 (- 145))(ball)
)

(define (num)
(color "white")(setheading 90) (pendown)
(forward 15)(right 90)(forward 40)(right 90)
(forward 15)(penup)(right 90)(forward 20)
(right 90)(pendown)(forward 15)(penup)
(right 55) (forward 27)(pendown)(sq3)
(penup)(setheading 19)(forward 45)(pendown)(setheading 180)
(forward 40)
)

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

(define (draw) (setposition (- 300) 300)(link4)(3ball)(setposition 339 (- 105))(num))
(bgcolor "black")
(speed 1000)
(hideturtle)
(draw)

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