/********************************************************************
Cornucopia
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
   u,           // Parameter für die Fläche
   v,           // Parameter für die Fläche
   du,          // Segmentbreite u
   dv,          // Segmentbreite 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
   SQ,          // Anzahl Quadrate des Polygonobjektes
   P1,P2,P3,P4; // Punkte für ein Quadrat


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

   d->SetTitle("Cornucopia");
   d->SetData(0,"Konstante a",FIELD_FLOAT,0,100,1);
   d->SetData(1,"Konstante b",FIELD_FLOAT,0,100,1);
   d->SetData(2,"u-Min",FIELD_FLOAT,-1000,1000,-PI);
   d->SetData(3,"u-Max",FIELD_FLOAT,-1000,1000,PI);
   d->SetData(4,"v-Min",FIELD_FLOAT,-1000,1000,0);
   d->SetData(5,"v-Max",FIELD_FLOAT,-1000,1000,2*PI);
   d->SetData(6,"Skalierungsfaktor",FIELD_FLOAT,0,10000,0.5);
   d->SetData(7,"Nu",FIELD_INTEGER,1,1000,40);
   d->SetData(8,"Nv",FIELD_INTEGER,1,1000,80);

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


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


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


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


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

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


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


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


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


// Update
   M->UpdateObject();


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


// Refresh
   doc->SendMessage(DOCUMENT_CHANGED);

}

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