Add 'abop-1' L-system model

diff --git a/extra/L-system/models/abop-1/abop-1.factor b/extra/L-system/models/abop-1/abop-1.factor
new file mode 100644 (file)
index 0000000..45cc522
--- /dev/null
+++ b/extra/L-system/models/abop-1/abop-1.factor
@@ -0,0 +1,29 @@
+
+USING: accessors kernel ui L-system ;
+
+IN: L-system.models.abop-1
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: abop-1 ( <L-system> -- <L-system> )
+  
+  L-parser-dialect >>commands
+
+  "c(12)FFAL" >>axiom
+
+  {
+    { "A" "F[&'(.8)!BL]>(137)'!(.9)A"   }
+    { "B" "F[-'(.8)!(.9)$CL]'!(.9)C"    }
+    { "C" "F[+'(.8)!(.9)$BL]'!(.9)B"    }
+    
+    { "L" "~c(8){+(30)f-(120)f-(120)f}" }
+  }
+  >>rules
+
+  dup axiom>> >>string ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: main ( -- ) [ L-system abop-1 "L-system" open-window ] with-ui ;
+
+MAIN: main