;;; Your entry for the Scheme contest
;;;
;;; Title: 
;;;   RecurZion
;;;
;;; Description:
;;;   Stars on Stars on Stars/ make more Stars on Stars on Stars/ reread the haiku

(define (make_triangle len)
  (begin (forward len) (left 120) (forward len) (left 120) (forward len) (left 120))
)


(define (power base exp)
  (if (>= exp 1)
      (* base (power base (- exp 1)))
      1)
)

(define colR 0)
(define colG 0)
(define colB 0)
(define colors (list 'blue 'yellow))

(define (vortex depth base)
	 (if (eqv? depth 0)
	     (make_triangle base)
	     (begin (vortex (- depth 1) base) (forward (* base (power 1.1 depth))) (left 120))
	 )
)

(setheading 0)
(color 'blue)
(vortex 50 4)
(penup)
(goto 0 0)
(pendown)
(setheading 180)
(color 'blue)
(vortex 50 4)
(penup)
(goto 0 0)
;(exitonclick)