/******************************************************************** Borromean Rings Plugin für Cinema Version 8.0 (c) Jürgen Meier (Juergen-Meier@Hamburg.de) Version : 1.01 12.10.2003 *********************************************************************/ // Globale Variablen und Konstanten // Plugin ID Nummer const var cPluginID = 1012474; // Pluginname const var cPlugName = "Borromean Rings"; // Pluginhilfstext const var cPlugHelp = "Erzeugt die Borromean Rings"; // Objektname const var cObjName = "Borromean Ring"; // Index var i; // Koordinaten der Punkte var x,y,z; // Konstanten var r; // Parameter var t,dt; // Anzahl Iterationen var N=200; // Skalierungsfaktor var Faktor=50; // Breite des Menütextes var Breite=150; // Maximalwerte var cMaxFloat=1000000; var cMaxInt=100000000; // Objektvariable var qObj; // Dialogvariable var gDial; // ****************************************************************** // Funktion zum Objekt aktivieren (c) h.g.seib // ****************************************************************** fSetActiveObject(vDoc,vObj) { // Aktives Objekt ermitteln var vAObj = GetActiveObject(vDoc); // Active object Bit bzw. Flag setzen if (vAObj) vAObj->DelBit(BIT_AOBJ); vObj->SetBit(BIT_AOBJ); // Änderung im Dokument bekanngeben (neues Objekt selektiert) GeEventAdd(NEW_ACTIVE_OBJECT); } // ****************************************************************** // Funktion zur Berechnung des 1. Rings fRing1(vDoc) { // Variablen deklarieren // Felder für die Punkte des Splines var vPointAry; // Variable für VariableChanged und BackupTag deklarieren var vVarChanged,vBackupTags; // Neues Splineobjekt erzeugen und Namen zuweisen qObj=new(SplineObject); if (!qObj) return FALSE; qObj->SetName(cObjName+" 1"); // Undo Funktion aktivieren vDoc->StartUndo(); vDoc->AddUndo(UNDO_OBJECT_NEW,qObj); vDoc->EndUndo(); // Variable für VariableChanged und BackupTag erzeugen vVarChanged = new(VariableChanged); vBackupTags = new(BackupTags); // Feld für die Punkte erzeugen vPointAry = new(array,N); // Feld für die Punkte dem Splineobjekt zuordnen qObj->SetPoints(vPointAry); // ??? vBackupTags->Init(qObj); vVarChanged->Init(0,N); // Message der Klasse BaseList2D if (!qObj->Message(MSG_POINTS_CHANGED, vVarChanged)) { vBackupTags->Restore(); return FALSE; } // Objekt in der Dokumenthierarchie positionieren vDoc->InsertObject(qObj,NULL,NULL); fSetActiveObject(vDoc,qObj); GeEventAdd(DOCUMENT_CHANGED); // Variable für den Container (Klasse BaseContainer) var vContainer = qObj->GetContainer(); // Spline Typ festlegen vContainer->SetData(SPLINEOBJECT_TYPE,3); vContainer->SetData(SPLINEOBJECT_CLOSED,TRUE); // Containerdaten dem Spline Objekt zurückgeben qObj->SetContainer(vContainer); // Punkte des Rings berechnen // Startwerte dt=2*PI/N; t=0; r=sqrt(3)/3; // Schleife durchlaufen for (i=0;iSetPoint(i,vector(x*Faktor,z*Faktor,y*Faktor)); } return TRUE; } // ****************************************************************** // Funktion zur Berechnung des 2. Rings fRing2(vDoc) { // Variablen deklarieren // Felder für die Punkte des Splines var vPointAry; // Variable für VariableChanged und BackupTag deklarieren var vVarChanged,vBackupTags; // Neues Splineobjekt erzeugen und Namen zuweisen qObj=new(SplineObject); if (!qObj) return FALSE; qObj->SetName(cObjName+" 2"); // Undo Funktion aktivieren vDoc->StartUndo(); vDoc->AddUndo(UNDO_OBJECT_NEW,qObj); vDoc->EndUndo(); // Variable für VariableChanged und BackupTag erzeugen vVarChanged = new(VariableChanged); vBackupTags = new(BackupTags); // Feld für die Punkte erzeugen vPointAry = new(array,N); // Feld für die Punkte dem Splineobjekt zuordnen qObj->SetPoints(vPointAry); // ??? vBackupTags->Init(qObj); vVarChanged->Init(0,N); // Message der Klasse BaseList2D if (!qObj->Message(MSG_POINTS_CHANGED, vVarChanged)) { vBackupTags->Restore(); return FALSE; } // Objekt in der Dokumenthierarchie positionieren vDoc->InsertObject(qObj,NULL,NULL); fSetActiveObject(vDoc,qObj); GeEventAdd(DOCUMENT_CHANGED); // Variable für den Container (Klasse BaseContainer) var vContainer = qObj->GetContainer(); // Spline Typ festlegen vContainer->SetData(SPLINEOBJECT_TYPE,3); vContainer->SetData(SPLINEOBJECT_CLOSED,TRUE); // Containerdaten dem Spline Objekt zurückgeben qObj->SetContainer(vContainer); // Punkte des Rings berechnen // Startwerte dt=2*PI/N; t=0; r=sqrt(3)/3; // Schleife durchlaufen for (i=0;iSetPoint(i,vector(x*Faktor,z*Faktor,y*Faktor)); } return TRUE; } // ****************************************************************** // Funktion zur Berechnung des 3. Rings fRing3(vDoc) { // Variablen deklarieren // Felder für die Punkte des Splines var vPointAry; // Variable für VariableChanged und BackupTag deklarieren var vVarChanged,vBackupTags; // Neues Splineobjekt erzeugen und Namen zuweisen qObj=new(SplineObject); if (!qObj) return FALSE; qObj->SetName(cObjName+" 3"); // Undo Funktion aktivieren vDoc->StartUndo(); vDoc->AddUndo(UNDO_OBJECT_NEW,qObj); vDoc->EndUndo(); // Variable für VariableChanged und BackupTag erzeugen vVarChanged = new(VariableChanged); vBackupTags = new(BackupTags); // Feld für die Punkte erzeugen vPointAry = new(array,N); // Feld für die Punkte dem Splineobjekt zuordnen qObj->SetPoints(vPointAry); // ??? vBackupTags->Init(qObj); vVarChanged->Init(0,N); // Message der Klasse BaseList2D if (!qObj->Message(MSG_POINTS_CHANGED, vVarChanged)) { vBackupTags->Restore(); return FALSE; } // Objekt in der Dokumenthierarchie positionieren vDoc->InsertObject(qObj,NULL,NULL); fSetActiveObject(vDoc,qObj); GeEventAdd(DOCUMENT_CHANGED); // Variable für den Container (Klasse BaseContainer) var vContainer = qObj->GetContainer(); // Spline Typ festlegen vContainer->SetData(SPLINEOBJECT_TYPE,3); vContainer->SetData(SPLINEOBJECT_CLOSED,TRUE); // Containerdaten dem Spline Objekt zurückgeben qObj->SetContainer(vContainer); // Punkte des Rings berechnen // Startwerte dt=2*PI/N; t=0; r=sqrt(3)/3; // Schleife durchlaufen for (i=0;iSetPoint(i,vector(x*Faktor,z*Faktor,y*Faktor)); } return TRUE; } // ****************************************************************** // Ableitung der Klasse MyDialog von GeDialog // ****************************************************************** class MyDialog : GeDialog { public: MyDialog(); CreateLayout(); Init(); CoreMessage(vID,vMSG); Command(vID,vMSG); } // ****************************************************************** // Deklaration des Konstruktors MyDialog::MyDialog() { // Konstruktor der parent class aufrufen super(cPluginID); } // ****************************************************************** // Deklaration der Methode CreateLayout MyDialog::CreateLayout() { // Plugintitel setzen SetTitle(cPlugName); // Gruppe für die Parameter der Iteration AddGroupBeginV(1002,BFH_CENTER,2,"",0); { AddStaticText(0,BFH_LEFT,Breite,0," Anzahl N",0); AddEditNumber(2001,BFH_LEFT,150,0); AddStaticText(0,BFH_LEFT,Breite,0," Faktor",0); AddEditNumber(2002,BFH_LEFT,150,0); } // Vertikal orientierte Gruppe schliessen AddGroupEnd(); // Waagerechte Trennlinie AddSeparatorH(0); // Button für den Start der Berechnung AddButton (3000,BFH_CENTER,200,0,"Start"); return TRUE; } // ****************************************************************** // Deklaration der Methode Init MyDialog::Init() { // Startwerte setzen SetInt(2001,N,0,cMaxInt,0); SetInt(2002,Faktor,0,cMaxInt,0); return TRUE; } // ****************************************************************** // Deklaration der Methode CoreMessage MyDialog::CoreMessage(vID,vMSG) { switch (vID) { case NEW_DOCUMENT: case DOCUMENT_CHANGED: case NEW_ACTIVE_OBJECT: case ACTIVE_OBJECT_CHANGED: return TRUE; break; } return FALSE; } // ****************************************************************** // Deklaration der Methode Command MyDialog::Command(vID,vMSG) { var vDoc; // StopAllThreads(); switch (vID) { case 3000 : // Start Button gedrückt { vDoc = GetActiveDocument(); if (!vDoc) return FALSE; fRing3(vDoc); fRing2(vDoc); fRing1(vDoc); } case 2001 : N=GetInt(2001); case 2002 : Faktor=GetInt(2002); } return TRUE; } // ****************************************************************** // Ableitung der Klasse MyMenuPlugin von MenuPlugin // ****************************************************************** class MyMenuPlugin : MenuPlugin { public: MyMenuPlugin(); GetID(); GetName(); GetHelp(); Execute(doc); RestoreLayout(secret); } // ****************************************************************** // Deklaration des Konstruktors MyMenuPlugin::MyMenuPlugin() { super(); } // ****************************************************************** // Deklaration der Methode GetID MyMenuPlugin::GetID() { return cPluginID; } // ****************************************************************** // Deklaration der Methode GetName MyMenuPlugin::GetName() { return cPlugName; } // ****************************************************************** // Deklaration der Methode GetHelp MyMenuPlugin::GetHelp() { return cPlugHelp; } // ****************************************************************** // Deklaration der Methode Execute MyMenuPlugin::Execute(doc) { if (!gDial) gDial=new(MyDialog); gDial->Open(TRUE,-1,-1); } // ****************************************************************** // Deklaration der Methode RestoreLayout MyMenuPlugin::RestoreLayout(secret) { if (!gDial) gDial=new(MyDialog); gDial->RestoreLayout(secret); } // ****************************************************************** main() { Register(MyMenuPlugin); }