;;; Scheme Recursive Art Contest Entry ;;; ;;; Please do not include your name or personal info in this file. ;;; ;;; Title: ;;; ;;; Description: ;;; (define (hand x y c) (cond ((equal? c b) (hideturtle) (penup) (goto x (+ y 5)) (color c) (begin_fill) (pendown) (setheading 0) (forward 1) (setheading 270) (forward 2) (setheading 0) (forward 1) (setheading 270) (forward 1) (setheading 0) (forward 1) (setheading 270) (forward 1) (setheading 0) (forward 2) (setheading 270) (forward 1) (setheading 0) (forward 3) (setheading 90) (forward 1) (setheading 0) (forward 2) (setheading 90) (forward 1) (setheading 0) (forward 1) (setheading 90) (forward 1) (setheading 0) (forward 1) (setheading 90) (forward 1) (setheading 0) (forward 1) (setheading 90) (forward 1) (setheading 0) (forward 3) (setheading 270) (forward 1) (setheading 0) (forward 2) (setheading 90) (forward 1) (setheading 180) (forward 1) (setheading 90) (forward 1) (setheading 180) (forward 1) (setheading 90) (forward 1) (setheading 180) (forward 3) (setheading 270) (forward 1) (setheading 180) (forward 3) (setheading 90) (forward 3) (setheading 0) (forward 1) (setheading 90) (forward 4) (setheading 0) (forward 1) (setheading 90) (forward 6) (setheading 180) (forward 1) (setheading 270) (forward 2) (setheading 180) (forward 1) (setheading 270) (forward 5) (setheading 180) (forward 2) (setheading 90) (forward 1) (setheading 180) (forward 1) (setheading 270) (forward 1) (setheading 180) (forward 2) (setheading 90) (forward 1) (setheading 180) (forward 1) (setheading 270) (forward 1) (setheading 180) (forward 2) (setheading 270) (forward 1) (setheading 180) (forward 1) (setheading 270) (forward 1) (setheading 180) (forward 1) (setheading 270) (forward 5) (end_fill) (penup)) ((equal? c e)) (else (hideturtle) (penup) (color c) (goto (+ x 5) (+ y 5)) (pendown) (begin_fill) (goto (- x 5) (+ y 15)) (goto (+ x 5) (+ y 25)) (goto (+ x 15) (+ y 15)) (goto (+ x 5) (+ y 5)) (end_fill) (penup)) )) (define b "#003262") (define g "#FDB515") (define m "#C4820E") (define e "#ffffff") (define sample (list (list e e e e e e e e e e e e e e b b b b b b b b b e e e e e e e e e e e e e e e e e e e e e e e e e e e) (list e e e e e e e e e e e e b b b b b b b b b b b b b e e e e e e e e e e e e e e e e e e e e e e e e e) (list e e e e e e e e e e e b b b b b b b b b b b b b b b e e e e e e e e e e e e e e e e e e e e e e e e) (list e e e e e e e e e e b b b b b b b b b b b b b b b b g g g g g e e e e e e e e e e e e e e e e e e e) (list e e e e e e e e e b b b b b b b b b b b b b b b b b g g g g g g g g g e e e e e e e e e e e e e e e) (list e e e e e e e e e b b b b b b b b b b b b b b b b b b g g g g g g g g g g e e e e e e e e e e e e e) (list e e e e e e e e e b b b b b b b b b b b b b b b b b b g g g g g g g g g g g e e e e e e e e e e e e) (list e e e e e e e e b b b b b b b b b b b b b b b b b b b g g g g g g g g g g g g e e e e e e e e e e e) (list e e e e e e e e b b b b b b b b b b b b b b b b b b g g g g g g g g g g g g g g g e e e e e e e e e) (list e e e e e e e e b b b b b b b b b b b b b b b b b b b g g g g g g g g g g g g g g g e e e e e e e e) (list e e e e e e e e b b b b b b b b b b b b b b b b b b b g g g g g g g g g g g g g g g g e e e e e e e) (list e e e e e e e g b b b b b b b b b b b b b b b b b b b g g g g g g g g g g g g g g g g g e e e e e e) (list e e e e e e g g g b b b b b b b b b b b b b b b b b g g g g g g g g g g g g g g g g g g e e e e e e) (list e e e e e g g g g b b b b b b b b b b b b b b b b b b b b b g g g g g g g g g g g g g g g e e e e e) (list e e e e e g g g g g b b b b b b b b b b b b b b b b b b b b b b b b g g g g g g g g g g g g e e e e) (list e e e e g g g g g g g b b b b b b b g g b b b b b b b b b b b b b b b g g g g g g g g g g g e e e e) (list e e e e g g g g g g g g b b b b b b b g g g g g g b b b b b b b b b b g g g g g g g g g g g g e e e) (list e e e g g g g g g g g g g b b b b b b g g g g g g g g g g g g b b b g g g g g g g g g g g g g e e e) (list e e e g g g g g g g g g g g b b b b b g g g g g g g g g g g m g g g g g g g g g g g g g g g g g e e) (list e e g g g g g g g g g g g g b b b b b g g g g g g g g g g m m m g g g g g g g g g g g g g g g g e e) (list e e g g g g g g g g g g g g b b b b b g m m g g g g g m m m m g g g g g g g g g g g g g g g g g e e) (list e e g g g g g g g g g g g g b b b b g g m m m m m m m m m m g g g g g g g g g g g g g g g g g g e e) (list e g g g g g g g g g g g g g b b b b g g m m m m m m m m g g g g g g g g g g g g g g g g g g g g g e) (list e g g g g g g g g g g g g g b b b b g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g e) (list e g g g g g g g g g g g g g b b b g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g e) (list e g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g e) (list e g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g e) (list e g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g e) (list e g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g e) (list e g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g m m g g g g g g g g g g g g g g e) (list e e g g g g g g g g g g g g g g g g m g g g g g g g g g g g g g m m m m g g g g g g g g g g g g e e) (list e e g g g g g g g g g g g g g g g m m m g g g g g g g g g g g m m m m m m g g g g g g g g g g g e e) (list e e g g g g g g g g g g g g g g m m m m m g g g g g g g g g g m m m m m m g g g g g g g g g g g e e) (list e e g g g g g g g g g g g g g m m m m m m g g g g g g g g g g m m m m m m g g g g g g g g g g g e e) (list e e e g g g g g g g g g g g g m m m m m m g g g g g g g g g g g m m m m g g g g g g g g g g g e e e) (list e e e g g g g g g g g g g g g m m m m m m g g g g g g g g g g g g m m g g g g m m g g g g g g e e e) (list e e e e g g g g g g g g g g g g m m m m g g g g g g g g g m m m m m m m m m m m m g g g g g e e e e) (list e e e e g g g g g g g g g g g g g m m g g g g g g g g g g g m m m m m m m m m m g g g g g g e e e e) (list e e e e e g g g g g g g g g g g g g g g g g g g g g g g g g g g m m m m m g g g g g g g g e e e e e) (list e e e e e g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g e e e e e) (list e e e e e e g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g e e e e e e) (list e e e e e e e g g g g g m m m g g g g g g g m m m g g g g g g g g g g g g g g g g g g e e e e e e e) (list e e e e e e e e g g g g m m m m m m m m m m m m m g g g g g g g g g g g g g g g g g e e e e e e e e) (list e e e e e e e e e g g g g g m m m m m m m m m g g g g g g g g g g g g g g g g g g e e e e e e e e e) (list e e e e e e e e e e g g g g g g g m m g g g g g g g g g g g g g g g g g g g g g e e e e e e e e e e) (list e e e e e e e e e e e g g g g g g g g g g g g g g g g g g g g g g g g g g g g e e e e e e e e e e e) (list e e e e e e e e e e e e e g g g g g g g g g g g g g g g g g g g g g g g g e e e e e e e e e e e e e) (list e e e e e e e e e e e e e e e g g g g g g g g g g g g g g g g g g g g e e e e e e e e e e e e e e e) (list e e e e e e e e e e e e e e e e e e g g g g g g g g g g g g g g e e e e e e e e e e e e e e e e e e) (list e e e e e e e e e e e e e e e e e e e e e g g g g g g g g e e e e e e e e e e e e e e e e e e e e e) )) (define (enumerate lst) ; BEGIN Question 18 (define (helper n current lst) (if (null? lst) current (helper (+ n 20) (append current (list (cons n (list (car lst))))) (cdr lst)) ) ) (helper -500 nil lst) ) (define (grid2 y code column) (cond ((= 50 column)) (else (map (lambda (a) (hand (car a) y (car (cdr a)))) (enumerate (car code))) (grid2 (+ 20 y) (cdr code) (+ column 1))))) (define (draw) (speed 0) (grid2 -500 sample 0) (exitonclick)) ; Please leave this last line alone. You may add additional procedures above ; this line. (draw)