home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / utility / dos / lparse / spider.ls < prev    next >
Encoding:
Text File  |  1993-07-14  |  1.2 KB  |  40 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre --- 
  2. 15                    # recursion level
  3. 10                    # basic angle
  4. 40                    # starting thickness
  5. C                    # axiom
  6. .-------------------------------------- Creature
  7. C=%LABHT
  8. .-------------------------------------- Body
  9. B=[???????zZZZ]
  10. .-------------------------------------- Arms
  11. A=[zf&&&&&&&&&"""[pj>>>>>>>>>S]|[qj<<<<<<<<<S]]
  12. p=Ft+:'p                # left
  13. q=Ft-:'q                # right
  14. j=;"j
  15. .-------------------------------------- Scorpers
  16. S=['''!!r%^^r]
  17. r=[Z?Z?Zu]                # jaw assembly
  18. u=Z[co]!'^::u                # jaw and tooth    
  19. .-------------------------------------- Legs
  20. L=[c">>>>[s]>>>>[s]>>>>[s]>>>[s]>>>>>>[s]>>>[s]>>>>[s]>>>>[s]]
  21. s=+++li+++dccc??""FF            # down legs
  22. l=Ft+:'l                # upper leg
  23. d=FFF'd                    # lower leg
  24. i=;i
  25. .-------------------------------------- Head
  26. H=["">>>>>>>>>&&&&&&??FFFF!![???h][???k]%^^[??k]]
  27. k=[Z?Z?Za]                # jaw assembly
  28. a=Z[co]!'a                # jaw    
  29. o=&&&&&&&&&!!!!!F            # teeth
  30. h=[^^gcccc"Z][^^ecccc"Z]        # eyes
  31. g=z!+z!+z!+z                # left eye
  32. e=z!-z!-z!-z                # right eye
  33. .-------------------------------------- Tail
  34. T=[f---------??""""""mccccF]
  35. m=Ft+;'m                # curl
  36. t=['::c!!!&&[f<<<n]^^^^f>>>n]        # spikes
  37. n=[c{--z++z++z--|--z++z++z}]        # leaf
  38. .-------------------------------------- End
  39. @
  40.