;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <I need housing...>
;;;
;;; Description:
;;;   <If you have a spot
;;;     Please call me at phone number:
;;;     1-800-C-Christ>
(define (letter-i x y)
  (setposition x y)
  (pd)
  (forward 100)
  (pu)
)
(define (letter-n x y)
  (setposition x y)
  (pd)
  (forward 100)
  (right 135)
  (forward 130)
  (left 135)
  (forward 100)
  (pu)
)
(define (letter-h x y)
  (setposition x y)
  (pd)
  (forward 100)
  (right 180)
  (forward 50)
  (left 90)
  (forward 50)
  (left 90)
  (forward 50)
  (left 180)
  (forward 100)
  (pu)
)
(define (letter-o x y)
  (setposition x y)
  (pd)
  (circle 50 360)
  (pu)
)
(define (letter-u x y)
  (setposition x y)
  (pd)
  (left 180)
  (forward 60)
  (circle 40 180)
  (forward 60)
  (pu)
)
(define (letter-d x y)
  (setposition x y)
  (pd)
  (pixelsize 3000)
  (right 90)
  (circle 50 180)
  (left 90)
  (forward 100)(pd))

(define (letter-e x y)
(setposition x y)
(pu)
(right 90)
(forward 50)
(pd)
(left 180)
(forward 50)
(left 90)
(forward 50)
(left 90)
(forward 50)
(pu)
(left 180)
(forward 50)
(pd)
(left 90)
(forward 50)
(left 90)
(forward 50)
(pd)
  )

(define (letter-g x y)
(setposition x y)
(pu)
(circle 50 40)
(pd)
(circle 50 320)
(left 90)
(forward 45)(pd))

(define (letter-s x y)
  (setposition x y)
  (pu)
  (circle 25 40)
  (pd)
  (circle 25 230)
  (circle -25 290)
  (pd))

(define (draw)
(pd)
(define (pattern r g b ct x y flower)
    (if
      (< ct 50)
        (begin
        (penup)
        (setposition x y)
        (color (rgb (/ r 255) (/ g 255) (/ b 255)))
          (pendown)
          (begin_fill)
          (circle 50 50)
          (left 59)
          (end_fill)
          (pattern r (+ g 5) b (+ ct 1) x y flower))
      (penup)
        )
      )
(speed 1000)
(bgcolor (rgb .529 .500 .980))
(pattern 255 0 0 1 0 0 0)
(pattern 255 0 0 1 200 200 0)
(pattern 255 0 0 1 0 200 0)
(pattern 255 0 0 1 200 0 0)
(pattern 255 0 0 1 100 100 0)
(pattern 255 0 0 1 -200 -200 0)
(pattern 255 0 0 1 -84 208 0)
(pattern 255 0 0 1 120 172 0)
(pattern 255 0 0 1 131 -194 0)
(pattern 255 0 0 1 111 248 0)
(pattern 255 0 0 1 -194 100 0)
(pattern 255 0 0 1 60 -239 0)
(pattern 255 0 0 1 -1 -145 0)
(pattern 255 0 0 1 -151 141 0)
(pattern 255 0 0 1 -71 -117 0)
(pattern 255 0 0 1 -219 -131 0)
(pattern 255 0 0 1 216 100 0)
(pattern 255 0 0 1 -15 43 0)
(pattern 255 0 0 1 -211 -123 0)
(pattern 255 0 0 1 123 88 0)
(pattern 255 0 0 1 110 -92 0)
(pattern 255 0 0 1 138 -4 0)
(pattern 255 0 0 1 -206 143 0)
(pattern 255 0 0 1 217 -215 0)
(pattern 255 0 0 1 -226 27 0)
(pattern 255 0 0 1 -6 93 0)
(pattern 255 0 0 1 -172 -50 0)
(pattern 255 0 0 1 -68 132 0)
(pattern 255 0 0 1 -59 -219 0)
(pattern 255 0 0 1 69 197 0)
(pattern 255 0 0 1 94 -34 0)
(pattern 255 0 0 1 179 184 0)
(pattern 255 0 0 1 -158 208 0)
(pattern 255 0 0 1 161 26 0)
(pattern 255 0 0 1 98 214 0)
(pattern 255 0 0 1 244 -150 0)
(pattern 255 0 0 1 129 -247 0)
(pattern 255 0 0 1 -103 -200 0)
(pattern 255 0 0 1 145 -116 0)
(pattern 255 0 0 1 155 59 0)
(pu)
(letter-i -230 230)
(pu)
(letter-n -180 230)
(pu)
(letter-e -80 330)
(pu)
(left 90)
(letter-e -20 330)
(pu)
(left 90)
(letter-d 50 230)
(pu)
(letter-h -230 100)
(pu)
(letter-o -120 50)
(pu)
(letter-u -90 100)
(pu)
(letter-s 50 80)
(pu)
(left 20)
(letter-i 80 0)
(pu)
(letter-n 110 0)
(pu)
(letter-g 330 50)
(exitonclick))

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