home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / raytrace / rayshade / graphtal.lzh / Graphtal.Amiga / Examples / treecone.anim.lsys < prev    next >
Encoding:
Text File  |  1992-10-30  |  835 b   |  53 lines
  1. lsystem Tree;
  2.  
  3. const zOffset = 200/numberOfFrames*iter;
  4.  
  5. hull Cone {
  6.   cone  80   0 0 500
  7.         0.2  0 0 100
  8.     translate 0 0 zOffset
  9. };
  10.  
  11. table Tree 
  12. {
  13.   const d1 = 180.5;
  14.         d2 = 252.5;
  15.         a  = 36.0;
  16.         lr = 1.070;
  17.         vr = 1.732; 
  18.  
  19.    A(n) : n < 4 ->  wi(vr) F(50) 
  20.                     [ pt(a) F(50) A(n+1) ] ro(-d1)
  21.                     [ pt(a) F(50) A(n+1) ] ro(-d2)
  22.                     [ pt(a) F(50) A(n+1) ];
  23.    A(n) : n >= 4 -> dh wi(vr) F(50) 
  24.                     [ pt(a) F(50) A(n+1) ] ro(-d1)
  25.                     [ pt(a) F(50) A(n+1) ] ro(-d2)
  26.                     [ pt(a) F(50) A(n+1) ];
  27.    F(l)  -> F(l*lr);
  28.    wi(w) -> wi(w*vr); 
  29. };
  30.  
  31. attributes {
  32.   axiom co("SandyBrown")
  33.         wi(1) F(200) ro(-45) ah("Cone") A(1);
  34.   derivation Tree(6);
  35.  
  36.   eye     1500, 0, 400;
  37.   lookat  300, 0, 400;
  38. };
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.