diff options
author | Guenter Geiger <ggeiger@users.sourceforge.net> | 2002-10-09 10:19:04 +0000 |
---|---|---|
committer | Guenter Geiger <ggeiger@users.sourceforge.net> | 2002-10-09 10:19:04 +0000 |
commit | d2eec74a4d8c21aad495ba61539486b24d7ab8dc (patch) | |
tree | 8340a62efe3eb1d42dc40265723c2704d3bd6452 /src/z_prime.c |
moved from zexy/zexy to zexysvn2git-root
svn path=/trunk/externals/zexy/; revision=169
Diffstat (limited to 'src/z_prime.c')
-rw-r--r-- | src/z_prime.c | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/src/z_prime.c b/src/z_prime.c new file mode 100644 index 0000000..2af18b2 --- /dev/null +++ b/src/z_prime.c @@ -0,0 +1,50 @@ +#include "zexy.h" +#include <math.h> + + +static t_class *prime_class; + +typedef struct _prime { + t_object x_obj; +} t_prime; + + +void prime_float(t_prime *x, t_float f) +{ + + unsigned int i=f; + unsigned int max_divisor; + int divisor=1; + + if (f<2)return; + + if (!(i%2)){ + if (i==2)outlet_bang(x->x_obj.ob_outlet); + return; + } + + max_divisor = sqrt(f)+1; + + while ((divisor+=2)<max_divisor) + if (!(i%divisor)) return; + + outlet_bang(x->x_obj.ob_outlet); +} + +void *prime_new(void) +{ + t_prime *x = (t_prime *)pd_new(prime_class); + + outlet_new(&x->x_obj, &s_float); + + return (void *)x; +} + +void z_prime_setup(void) { + prime_class = class_new(gensym("prime"), + (t_newmethod)prime_new, + 0, sizeof(t_prime), + CLASS_DEFAULT, 0); + + class_addfloat(prime_class, prime_float); +} |