home *** CD-ROM | disk | FTP | other *** search
/ Hackers Magazine 57 / CdHackersMagazineNr57.iso / Software / Multimedia / k3d-setup-0.7.11.0.exe / share / k3d / lsystem / cees-crystal-with-leaves.ls < prev    next >
Text File  |  2008-01-23  |  910b  |  28 lines
  1. #╔═════════════════╤═══════════════════════════════╗
  2. #║  Hangpl1.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. 10
  10. 20
  11. 20
  12. G
  13. G=^(180){[A]+(90)g-(90)>(90)[A]+(90)g-(90)>(90)[A]+(90)g-(90)>(90)[A]}
  14. A=[C][a]
  15. C={[s+(90)Fs+(90)Fs+(90)Fs<(+35)-(120)Fs-(120)Fs][f^(15)+(15)FFss+(150)FFss]}
  16. a={[d]}{[e]}
  17. d=[f+(90)f+(90)f+(90)f<(+35)-(120)f-(120)f][f^(15)+(15)ff+(150)ff]
  18. q=[p][>(90)-(90)g(50).+(90)c(2)?(1)[x]]>(90)-(90)g(100).+(90)[p]
  19. p=sp
  20. s={ij[+Zh]<(90)ij[-Zh]}
  21. i=Z+(5)i
  22. j=Z-(5)j
  23. k=ccZ{[+++l.][++ll.][+lll.][llll.][-lll.][--ll.][---l.]}
  24. h=ZZZt(3.2)$[++[++ZZk]ZZk][--[--ZZk]ZZk]ZZk
  25. x=Z(60)!(0.90)x
  26. l=t!g
  27. @
  28.