L-system/models/abop-3/abop-3.factor

   1
   2 USING: accessors ui L-system ;
   3
   4 IN: L-system.models.abop-3
   5
   6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   7
   8 : abop-3 ( <L-system> -- <L-system> )
   9
  10   L-parser-dialect >>commands
  11
  12   [ 30 >>angle ] >>turtle-values
  13
  14   "c(12)FA" >>axiom
  15
  16  {
  17    { "A" "!(.9)t(.4)FB>(94)B>(132)B" }
  18    { "B" "[&t(.4)F$A]" }
  19    { "F" "'(1.25)F'(.8)" }
  20  }
  21    >>rules ;
  22
  23 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  24
  25 : main ( -- ) [ L-system abop-3 "L-system" open-window ] with-ui ;
  26
  27 MAIN: main