(require spd/tags)
(require 2htdp/image)
(@signature Number -> Image)
;; produce black outline circle of given diameter
(check-expect (circ 10) (circle 5 "outline" "black"))
(check-expect (circ 12) (circle 6 "outline" "black"))
(define (circ d)
(circle (/ d 2) "outline" "black"))
(define CUTOFF 4)
(@htdf fract)
(@signature Number -> Image)
;given size (non-negative) produce simple ears fractal of that size
(check-expect (fract CUTOFF) (circ CUTOFF))
(check-expect (fract (* CUTOFF (/ 1 .3)))
(beside (circ CUTOFF)
(circ (* CUTOFF (/ 1 .3)))
(circ CUTOFF)))
(@template-origin genrec)
(define (fract n) empty-image) ;stub
-
