diff options
Diffstat (limited to 'control/constant.c')
-rwxr-xr-x | control/constant.c | 122 |
1 files changed, 61 insertions, 61 deletions
diff --git a/control/constant.c b/control/constant.c index 7e8ccfa..877326b 100755 --- a/control/constant.c +++ b/control/constant.c @@ -1,61 +1,61 @@ -/* (C) Guenter Geiger <geiger@epy.co.at> */
-
-
-#include <m_pd.h>
-#include <math.h>
-#include <string.h>
-#ifdef NT
-#pragma warning( disable : 4244 )
-#pragma warning( disable : 4305 )
-#endif
-
-/* ------------------------ constant ----------------------------- */
-#ifndef M_PI
-#define M_PI 3.141593f
-#endif
-
-static t_class *constant_class;
-
-
-typedef struct _constant
-{
- t_object x_obj;
- t_float x_constant;
-} t_constant;
-
-
-void constant_bang(t_constant *x)
-{
- outlet_float(x->x_obj.ob_outlet, x->x_constant);
-}
-
-static void *constant_new(t_symbol* s)
-{
- t_constant *x = (t_constant *)pd_new(constant_class);
-
- if (s == &s_)
- x->x_constant = M_PI;
-
- if (!strcmp(s->s_name,"PI"))
- x->x_constant = M_PI;
-
- if (!strcmp(s->s_name,"TWOPI"))
- x->x_constant = 2*M_PI;
-
- if (!strcmp(s->s_name,"e"))
- x->x_constant = exp(1.0);
-
-
-
- outlet_new(&x->x_obj, &s_float);
- return (x);
-}
-
-void constant_setup(void)
-{
- constant_class = class_new(gensym("constant"), (t_newmethod)constant_new, 0,
- sizeof(t_constant), 0,0);
- class_addbang(constant_class,constant_bang);
-}
-
-
+/* (C) Guenter Geiger <geiger@epy.co.at> */ + + +#include <m_pd.h> +#include <math.h> +#include <string.h> +#ifdef _MSC_VER +#pragma warning( disable : 4244 ) +#pragma warning( disable : 4305 ) +#endif + +/* ------------------------ constant ----------------------------- */ +#ifndef M_PI +#define M_PI 3.141593f +#endif + +static t_class *constant_class; + + +typedef struct _constant +{ + t_object x_obj; + t_float x_constant; +} t_constant; + + +void constant_bang(t_constant *x) +{ + outlet_float(x->x_obj.ob_outlet, x->x_constant); +} + +static void *constant_new(t_symbol* s) +{ + t_constant *x = (t_constant *)pd_new(constant_class); + + if (s == &s_) + x->x_constant = M_PI; + + if (!strcmp(s->s_name,"PI")) + x->x_constant = M_PI; + + if (!strcmp(s->s_name,"TWOPI")) + x->x_constant = 2*M_PI; + + if (!strcmp(s->s_name,"e")) + x->x_constant = exp(1.0); + + + + outlet_new(&x->x_obj, &s_float); + return (x); +} + +void constant_setup(void) +{ + constant_class = class_new(gensym("constant"), (t_newmethod)constant_new, 0, + sizeof(t_constant), 0,0); + class_addbang(constant_class,constant_bang); +} + + |