*** empty log message ***

svn path=/trunk/externals/nusmuk/; revision=5415

2 files changed, 70 insertions, 45 deletions

diff --git a/msd.h b/msd.h
index 6c43960..6a26b45 100644
--- a/msd.h
+++ b/msd.h
@@ -12,7 +12,7 @@
  Based on Pure Data by Miller Puckette and others
  Based on pmpd by Cyrille Henry 
 
- Contact : Nicolas Montgermont, montgermont@la-kitchen.fr
+ Contact : Nicolas Montgermont, nicolas@basseslumieres.org
 	   Cyrille Henry, Cyrille.Henry@la-kitchen.fr
 
  This library is free software; you can redistribute it and/or
@@ -29,7 +29,7 @@
  License along with this library; if not, write to the Free Software
  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
- Version 0.07 -- 17.05.2005
+ Version 0.08 -- 26.07.2006
 */
 
 // include flext header
@@ -167,32 +167,35 @@ public:
 	t_float distance_old;
 	t_float puissance;
 	t_int oriented; //0 : no, 1 : tangential, 2 : normal
-	t_float tdirection1[3], tdirection2[3];
+	t_float tdirection1[N], tdirection2[N];
 	
-	Link(t_int n,const t_symbol *id,Mass<N> *m1,Mass<N> *m2,t_float k1,t_float d1, t_int o=0, t_float xa=0, t_float ya=0, t_float za=0,t_float pow=1, t_float lmin = 0,t_float lmax = 1e10)
+	Link(t_int n,const t_symbol *id,Mass<N> *m1,Mass<N> *m2,t_float k1,t_float d1, t_int o=0, t_float tangent[N]=NULL,t_float pow=1, t_float lmin = 0,t_float lmax = 1e10)
 		: nbr(n),Id(id)
 		, mass1(m1),mass2(m2)
 		, K1(k1),D1(d1),D2(0),oriented(o),puissance(pow)
 		, long_min(lmin),long_max(lmax)
 	{
-		for (int i=0; i<3; i++)	{
+		for (int i=0; i<N; i++)	{
 			tdirection1[i] = 0;
 			tdirection2[i] = 0;
 			}
 		if (oriented == 0)
 			distance_old = longueur = Mass<N>::dist(*mass1,*mass2); // L[n-1]
 		else if (oriented == 1)	{			// TANGENTIAL LINK
-			const t_float norme = sqrt(sqr(xa)+sqr(ya)+sqr(za));
-			tdirection1[0] = xa/norme;
-			tdirection1[1] = ya/norme;
-			tdirection1[2] = za/norme;
+			t_float norme = 0;
+			for(int i = 0; i < N; ++i) norme += sqr(tangent[i]);
+			norme = sqrt(norme);
+			//t_float norme = sqrt(sqr(xa)+sqr(ya)+sqr(za));
+			for(int i = 0; i < N; ++i)tdirection1[i] = tangent[i]/norme;
+			//tdirection1[1] = ya/norme;
+			//tdirection1[2] = za/norme;
 			distance_old = 0;
 			for(int i = 0; i < N; ++i)	
 				distance_old += sqr((m1->pos[i]-m2->pos[i])*tdirection1[i]);
 			distance_old  = sqrt(distance_old);
 			longueur = distance_old;
 		}
-		else if (oriented == 2)	{			// NORMAL LINK 2D
+		/*else if (oriented == 2)	{			// NORMAL LINK 2D
 			if (N >= 2)	{
 				const t_float norme = sqrt(sqr(xa)+sqr(ya));
 				tdirection1[0]=ya/norme;
@@ -222,7 +225,7 @@ public:
 				distance_old  = sqrt(distance_old);
 				longueur = distance_old;			
 			}
-		}	
+		}*/	
 		mass1->links.insert(this);
 		mass2->links.insert(this);
 	}
@@ -746,7 +749,7 @@ protected:
 						it1.data(),it.data(), // pointer to mass1, mass2
 						GetAFloat(argv[3]), // K1
 						GetAFloat(argv[4]), // D1
-						0,0,0,0,
+						0,NULL,
 						argc >= 6?GetFloat(argv[5]):1, // power
 						argc >= 7?GetFloat(argv[6]):0,
 						argc >= 8?GetFloat(argv[7]):1e10
@@ -768,7 +771,7 @@ protected:
 					mass1,it.data(), // pointer to mass1, mass2
 					GetAFloat(argv[3]), // K1
 					GetAFloat(argv[4]), // D1
-					0,0,0,0,
+					0,NULL,
 					argc >= 6?GetFloat(argv[5]):1, // power
 					argc >= 7?GetFloat(argv[6]):0,
 					argc >= 8?GetFloat(argv[7]):1e10
@@ -789,7 +792,7 @@ protected:
 					it.data(),mass2, // pointer to mass1, mass2
 					GetAFloat(argv[3]), // K1
 					GetAFloat(argv[4]), // D1
-					0,0,0,0,
+					0,NULL,
 					argc >= 6?GetFloat(argv[5]):1, // power
 					argc >= 7?GetFloat(argv[6]):0,
 					argc >= 8?GetFloat(argv[7]):1e10
@@ -814,7 +817,7 @@ protected:
 				mass1,mass2, // pointer to mass1, mass2
 				GetAFloat(argv[3]), // K1
 				GetAFloat(argv[4]), // D1
-				0,0,0,0,
+				0,NULL,
 				argc >= 6?GetFloat(argv[5]):1, // power
 				argc >= 7?GetFloat(argv[6]):0,	// Lmin
 				argc >= 8?GetFloat(argv[7]):1e10// Lmax
@@ -846,7 +849,7 @@ protected:
 					it1.data(),it.data(), // pointer to mass1, mass2
 					GetAFloat(argv[3]), // K1
 					GetAFloat(argv[4]), // D1
-					0,0,0,0,
+					0,NULL,
 					argc >= 6?GetFloat(argv[5]):1, // power
 					argc >= 7?GetFloat(argv[6]):0,
 					argc >= 8?GetFloat(argv[7]):1e10
@@ -867,6 +870,8 @@ protected:
 			error("%s - %s Syntax : Id Nomass1 Nomass2 K D1 xa%s%s (pow Lmin Lmax)",thisName(),GetString(thisTag()),N >= 2?" ya":"",N >= 3?" za":"");
 			return;
 		}
+		t_float tangent[N];
+		for(int i = 0; i < N; ++i) tangent[i] = GetAFloat(argv[5+i]);
 
 		if (IsSymbol(argv[1]) && IsSymbol(argv[2]))	{		// ID & ID
 			typename IDMap<t_mass *>::iterator it1,it2,it;
@@ -881,10 +886,15 @@ protected:
 						GetAFloat(argv[3]), // K1
 						GetAFloat(argv[4]), // D1
 						1,					// tangential
-						GetAFloat(argv[5]),N >= 2?GetAFloat(argv[6]):0,N >= 3?GetAFloat(argv[7]):0,	// vector
-						(N==1 && argc >= 7)?GetFloat(argv[6]):((N==2 && argc >= 8)?GetFloat(argv[7]):((N==3 && argc >= 9)?GetFloat(argv[8]):1)), // power
-						(N==1 && argc >= 8)?GetFloat(argv[7]):((N==2 && argc >= 9)?GetFloat(argv[8]):((N==3 && argc >= 10)?GetFloat(argv[9]):0)),	// Lmin
-						(N==1 && argc >= 9)?GetFloat(argv[8]):((N==2 && argc >= 10)?GetFloat(argv[9]):((N==3 && argc >= 11)?GetFloat(argv[10]):1e10))// Lmax
+						tangent,
+						argc >= 6+N?GetFloat(argv[5+N]):1, // power
+						argc >= 7+N?GetFloat(argv[6+N]):0, // Lmin
+						argc >= 8+N?GetFloat(argv[7+N]):1e10 // Lmax
+
+//GetAFloat(argv[5]),N >= 2?GetAFloat(argv[6]):0,N >= 3?GetAFloat(argv[7]):0,	// vector
+						//(N==1 && argc >= 7)?GetFloat(argv[6]):((N==2 && argc >= 8)?GetFloat(argv[7]):((N==3 && argc >= 9)?GetFloat(argv[8]):1)), // power
+						//(N==1 && argc >= 8)?GetFloat(argv[7]):((N==2 && argc >= 9)?GetFloat(argv[8]):((N==3 && argc >= 10)?GetFloat(argv[9]):0)),	// Lmin
+						//(N==1 && argc >= 9)?GetFloat(argv[8]):((N==2 && argc >= 10)?GetFloat(argv[9]):((N==3 && argc >= 11)?GetFloat(argv[10]):1e10))// Lmax
 
 					);
 					linkids.insert(l);
@@ -905,14 +915,19 @@ protected:
 					GetAFloat(argv[3]), // K1
 					GetAFloat(argv[4]), // D1
 					1,					// tangential
-					GetAFloat(argv[5]),N >= 2?GetAFloat(argv[6]):0,N >= 3?GetAFloat(argv[7]):0,	// vector
-					(N==1 && argc >= 7)?GetFloat(argv[6]):((N==2 && argc >= 8)?GetFloat(argv[7]):((N==3 && argc >= 9)?GetFloat(argv[8]):1)), // power
-					(N==1 && argc >= 8)?GetFloat(argv[7]):((N==2 && argc >= 9)?GetFloat(argv[8]):((N==3 && argc >= 10)?GetFloat(argv[9]):0)),	// Lmin
-					(N==1 && argc >= 9)?GetFloat(argv[8]):((N==2 && argc >= 10)?GetFloat(argv[9]):((N==3 && argc >= 11)?GetFloat(argv[10]):1e10))// Lmax
+					tangent,
+					argc >= 6+N?GetFloat(argv[5+N]):1, // power
+					argc >= 7+N?GetFloat(argv[6+N]):0, // Lmin
+					argc >= 8+N?GetFloat(argv[7+N]):1e10 // Lmax
+
+					//GetAFloat(argv[5]),N >= 2?GetAFloat(argv[6]):0,N >= 3?GetAFloat(argv[7]):0,	// vector
+					//(N==1 && argc >= 7)?GetFloat(argv[6]):((N==2 && argc >= 8)?GetFloat(argv[7]):((N==3 && argc >= 9)?GetFloat(argv[8]):1)), // power
+					//(N==1 && argc >= 8)?GetFloat(argv[7]):((N==2 && argc >= 9)?GetFloat(argv[8]):((N==3 && argc >= 10)?GetFloat(argv[9]):0)),	// Lmin
+					//(N==1 && argc >= 9)?GetFloat(argv[8]):((N==2 && argc >= 10)?GetFloat(argv[9]):((N==3 && argc >= 11)?GetFloat(argv[10]):1e10))// Lmax
 				);
 				linkids.insert(l);
 				link.insert(id_link++,l);
-				outlink(S_iLink,l);
+				outlink(S_tLink,l);
 			}
 		}
 		else if (IsSymbol(argv[1]) && IsSymbol(argv[2])==0)	{	// ID & No
@@ -926,15 +941,20 @@ protected:
 					it.data(),mass2, // pointer to mass1, mass2
 					GetAFloat(argv[3]), // K1
 					GetAFloat(argv[4]), // D1
-					1,					// tangential
-					GetAFloat(argv[5]),N >= 2?GetAFloat(argv[6]):0,N >= 3?GetAFloat(argv[7]):0,	// vector
-					(N==1 && argc >= 7)?GetFloat(argv[6]):((N==2 && argc >= 8)?GetFloat(argv[7]):((N==3 && argc >= 9)?GetFloat(argv[8]):1)), // power
-					(N==1 && argc >= 8)?GetFloat(argv[7]):((N==2 && argc >= 9)?GetFloat(argv[8]):((N==3 && argc >= 10)?GetFloat(argv[9]):0)),	// Lmin
-					(N==1 && argc >= 9)?GetFloat(argv[8]):((N==2 && argc >= 10)?GetFloat(argv[9]):((N==3 && argc >= 11)?GetFloat(argv[10]):1e10))// Lmax
+					1,
+					tangent,					// tangential
+					argc >= 6+N?GetFloat(argv[5+N]):1, // power
+					argc >= 7+N?GetFloat(argv[6+N]):0, // Lmin
+					argc >= 8+N?GetFloat(argv[7+N]):1e10 // Lmax
+
+					//GetAFloat(argv[5]),N >= 2?GetAFloat(argv[6]):0,N >= 3?GetAFloat(argv[7]):0,	// vector
+					//(N==1 && argc >= 7)?GetFloat(argv[6]):((N==2 && argc >= 8)?GetFloat(argv[7]):((N==3 && argc >= 9)?GetFloat(argv[8]):1)), // power
+					//(N==1 && argc >= 8)?GetFloat(argv[7]):((N==2 && argc >= 9)?GetFloat(argv[8]):((N==3 && argc >= 10)?GetFloat(argv[9]):0)),	// Lmin
+					//(N==1 && argc >= 9)?GetFloat(argv[8]):((N==2 && argc >= 10)?GetFloat(argv[9]):((N==3 && argc >= 11)?GetFloat(argv[10]):1e10))// Lmax
 				);
 				linkids.insert(l);
 				link.insert(id_link++,l);
-				outlink(S_iLink,l);
+				outlink(S_tLink,l);
 			}
 		}
 		else	{										// No & No
@@ -952,11 +972,16 @@ protected:
 				GetAFloat(argv[3]), // K1
 				GetAFloat(argv[4]), // D1
 				1,					// tangential
-				GetAFloat(argv[5]),N >= 2?GetAFloat(argv[6]):0,N >= 3?GetAFloat(argv[7]):0,	// vector
-				(N==1 && argc >= 7)?GetFloat(argv[6]):((N==2 && argc >= 8)?GetFloat(argv[7]):((N==3 && argc >= 9)?GetFloat(argv[8]):1)), // power
-				(N==1 && argc >= 8)?GetFloat(argv[7]):((N==2 && argc >= 9)?GetFloat(argv[8]):((N==3 && argc >= 10)?GetFloat(argv[9]):0)),	// Lmin
-				(N==1 && argc >= 9)?GetFloat(argv[8]):((N==2 && argc >= 10)?GetFloat(argv[9]):((N==3 && argc >= 11)?GetFloat(argv[10]):1e10))// Lmax
-			);
+				tangent,					// tangential
+				argc >= 6+N?GetFloat(argv[5+N]):1, // power
+				argc >= 7+N?GetFloat(argv[6+N]):0, // Lmin
+				argc >= 8+N?GetFloat(argv[7+N]):1e10 // Lmax
+
+				//GetAFloat(argv[5]),N >= 2?GetAFloat(argv[6]):0,N >= 3?GetAFloat(argv[7]):0,	// vector
+				//(N==1 && argc >= 7)?GetFloat(argv[6]):((N==2 && argc >= 8)?GetFloat(argv[7]):((N==3 && argc >= 9)?GetFloat(argv[8]):1)), // power
+				//(N==1 && argc >= 8)?GetFloat(argv[7]):((N==2 && argc >= 9)?GetFloat(argv[8]):((N==3 && argc >= 10)?GetFloat(argv[9]):0)),	// Lmin
+				//(N==1 && argc >= 9)?GetFloat(argv[8]):((N==2 && argc >= 10)?GetFloat(argv[9]):((N==3 && argc >= 11)?GetFloat(argv[10]):1e10))// Lmax
+);
 			linkids.insert(l);
 			link.insert(id_link++,l);
 			outlink(S_tLink,l);
@@ -966,7 +991,7 @@ protected:
 	// add a normal link
 	// Id, *mass1, *mass2, K1, D1, D2, (Lmin,Lmax)
 	void m_nlink(int argc,t_atom *argv) 
-	{
+	{/*
 		if (argc < 5+N || argc > 8+N) {
 			error("%s - %s Syntax : Id No/Idmass1 No/Idmass2 K D1 xa%s%s (pow Lmin Lmax)",thisName(),GetString(thisTag()),N >= 2?" ya":"",N >= 3?" za":"");
 			return;
@@ -1069,7 +1094,7 @@ protected:
 			link.insert(id_link++,l);
 			outlink(S_nLink,l);
 		}
-	}
+	*/}
 
 	// set Id of link(s) named Id or number No
 	void m_setLinkId(int argc,t_atom *argv) 
diff --git a/msd/03_msdwave.pd b/msd/03_msdwave.pd
index c071993..ae67a8a 100644
--- a/msd/03_msdwave.pd
+++ b/msd/03_msdwave.pd
@@ -1,4 +1,4 @@
-#N canvas 493 42 947 811 10;
+#N canvas 555 25 947 765 10;
 #X obj 32 13 loadbang;
 #X obj 603 265 gemwin;
 #X msg 603 243 0 \, destroy;
@@ -17,19 +17,19 @@
 #X obj 127 136 t b f;
 #X obj 127 57 unpack f f f;
 #X obj 64 114 gemhead 45;
-#X obj 48 239 color 0.2 0.2 0.2;
 #X obj 48 283 cuboid 0.005 0.15 0.08;
+#X obj 48 239 color 0.8 0.8 0.8;
 #X connect 0 0 5 0;
-#X connect 1 0 7 0;
+#X connect 1 0 8 0;
 #X connect 2 0 1 0;
 #X connect 3 0 2 0;
 #X connect 4 0 3 0;
 #X connect 4 1 1 1;
 #X connect 5 0 4 0;
 #X connect 5 1 1 2;
-#X connect 5 2 8 3;
+#X connect 5 2 7 3;
 #X connect 6 0 3 1;
-#X connect 7 0 8 0;
+#X connect 8 0 7 0;
 #X restore 274 531 pd massrender;
 #X msg 203 83 symbol reset;
 #X text 793 205 Select view;
@@ -48,11 +48,11 @@
 #X msg 421 523 get massesPos \$1;
 #X obj 602 334 rotateXYZ;
 #X obj 56 547 vsl 15 128 0 4 0 0 empty empty empty 0 -8 0 8 -262131
--1 -1 400 1;
+-1 -1 0 1;
 #X obj 75 547 vsl 15 128 0 4 0 0 empty empty empty 0 -8 0 8 -262131
 -1 -1 0 1;
 #X obj 94 547 vsl 15 128 0 4 0 0 empty empty empty 0 -8 0 8 -262131
--1 -1 0 1;
+-1 -1 600 1;
 #X obj 112 547 vsl 15 128 0 4 0 0 empty empty empty 0 -8 0 8 -262131
 -1 -1 0 1;
 #X msg 56 682 posX 0 \$1;