unmaintained/L-system/models/abop-6/abop-6.factor

   1
   2 USING: accessors ui L-system ;
   3
   4 IN: L-system.models.abop-6
   5
   6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   7
   8 : abop-6 ( <L-system> -- <L-system> )
   9
  10   L-parser-dialect >>commands
  11
  12   [ 5 >>angle ] >>turtle-values
  13
  14   ! "&(90)+(90)FFF[-(120)'(.6)x][-(60)'(.8)x][+(120)'(.6)x][+(60)'(.8)x]x"
  15   "FFF[-(120)'(.6)x][-(60)'(.8)x][+(120)'(.6)x][+(60)'(.8)x]x"
  16   >>axiom
  17
  18   {
  19     { "a" "F[cdx][cex]F!(.9)a" }
  20     { "x" "a" }
  21
  22     { "d" "+d" }
  23     { "e" "-e" }
  24
  25     { "F" "'(1.25)F'(.8)" }
  26   }
  27     >>rules ;
  28
  29 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  30
  31 : main ( -- ) [ L-system abop-6 "L-system" open-window ] with-ui ;
  32
  33 MAIN: main
  34