Lsystem FlatPhyllotaxis;



  define d = 0.98;   · spacing between elements
  define N = 300;    · number of elements in the inflorescence
  define N0 = 50;    · size of central hole

  colorspace = hsb;
  angle = fibangle;
  baseelement = {
    shape = quad;
  };

  useralphabet = {A,B};
  lifespan = N+1;

  axiom = A(N0);
  developmentrules = {
    p1: A(n) : true -> @(30,1,n/N)+[f(d*sqrt(n))B]A(n+1);
    p2: B    : true -> [F];
  };