;;; Scheme Recursive Art Contest Entry ;;; ;;; Please do not include your name or personal info in this file. ;;; ;;; Title: ;;; ;;; Description: ;;; (define (draw) (define (helper n) (if (> n 0) (begin (begin_fill) (pendown) (forward ((if (= (modulo n 2) 0) + *) 89 (remainder n 3))) (left (+ 89 (remainder n 7))) (end_fill) (backward (- 269 (remainder n 11))) (right ((if (= (modulo n 2) 0) - *) 270 (/ (remainder n 3) 3))) (circle (remainder n 50)) (speed 3) (color (rgb (/ (remainder n 3) 3) (/ (remainder n 4) 4) (/ (remainder n 5) 5))) (bgcolor (rgb (/ (remainder n 3) 3) (/ (remainder n 4) 4) (/ (remainder n 5) 5))) (helper (- n 1))) 1)) (helper 250) (exitonclick)) ; Please leave this last line alone. You may add additional procedures above ; this line. (draw)