LSystem Horns;


  define R = 0.96;     · width decrease rate
  define a1 = 4;       · angle
  define a2 = 10.0;    · angle
  define w = 0.8;      · base width

  baseelement = {
   shape = tube;
   smooth = 2;
   contour = "disc 16s.con";
  };
  colorspace = hsb;

  useralphabet = {I,D};
  axiom = @(40,0.3,0.7)"(w)[D(1)]-ffffff+[I(1)];
  lifespan = 50;

  developmentrules = {
    p1 : D(s) : true -> +(a1)/(a2)"(w*s)F(s)D(R*s);
    p2 : I(s) : true -> -(a1)\(a2)"(w*s)F(s)I(R*s);
  };