;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <A$AP ROCKY>
;;;
;;; Description:
;;;   <They say I would change (my vars)
;;;    Rolling up the links (cons, cars)
;;;    Presence Is A Present (for b in branches saves your ...)
;;;    Keep It 100% (on the final)>

(define (draw)

; you clicked on it - may wanna save your time here

; HERE GOES! (let's do this the longest way possible)

(speed 0)

; DRAW A (A FOR ASAP)

(bgcolor "black")

(goto -350 -75) ; start

(color "green")

(pendown)

(begin_fill)

(goto -300 125)

(goto -250 125)

(goto -200 -75)

(goto -225 -75)

(left 13)

(forward 185)  ; inner diagonal

(right 13)

(left 90) 

(forward 16) ; the inner bevel

(left (- 90 13)) ; going down

(forward 185)

(right 180)

(goto -350 -75)

(end_fill)

(goto (+ -50 -288) -75) 

(forward 90)

(begin_fill)

(right 167) ; 90 degrees up

(forward 22)

(left 90)

(forward 90)

(left 90)

(forward 22)

(end_fill) 

; DRAW the second A (in a stupid way)

(penup)

(goto 0 -75) ; start

(pendown)

(begin_fill)

(goto 50 125)

(goto 100 125)

(goto 150 -75)

(goto 125 -75)

(left 13)

(forward 185)  ;inner diagonal

(right 13)

(left 90) 

(forward 16) ; the inner bevel

(left (- 90 13)) ; going down

(forward 185)

(right 180)

(goto 0 -75) ; finish 1 (start pt.)

(end_fill)

(goto (+ 300 -288) -75)

(forward 90)

(begin_fill)

(right 167) ; 90 degrees up

(forward 22)

(left 90)

(forward 90)

(left 90)

(forward 22)

(end_fill)

(penup)

(forward 200)

(right 90)

(forward 50) 

; Draw S larger

(penup)

(color "yellow")

(goto -100 35)

(pendown)

(begin_fill)  ; Dropping some mathy tabs below:

(circle 33.5 -270) ; lower (smaller) circle arc

(right 90)

(forward 22)

(left 90)

(circle 55 270) ; upper (larger) circle arc 

(right 180)

(end_fill)

(begin_fill)

(circle 33.5 -270) ; lower (smaller) circle arc

(right 90)

(forward 22)

(left 90)

(circle 55 270) ; lower (larger) circle arc

(right 180)

(right 90)

(forward 22)

(left 90)

(end_fill)


(penup)

(color "yellow")

(pendown)

(begin_fill)
(forward 11)
(left 90)
(forward 120)
(left 90)
(forward 22)
(left 90)
(forward 220)
(left 90)
(forward 22)
(left 90)
(forward 110)
(end_fill) 

; Draw P (also in a stupid way)

(penup)

(color "yellow")

(goto 245 125)

(pendown)

(begin_fill)
(left 90)
(forward 44)
(left 90)
(forward 200)
(left 90)
(forward 22)
(left 90)
(forward 66)
(right 90)
(forward 22)
(left 90)
(forward 22)
(left 90)
(forward 22)
(right 90)
(forward 90)
(right 90)
(forward 22)
(left 90)
(forward 22)
(right 90) ; Draw half-circle of P

(circle -67 180)
(right 90)
(forward 22)
(right 90)
(circle 45 180)
(end_fill) 

; Draw word FREE  (let's free him!)

; Start with F

(penup)
(color "red")
(goto -205 355)
(pendown)

(begin_fill)
(forward 105)
(left 90)
(forward 200)
(left 90)
(forward 22)
(left 90)
(forward 89)
(right 90)
(forward 67)
(left 90)
(forward 22)
(left 90)
(forward 67)
(right 90)
(forward 67)
(right 90)
(forward 83)
(left 90)
(forward 22)
(end_fill) 

; Continue with R

(penup)
(color "red")
(goto -110 355)
(pendown)

(begin_fill)
(left 90)
(forward 44)
(left 90)
(forward 200)
(left 90)
(forward 22)
(left 90)
(forward 66)
(right 90)
(forward 22)
(left 90)
(forward 22)
(left 90)
(forward 22)
(right 90)
(forward 90)
(right 90)
(forward 22)
(left 90)
(forward 22)
(right 90) ; Draw half-circle of R 
(color "red")
(circle -67 180)
(right 90)
(forward 22)
(right 90)
(circle 45 180)
(end_fill) ; Bottom of R

(penup)

(goto -95 225)
(pendown)

(begin_fill)
(goto -54 155)
(forward 24)
(goto -119 225)
(end_fill) 

; Start letter E

(penup)
(color "red")
(goto 112 355)
(pendown)

(begin_fill)
(forward 105)
(left 90)
(forward 200)
(left 90)
(forward 105)
(left 90)
(forward 22)
(left 90)
(forward 83)
(right 90)
(forward 67)

(right 90)
(forward 67)
(left 90)
(forward 22)
(left 90)
(forward 67)
(right 90)
(forward 67)
(right 90)
(forward 83)
(left 90)
(forward 22)
(end_fill) 

; Copycat for second E 

(penup)
(color "red")
(goto 276 355)
(left 90)
(pendown)

(begin_fill)
(forward 105)
(left 90)
(forward 200)
(left 90)
(forward 105)
(left 90)
(forward 22)
(left 90)
(forward 83)
(right 90)
(forward 67)
(right 90)
(forward 67)
(left 90)
(forward 22)
(left 90)
(forward 67)
(right 90)
(forward 67)
(right 90)
(forward 83)
(left 90)
(forward 22)
(end_fill) ; Draw word ROCKY 

; Start with letter R

(penup)
(color "yellow")
(goto -405 -105)

(pendown)

(begin_fill)
(left 90)
(forward 44)
(left 90)
(forward 200)
(left 90)
(forward 22)
(left 90)
(forward 66)
(right 90)
(forward 22)
(left 90)
(forward 22)
(left 90)
(forward 22)
(right 90)
(forward 90)
(right 90)
(forward 22)
(left 90)
(forward 22)
(right 90) ; Draw half-circle of R (it's all about those strats)

(circle -67 180)
(right 90)
(forward 22)
(right 90)
(circle 45 180)
(end_fill) ; Bottom of R

(penup)
(color "yellow")
(goto -390 -235)
(pendown)

(begin_fill)
(goto -349 -305)
(forward 24)
(goto -414 -235)
(end_fill) 

; Continue with letter O (a circle would be too big)

(penup)
(color "green")
(goto -152 -172)
(right 90)
(pendown)

				; more mathy tabs, INCOMING!
(begin_fill)
(circle 67 180) ; upper (larger) circle arc
(forward 66)
(circle 67 180) ; lower (larger) circle arc
(forward 66)
(left 90)
(forward 22)
(right 90)
(circle 45 180) ; upper (smaller) circle arc
(forward 66)
(circle 45 180) ; lower (smaller) circle arc
(forward 66)
(end_fill) 

; Continue with letter C

(penup)
(color "yellow")
(goto 30 -172)
(pendown)

(begin_fill)
(circle 67 180) ; upper (larger) circle arc
(forward 66)
(circle 67 180) ; lower (larger) circle arc
(left 90)
(forward 22)
(right 90)
(circle 45 -180) ; lower (smaller) circle arc
(right 180)
(forward 66)
(right 180)
(circle 45 -180) ; lower (smaller) circle arc
(right 90)
(forward 22)
(end_fill) 

; Continue with letter K (kind of like A)

(penup)
(color "green")
(goto 103 -105) ; these coords ... took me back to HS geometry
(pendown)

(begin_fill)
(left 180)
(forward 22)
(left 90)
(forward 200)
(left 90)
(forward 22)
(left 90)
(forward 89)
(right 90)
(forward 10)
(right 90)
(goto 190 -305)
(left 90)
(forward 25)
(left 90)
(goto 131 -205)
(goto 214 -105)
(left 90)
(forward 25)
(goto 115 -194)
(forward 11)
(right 90)
(forward 89)
(end_fill)

; Draw last letter Y (finally, we done)

(penup)
(color "yellow")
(goto 265 -105)
(pendown)

(begin_fill)
(goto 265 -105)
(right 90)
(forward 24)
(goto 331 -180) 
(goto 373 -105)
(forward 24)
(right 90)
(goto 342 -211)
(goto 342 -305)
(right 90)
(forward 22)
(right 90)
(goto 320 -211)
(goto 265 -105)
(end_fill)

(hideturtle) ; remove our fellow scribe (from receiving credit)

(exitonclick))

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