home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / tema / genesis / download / data1.cab / Support / Plants / midBirch.ls < prev    next >
Text File  |  2001-02-26  |  386b  |  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. 9
  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(15)-(45)f(30)-(45)f(30)+(45)|+(45)f(15)-(45)f(30)-(45)f(15)}
  17. @
  18.