unmaintained/L-system/models/tree-5/tree-5.factor

   1
   2 USING: accessors ui L-system ;
   3
   4 IN: L-system.models.tree-5
   5
   6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   7
   8 : tree-5 ( <L-system> -- <L-system> )
   9
  10   L-parser-dialect >>commands
  11
  12   [ 5 >>angle ] >>turtle-values
  13
  14   "c(4)FFS" >>axiom
  15
  16   {
  17     { "S" "FFR>(60)R>(60)R>(60)R>(60)R>(60)R>(30)S" }
  18     { "R" "[Ba]" }
  19     { "a" "$tF[Cx]Fb" }
  20     { "b" "$tF[Dy]Fa" }
  21     { "B" "&B" }
  22     { "C" "+C" }
  23     { "D" "-D" }
  24
  25     { "x" "a" }
  26     { "y" "b" }
  27
  28     { "F" "'(1.25)F'(.8)" }
  29   }
  30     >>rules ;
  31
  32 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  33
  34 : main ( -- ) [ L-system tree-5 "L-system" open-window ] with-ui ;
  35
  36 MAIN: main