;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: I want to bee John Denero
;;;
;;; Description:
;;;   Fun fact: Denero 
;;;   won an Oscar for his role
;;;   in The Bee Movie

(bgcolor "yellow")
(color "black")
(speed 0) 
(define image 'johnbee.gif)

(define (draw)
  (addshape image)
  (recur -360 -720 7)
  (hideturtle))

(define (repeat k fn)
  (if (> k 0)
    (begin (fn) (repeat (- k 1) fn))
    nil
    ))

(define (recur x y k)
  (if (> k 0)
    (begin 
      (penup)
      (goto x y) 
      (pendown) 
      (repeat 4 draw_hexagons) 
      (recur x (+ y 180) (- k 1)))
    nil))

(define (hexagon)
  (begin 
    (repeat 6 hexagon_side) 
    (penup) 
    (fd 30) 
    (rt 60) 
    (pendown)))

(define (hexagon_side)
  (begin 
    (fd 30) 
    (lt 60)))

(define (draw_hexagons)
  (define (helper k)  
    (if (> k 0)
      (begin (repeat 6 hexagon) 
        (rt 60) 
        (penup) 
        (fd 90) 
        (pendown) 
        (lt 60)
        (helper (- k 1)))
    (stamp)))
  (helper 3))

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