diff options
Diffstat (limited to 'L-system/models/abop-5-angular/abop-5-angular.factor')
-rw-r--r-- | L-system/models/abop-5-angular/abop-5-angular.factor | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/L-system/models/abop-5-angular/abop-5-angular.factor b/L-system/models/abop-5-angular/abop-5-angular.factor deleted file mode 100644 index 9e78258..0000000 --- a/L-system/models/abop-5-angular/abop-5-angular.factor +++ /dev/null @@ -1,33 +0,0 @@ - -USING: accessors ui L-system ; - -IN: L-system.models.abop-5-angular - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: abop-5-angular ( <L-system> -- <L-system> ) - - L-parser-dialect >>commands - - "&(90)+(90)a" >>axiom - - { - { "a" "F[+(45)l][-(45)l]^;ca" } - - { "l" "j" } - { "j" "h" } - { "h" "s" } - { "s" "d" } - { "d" "x" } - { "x" "a" } - - { "F" "'(1.17)F'(.855)" } - } - >>rules ; - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - -: main ( -- ) [ L-system abop-5-angular "L-system" open-window ] with-ui ; - -MAIN: main - |