;;; Scheme Recursive Art Contest Entry ;;; ;;; Please do not include your name or personal info in this file. ;;; ;;; Title: QR stands for Quinary Recursion ;;; ;;; Description: ;;; To attain the base ;;; Use a friend, scan til the end ;;; Real Life Recursion ;;; ;;; *if you dont have a friend use https://webqr.com/ (define (m x) (cond ((null? x) 0) ((= (car x) 2) (begin (left 90) (m (cdr x)))) ((= (car x) 4) (begin (right 90) (m (cdr x)))) ((= (car x) 3) (begin (fd 10) (m (cdr x)))) ((= (car x) 1) (begin (begin_fill) (m (cdr x)))) ((= (car x) 5) (begin (pu) (m (cdr x)))) ((= (car x) 6) (begin (pd) (m (cdr x)))) ((= (car x) 7) (begin (end_fill) (m (cdr x)))) ) ) (define (b) (m '(6 1 2 3 4 3 4 3 4 3 2 5 3 2 6 7))) (define (w) (pu) (right 90) (fd 10) (left 90) (pd)) (define (new-line) (pu) (right 180) (fd 10) (right 90) (fd 290) (right 90) (pd)) (define (draw) (speed 0) (pu) (goto (- 145) 145) (b)(b)(b)(b)(b)(b)(b)(w)(b)(b)(b)(w)(b)(w)(b)(w)(w)(b)(b)(w)(w)(w)(b)(b)(b)(b)(b)(b)(b)(new-line) (b)(w)(w)(w)(w)(w)(b)(w)(b)(b)(b)(w)(w)(w)(w)(w)(b)(w)(b)(b)(w)(w)(b)(w)(w)(w)(w)(w)(b)(new-line) (b)(w)(b)(b)(b)(w)(b)(w)(b)(w)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(w)(w)(b)(w)(b)(b)(b)(w)(b)(new-line) (b)(w)(b)(b)(b)(w)(b)(w)(b)(b)(w)(b)(w)(w)(b)(b)(w)(w)(b)(w)(b)(w)(b)(w)(b)(b)(b)(w)(b)(new-line) (b)(w)(b)(b)(b)(w)(b)(w)(w)(w)(w)(w)(w)(b)(b)(b)(w)(b)(b)(w)(w)(w)(b)(w)(b)(b)(b)(w)(b)(new-line) (b)(w)(w)(w)(w)(w)(b)(w)(b)(w)(w)(b)(b)(b)(b)(w)(b)(b)(w)(b)(b)(w)(b)(w)(w)(w)(w)(w)(b)(new-line) (b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(w)(b)(w)(b)(w)(b)(w)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(new-line) (w)(w)(w)(w)(w)(w)(w)(w)(w)(b)(w)(w)(b)(w)(b)(w)(w)(b)(b)(b)(w)(w)(w)(w)(w)(w)(w)(w)(w)(new-line) (b)(b)(w)(w)(b)(b)(b)(w)(w)(w)(w)(b)(w)(b)(b)(b)(b)(b)(w)(b)(w)(w)(w)(b)(w)(b)(b)(b)(b)(new-line) (b)(w)(b)(b)(w)(b)(w)(b)(b)(b)(b)(w)(b)(w)(w)(w)(b)(b)(b)(w)(w)(w)(b)(w)(b)(b)(b)(b)(b)(new-line) (b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(w)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(w)(w)(w)(w)(w)(w)(w)(b)(new-line) (w)(w)(w)(w)(w)(w)(w)(w)(b)(w)(b)(b)(w)(b)(w)(b)(w)(b)(w)(w)(b)(b)(w)(b)(b)(b)(w)(b)(b)(new-line) (w)(w)(w)(w)(w)(w)(b)(b)(b)(w)(b)(w)(b)(b)(w)(w)(b)(w)(w)(b)(w)(b)(w)(b)(w)(w)(w)(b)(w)(new-line) (b)(b)(b)(w)(b)(b)(w)(b)(w)(w)(w)(w)(w)(b)(b)(b)(b)(b)(w)(w)(w)(w)(b)(b)(b)(b)(b)(b)(b)(new-line) (b)(w)(w)(b)(w)(w)(b)(b)(b)(b)(w)(w)(w)(w)(w)(b)(w)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(w)(b)(new-line) (b)(b)(b)(b)(w)(b)(w)(w)(w)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(w)(w)(w)(w)(b)(w)(w)(b)(b)(new-line) (b)(w)(w)(b)(b)(b)(b)(w)(b)(w)(b)(b)(w)(b)(b)(w)(w)(b)(w)(b)(b)(b)(w)(w)(w)(w)(w)(b)(w)(new-line) (b)(b)(w)(w)(w)(w)(w)(w)(w)(w)(w)(w)(b)(w)(w)(b)(b)(b)(b)(w)(w)(w)(b)(b)(b)(b)(w)(b)(b)(new-line) (w)(w)(w)(w)(b)(w)(b)(b)(w)(w)(b)(b)(b)(b)(b)(b)(w)(b)(w)(w)(b)(b)(b)(w)(w)(w)(b)(w)(b)(new-line) (w)(w)(w)(b)(w)(b)(w)(w)(b)(w)(b)(b)(w)(b)(w)(b)(w)(b)(b)(w)(b)(w)(w)(b)(b)(w)(w)(b)(b)(new-line) (b)(b)(w)(w)(w)(b)(b)(w)(w)(w)(w)(w)(b)(b)(w)(w)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(w)(w)(b)(new-line) (w)(w)(w)(w)(w)(w)(w)(w)(b)(b)(b)(w)(w)(b)(b)(b)(b)(w)(w)(b)(b)(w)(w)(w)(b)(w)(w)(w)(b)(new-line) (b)(b)(b)(b)(b)(b)(b)(w)(w)(w)(b)(w)(w)(w)(w)(b)(b)(w)(w)(b)(b)(w)(b)(w)(b)(b)(b)(w)(b)(new-line) (b)(w)(w)(w)(w)(w)(b)(w)(b)(w)(w)(w)(b)(w)(b)(w)(b)(b)(b)(b)(b)(w)(w)(w)(b)(w)(w)(b)(b)(new-line) (b)(w)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(w)(b)(b)(w)(b)(w)(w)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(new-line) (b)(w)(b)(b)(b)(w)(b)(w)(w)(w)(w)(w)(b)(w)(w)(b)(b)(b)(w)(b)(w)(w)(w)(w)(w)(w)(w)(w)(b)(new-line) (b)(w)(b)(b)(b)(w)(b)(w)(w)(b)(b)(b)(b)(b)(b)(b)(w)(w)(b)(w)(w)(b)(w)(w)(w)(b)(b)(b)(b)(new-line) (b)(w)(w)(w)(w)(w)(b)(w)(b)(w)(w)(b)(w)(b)(w)(w)(w)(b)(b)(b)(b)(w)(w)(b)(w)(b)(w)(b)(b)(new-line) (b)(b)(b)(b)(b)(b)(b)(w)(b)(b)(w)(w)(b)(b)(w)(w)(w)(b)(w)(w)(b)(b)(b)(b)(b)(w)(w)(b)(w) (exitonclick)) ; Please leave this last line alone. You may add additional procedures above ; this line. (draw)