home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 12 / CD_ASCQ_12_0294.iso / maj / 2328 / dinofly.ls < prev    next >
Text File  |  1993-12-07  |  1KB  |  41 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. 15                    # recursion level
  3. 10                    # basic angle
  4. 200                    # starting thickness
  5. %C                    # axiom
  6. C=%ABLW
  7. #-------------------------------------- Body
  8. B=[[+++''aH]|["+++++g]]
  9. a=Fs+;'a
  10. g=Ft+;'g
  11. s=[------::cc!!!!ZFcccZ]
  12. t=[cc!!!!&&[FFcccZ]^^^^FFcccZ]
  13. #-------------------------------------- Wing
  14. W=['''%[++<<<!!cb][++>>>!!cb]]
  15. b=F!+F+;'b
  16. #-------------------------------------- Head
  17. H=[*+++++++++'''''!!!>>>>>>>>>&&&&&&[???h][???k]%^^[??k]]
  18. k=[Z?Z?Zj]
  19. j=Z[co]!'j
  20. o=&&&&&&&&&!!!!!!!!!!!F
  21. h=[^^lcccc"?Z][^^rcccc"?Z]
  22. l=z!+z!+z!+z
  23. r=z!-z!-z!-z
  24. #-------------------------------------- Legs
  25. L=[%''''''"<<[p]>>>>[p]]
  26. p=+++++++++++mi+++nccc??""FF
  27. m=F+:'m
  28. n=FFF'n
  29. i=;i
  30. #-------------------------------------- Arms
  31. A=[&&&&&&&&&'''''''[uR>>>>>>>>>S]|[qR<<<<<<<<<S]]
  32. u=F+:'u
  33. q=F-:'q
  34. R=;"R
  35. #-------------------------------------- Scorpers
  36. S=['''!!x%^^x]
  37. x=[Z?Z?Zy]
  38. y=Z[co]!'^::y
  39. #-------------------------------------- End
  40. @
  41.