fdelmazo / cl-aristid Goto Github PK

; We wrap every rule in a LISP list, to use as an argument later
(defparameter dragon-rules
	(list (defrule X -> (X RIGHT Y F RIGHT))
		  (defrule Y -> (LEFT F X LEFT Y))))

(defparameter dragon (make-fractal :name "dragon"
								   :rules dragon-rules
								   :axiom '(F X)))

(defparameter freaky-fractal-rules
	(list (defrule F -> (F G) :prob 0.45)
		  (defrule G -> (F F) )
		  (defrule X -> (F RIGHT [ [ X ] LEFT X ] LEFT F [ LEFT F X ] RIGHT X))))

(defparameter fractal (make-fractal :name "freaky-fractal-plant"
										:rules freaky-fractal-rules
										:axiom axiom))

(defparameter fractal (make-fractal :name "freaky-quadratic"
										:rules (list rule-1 rule-2)
										:axiom axiom))