LSystem Seashell;

  
  define R = 1.035;  · width decrease rate
  define a1 = 16;    · angle
  define a2 = 4.2;   · angle
  define w = 4;      · initial width

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

  useralphabet = {A};
  axiom = @(30,0.6,0.85)"(w)A(1);
  lifespan = 80;

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