;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Perspective
;;;
;;; Description:
;;;   You think you can see
;;;   You think you can understand
;;;   Beware illusions

(define lst1 (list 20 30 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200))

(define (contr lst0 n m k)
(if 	(null? lst0) 
	n
	(circle (* k (- (car lst0) m)) (contr (cdr lst0) n m k))))

(define (setdraw x y z a b c)
	(penup) (goto x y) (pendown) (speed z)
(color "blue") (contr lst1 b a c)
(color "red") (contr lst1 b (+ 1 a) c)
(color "green") (contr lst1 b (+ 2 a) c)
(color "yellow") (contr lst1 b (+ 3 a) c)
(color "pink") (contr lst1 b (+ 4 a) c)
(color "cyan") (contr lst1 b (+ 5 a) c)
(color "lime") (contr lst1 b (+ 6 a) c)
(color "magenta") (contr lst1 b (+ 7 a) c)
(color "silver") (contr lst1 b (+ 8 a) c))

(define (draw)
(bgcolor "black")
(hideturtle)
(setdraw 400 0 0 1 0 1.1)
(setdraw 100 -100 0 1 -90 1)
(exitonclick))

; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)