(load "stk-turtle-stuff")

;(speed 0)

(define n -2)
(define ini-len 23)
(define ini-ang 96)
(define step 5)

(define (repeat fn l? m)
        (set! n (+ n step))
        (fn l?)
        (if (> m 0) (repeat fn l? (- m 1)) l?))

(define (spiral l?)
        (forward (/ ini-len (log n)))
        ((if l? left right) (/ (* ini-ang (sqrt n)) (log n))))

(penup)
(setposition -2 0)
(setheading 0)
(repeat spiral #t 1600)

(pendown)
(repeat spiral #t 3100)

(penup)
(set! n -2)
(setposition 2 0)
(setheading 0)
(repeat spiral #f 1600)

(pendown)
(repeat spiral #f 3100)