;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Speed
;;;
;;; Description:
;;;   Lines of blue and gold
      Fold the temporal fabric
      Letting me go fast

(define (draw)
  (speed 0)
  (warp 900)
  (rocket)
  (goto -15 10)
  (star 0)
  (exitonclick))


(define (star theta)
  (if (< theta 360)
    (begin
      (begin_fill)
      (if (= (modulo theta 60) 0) (color "blue") (color "red"))
      (rt 60)
      (fd 75)
      (rt 150)
      (fd 75)
      (end_fill)
      (star (+ theta 30))
    )
))
(define (warp n)
  (if (= n -900) (goto 0 0)
    (lines n)
  )
)

(define (lines a)

  (goto a 0)
  (goto 0 (- (* a 3)))
  (goto 0 a)
  (goto a 10)
  (goto 10 (- (* a 3)))
  (goto 10 a)

  (if (= (modulo a 2) 0) (color "blue") (color "gold"))
  (warp (- a 3))
)

(define (rocket)
  (penup)
  (goto 75 0)
  (pendown)
  (wings 1)
  (goto -75 0)
  (wings (- 1))
  (goto 0 75)
  (flaps 1)
  (goto 0 -75)
  (flaps (- 1))
  (goto 75 0)
  (pendown)
  (color "orange")
  (begin_fill)
  (circle 75)
  (end_fill)
)
(define (wings n)
  (pendown)
  (color "black")
  (begin_fill)
  (goto (* 150 n) 0)
  (goto (* 65 n) 15)
  (goto (* 75 n) 0)
  (end_fill)
  (penup)
)

(define (flaps n)
  (pendown)
  (color "black")
  (begin_fill)
  (goto 0 (* 150 n) )
  (goto 15 (* 65 n))
  (goto 0 (* 75 n) )
  (end_fill)
  (penup)
)

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