/********************************************************************
Schnecke
Plugin für Cinema 4D Version 5
(c) Jürgen Meier (www.3d-meier.de)
Version : 1.01
11.02.2004
*********************************************************************/


Function(doc)
{
// Variablen deklarieren
   var i,j,     // Indizes für die Schleifen
   zz,          // Zähler
   h,           // Hilfsvariable für die Berechnung
   u,           // Parameter für die Fläche
   v,           // Parameter für die Fläche
   du,          // Segmentbreite u
   dv,          // Segmentbreite v
   uMin,        // Definitionsbereich u
   vMax,vMin,   // Definitionsbereich v
   x,           // x Koordinate eines Punktes
   y,           // y Koordinate eines Punktes
   z,           // z Koordinate eines Punktes
   SP,          // Anzahl Punkte des Polygonobjektes
   SK,          // Anzahl Kanten des Polygonobjektes
   SD,          // Anzahl Dreiecke des Polygonobjektes
   SQ,          // Anzahl Quadrate des Polygonobjektes
   P1,P2,P3,P4; // Punkte für ein Quadrat


// Eingabe der Variablen
   var d = new(SimpleDialog);

   d->SetTitle("Schnecke");
   d->SetData(0,"Konstante a",FIELD_FLOAT,0,1000,2.0);
   d->SetData(1,"Konstante b",FIELD_FLOAT,0,1000,3.0);
   d->SetData(2,"u-Max",FIELD_FLOAT,0,1000,6*PI);
   d->SetData(3,"Skalierungsfaktor",FIELD_FLOAT,1,10000,50);
   d->SetData(4,"Nu",FIELD_INTEGER,1,1000,50);
   d->SetData(5,"Nv",FIELD_INTEGER,1,1000,25);

   if (!d->DoDialog()) return FALSE;
   var a=(d->GetData(0));               // Konstante a
   var b=(d->GetData(1));               // Konstante b
   var uMax=(d->GetData(2));            // Bereich u
   var f=(d->GetData(3));               // Skalierungsfaktor
   var Nu=(d->GetData(4));              // Anzahl Unterteilungen u
   var Nv=(d->GetData(5));              // Anzahl Unterteilungen v


// Definitionsbereiche festlegen
   uMin=0.0;
   vMin=0.0;
   vMax=2*PI;


// Segmentbreiten berechnen
   du=(uMax-uMin)/Nu;
   dv=(vMax-vMin)/Nv;


// Parameter des Polygonobjektes berechnen
   // Anzahl Punkte des Polygonobjektes
      SP=Nu*Nv+1;
   // Anzahl Kanten des Polygonobjektes
      SK=2*Nu*Nv;
   // Anzahl Dreiecke des Polygonobjektes
      SD=Nv;
   // Anzahl Quadrate des Polygonobjektes
      SQ=(Nu-1)*Nv;


// Polygonobjekt erzeugen
   var M=doc->NewPolygonObject("Schnecke",NULL,NULL,SP,SK,SD,SQ);


// Punkte des Polygonobjektes berechnen

/********************************************************************
   ANORDNUNG DER PUNKTE
   Beispiel :  Nu=8    Nv=6

            8  42 - 43 - 44 - 45 - 46 - 47 -
                |    |    |    |    |    |
            7  36 - 37 - 38 - 39 - 40 - 41 -
                |    |    |    |    |    |
            6  30 - 31 - 32 - 33 - 34 - 35 -
                |    |    |    |    |    |
            5  24 - 25 - 26 - 27 - 28 - 29 -
         ^      |    |    |    |    |    |
      Nu |  4  18 - 19 - 20 - 21 - 22 - 23 -
         i      |    |    |    |    |    |
            3  12 - 13 - 14 - 15 - 16 - 17 -
                |    |    |    |    |    |
            2  06 - 07 - 08 - 09 - 10 - 11 -
                |    |    |    |    |    |
            1  00 - 01 - 02 - 03 - 04 - 05 -
                \    \    \   /    /    /
                           48

                0    1    2    3    4    5
                              j->
                               Nv
********************************************************************/

   // Zähler zurücksetzen
      zz=0;
   // Parameterbereich durchlaufen
      for (i=1;i<=Nu;i++)

      {
          for (j=0;j<Nv;j++)
          {
          // Berechnung der Parameter
             u=uMin+i*du;
             v=vMin+j*dv;
          // Berechnung der Koordinaten
             h=exp(u/(6*PI));
             x=(a*(1-h)*cos(u)*cos(0.5*v)* cos(0.5*v))*f;
             y=(1-exp(u/(b*PI))-sin(v)+h*sin(v))*f;
             z=(a*(-1+h)*sin(u)*cos(0.5*v)* cos(0.5*v))*f;
          // Punkt speichern
             M->SetPoint(zz,vector(x,y,z));
          // Zähler erhöhen
             zz=zz+1;
          }
      }
      // Letzten Punkt an der Spitze setzen bei v=0 und u=0
         // Berechnung der Koordinaten
            x=0;
            y=0;
            z=0;
         // Punkt speichern
            M->SetPoint(zz,vector(x,y,z));


// Linien setzen
   // Zähler zurücksetzen
      zz=0;
   // Linien längs
      for (j=0;j<Nv;j++)
      {
          // Erste Linie vom Endpunkt
             // Linie speichern
                M->SetEdge(zz,Nu*Nv,j);
             // Zähler erhöhen
                zz=zz+1;
          // Schleife
             for (i=1;i<Nu;i++)
             {
                 // Linie speichern
                    M->SetEdge(zz,(i-1)*Nv+j,i*Nv+j);
                 // Zähler erhöhen
                    zz=zz+1;
             }
      }


   // Querlinien setzen
      for (i=1;i<=Nu;i++)
      {
          for (j=0;j<Nv-1;j++)
          {
              // Linien speichern
                 M->SetEdge(zz,(i-1)*Nv+j,(i-1)*Nv+j+1);
              // Zähler erhöhen
                 zz=zz+1;
          }
          // Letzte Linie setzen (Kreis schließen)
             // Linien speichern
                M->SetEdge(zz,i*Nv-1,(i-1)*Nv);
             // Zähler erhöhen
                zz=zz+1;
      }


// Dreiecke setzen
   // Zähler zurücksetzen
      zz=0;
   // Schleife
      for (j=0;j<Nv-1;j++)
      {
          // Punkte für ein Dreieck definieren
             P1=j;
             P2=Nu*Nv;
             P3=j+1;
          // Dreieck speichern
             M->SetTriangle(zz,P1,P2,P3);
          // Zähler erhöhen
             zz=zz+1;
      }
   // Letztes Dreieck setzen
      // Punkte für ein Dreieck definieren
         P1=Nv-1;
         P2=Nu*Nv;
         P3=0;
      // Dreieck speichern
         M->SetTriangle(zz,P1,P2,P3);


// Quadrate setzen
   // Zähler zurücksetzen
      zz=0;
   // Schleife
      for (i=1;i<Nu;i++) 
      {
          for (j=0;j<Nv-1;j++)
          {
              // Punkte für ein Quadrat definieren
                 P1=(i-1)*Nv+j;
                 P2=i*Nv+j;
                 P3=i*Nv+j+1;
                 P4=(i-1)*Nv+j+1;
              // Quadrat speichern
                 M->SetQuadrangle(zz,P1,P2,P3,P4);
              // Zähler erhöhen
                 zz=zz+1;
          }
          // Letztes Quadrat setzen
             // Punkte für ein Quadrat definieren
                P1=i*Nv-1;
                P2=(i+1)*Nv-1;
                P3=i*Nv;
                P4=(i-1)*Nv;
             // Quadrat speichern
                M->SetQuadrangle(zz,P1,P2,P3,P4);
             // Zähler erhöhen
                zz=zz+1;
      }


// Update
   M->UpdateObject();


// Objekt aktivieren
   doc->ActivateObject(M);


// Refresh
   doc->SendMessage(DOCUMENT_CHANGED);

}

main()
{
RegisterMenuHook("Schnecke","Function");
}