;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <1>
;;;
;;; Description:
;;;   <0 test cases
;;;    passed before encountering
;;;    1st failed test case, dog>


(define (one size x y direction)
(setpos x y)
(pd)
(color "yellow")
(begin_fill)
(fd size)
(lt 90)
(fd (* .3 size))
(lt 60)
(fd (* .3 size))
(lt 120)
(fd (* .15 size))
(rt 90)
(fd (- size (* (* .15 size) (sqrt 3))))
(end_fill)
(pu)
(seth direction)


)
(define (draw)
(speed 10)
(ht)
  (color "white")
  (seth -20)
  (one 5 -230 -30 -20)
  (one 10 -220 -20 -10)
  (one 20 -210 -10 0)
  (one 30 -200 0 10)
  (one 40 -180 10 20)
  (one 50 -150 20 30)
  (one 60 -110 30 40)
  (one 70 -60 40 50)
  (one 80 0 50 60)
  (one 90 70 60 70)
  (one 100 170 70 80)
  (one 110 290 75 90)
  (one 120 420 80 100)
  (exitonclick))

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