;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Mutant Snowflake
;;;
;;; Description:
;;; Koch and Bentley say,
;;; "Snowflakes have six sides apiece,"
;;; but I disagree.
(define (draw)
(speed 0)
(goto -50 150)
(seth 141)
(clear)
(edge 300 6)
(right 144)
(edge 300 6)
(right 144)
(edge (* 300 const) 5)
(left 72)
(edge (* 300 const) 5)
(right 144)
(ht))
(define (edge d k)
(if (<= k 0)
(forward d)
(let ((piece (lambda () (edge (* d const)
(- k 1)))))
(piece)
(left 72)
(piece)
(right 144)
(piece)
(left 72)
(piece))))
(define (phi-converge x)
(if (<= x 0)
1
(+ 1 (/ 1 (phi-converge (- x 1))))))
(define const (- 2 (phi-converge 30)))
; Please leave this last line alone. You may add additional procedures above
; this line. All Scheme tokens in this file (including the one below) count
; toward the token limit.
(draw)