home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / flower.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  782 b   |  28 lines
  1. #╔═════════════════╤═══════════════════════════════╗
  2. #║    Flower1.ls   │    (c) C.J. van der Mark      ║
  3. #╟─────────────────┴───────────────────────────────╢
  4. #║      Questions about Lparser files to:          ║
  5. #║        Internet  cvdmark@xs4all.nl              ║
  6. #║           Fido      2:283/203.11                ║
  7. #║           PCG       9:526/464.3                 ║
  8. #╚═════════════════════════════════════════════════╝
  9. 11
  10. 20
  11. 10
  12. q
  13. q=&(30)p^(30)p^(10)p
  14. p=[t(-0.2)!Ft(-0.2)!Ft(-0.2)!FFFo]
  15. o=>y>(60)y>(60)y>(60)y>(60)y>(60)>y
  16. a=[&(10)s]a
  17. y=[a&(125)w]
  18. w=Z[d][h]'^(30)cw
  19. d=[+d{.].x.}
  20. h=[^(5)-h{.].x.}
  21. x=^(5)ggx
  22. s=[c(5)^(60)!'Ft(0.6)ZZt(0.6)?(10)ZZ]
  23. F='(1.3)F'(.77)
  24. f='(1.3)f'(.77)
  25. #g='(1.3)f'(.77)  # uncomment to get weird leafs
  26. ~=_               # uncomment to remove random efx
  27. @
  28.