;;; 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 (draw)
  
  (define (circ rad) (circle rad 90) (penup) (circle rad 180) (pendown) (circle rad 90) (if (> rad 0) (circ (- rad 10))))
  (define (oppocirc rad) (circle rad 90) (penup) (circle rad 180) (pendown) (circle rad 90) (if (< rad 0) (oppocirc (+ rad 10))))
  (define (wings num) (circ num) (oppocirc (- 0 num)))
  (define (border_circ) (pendown) (if (= (pos) (list (left_x bottom_y))) (exitonclick) ((begin_fill) (circle 20 180) (end_fill)(border_circ))))
  (define bottom_y (/ (- 0 (screen_height)) 2))
  (define left_x (/ (- 0 (screen_width)) 2))
  (define right_x (/ (screen_width) 2))
  (define top_y (/ (screen_height) 2))
  (define (draw_flower)(pendown)(wings 100)(left 90)(wings 100)(left 45)(wings 100)(left 90)(wings 100)(left 22.5)(wings 200)(left 90)(wings 200)(left 45)(wings 200)(left 90)(wings 200)(penup))
  (define (draw_border)(goto left_x top_y) (draw_flower) (goto left_x 0) (draw_flower) (goto left_x bottom_y) (draw_flower) (goto 0 bottom_y) (draw_flower) (goto right_x bottom_y) (draw_flower) (goto right_x 0) (draw_flower) (goto right_x top_y) (draw_flower) (goto 0 top_y) (draw_flower))
  
  (bgcolor "#288FF5")
  (penup)
  (draw_border)
  (goto 0 0)
  (draw_flower)
  
  
  
  (exitonclick))
; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)