home *** CD-ROM | disk | FTP | other *** search
/ Hackers Magazine 57 / CdHackersMagazineNr57.iso / Software / Multimedia / k3d-setup-0.7.11.0.exe / share / k3d / lsystem / abop-monopodial-tree.ls < prev    next >
Text File  |  2008-01-23  |  591b  |  25 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. #
  3. # Monopodial skeleton
  4. #
  5. # Here is how to read the formulas on page 56 into
  6. # lparser syntax. The values can be input from page 57,
  7. # the strings colapsed and used.
  8. #
  9. # A = F[ &( a0 ) '( r2 ) !( wr ) BL  ] >( c ) '( r1 ) !( wr ) A
  10. # B = F[ -( a2 ) '( r2 ) !( wr ) $CL ]        '( r1 ) !( wr ) C
  11. # C = F[ +( a2 ) '( r2 ) !( wr ) $BL ]        '( r1 ) !( wr ) B
  12. #
  13. 10
  14. 45
  15. 15
  16. #
  17. c(12)FFAL
  18. #
  19. A=F[&'(.8)!BL]>(137)'!(.9)A
  20. B=F[-'(.8)!(.9)$CL]'!(.9)C
  21. C=F[+'(.8)!(.9)$BL]'!(.9)B
  22. #
  23. L=~c(8){+(30)f(20)-(120)f(20)-(120)f(20)}
  24. @
  25.