;;; Scheme Recursive Art Contest Entry ;;; ;;; Please do not include your name or personal info in this file. ;;; ;;; Title: Swirlpool ;;; ;;; Description: ;;; Fall into the depths ;;; Practice problems, past exams ;;; Please give me an A (define blues (cons-stream "#036bcc" ; 1 (cons-stream "#0570cc" ; 2 (cons-stream "#0875cc" ; 3 (cons-stream "#0a7acc" ; 4 (cons-stream "#0d80cc" ; 5 (cons-stream "#0f85cc" ; 6 (cons-stream "#128acc" ; 7 (cons-stream "#148fcc" ; 8 (cons-stream "#1794cc" ; 9 (cons-stream "#1a99cc" ; 10 (cons-stream "#1c9ecc" ; 11 (cons-stream "#1fa3cc" ; 12 (cons-stream "#21a8cc" ; 13 (cons-stream "#24adcc" ; 14 (cons-stream "#26b2cc" ; 15 (cons-stream "#29b8cc" ; 16 (cons-stream "#26b2cc" ; 15 (cons-stream "#24adcc" ; 14 (cons-stream "#21a8cc" ; 13 (cons-stream "#1fa3cc" ; 12 (cons-stream "#1c9ecc" ; 11 (cons-stream "#1a99cc" ; 10 (cons-stream "#1794cc" ; 9 (cons-stream "#148fcc" ; 8 (cons-stream "#128acc" ; 7 (cons-stream "#0f85cc" ; 6 (cons-stream "#0d80cc" ; 5 (cons-stream "#0a7acc" ; 4 (cons-stream "#0875cc" ; 3 (cons-stream "#0570cc" blues) ; 2, 1 ))))))))))))))))))))))))))))) ) (define (multiwave) (circle 5 180) (circle -10 180) (circle 15 180) (circle -20 180) (circle 25 180) (circle -30 180) (circle 35 180) (circle -40 180) (circle 45 180) (circle -50 180)) (define (wave-ray head b) (if (= head 360) (pu) (begin (pu) (setpos 0 0) (seth head) (color (car b)) (pd) (multiwave) (pu) (setpos 0 0) (seth (+ head 1)) (pd) (multiwave) (pu) (setpos 0 0) (seth (+ head 2)) (pd) (multiwave) (wave-ray (+ head 3) (cdr-stream b))) )) (define (draw) (wave-ray 0 blues) (bgcolor "#000000")) ; Please leave this last line alone. You may add additional procedures above ; this line. (draw)