added the missing files from Gem's MarkEx

svn path=/trunk/externals/markex/; revision=4698

1 files changed, 71 insertions, 0 deletions

diff --git a/vector0x2a.c b/vector0x2a.c
new file mode 100644
index 0000000..4709fd7
--- /dev/null
+++ b/vector0x2a.c
@@ -0,0 +1,71 @@
+/*
+ * Copyright (c) 1997-1999 Mark Danks.
+ * For information on usage and redistribution, and for a DISCLAIMER OF ALL
+ * WARRANTIES, see the file, "GEM.LICENSE.TERMS" in this distribution.
+ */
+
+#include "m_pd.h"
+
+/* -------------------------- vector* ------------------------------ */
+
+/* instance structure */
+static t_class *vectorMult_class;
+
+typedef struct _vectorMult
+{
+    t_object	x_obj;
+    t_float		x_mult;
+	t_atom		*m_list;
+	int			m_num;
+	t_outlet    *t_out1;	    /* the outlet */
+} t_vectorMult;
+
+static void doVectorMult(t_vectorMult *x, t_symbol *s, int argc, t_atom *argv)
+{
+	int i;
+	if (argc > x->m_num)
+	{
+		x->m_list = (t_atom *)resizebytes(x->m_list, sizeof(t_atom) * x->m_num, sizeof(t_atom) * argc);
+		x->m_num = argc;
+	}
+	for (i = 0; i < argc; i++)
+	{
+		float temp = atom_getfloat(&argv[i]);
+		temp *= x->x_mult;
+		SETFLOAT((&x->m_list[i]), temp);
+	}
+	outlet_list(x->t_out1, &s_list, argc, x->m_list);
+}
+
+static void *vectorMult_new(t_floatarg n)
+{
+    t_vectorMult *x = (t_vectorMult *)pd_new(vectorMult_class);
+    x->x_mult = (float)n;
+    floatinlet_new(&x->x_obj, &x->x_mult);
+    x->t_out1 = outlet_new(&x->x_obj, 0);
+	x->m_num = 3;
+	x->m_list = (t_atom *)getbytes(sizeof(t_atom) * x->m_num);
+    return (x);
+}
+
+static void vectorMult_setup(void)
+{
+    vectorMult_class = class_new(gensym("vector*"), (t_newmethod)vectorMult_new, 0,
+    	sizeof(t_vectorMult), 0, A_DEFFLOAT, 0);
+    class_addcreator((t_newmethod)vectorMult_new, gensym("v*"), A_DEFFLOAT, 0);
+    class_addmethod(vectorMult_class, (t_method)doVectorMult,
+		&s_list, A_GIMME, A_NULL); 
+}
+
+void setup_vector0x2a(void){
+  vectorMult_setup();
+}
+void vector0x2a_setup(void){
+  vectorMult_setup();
+}
+void setup_v0x2a(void){
+  vectorMult_setup();
+}
+void v0x2a_setup(void){
+  vectorMult_setup();
+}