function spirale(rst, xtop,xleft,xdim,ydim,pin,verb,st_anz,dphi,sp_anz) {
/* rst Startlänge in point
   xtop  Abstand von Bildoberkante der linken oberen Bildecke des Unterfensters
   xleft  Abstand von links der linken oberen Bildecke des Unterfensters
   xdim, ydim Größe des Bildfeldes
   pin  dphi = Pi/pin = Neigungswinkel (6 beim hexagramm)
   verb  Verbindungsart "l" = lineto,  "c"= curveto
   st_anz  Anzahl der Strecken für einen Linienzug 
      dphi = Winkelinkrement, um den ein Graph gedreht werden soll und erneut angezeigt
      sp_anz  = Anzahl der Graphenzüge */
        if (document.cookie) {
  var wanf=0;
  var dwink = dphi;
  var wieviel = sp_anz;
   spir_kern (rst, xtop,xleft,xdim,ydim,pin,verb,st_anz,wanf,dwink,wieviel);
                                       }
  }



function spir_kern (rst, xtop,xleft,xdim,ydim,pin,verb,st_anz,winkanf,dwink,nanz) {
  /* Script, mit dem der Graph erzeugt wird  */
       var wink = winkanf;
       var anz=nanz;
    for (ki=0; ki < nanz;  ki++) {
                spir_stroke(rst, xtop,xleft,xdim,ydim,pin,verb,st_anz,wink); 
    wink	 += dwink;
    if (wink > 360 ) {wink = wink - 360;}
     }
    
/*  if (anz > 0) {  
           alert(" In Schleife wink,dwink,anz "+wink+" "+dwink+" "+anz);  
        wastun="spir_kern (" + rst+","+xtop+","+xleft+","+xdim+","+ydim+"," +
                   pin+",'"+verb+"',"+st_anz+","+ wink + "," + dwink + "," + anz + ")";
       alert ("wastun="+wastun);
       windows.setTimeout(wastun,200);
     window.setTimeout("spir_kern (" + rst+","+xtop+","+xleft+","+xdim+","+ydim+","+
                  pin+",'"+verb+"',"+st_anz+","+ wink + "," + dwink + "," + anz + ")",200);  
               }
    else        {
          alert(" In Schleif Ende wink,dwink,anz "+wink+" "+dwink+" "+anz); 
               spir_stroke(rst, xtop,xleft,xdim,ydim,pin,verb,st_anz,wink); 
                  }   */
}

function spir_stroke(rst, xtop,xleft,xdim,ydim,pin,verb,st_anz,rot) {
/* rst Startlänge in point
   xtop  Abstand von Bildoberkante der linken oberen Bildecke des Unterfensters
   xleft  Abstand von links der linken oberen Bildecke des Unterfensters
   xdim, ydim Größe des Bildfeldes
   pin  dphi = Pi/pin = Neigungswinkel (6 beim hexagramm)
   verb  Verbindungsart l = lineto,  c= curveto
   st_anz  Anzahl der Strecken 
   rot   Winkel der Bilddrehung (+ Uhrzeigerrichtung) 
          Bild Koordinaten für Definition fest:  Ursprung -100/-100  Koordinatenbereich  600/600 
          Startpunt des Graphen  xs/ys = 300/300  */

var dphi=pin;
if(dphi == 0) {dphi=Math.PI / 6;}
var zeil1="<v:shape style=' position: absolute; top: "+xtop+"; left:"+xleft+"; width: "+xdim+"; height: "+ydim+"; rotation: "+rot+"' ";
xdim2=600;
var ydim2 =600;
var zeil2="stroke=\"true\" strokecolor=\"red\" strokeweight=\"1\"  fill=\"true\" fillcolor=\"#229988\" ";
var zeil21="coordorigin=\"-100 -100\" coordsize=\" " +xdim2+" "+ydim2 +" \" >";
var xg=0;
var yg=0;
var xs=xdim/2;
var ys=ydim/2 + rst;
var wu3=Math.sqrt(3);
var s=rst/wu3;
var phi=0;
var x=xs-s;
  xg = Math.round(x);
var y=ys;
  yg = Math.round(y);

var zeil22=" <v:fill  color2=\"#f8a848\" focus=\"100%\" type=\"gradient\"/> ";
var zeil3="<v:path   v=\"m "+ xs+","+ys+" "+verb+" "+ xg+","+yg;

/*  var zeilstr=" 227,263, 219,250, 219,232, 229,214, 250,203 "; */

var zeilstr=" ";
for (i=0; i < st_anz; i++) {
  phi = phi +dphi;
  s = s *  2/wu3;
  x = x - s * Math.cos(phi);
  xg = Math.round(x);
  y = y - s * Math.sin(phi);
  yg = Math.round(y);
var zeilstr=zeilstr + " "+xg+","+yg;
/*  var zeilstr=zeilstr + " , "+xg+","+yg;  mit Komma gibt es wildes Bild */
  }  
var zeilend="x e \"/>  </v:shape> ";

 /*  alert(zeil1);
alert(zeil2);
alert(zeil21);
alert(zeil3);
alert(zeilstr); 
alert(zeilend);  */

/*  <v:shape style='top:  0; left: 0; width: 400; height: 400; rotation: -20'
    stroke="true" strokecolor="red" strokeweight="5" 
    fill="true" fillcolor="#229988"
    coordorigin="0 0" coordsize="200 200">
    <v:fill  color2="#f8a848" focus="100%" type="gradient"/>
  <v:path v="m 15,15  l 15,80, 40,80, 80,200, 200,150, 70,100 x e"/>
 </v:shape>   */

   document.write(zeil1);
   document.write(zeil2);
   document.write(zeil21);
   document.write(zeil22);
   document.write(zeil3);
   document.write(zeilstr); 
   document.write(zeilend);


   }