;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Your title here>
;;;
;;; Description:
;;;   <Poetic Water Town,
;;;    Flowing with Scheme.
;;;    -- Venice of the East>

(define (draw)
	(begin
	(speed 1000000)
	(boat)
	(bridge_opening)
	(skeleton)
	(windows)
	(hideturtle)
	))

(define (bridge_opening)
	(penup)
	(goto 40 -100)
	(color "#333333")
	(pendown)
	(circle 60 80)
	(begin_fill)
	(circle 60 100)
	(fd 20) (lt 130)
	(fd 30) (lt 50)
	(fd 5) (rt 5)
	(fd 5) (rt 5)
	(fd 5) (rt 5)
	(fd 5) (rt 5)
	(fd 5) (rt 5)
	(fd 5) (rt 5)
	(fd 5) (rt 5)
	(fd 5) (rt 5)
	(fd 5) (rt 5)
	(fd 5) (rt 5)
	(fd 5) (rt 5)
	(fd 5) (rt 5)
	(fd 5) (rt 5)
	(fd 5) (rt 5)
	(fd 5) (rt 5)
	(fd 5) (rt 5)
	(lt 80)
	(color "#333300")
	(end_fill)
	)

(define (skeleton)
	(penup)
	(goto -360 160)
	(color "#333333")
	(pendown)
	(rt 100)
	(fd 50) (rt 30)
	(fd 100) (lt 35)
	(bk 130) (fd 70) (rt 85)
	(fd 70) (bk 20) (lt 85)
	(begin_fill)
	(fd 30) (lt 95)
	(fd 20) (lt 85)
	(fd 30) (lt 95)
	(fd 20) (end_fill)
	(bk 50) (lt 85)
	(fd 40) (rt 85)
	(fd 100) (bk 100) (lt 85)
	(fd 20) (rt 35)
	(bk 10) (lt 35)
	(begin_fill)
	(fd 75) (rt 85)
	(fd 60) (bk 60) (lt 85)
	(fd 25) (rt 25)
	(bk 70) (lt 25)
	(bk 79) (lt 95)
	(end_fill)
	(fd 50) (lt 90)
	(begin_fill)
	(fd 80) (rt 90)
	(fd 5) (rt 90)
	(fd 80) (rt 90)
	(end_fill)
	(fd 10) (lt 90)
	(fd 180) (rt 90)
	(fd 10) (rt 100)
	(fd 10) (lt 100)
	(fd 50) (rt 90)
	(fd 79) (lt 150)
	(fd 55) (lt 70)
	(fd 42) (rt 70)
	(fd 80) (rt 155)
	(fd 10) (lt 95)
	(fd 40) (bk 40) (rt 95)
	(fd 30) (lt 95)
	(begin_fill)
	(fd 15) (rt 95)
	(fd 37) (rt 85)
	(fd 15) (lt 85)
	(bk 37) (end_fill)
	(fd 55) (lt 95)
	(fd 70) (bk 70) (rt 95)
	(fd 12) (rt 135)
	(fd 5) (bk 5) (rt 45)
	(fd 107) (lt 140)
	(fd 2) (rt 45)
	(fd 80) (rt 105)
	(bk 8) (lt 105)
	(fd 15) (lt 80)
	(fd 8) (begin_fill) (bk 8) (rt 80)
	(fd 2) (lt 80)
	(fd 8) (rt 80)
	(end_fill)
	(fd 20) (lt 80)
	(fd 36) (begin_fill) (bk 36) (rt 80)
	(fd 3) (lt 80)
	(fd 36) (lt 100)
	(end_fill)
	(fd 23) (rt 95)
	(fd 8) (begin_fill) (bk 8) (lt 95)
	(fd 2) (rt 95)
	(fd 8) (lt 95)
	(end_fill)
	(fd 15) (bk 15) (rt 95)
	(bk 8) (rt 85)
	(fd 20) (rt 100)
	(fd 36) (rt 80)
	(fd 20) (lt 80)
	(fd 8) (rt 80)
	(fd 15) (lt 80)
	(fd 8) (rt 80)
	(fd 18) (rt 90)
	(begin_fill)
	(fd 5) (lt 145)
	(fd 30) (rt 55)
	(fd 45) (bk 45) (lt 85)
	(fd 25) (rt 85)
	(fd 60) (bk 60) (lt 85)
	(fd 5) (lt 160)
	(fd 50) (lt 25)
	(fd 10)
	(end_fill)
	(bk 80) (lt 90)
	(fd 20) (bk 20) (lt 140)
	(fd 30) (rt 50)
	(bk 100) (fd 100) (rt 50)
	(fd 10) (rt 80)
	(fd 15) (bk 40) (lt 130)
	(fd 70) (rt 60)
	(fd 15) (rt 120)
	(begin_fill)
	(fd 15) (rt 120)
	(fd 15) (bk 15) (rt 60)
	(bk 20) (rt 120)
	(fd 20) (rt 60)
	(fd 57) (lt 90)
	(fd 3) (rt 90)
	(bk 77) (end_fill) (fd 65) (lt 50)
	(fd 60) (rt 50)
	(bk 15) (lt 90)
	(fd 50) (bk 50) (rt 90)
	(bk 85) (rt 105)
	(fd 47) (lt 105)
	(fd 20) (begin_fill) (bk 70) (rt 120)
	(fd 24) (lt 120)
	(fd 50) (end_fill) (bk 50) (rt 60)
	(bk 24) (rt 30)
	(bk 8) (fd 8) (lt 30)
	(bk 5) (fd 10) (rt 120)
	(fd 60) (lt 80)
	(fd 50) (lt 100)
	(fd 80) (lt 80)
	(fd 34) (bk 34) (rt 80)
	(bk 80) (rt 90)
	(fd 30) (lt 90)
	(begin_fill)
	(fd 15) (rt 135)
	(fd 40) (rt 45)
	(fd 70) (rt 90)
	(fd 29) (rt 90)
	(fd 83) (lt 90)
	(end_fill)
	(fd 80) (rt 80)
	(bk 40) (rt 100)
	(fd 30) (lt 90)
	(begin_fill)
	(fd 10) (rt 135)
	(fd 20) (rt 45)
	(fd 20) (rt 90)
	(fd 10) (end_fill)
	(fd 30) (rt 80)
	(bk 15) (fd 180) (lt 20)
	(fd 100) (rt 22)
	(bk 300) (begin_fill) (fd 290) (lt 82)
	(fd 8) (rt 82)
	(bk 300) (end_fill) (fd 290) (lt 82)
	(fd 150) (lt 70)
	(fd 300) (bk 300) (lt 110)
	(fd 135) (rt 85)
	(fd 15) (lt 85)
	(fd 16) (rt 82)
	(fd 5) (lt 82)
	(bk 17) (rt 85)
	(fd 20) (lt 85)
	(fd 18) (rt 82)
	(fd 6) (lt 82)
	(bk 19) (rt 85)
	(fd 25) (lt 85)
	(fd 20) (rt 82)
	(fd 7) (lt 82)
	(bk 21) (rt 85)
	(fd 30) (lt 85)
	(fd 23) (rt 82)
	(fd 9) (lt 82)
	(bk 24) (rt 85)
	(fd 35) (lt 85)
	(fd 25.5) (rt 82)
	(fd 11) (lt 82)
	(bk 26.5) (rt 85)
	(fd 40) (lt 85)
	(fd 28.5) (rt 82)
	(fd 14) (lt 82)
	(bk 29.5) (rt 85)
	(fd 30) (lt 85)
	(bk 15) (rt 87)
	(bk 30) (lt 87)
	(bk 150) (lt 77)
	(bk 40) (fd 261)
	(bk 207) (rt 77)
	(fd 147) (rt 87)
	(bk 40) (lt 87)
	(bk 136) (lt 77)
	(fd 11) (rt 77)
	(fd 133) (rt 87)
	(bk 35) (lt 87)
	(bk 123) (lt 77)
	(fd 9) (rt 77)
	(fd 121) (rt 87)
	(bk 30) (lt 87)
	(bk 112) (lt 77)
	(fd 7) (rt 77)
	(fd 111) (rt 87)
	(bk 25) (lt 87)
	(bk 104) (lt 77)
	(fd 6) (rt 77)
	(fd 103) (rt 87)
	(bk 20) (lt 87)
	(bk 97) (lt 77)
	(fd 6) (rt 77)
	(fd 95) (rt 87)
	(bk 15) (lt 87)
	(bk 92) (begin_fill) (bk 5) (lt 75)
	(bk 250) (rt 75)
	(fd 15) (lt 77)
	(fd 247) (rt 77)
	(end_fill)
	(bk 5) (lt 75)
	(bk 250) (fd 60) (rt 75)
	(begin_fill)
	(bk 8) (lt 74)
	(fd 15) (rt 74)
	(fd 8) (lt 75)
	(end_fill)
	(fd 45) (rt 75)
	(begin_fill)
	(bk 7) (lt 74)
	(fd 12) (rt 74)
	(fd 6) (lt 75)
	(end_fill)
	(fd 40) (rt 75)
	(begin_fill)
	(bk 5) (lt 74)
	(fd 10) (rt 74)
	(fd 5) (lt 75)
	(end_fill)
	(fd 35) (rt 75)
	(begin_fill)
	(bk 4) (lt 74)
	(fd 8) (rt 74)
	(fd 4) (lt 75)
	(end_fill)
	(fd 26) (rt 75)
	(bk 3.5) (lt 74)
	(bk 250) (fd 250) (rt 74)
	(bk 8) (lt 73)
	(bk 260) (fd 50) (rt 73)
	(bk 31) (lt 70)
	(fd 17) (rt 70)
	(fd 30) (lt 73)
	(fd 47) (rt 73)
	(bk 27) (lt 70)
	(fd 14) (rt 70)
	(fd 26) (lt 73)
	(fd 41) (rt 73)
	(bk 24) (lt 70)
	(fd 12) (rt 70)
	(fd 23) (lt 73)
	(fd 35) (rt 73)
	(bk 21.5) (lt 70)
	(fd 10.5) (rt 70)
	(fd 21) (lt 73)
	(fd 34) (rt 73)
	(bk 60) (lt 55)
	(bk 300) (fd 300) (lt 35)
	(fd 69) (rt 90)
	(fd 20) (bk 20) (lt 90)
	(bk 69) (rt 90)
	(fd 60) (lt 55)
	(fd 90) (lt 35)
	(fd 110) (lt 25)
	(fd 100) (rt 15)
	(fd 200) (lt 80)
	(fd 110) (lt 110)
	(fd 228) (lt 70)
	(fd 20) (rt 72)
	(bk 120) (fd 120) (rt 25)
	(bk 19) (lt 97)
	(fd 19) (rt 75)
	(bk 100) (fd 100) (rt 20)
	(bk 18) (lt 100)
	(fd 19) (bk 19) (rt 82)
	(bk 60) (fd 60) (rt 18)
	(fd 18) (rt 85)
	(fd 19) (rt 73)
	(fd 70) (bk 70) (lt 156)
	(fd 19) (rt 82)
	(fd 20) (lt 90)
	(fd 68) (bk 68) (lt 90)
	(fd 67) (lt 90)
	(begin_fill)
	(fd 15) (bk 15) (rt 155)
	(fd 82) (rt 25)
	(fd 105) (rt 35)
	(fd 95) (rt 55) (bk 10) (rt 125)
	(fd 90) (lt 35)
	(fd 110) (lt 25)
	(fd 99)
	(color "#333300")
	(end_fill)
	(color "#333333")
	(bk 19) (rt 115)
	(begin_fill)
	(fd 20) (rt 45)
	(fd 5) (rt 90)
	(fd 5) (rt 45)
	(fd 20)
	(color "#333300")
	(end_fill)
	(color "#333333")
	(bk 15) (lt 115)
	(fd 70) (rt 115)
	(fd 15) (begin_fill)
	(bk 20) (rt 45)
	(bk 5) (rt 90)
	(bk 5) (rt 45)
	(bk 20)
	(color "#333300")
	(end_fill)
	(color "#333333")
	(fd 15) (rt 90)
	(fd 100) (rt 90)
	(fd 15) (begin_fill)
	(bk 20) (rt 45)
	(bk 5) (rt 90)
	(bk 5) (rt 45)
	(bk 20)
	(color "#333300")
	(end_fill)
	(color "#333333")
	(fd 15) (rt 125)
	(fd 70) (rt 55)
	(fd 15) (begin_fill)
	(bk 20) (rt 45)
	(bk 5) (rt 90)
	(bk 5) (rt 45)
	(bk 30)
	(color "#333300")
	(end_fill)
	(color "#333333")
	)

(define (boat)
	(penup)
	(goto -200 -200)
	(color "#003300")
	(pendown)
	(rt 70)
	(fd 90) (lt 10)
	(fd 25) (rt 40)
	(circle -80 30) (rt 60)
	(circle -60 30) (rt 20)
	(fd 70) (rt 120)
	(circle 45 180) (rt 60)
	(fd 10) (lt 60)
	(fd 10) (lt 90)
	(fd 100) (lt 90)
	(fd 10) (lt 90)
	(fd 100) (rt 150)
	(fd 10) (rt 30)
	(fd 90) (rt 75)
	(fd 5) (lt 105)
	(fd 69) (circle 30 75) (lt 170)
	(fd 10) (rt 10)
	(fd 10) (rt 10)
	(fd 15) (rt 10)
	(fd 5) (rt 10)
	(fd 5) (rt 20)
	(fd 80) (circle -70 25) (color "#FFFFFF") (circle -70 60) (color "#003300")
	(lt 170) (circle 55 120)
	(rt 28) (fd 80) (lt 58)
)

(define (windows)
	(penup)
	(goto 48 70)
	(color "#333333")
	(pendown)
	(begin_fill)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(color "#FFFF00")
	(end_fill)

	(penup)
	(goto 48 55)
	(color "#333333")
	(pendown)
	(begin_fill)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(end_fill)

	(penup)
	(goto 63 70)
	(color "#333333")
	(pendown)
	(begin_fill)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(end_fill)

	(penup)
	(goto 63 55)
	(color "#333333")
	(pendown)
	(begin_fill)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(end_fill)

	(penup)
	(goto 78 70)
	(color "#333333")
	(pendown)
	(begin_fill)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(end_fill)

	(penup)
	(goto 78 55)
	(color "#333333")
	(pendown)
	(begin_fill)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(color "#FFFF00")
	(end_fill)

	(penup)
	(goto 93 55)
	(color "#333333")
	(pendown)
	(begin_fill)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(fd 10) (rt 90)
	(end_fill)
	)
;  (exitonclick))

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