(load "stk-turtle-stuff")

(define (f length depth)
(cond 
(( = 0 depth) (forward length))
(else
( 
	(f (/ length 3) (- depth ))
	(right 60)
	(f (/ length 3) (- depth ))
	(left 120)
	(f (/ length 3) (- depth ))
	(right -60)
	(f (/ length 3) (- depth ))
))
	))


(define (pattern count angle)
(cond
	((= count 0) #f)
(else 
	(cond 
	((= 0 (modulo count 2)) (color "#ff0000"))
	(else (color "#000000"))
	)
    (penup)
     (goto 0 0)
     (pendown)
     (f 1000 4)
     (left angle)
     (pattern (- count 1) angle)
 ))))

(pattern 12 30)