;;Jose Medina
;;draws a cd/tunnel
;;depending on ur specifications you can make this a cd were there are no corresponding sections or 
;;you can have it as a tunnel with the last 2 colors being the rings creating an effect causing as it was moving toward
;;the light.





;;drawing a tunnel/cd looks as if your looking down a tunnel


(define (cd length size color color2 color3) 
(and 
 ;;cd*****
(draw-solid-disk (make-posn (/ length 2) (/ length 2)) size color)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 2)  color2)
(draw-circle (make-posn (/ length 2) (/ length 2)) (/ size (/ 5 2)) color2)
(draw-solid-disk (make-posn (/ length 2) (/ length 2)) (/ size 5) 'white)
(draw-circle (make-posn (/ length 2) (/ length 2)) (/ size 5) color)
;;tunnel*****
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 3) color2)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 4) color2)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 5) color2)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 14) color3)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 15) color3)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 16) color2)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 17) color2)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 18) color3)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 19) color3)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 20) color3)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 31) color2)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 32) color2)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 33) color3)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 34) color3)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 35) color3)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 36) color2)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 37) color2)
(draw-circle (make-posn (/ length 2) (/ length 2)) (- size 38) color2)))





;(start 600 600)
;(cd 450 200 'black 'white 'red)