;;; 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 (brick c x y)
	(cond ((and (> x 400)(> y 200)) (goto 0 0))
		((> x 400) (brick (- c 0.05)(- x 800)(+ y 50)))
		(else
		(begin
		(pu)
		(color (rgb 0.3 c 1))
		(bgcolor "white")
		(begin_fill)
		(setpos x y)
		(pd)
		(setpos (- x 100) y)
		(setpos (- x 100) (- y 40) )
		(setpos x (- y 40))
		(setpos x y)
		(pu)
		(end_fill)
		(brick c (+ x 110) y)
		))))

(define (bike co ci)
	(color co)
	(goto 200 -150)
	(begin_fill)
	(circle 100)
	(end_fill)
	(goto 192 -150)
	(begin_fill)
	(color ci)
	(circle 90)
	(end_fill)
	(pu)
	(goto -100 -150)
	(pd)
	(begin_fill)
	(color co)
	(circle 100)
	(end_fill)
	(goto -108 -150)
	(begin_fill)
	(color ci)
	(circle 90)
	(end_fill)
	(pu)
	(color co)
	(goto 20 -20)
	(begin_fill)
	(pd)
	(goto -150 -10)
	(goto -10 -170)
	(end_fill)
	(pu)
	(goto 10 -30)
	(begin_fill)
	(color ci)
	(pd)
	(goto -130 -20)
	(goto -20 -150)
	(end_fill)
	(pu)
	(goto -150 0)
	(color co)
	(begin_fill)
	(goto -180 10)
	(goto -180 0)
	(goto -160 -5)
	(goto -170 -50)
	(goto -155 -50)
	(end_fill)
	(pu)
	(goto 20 -15)
	(begin_fill)
	(goto 60 10)
	(goto 0 15)
	(end_fill)


	)


(define (draw)
	(speed 0)
	(hideturtle)
	(brick 1 -400 -200)
	(bike "navy" "white")
	)
	


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