File: cup.c

package info (click to toggle)
pd-ekext 0.1.1-3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster
  • size: 1,408 kB
  • sloc: ansic: 2,700; makefile: 280
file content (49 lines) | stat: -rw-r--r-- 900 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
#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_setbang(t_cup *y, t_floatarg f)
{
  y->f_count = f;
  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_addbang(cup_class, cup_bang);
  class_addfloat(cup_class, cup_float);
  class_addmethod(cup_class, (t_method)cup_setbang, gensym("setbang"), A_DEFFLOAT, 0);}