From 60f2eaf3dd58aa7cc66e99febc28d6003bfc0e84 Mon Sep 17 00:00:00 2001
From: "wayo.cavazos" <wayo.cavazos@gmail.com>
Date: Tue, 14 Feb 2006 02:27:00 +0000
Subject: [PATCH] Airhorse Lsystem

---
 .../examples/lindenmayer/lindenmayer.factor   | 36 +++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/contrib/x11/examples/lindenmayer/lindenmayer.factor b/contrib/x11/examples/lindenmayer/lindenmayer.factor
index 49975d6afc..0f420249d5 100644
--- a/contrib/x11/examples/lindenmayer/lindenmayer.factor
+++ b/contrib/x11/examples/lindenmayer/lindenmayer.factor
@@ -464,3 +464,39 @@ H{ { "a" "F[cdx][cex]F!(.9)a" }
 
    { "F" "'(1.25)F'(.8)" }
 } rules set-global ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: airhorse ( -- ) lparser-dialect 10 angle set-global 5 thickness set-global
+
+"C" axiom set-global
+
+H{ { "C" "LBW" }
+
+   { "B" "[[''aH]|[g]]" }
+   { "a" "Fs+;'a" }
+   { "g" "Ft+;'g" }
+   { "s" "[::cc!!!!&&[FFcccZ]^^^^FFcccZ]" }
+   { "t" "[c!!!!&[FF]^^FF]" }
+
+   { "L" "O" }
+   { "O" "P" }
+   { "P" "Q" }
+   { "Q" "R" }
+   { "R" "U" }
+   { "U" "X" }
+   { "X" "Y" }
+   { "Y" "V" }
+   { "V" "[cc!!!&(90)[Zp]|[Zp]]" }
+   { "p" "h>(120)h>(120)h" }
+   { "h" "[+(40)!F'''p]" }
+
+   { "H" "[cccci[>(50)dcFFF][<(50)ecFFF]]" }
+   { "d" "Z!&Z!&:'d" }
+   { "e" "Z!^Z!^:'e" }
+   { "i" "-:/i" }
+
+   { "W" "[%[!!cb][<<<!!cb][>>>!!cb]]" }
+   { "b" "Fl!+Fl+;'b" }
+   { "l" "[-cc{--z++z++z--|--z++z++z}]" }
+} rules set-global ;