home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / amiga / modelers / graphtal.lzh / Graphtal.Amiga / Examples / aono.lsys < prev    next >
Encoding:
Text File  |  1992-10-30  |  645 b   |  29 lines
  1. /*
  2.  * Example of the symbodial tree-like structure
  3.  * of Aono and Kunii.
  4.  *
  5.  * The Algorithmic Beauty of Plants, p. 59
  6.  */
  7.  
  8.  
  9. lsystem aonoTree;
  10.  
  11. const r1 = 0.9;   // contraction ratio 1
  12.       r2 = 0.7;   // contraction ratio 2
  13.       a1 = 10;    // branching angle 1
  14.       a2 = 60;    // branching angle 2
  15.       wr = 0.707; // width decrase rate
  16.  
  17. table table1{
  18.   A(l,w) -> wi(w) F(l) [ pt(-a1) B(l*r1, w*wr) ]
  19.             ro(-180) [ pt(-a2) B(l*r2, w*wr) ];    
  20.   B(l,w) -> wi(w) F(l) [ tu(-a1) rv B(l*r1, w*wr) ]
  21.             [ tu(a2) rv B(l*r2, w*wr) ];    
  22. };
  23.  
  24. attributes {
  25.   axiom co("SaddleBrown") A(1,0.1);
  26.   derivation table1(10);
  27.  
  28.   coneres 5;
  29. };