;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Girls Who Code
;;;
;;; Description:
;;;
;;;
;;;

(define (draw)
(bgcolor "hot pink")
  (speed 0)

  ; real girls who code starts here
  (penup)
  (setposition -250 250)
  (pendown)

  ; G!

  (letter 1 (lambda () (left 110))) ; g angle
  (letter 47 (lambda () (left 5) (fd 5))) ; g part
  (letter 1 (lambda () (left 105))) ; g flat
  (letter 1 (lambda () (fd 40))) ; g flat
  (letter 1 (lambda () (left 180) (fd 80))) ; g flat

  ; I!
  (penup)
  (setposition -140 230)
  (pendown)
  (letter 1 (lambda () (right 90)(fd 100))) ;i use o for top
  (penup)
  (setposition -125 250)
  (pendown)
  (letter 10 (lambda () (fd 3) (rt 13) (fd 3) (rt 13) (fd 3) (rt 13))) ;o


  ;R!
  (penup)
  (setposition -70 150)
  (pendown)
  (letter 1 (lambda ()(right 150)))
  (letter 1 (lambda () (fd 60))) ;r top
  (letter 15 (lambda () (right 10) (fd 5)))


  ;L!
  (penup)
  (setposition 0 140)
  (pendown)
  (letter 1 (lambda () (right 210)))
  (letter 1 (lambda () (right 90) (fd 100) (left 180) (fd 100) (right 90) (fd 100))) ;l


  ;S!

  (penup)
  (setposition 120 140)
  (pendown)
  (letter 1 (lambda () (right 80))) ; s angle
  (letter 30 (lambda () (left 5) (fd 3))) ; s bottom
  (letter 30 (lambda () (right 5) (fd 3))) ; s top



  ;W!
  (penup)
  (setposition -240 50)
  (pendown)
  (letter 1 (lambda () (right 270)))
  (letter 1 (lambda () (backward 125) (left 325) (fd 95) (right 95) (fd 95) (left 125) (fd 125))) ;w


  ;H!

  (penup)
  (setposition -50 50)
  (pendown)
  (letter 1 (lambda () (backward 125))) ; h drop

  (letter 105 (lambda () (right 1.7) (fd 1.5))) ; h loop


  ;o!
  (penup)
  (setposition 155 -30)
  (pendown)
  (letter 10 (lambda () (fd 10) (rt 10) (fd 15) (rt 10) (fd 11) (rt 20))) ;o



; c!
(penup)
(setposition -225 -205)
(pendown)
(letter 1 (lambda () (left 200)))
(letter 1 (lambda () (left 85))) ; c top
(letter 35 (lambda () (right 5) (fd 5))) ;c bottom

; o!
(penup)
(setposition -135 -105)
(pendown)
(letter 10 (lambda () (fd 10) (rt 10) (fd 15) (rt 10) (fd 11) (rt 20))) ;o


; d!
(penup)
(setposition 45 -75)
(pendown)
(letter 1 (lambda () (right 225)))
(letter 1 (lambda () (back 100))) ; d drop

(letter 75 (lambda () (left 5) (fd 5))) ; d curve

; E!

(penup)
(setposition 110 -133)
(pendown)
(letter 1 (lambda () (right 25)))
(letter 1 (lambda () (right 90) (fd 75))) ; e right
(letter 1 (lambda () (left 110))) ; e curve
(letter 40 (lambda () (left 8) (fd 5))) ; ee curve


  )


(define (letter n func)
    (if (> n 1)
    (begin (func) (letter (- n 1) func))
    (func)))




;;;;;;;;;;;;;;;


(draw)