extra/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   "c(12)FA" >>axiom
  13
  14  {
  15    { "A" "!(.9)t(.4)FB>(94)B>(132)B" }
  16    { "B" "[&t(.4)F$A]" }
  17    { "F" "'(1.25)F'(.8)" }
  18  }
  19    >>rules ;
  20
  21 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  22
  23 : main ( -- ) [ L-system abop-3 "L-system" open-window ] with-ui ;
  24
  25 MAIN: main