[Gridflow-cvs] [svn] commit: r5281 - /trunk/src/classes2.cxx

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Fri Apr 2 13:38:46 EDT 2010


Author: matju
Date: Fri Apr  2 13:38:45 2010
New Revision: 5281

Log:
add class [gridflow] with method "version", outputting "version 9 9 0".

Modified:
    trunk/src/classes2.cxx

Modified: trunk/src/classes2.cxx
==============================================================================
--- trunk/src/classes2.cxx (original)
+++ trunk/src/classes2.cxx Fri Apr  2 13:38:45 2010
@@ -1511,6 +1511,21 @@
 };
 \end class {install("inv*",2,1);}
 
+\class GridFlowClass : FObject {
+	\constructor () {}
+	\decl 0 get (t_symbol *s=0) {
+		if (!s) {_0_get(0,0,gensym("version"));}
+		if (s==gensym("version")) {
+			t_atom a[3];
+			SETFLOAT(a+0,GF_VERSION_A);
+			SETFLOAT(a+1,GF_VERSION_B);
+			SETFLOAT(a+2,GF_VERSION_C);
+			outlet_anything(outlets[0],s,3,a);
+		}
+	}
+};
+\end class {install("gridflow",1,1);}
+
 void startup_flow_objects2 () {
 	\startall
 }



More information about the Gridflow-cvs mailing list