;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <the Rain of Cherry Blossoms>
;;;
;;; Description:
;;;   <人生若只如初见
;;;    If only time could stop 
;;;    the moment we first met>
(speed 10000)

(define (draw)
(bgcolor "#F3F781")
  
(define (repeat n f)
  (if (> n 0)
    (begin
      (f)
      (repeat (- n 1) f)
) ) )

(define (draw_circle i)
  (repeat 6 (lambda () 
    (repeat 5 (lambda () 
      (fd 4) (rt 3)
    ))
    (i)
  ))
)
(define (flower)
  (repeat 3 (lambda () (draw_circle (lambda () '())) (rt 60)))
)

(define (draw_circle2 i)
  (repeat 6 (lambda () 
    (repeat 5 (lambda () 
      (fd 7) (rt 12)
    ))
    (i)
  ))
)
(define (flower2)
  (repeat 3 (lambda () (draw_circle2 (lambda () '())) (rt 30)))
)

(define (draw_circle3 i)
  (repeat 6 (lambda () 
    (repeat 5 (lambda () 
      (fd 7) (rt 7)
    ))
    (i)
  ))
)
(define (flower3)
  (repeat 3 (lambda () (draw_circle3 (lambda () '())) (rt 60)))
)

(define (draw_circle4 i)
  (repeat 6 (lambda () 
    (repeat 5 (lambda () 
      (fd 3) (rt 3)
    ))
    (i)
  ))
)
(define (flower4)
  (repeat 3 (lambda () (draw_circle4 (lambda () '())) (rt 120)))
)

(define (draw_circle5 i)
  (repeat 6 (lambda () 
    (repeat 5 (lambda () 
      (fd 12) (rt 7)
    ))
    (i)
  ))
)
(define (flower5)
  (repeat 3 (lambda () (draw_circle5 (lambda () '())) (rt 60)))
)

(define (draw_circle6 i)
  (repeat 6 (lambda () 
    (repeat 5 (lambda () 
      (fd 1) (rt 2)
    ))
    (i)
  ))
)
(define (flower6)
  (repeat 3 (lambda () (draw_circle6 (lambda () '())) (rt 90)))
)




(color "#FE2EC8")
(draw_circle flower)


(pu)
(goto 50 50)
(pd)
(color "#FA58D0")
(draw_circle flower)


(pu)
(goto 15 25)
(pd)
(begin_fill)
(color "#F781F3")
(draw_circle flower)
(end_fill)

(pu)
(goto -305 500)
(pd)
(begin_fill)
(color "#FA58F4")
(draw_circle flower)
(end_fill)

(pu)
(goto -500 -503)
(pd)
(begin_fill)
(color "#F781F3")
(draw_circle flower)
(end_fill)

(pu)
(goto 615 325)
(pd)
(begin_fill)
(color "#F781F3")
(draw_circle flower)
(end_fill)

(pu)
(goto 325 -23)
(pd)
(begin_fill)
(color "#FA58F4")
(draw_circle flower)
(end_fill)

(pu)
(goto -406 305)
(pd)
(begin_fill)
(color "#F781F3")
(draw_circle flower)
(end_fill)

(pu)
(goto 825 125)
(pd)
(begin_fill)
(color "#F781F3")
(draw_circle flower)
(end_fill)

(pu)
(goto -768 -305)
(pd)
(begin_fill)
(color "#FA58F4")
(draw_circle flower)
(end_fill)

(pu)
(goto -800 -503)
(pd)
(begin_fill)
(color "#F781F3")
(draw_circle flower)
(end_fill)



(pu)
(goto 200 150)
(pd)
(color "#F781F3")
(draw_circle2 flower2)

(pu)
(goto 600 -300)
(color "#F781F3")
(pd)
(draw_circle3 flower3)


(pu)
(goto -420 260)
(color "#FA58D0")
(pd)
(draw_circle3 flower3)

(pu)
(goto 900 530)
(color "#FE2EC8")
(pd)
(draw_circle3 flower3)

(pu)
(goto 280 -250)
(color "#F781F3")
(pd)
(draw_circle4 flower4)

(pu)
(goto -270 100)
(color "#F781D8")
(pd)
(draw_circle4 flower4)

(pu)
(goto 150 -100)
(color "#F781F3")
(pd)
(draw_circle4 flower4)

(pu)
(goto -250 -200)
(color "#DF01D7")
(pd)
(draw_circle5 flower5)


(pu)
(goto 400 -300)
(color "#F781F3")
(pd)
(draw_circle5 flower5)

(pu)
(goto 300 -340)
(color "#FE2EF7")
(pd)
(draw_circle5 flower5)

(pu)
(goto -400 200)
(color "#DF01D7")
(pd)
(draw_circle5 flower5)

(pu)
(goto -90 -30)
(color "#FA58D0")
(pd)
(draw_circle5 flower5)

(pu)
(goto -300 290)
(color "#F781F3")
(pd)
(draw_circle5 flower5)

(pu)
(goto -300 50)
(color "#F781F3")
(pd)
(begin_fill)
(color "#FF00BF")
(draw_circle6 flower6)
(end_fill)


(pu)
(goto -300 -20)
(color "#F781D8")
(pd)
(begin_fill)
(color "#FF0080")
(draw_circle6 flower6)
(end_fill)


(pu)
(goto 300 -290)
(color "#F781D8")
(pd)
(begin_fill)
(color "#FE2EC8")
(draw_circle6 flower6)
(end_fill)


(pu)
(goto -20 60)
(color "#F781D8")
(pd)
(begin_fill)
(color "#F781D8")
(draw_circle6 flower6)
(end_fill)

(pu)
(goto 25 25)
(color "#F781D8")
(pd)
(begin_fill)
(color "#FE2EC8")
(draw_circle6 flower6)
(end_fill)

(pu)
(goto -70 190)
(color "#F781D8")
(pd)
(begin_fill)
(color "#FE2EC8")
(draw_circle6 flower6)
(end_fill)

(pu)
(goto 180 90)
(color "#F781D8")
(pd)
(begin_fill)
(color "#FE2EC8")
(draw_circle6 flower6)
(end_fill)

(pu)
(goto -70 190)
(color "#F781D8")
(pd)
(begin_fill)
(color "#FE2EC8")
(draw_circle6 flower6)
(end_fill)

(pu)
(goto 300 -200)
(color "#F781D8")
(pd)
(begin_fill)
(color "#FA58F4")
(draw_circle6 flower6)
(end_fill)




  (exitonclick))

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