home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / graphuti / lparser2.zip / TREE00.LS < prev    next >
Text File  |  1993-10-12  |  788b  |  38 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre --- 
  2. #
  3. # Monopodial skeleton
  4. #
  5. # Here is how to read the formulas on page 56 into
  6. # lparser syntax. The values can be input from page 57,
  7. # the strings colapsed and used.
  8. #
  9. # A = F[ &( a0 ) '( r2 ) !( wr )BL ] >( c ) '( r1 ) !( wr )A
  10. # B = F[ -( a2 ) '( r2 ) !( wr )$CL]        '( r1 ) !( wr )C
  11. # C = F[ +( a2 ) '( r2 ) !( wr )$BL]         '( r1 ) !( wr )B
  12. #
  13. # Tree example b
  14. #
  15. # A=F[&'(.9)!BL]>(137)'(.9)!A
  16. # B=F[-'(.9)!$CL]'(.9)!C
  17. # C=F[+'(.9)!$BL]'(.9)!B
  18. #
  19. # Tree example c
  20. #
  21. # A=F[&'(.8)!BL]>(137)'!(.9)A
  22. # B=F[-'(.8)!(.9)$CL]'!(.9)C
  23. # C=F[+'(.8)!(.9)$BL]'!(.9)B
  24. #
  25. 10
  26. 45
  27. 15
  28. #
  29. FFAL
  30. #
  31. A=F[&'(.8)!BL]>(137)'!(.9)A
  32. B=F[-'(.8)!(.9)$CL]'!(.9)C
  33. C=F[+'(.8)!(.9)$BL]'!(.9)B
  34. #
  35. L=~cc{+(30)f(2)-(120)f(2)-(120)f(2)}
  36. @
  37.  
  38.