unmaintained/L-system/models/airhorse/airhorse.factor

   1
   2 USING: accessors ui L-system ;
   3
   4 IN: L-system.models.airhorse
   5
   6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   7
   8 : airhorse ( <L-system> -- <L-system> )
   9
  10   L-parser-dialect >>commands
  11
  12   [ 10 >>angle ] >>turtle-values
  13
  14   "C" >>axiom
  15
  16   {
  17     { "C" "LBW" }
  18
  19     { "B" "[[''aH]|[g]]" }
  20     { "a" "Fs+;'a" }
  21     { "g" "Ft+;'g" }
  22     { "s" "[::cc!!!!&&[FFcccZ]^^^^FFcccZ]" }
  23     { "t" "[c!!!!&[FF]^^FF]" }
  24
  25     { "L" "O" }
  26     { "O" "P" }
  27     { "P" "Q" }
  28     { "Q" "R" }
  29     { "R" "U" }
  30     { "U" "X" }
  31     { "X" "Y" }
  32     { "Y" "V" }
  33     { "V" "[cc!!!&(90)[Zp]|[Zp]]" }
  34     { "p" "h>(120)h>(120)h" }
  35     { "h" "[+(40)!F'''p]" }
  36
  37     { "H" "[cccci[>(50)dcFFF][<(50)ecFFF]]" }
  38     { "d" "Z!&Z!&:'d" }
  39     { "e" "Z!^Z!^:'e" }
  40     { "i" "-:/i" }
  41
  42     { "W" "[%[!!cb][<<<!!cb][>>>!!cb]]" }
  43     { "b" "Fl!+Fl+;'b" }
  44     { "l" "[-cc{--z++z++z--|--z++z++z}]" }
  45   }
  46     >>rules ;
  47
  48 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  49
  50 : main ( -- ) [ L-system airhorse "L-system" open-window ] with-ui ;
  51
  52 MAIN: main