home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / DOS / GRAFISCH / RAYTRACE / LPARSER / MUT12.LS < prev    next >
Text File  |  1993-07-14  |  580b  |  32 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre --- 
  2. 15
  3. 10
  4. 60
  5. C
  6. C=%LABHT
  7. B=[[h]!??????zZZZ]
  8. A=[fz&&&&&&&&&"""[pj>>>>>>>>>S]|[qj<<<<<><<<S]]
  9. p=Ft+:'p
  10. q=Ft-:'q
  11. j=;"j
  12. S=['''!!r%^^r]
  13. r=[Z[g]?Z?Zu]
  14. u=Z[co]!'^::u
  15. L=[c">>>>[s]>>>>[s]>>>>[s]>>>[s]>>>>>>[s]>>>[s]>>>>[s]>>>>[s]]
  16. s=+++li+++dccc??""FF
  17. l=Ft+:'Bs
  18. d=ZFF'd
  19. i=;i
  20. H=["">>>>>><>>&&&&&&??FFFF!![???h][???k]%^^[??k]]
  21. k=[Z?Z?Za]
  22. a=Z[co]!'n
  23. o=&&&&&&&&&!!!!!F
  24. h=[^^gcccc"Z][^^ecccc"Z]
  25. g=z!+z!+z!+z
  26. e=z!-z?-z!-z
  27. T=[f-----+---??""""""mccccF]
  28. m=Ft+;'m
  29. t=['::c!!!&&[f<<<n]^^^^f>>>n]
  30. n=[c{--z++z++z--|--z++z++z}]
  31. @
  32.