;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Call Me By Your Frame
;;;
;;; Description:
;;;   <Is love nonglobal?
;;;    Are lambdas lowkey sexy?
;;;    Call me by your frame>

(define (draw-peach)
    (color (rgb (/ 252 256) (/ 207 256) (/ 100 256)))
    (penup)
    (left 180)
    (forward 30)
    (right 90)
    (forward 10)
    (pendown)
    (begin_fill)
    (circle 13)
    (end_fill)
    (left 90)
    (color (rgb (/ 78 256) (/ 191 256) (/ 80 256)))
    (forward 6)
)

(define (draw-lambda)
    (define c (rgb 0 1 1))
    (pixelsize 10)
    (pixel 40 28 c)
    (pixel 41 29 c)
    (pixel 42 30 c)
    (pixel 43 31 c)
    (pixel 42 32 c)
    (pixel 41 33 c)
    (pixel 40 34 c)
    (pixel 39 35 c)
    (pixel 38 35 c)

    (pixel 47 29 c)
    (pixel 46 28 c)
    (pixel 45 29 c)
    (pixel 44 30 c))

(define (draw-lambda2)
    (define c (rgb 0 1 1))
    (pixelsize 10)
    (pixel 25 28 c)
    (pixel 24 29 c)
    (pixel 26 29 c)
    (pixel 27 30 c)
    (pixel 31 28 c)
    (pixel 30 29 c)
    (pixel 29 30 c)
    (pixel 28 31 c)
    (pixel 29 32 c)
    (pixel 30 33 c)
    (pixel 31 34 c)
    (pixel 32 35 c)
    (pixel 33 35 c))

(define (draw-c)
    (define c (rgb 1 1 0))
    (pixelsize 6)
    (define y 90)
    (pixel 35 y c)
    (pixel 36 y c)
    (pixel 37 y c)
    (pixel 38 y c)
    (define x 35)
    (pixel x 89 c)
    (pixel x 88 c)
    (pixel x 87 c)
    (define y 87)
    (pixel 36 y c)
    (pixel 37 y c)
    (pixel 38 y c))

(define (draw-a)
    (define c (rgb 1 1 0))
    (pixelsize 6)
    (define x 41)
    (pixel x 90 c)
    (pixel x 89 c)
    (pixel x 88 c)
    (pixel x 87 c)
    (define y 90)
    (pixel 42 y c)
    (pixel 43 y c)
    (pixel 44 y c)
    (define x 44)
    (pixel x 44 c)
    (pixel x 89 c)
    (pixel x 88 c)
    (pixel x 87 c)
    (define y 88)
    (pixel 42 y c)
    (pixel 43 y c)
    (pixel 44 y c)
)

(define (draw-l)
    (define c (rgb 1 1 0))
    (define x 47)
    (pixel x 90 c)
    (pixel x 89 c)
    (pixel x 88 c)
    (pixel x 87 c)
    (define y 87)
    (pixel 48 y c)
    (pixel 49 y c)
    (pixel 50 y c))

(define (draw-ll)
    (define c (rgb 1 1 0))
    (define x 52)
    (pixel x 90 c)
    (pixel x 89 c)
    (pixel x 88 c)
    (pixel x 87 c)
    (define y 87)
    (pixel 53 y c)
    (pixel 54 y c)
    (pixel 55 y c))

(define (draw-m)
    (define c (rgb 1 1 0))
    (define x 58)
    (pixel x 90 c)
    (pixel x 89 c)
    (pixel x 88 c)
    (pixel x 87 c)
    (define y 90)
    (pixel 59 y c)
    (pixel 60 y c)
    (define x 60)
    (pixel x 90 c)
    (pixel x 89 c)
    (pixel x 88 c)
    (pixel x 87 c)
    (define y 90)
    (pixel 61 y c)
    (define x 62)
    (pixel x 90 c)
    (pixel x 89 c)
    (pixel x 88 c)
    (pixel x 87 c)
)

(define (draw-e)
    (define c (rgb 1 1 0))
    (define y 90)
    (define x 65)
    (pixel 65 y c)
    (pixel 66 y c)
    (pixel 67 y c)
    (pixel 68 y c)
    (pixel x 89 c)
    (pixel x 88 c)
    (pixel x 87 c)
    (define y 87)
    (pixel 65 y c)
    (pixel 66 y c)
    (pixel 67 y c)
    (pixel 68 y c)
    (pixelsize 4)
    (pixel 100 133 c)
    (pixel 99 133 c)
    (pixel 98 133 c)
    (pixel 101 133 c)
)

(define (draw-b)
    (define c (rgb 1 1 0))
    (pixelsize 6)
    (define x 71)
    (pixel x 90 c)
    (pixel x 89 c)
    (pixel x 88 c)
    (pixel x 87 c)
    (define y 90)
    (pixel 72 y c)
    (pixel 73 y c)
    (define x 74)
    (pixel x 90 c)
    (pixel x 89 c)
    (pixel x 88 c)
    (pixel x 87 c)
    (define y 87)
    (pixel 72 y c)
    (pixel 73 y c)
    (pixelsize 4)
    (pixel 110 133 c)
    (pixel 109 133 c)
    (pixel 108 133 c)
    (pixel 107 133 c)
)

(define (draw-y)
    (define c (rgb 1 1 0))
    (pixelsize 6)
    (define x 77)
    (pixel x 89 c)
    (pixel x 88 c)
    (pixel x 87 c)
    (pixelsize 4)

    (pixel 114 136 c)
    (pixel 115 135 c)

    (pixel 116 133 c)
    (pixel 117 135 c)
    (pixel 118 136 c)
)

(define (draw-u)
    (define c (rgb 1 1 0))
    (pixelsize 6)
    (define y 80)
    (pixel 35 y c)
    (pixel 36 y c)
    (pixel 37 y c)
    (pixel 38 y c)
    (define x 35)
    (pixel x 83 c)
    (pixel x 82 c)
    (pixel x 81 c)
    (define x 38)
    (pixel x 83 c)
    (pixel x 82 c)
    (pixel x 81 c)
    )

(define (draw-r)
    (define c (rgb 1 1 0))
    (pixelsize 6)
    (define y 83)
    (pixel 41 y c)
    (pixel 42 y c)
    (define y 81)
    (pixel 41 y c)
    (pixel 42 y c)
    (define x 40)
    (pixel x 83 c)
    (pixel x 82 c)
    (pixel x 81 c)
    (pixel x 80 c)
    (define x 43)
    (pixel x 83 c)
    (pixel x 82 c)
    (pixel x 81 c)
    (pixel (- x 1) 80 c)
    )
(define (draw-f)
    (define c (rgb 1 1 0))
    (pixelsize 6)
    (define x 46)
    (pixel x 80 c)
    (pixel x 81 c)
    (pixel x 82 c)
    (pixel x 83 c)
    (define y 83)
    (pixel 47 y c)
    (pixel 48 y c)
    (pixel 49 y c)
    (define y 81)
    (pixel 47 y c)
    (pixel 48 y c)
    (pixel 49 y c)
    )

(define (draw-r2)
    (define c (rgb 1 1 0))
    (pixelsize 6)
    (define y 83)
    (pixel 52 y c)
    (pixel 53 y c)
    (pixel 54 y c)
    (define y 81)
    (pixel 52 y c)
    (pixel 53 y c)
    (pixel 54 y c)
    (define x 51)
    (pixel x 83 c)
    (pixel x 82 c)
    (pixel x 81 c)
    (pixel x 80 c)
    (define x 54)
    (pixel x 83 c)
    (pixel x 82 c)
    (pixel x 81 c)
    (pixel (- x 1) 80 c)
    )

(define (draw-a2)
    (define c (rgb 1 1 0))
    (pixelsize 6)
    (define x 56)
    (pixel x 83 c)
    (pixel x 82 c)
    (pixel x 81 c)
    (pixel x 80 c)
    (define y 83)
    (pixel 57 y c)
    (pixel 58 y c)
    (pixel 59 y c)
    (define x 59)
    (pixel x 83 c)
    (pixel x 82 c)
    (pixel x 81 c)
    (pixel x 80 c)
    (define y 81)
    (pixel 57 y c)
    (pixel 58 y c)
    (pixel 59 y c)
)

(define (draw-m2)
    (define c (rgb 1 1 0))
    (define x 61)
    (pixel x 83 c)
    (pixel x 82 c)
    (pixel x 81 c)
    (pixel x 80 c)
    (define y 83)
    (pixel 62 y c)
    (pixel 63 y c)
    (define x 63)
    (pixel x 83 c)
    (pixel x 82 c)
    (pixel x 81 c)
    (pixel x 80 c)
    (define y 83)
    (pixel 64 y c)
    (define x 65)
    (pixel x 83 c)
    (pixel x 82 c)
    (pixel x 81 c)
    (pixel x 80 c)
)
(define (draw-e2)
    (define c (rgb 1 1 0))
    (define y 83)
    (define x 67)
    (pixel 67 y c)
    (pixel 68 y c)
    (pixel 69 y c)
    (pixel 70 y c)
    (pixel x 82 c)
    (pixel x 81 c)
    (pixel x 80 c)
    (define y 80)
    (pixel 67 y c)
    (pixel 68 y c)
    (pixel 69 y c)
    (pixel 70 y c)
    (pixelsize 4)
    (pixel 104 122 c)
    (pixel 103 122 c)
    (pixel 102 122 c)
    (pixel 101 122 c)
)



(define (draw)
    (draw-lambda)
    (draw-lambda2)
    (draw-c)
    (draw-a)
    (draw-l)
    (draw-ll)
    (draw-m)
    (draw-e)
    (draw-b)
    (draw-y)
    (draw-u)
    (draw-r)
    (draw-f)
    (draw-r2)
    (draw-a2)
    (draw-m2)
    (draw-e2)
    (draw-peach)
    (bgcolor (rgb 0 .55 1))
    (exitonclick))

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