home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / graphuti / lparser2.zip / TREE04.LS < prev    next >
Text File  |  1993-10-12  |  243b  |  16 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre --- 
  2. 7
  3. 30
  4. 40
  5. #
  6. A
  7. #
  8. A=aaSaaSA
  9. S='(.8)!(.9)
  10. a=tF[&'(.8)!LBL]>(137)[z&'(.7)!LBL]>(137)
  11. B=tF[-'(.8)!(.9)$LCL]'!(.9)C
  12. C=tF[+'(.8)!(.9)$LBL]'!(.9)B
  13. #
  14. L=[~cc{+(30)f(1)-(120)f(1)-(120)f(1)}]
  15. @
  16.