;;; Your entry for the Scheme contest ;;; ;;; Title: ;;; Maple Fractal is Maple ;;; ;;; Description: ;;; (define (make-curve s) (begin (circle s 30) (if (> s 0) (rt 30) (lt 30)))) (define (Make-finger s) (begin (pd) (make-curve (* 13 s)) (lt 158) (make-curve (* 13 s)) (rt 113) (pu))) (define (Make-small-finger s d) (cond ((= d 1) (begin (pd) (make-curve (* 9 s)) (lt 150) (make-curve (* 5 s)) (pu) (rt 123))) ((= d -1) (begin (pd) (rt 10) (make-curve (* 5 s)) (lt 150) (make-curve (* 9 s)) (rt 95) (pu))))) (define (make-line s) (begin (pd) (fd (* 6 s)) (rt 120) (pu))) (define (make-leaf s) (begin (make-line s) (make-small-finger s 1) (make-finger s) (make-child s) (color 'red) (make-finger s) (make-child s) (color 'orange) (make-finger s) (make-child s) (color 'yellow) (make-finger s) (make-child s) (color 'green) (make-finger s) (color 'red) (make-small-finger s -1) (make-line s) (rt 148) (fd s) (lt 90) )) (define (make-child s) (if (> s 1) (begin (fd (* 2 s)) (rt 20) (make-leaf (/ s 2)) (lt 20) (bk (* 2 s)) ) ())) (pu) (color 'red) (goto 200 -200) (seth 300) (pd) (make-leaf 16) ;(exitonclick)