home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / graphuti / lparser2.zip / AIRHORSE.LS next >
Text File  |  1993-10-08  |  904b  |  37 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre --- 
  2. 15                    # recursion level
  3. 10                    # basic angle
  4. 150                    # 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.