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