This commit was generated by cvs2svn to compensate for changes in r4096,

which included commits to RCS files with non-trunk default branches.

svn path=/trunk/; revision=4097

1 files changed, 42 insertions, 0 deletions

diff --git a/externals/build/src/cup.c b/externals/build/src/cup.c
new file mode 100644
index 00000000..6aca2141
--- /dev/null
+++ b/externals/build/src/cup.c
@@ -0,0 +1,42 @@
+#include "m_pd.h"
+
+t_class *cup_class;
+
+typedef struct _cup
+{
+  t_object x_obj;
+  t_int f_count, fa;
+  t_outlet *count;
+} t_cup;
+
+void cup_float(t_cup *y, t_floatarg f)
+{
+  y->f_count = f;
+}
+
+void cup_bang(t_cup *y)
+{
+  outlet_float(y->count, y->f_count);
+  y->f_count += 1;
+}
+
+void *cup_new(t_floatarg f)
+{
+  t_cup *y = (t_cup *)pd_new(cup_class);
+  y->fa = f;
+  y->f_count = 0;
+  y->count = outlet_new(&y->x_obj, gensym("float"));
+  return(void *)y;
+}
+
+void cup_setup(void) 
+{
+  cup_class = class_new(gensym("cup"),
+  (t_newmethod)cup_new,
+  0, sizeof(t_cup),
+  0, A_DEFFLOAT, 0);
+  post("cup counts up ^_^");
+  class_sethelpsymbol(cup_class, gensym("help-cup"));
+  class_addbang(cup_class, cup_bang);
+  class_addfloat(cup_class, cup_float);
+}