L-system.models.abop-1: Minor tweaks

diff --git a/extra/L-system/models/abop-1/abop-1.factor b/extra/L-system/models/abop-1/abop-1.factor
index 45cc52247009e87dbeb3caf6f26f8dece98daabd..34f1d4777a986df4abe87cf81caa07671a729915 100644 (file)
--- a/extra/L-system/models/abop-1/abop-1.factor
+++ b/extra/L-system/models/abop-1/abop-1.factor
@@ -1,5 +1,5 @@
 
-USING: accessors kernel ui L-system ;
+USING: accessors ui L-system ;
 
 IN: L-system.models.abop-1
 
@@ -12,15 +12,13 @@ IN: L-system.models.abop-1
   "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"    }
+    { "A" "F [ & '(.8) !       B L ] >(137) ' !(.9) A" }
+    { "B" "F [ - '(.8) !(.9) $ C L ]        ' !(.9) C" }
+    { "C" "F [ + '(.8) !(.9) $ B L ]        ' !(.9) B" }
     
-    { "L" "~c(8){+(30)f-(120)f-(120)f}" }
+    { "L" " ~ c(8) { +(30) f -(120) f -(120) f }" }
   }
-  >>rules
-
-  dup axiom>> >>string ;
+  >>rules ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!