extra/L-system/models/abop-1/abop-1.factor

   1
   2 USING: accessors kernel ui L-system ;
   3
   4 IN: L-system.models.abop-1
   5
   6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   7
   8 : abop-1 ( <L-system> -- <L-system> )
   9
  10   L-parser-dialect >>commands
  11
  12   "c(12)FFAL" >>axiom
  13
  14   {
  15     { "A" "F[&'(.8)!BL]>(137)'!(.9)A"   }
  16     { "B" "F[-'(.8)!(.9)$CL]'!(.9)C"    }
  17     { "C" "F[+'(.8)!(.9)$BL]'!(.9)B"    }
  18
  19     { "L" "~c(8){+(30)f-(120)f-(120)f}" }
  20   }
  21   >>rules
  22
  23   dup axiom>> >>string ;
  24
  25 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  26
  27 : main ( -- ) [ L-system abop-1 "L-system" open-window ] with-ui ;
  28
  29 MAIN: main