home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / graphuti / lparser2.zip / BOP01.LS < prev    next >
Text File  |  1993-07-14  |  294b  |  14 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre --- 
  2. 5    # recursion depth
  3. 18    # angle
  4. 50    # thickness as % of length
  5. p
  6. p=i++[p+o]--->>[--l]i[++l]--[po]+++po
  7. i=Fs[>>&&l][>>^^l]Fs
  8. s=sFs
  9. l=[c{++f--ff--f++|++f--ff--f}]
  10. o=[&!ce>w>>>>w>>>>w>>>>w>>>>w]
  11. e=FF
  12. w=[c^!F][cc&&&&{---f+++f|---f+++f}]
  13. @
  14.