;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Your title here>
;;;
;;; Description:
;;;   <It's your masterpiece.
;;;    Use these three lines to describe
;;;    its inner meaning.>

(define (heart angle size level)
  (pendown)
  (left angle)
  (if (= level 1)
  	(left angle)
  	(forward size))
  (if (> level 1)
  	(heart angle (- size 10)(- level 1))))

(define (draw)
  (penup)
  (goto -330 300)
  (pendown)
  (right 90)
  (forward 30)
  (right 65)
  (forward 70)
  (left 125)
  (forward 70)
  (right 125)
  (forward 70)
  (left 125)
  (forward 72)
  (right 60)
  (forward 30)
  (right 120)
  (forward 125)
  (right 125)
  (forward 80)
  (left 125)
  (forward 80)
  (right 125)
  (forward 125)
  (penup)
  (goto -100 290)
  (pendown)
  (right 115)
  (forward 100)
  (right 90)
  (forward 20)
  (right 90)
  (forward 80)
  (left 90)
  (forward 20)
  (left 90)
  (forward 80)
  (right 90)
  (forward 20)
  (right 90)
  (forward 80)
  (left 90)
  (forward 20)
  (left 90)
  (forward 80)
  (right 90)
  (forward 20)
  (right 90)
  (forward 100)
  (right 90)
  (forward 100)
  (penup)
  (goto 130 100)
  (heart 45 80 6)
  (penup)
  (goto -330 100)
  (right 135)
  (pendown)
  (forward 350)
  (left 120)
  (forward 100)
  (left 25)
  (forward 80)
  (left 10)
  (forward 50)
  (left 15)
  (forward 50)
  (left 15)
  (forward 50)
  (left 20)
  (forward 50)
  (left 30)
  (forward 50)
  (left 20)
  (forward 50)
  (left 10)
  (forward 50)
  (penup)
  (goto -140 -100)
  (right 175)
  (pendown)
  (forward 50)
  (right 180)
  (forward 50)
  (left 90)
  (forward 50)
  (left 90)
  (forward 50)
  (left 180)
  (forward 50)
  (left 90)
  (forward 50)
  (left 90)
  (forward 50)
  (penup)
  (goto -60 -100)
  (pendown)
  (right 90)
  (forward 100)
  (right 180)
  (forward 100)
  (right 150)
  (forward 115)
  (left 150)
  (forward 100)
  (penup)
  (right 90)
  (forward 40)
  (pendown)
  (forward 50)
  (right 180)
  (forward 50)
  (left 90)
  (forward 50)
  (left 90)
  (forward 50)
  (left 180)
  (forward 50)
  (left 90)
  (forward 50)
  (left 90)
  (forward 50)
  (penup)
  (goto 130 -100)
  (right 90)
  (pendown)
  (forward 100)
  (right 180)
  (forward 100)
  (right 90)
  (forward 50)
  (right 90)
  (forward 50)
  (right 90)
  (forward 50)
  (left 135)
  (forward 70)
  (penup)
  (goto 210 -100)
  (pendown)
  (right 45)
  (forward 100)
  (left 90)
  (forward 50)
  (left 90)
  (forward 100)
  (left 90)
  (forward 50)

  (exitonclick))

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