home *** CD-ROM | disk | FTP | other *** search
/ PCNET 2006 October - Disc 2 / PCNET_CD_2006_10_2.iso / apps / k3d-all-in-one-setup-0.5.14.0.exe / k3d-setup-0.5.14.0.exe / share / lsystem / abop-monopodial-tree2.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  370 b   |  18 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. #
  3. # Elaboration of example d on page 56
  4. # with double the amount of branches
  5. #
  6. 10
  7. 30
  8. 20
  9. #
  10. c(12)FAL
  11. #
  12. A=F[&'(.7)!BL]>(137)[&'(.6)!BL]>(137)'(.9)!(.9)A
  13. B=F[-'(.7)!(.9)$CL]'(.9)!(.9)C
  14. C=F[+'(.7)!(.9)$BL]'(.9)!(.9)B
  15. #
  16. L=~c(8){+(45)f(10)-(45)f(20)-(45)f(10)+(45)|+(45)f(10)-(45)f(20)-(45)f(10)}
  17. @
  18.