;; Fractals!!!
;; ian 00.feb.14
;; based on code By Nick Collins 06 Feb 98




(define fractal-y
  (lambda (lvl before)
    (if (zero? lvl)
        (turn 2 (draw 1 before))
	(fractal-y (sub1 lvl) (turn 31 
	  (fractal-y (sub1 lvl) (turn 30 
            (fractal-y (sub1 lvl) (turn -120 
               (fractal-y (sub1 a) (turn 30 
                 (fractal-y (sub1 lvl (turn 31 
                    (fractal-y (sub1 lvl) before)))))))))))))))
	     

(define fractal-x
  (lambda (n before)
    (if (zero? n)
	(draw 1)
	(turn -120 (fractal-x (turn 60 (fractal-x (sub1 n) before)))))))



(define rorschach
  (lambda ()
    (fractal-y 5 (turn 65 (turtles 300 300)))))

(rorschach)