; Scheme Recursive Art Contest Entry
;
;Please do not include your name or personal info in this file.
;
; Title: Choose Me! (╯°□°)╯︵◓ ϞϞ(๑⚈ ․̫ ⚈๑)∩
;
; Description:
;   <Me: *checks ok.py*
;   Ok.py: *says my only chance of passing is winning this contest*
;   Me: ...>


(define (draw)
 (color (rgb 1 .85 0))
 (penup)
  (setposition -300 -390)
  (drawer 2.3)
  )

 (define (drawer i)
 (if (> .006 i) (exitonclick))
 (define b (rgb 0 0 0))
 (define r (rgb 1 0 0))
 (define h (* i 50))
  (hideturtle)
  (bgcolor (rgb .2 1 .6))
  (speed 10)
  (left 30 )
  (begin_fill)
  (pendown)
  (forward (* i 10))
  (right 20)
  (forward (* i 5))
  (right 20)
  (forward (* i 7))
  
  (color (rgb 1 .85 0))
  (forward (* i 33))
  (left 50)
  (forward (* i 40))
  (right 155)
  (forward h)
  (left 25)
  (forward (* i 30))
  (left 15)
  (forward h)
  (right 155)
  (forward (* i 40))
  (left 60)
  (forward (* i 52))

  (right 100)
  (forward (* i 80))
  (backward (* i 80))
  (left 100)
  (end_fill)

  (penup)
  (right 115)
  (forward h)
  (color (rgb 1 .5 0))
  (c (* i -7))
  (forward (* i 20))
  (right 75)
  (forward (* i 10))


  (left 90)
  (forward (* i 8))
  (color r)
  (c (* i 6))
  (backward (* i 8))
(right 90)
  (forward  (* i 17))




  (color b)
  (c (* i -5))
  (right 84)



  (forward (* i 20))
  (right 90 )
  (forward (* i 10))
  
  (color b)
  (c (* i -2))
  (backward (* i 10))
  (left 90 )
  (forward (* i 20))

  (color b)
  (c (* i -5))
  (right 85)
  (forward (* i 27))
  (color r)
  (c (* i 6))
  (color (rgb 1 .85 0))
  (left 39)
  (forward (* i 32))
  (left 75)
  (pendown)
  (forward (* i 70))
  (left 90)
  (drawer (* i .85))
  )

(define (c r)
(pendown)
(begin_fill)
  (circle r)
  (end_fill)
  (penup)
  )


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