home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / utility / dos / lparse / airhorse.ls next >
Encoding:
Text File  |  1993-07-14  |  904 b   |  37 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre --- 
  2. 15                    # recursion level
  3. 10                    # basic angle
  4. 100                    # starting thickness
  5. C                    # axiom
  6. .-------------------------------------- Creature
  7. C=LBW
  8. .-------------------------------------- Body
  9. B=[[''aH]|[g]]
  10. a=Fs+;'a                 # upper part
  11. g=Ft+;'g                # lower part
  12. s=[::cc!!!!&&[FFcccZ]^^^^FFcccZ]    # upper spikes
  13. t=[c!!!!&[FF]^^FF]            # lower spikes
  14. .-------------------------------------- Lungs
  15. L=O                    # 8 recursions delay
  16. O=P
  17. P=Q
  18. Q=R
  19. R=U
  20. U=X
  21. X=Y
  22. Y=V
  23. V=[cc!!!&&&&&&&&&[Zp]|[Zp]]
  24. p=h>>>>>>>>>>>>h>>>>>>>>>>>>h
  25. h=[++++!F'''p]
  26. .-------------------------------------- Head
  27. H=[cccci[>>>>>dcFFF][<<<<<ecFFF]]
  28. d=Z!&Z!&:'d                # left
  29. e=Z!^Z!^:'e                # right
  30. i=-:"i
  31. .-------------------------------------- Wing
  32. W=[%[!!cb][<<<!!cb][>>>!!cb]]
  33. b=Fl!+Fl+;'b                # arc
  34. l=[-cc{--z++z++z--|--z++z++z}]
  35. .-------------------------------------- End
  36. @
  37.