;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Interstellar>
;;;
;;; Description:
;;;   <Did you all watch Interstellar?
;;;    wormhole is super cool
;;;    this is a wormhole to cs61b. Good luck everyone.>

(define (interstellar c a l)
	(if (= l 0) (exitonclick))
		(color "blue")
		(circle c)
		(rt a)
		(lt (+ a .002))
		(color "white")
		(circle c)
		(forward .5)
		(interstellar (* c 0.97) (* 2 a) (- l 1))
	)

(define (draw)
  (speed 200)
  (pendown)
  (begin (color "black") (goto -400 400) (begin_fill) (goto -400 -400) (goto 400 -400) (goto 400 400) (goto -400 400) (end_fill)) 
  (goto 150 0)
  (color "white")
  (interstellar 200 50 210)
  (exitonclick))

(hideturtle)

; Please leave this last line alone.  You may add additional procedures above
; this line.  All Scheme tokens in this file (including the one below) count
; toward the token limit.
(draw)