borrow tanh~ from ELSE

Author: porres

cyclone_objects/binaries/audio/tanh.c

@@ -6,47 +6,37 @@
 #include "m_pd.h"
 #include <common/api.h>
 
-typedef struct _tanh {
-    t_object x_obj;
-    t_inlet *tanh;
-    t_outlet *x_outlet;
-} t_tanh;
-
-void *tanh_new(void);
-static t_int * tanh_perform(t_int *w);
-static void tanh_dsp(t_tanh *x, t_signal **sp);
-
 static t_class *tanh_class;
 
-static t_int *tanh_perform(t_int *w)
-{
-    int nblock = (int)(w[1]);
+typedef struct _tanh{
+    t_object  x_obj;
+}t_tanh;
+
+static t_int * tanh_perform(t_int *w){
+    int n = (int)(w[1]);
     t_float *in = (t_float *)(w[2]);
     t_float *out = (t_float *)(w[3]);
-    while (nblock--)
-    {
-        float f = *in++;
-        *out++ = tanhf(f);  /* CHECKED no protection against NaNs */
-    }
-    return (w + 4);
+    while(n--)
+        *out++ = tanhf(*in++);
+    return(w+4);
 }
 
-static void tanh_dsp(t_tanh *x, t_signal **sp)
-{
-    dsp_add(tanh_perform, 3, sp[0]->s_n, sp[0]->s_vec, sp[1]->s_vec);
+static void tanh_dsp(t_tanh *x, t_signal **sp){
+    x = NULL;
+    signal_setmultiout(&sp[1], sp[0]->s_nchans);
+    dsp_add(tanh_perform, 3, (t_int)(sp[0]->s_length * sp[0]->s_nchans),
+        sp[0]->s_vec, sp[1]->s_vec);
 }
 
-void *tanh_new(void)
-{
+void *tanh_new(void){
     t_tanh *x = (t_tanh *)pd_new(tanh_class);
-    x->x_outlet = outlet_new(&x->x_obj, &s_signal);
-    return (x);
+    outlet_new(&x->x_obj, &s_signal);
+    return(void *)x;
 }
 
-CYCLONE_OBJ_API void tanh_tilde_setup(void)
-{
-    tanh_class = class_new(gensym("tanh~"), (t_newmethod)tanh_new, 0,
-                           sizeof(t_tanh), CLASS_DEFAULT, 0);
+CYCLONE_OBJ_API void tanh_tilde_setup(void){
+    tanh_class = class_new(gensym("tanh~"),
+        (t_newmethod) tanh_new, 0, sizeof (t_tanh), CLASS_MULTICHANNEL, 0);
     class_addmethod(tanh_class, nullfn, gensym("signal"), 0);
     class_addmethod(tanh_class, (t_method) tanh_dsp, gensym("dsp"), A_CANT, 0);
 }

documentation/help_files/tanh~-help.pd

@@ -1,24 +1,23 @@
-#N canvas 461 70 564 517 10;
+#N canvas 502 85 564 582 10;
 #X declare -stdpath ./;
-#X obj 4 485 cnv 15 552 21 empty empty empty 20 12 0 14 #e0e0e0 #202020 0;
-#X obj 4 372 cnv 3 550 3 empty empty inlets 8 12 0 13 #dcdcdc #000000 0;
-#X obj 4 412 cnv 3 550 3 empty empty outlets 8 12 0 13 #dcdcdc #000000 0;
-#X obj 4 451 cnv 3 550 3 empty empty arguments 8 12 0 13 #dcdcdc #000000 0;
-#X obj 136 383 cnv 17 3 17 empty empty 0 5 9 0 16 #dcdcdc #9c9c9c 0;
-#X obj 136 423 cnv 17 3 17 empty empty 0 5 9 0 16 #dcdcdc #9c9c9c 0;
-#X text 164 383 signal;
-#X text 164 423 signal;
-#X text 165 460 (none);
-#X text 231 383 - input to hyperbolic tangent function;
-#X text 231 423 - output of hyperbolic tangent function;
-#X text 66 97 [tanh~] calculates the hyperbolic tangent function of input sample. It is also useful for waveshaping \, where it simulates analog distortion.;
+#X obj 4 555 cnv 15 552 21 empty empty empty 20 12 0 14 #e0e0e0 #202020 0;
+#X obj 4 442 cnv 3 550 3 empty empty inlets 8 12 0 13 #dcdcdc #000000 0;
+#X obj 4 482 cnv 3 550 3 empty empty outlets 8 12 0 13 #dcdcdc #000000 0;
+#X obj 4 521 cnv 3 550 3 empty empty arguments 8 12 0 13 #dcdcdc #000000 0;
+#X obj 136 453 cnv 17 3 17 empty empty 0 5 9 0 16 #dcdcdc #9c9c9c 0;
+#X obj 136 493 cnv 17 3 17 empty empty 0 5 9 0 16 #dcdcdc #9c9c9c 0;
+#X text 164 453 signal;
+#X text 164 493 signal;
+#X text 165 530 (none);
+#X text 231 453 - input to hyperbolic tangent function;
+#X text 231 493 - output of hyperbolic tangent function;
 #X obj 499 69 cyclone/dsponoff~;
 #X obj 3 3 ./header tanh~;
 #X text 22 61 Signal hyperbolic tangent function;
-#X obj 187 186 sig~;
+#X obj 187 192 sig~;
 #X obj 187 245 cyclone/snapshot~ 1;
 #X obj 187 275 nbx 9 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10 #dcdcdc #000000 #000000 0 256;
-#X obj 187 162 nbx 9 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10 #dcdcdc #000000 #000000 0 256;
+#X obj 187 170 nbx 9 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10 #dcdcdc #000000 #000000 0 256;
 #X obj 187 216 cyclone/tanh~;
 #N canvas 657 64 420 544 example 0;
 #X obj 232 172 +~ 11;
@@ -41,7 +40,7 @@
 #X connect 5 0 3 0;
 #X connect 6 0 1 0;
 #X connect 10 0 9 0;
-#X restore 428 241 pd example;
+#X restore 406 226 pd example;
 #X text 32 324 see also:;
 #X text 200 324 as a Vanilla alternative;
 #X text 361 324 and;
@@ -82,7 +81,33 @@
 #X text 257 322 - actually a cosine wavetable;
 #X restore 393 325 pd all-trig-objects;
 #X obj 97 325 expr~ tanh($v1);
-#X connect 15 0 19 0;
-#X connect 16 0 17 0;
+#X text 38 86 [tanh~] calculates the hyperbolic tangent function of input sample. It is also useful for waveshaping \, where it simulates analog distortion. This is not an actual MAX clone but an object that is borrowed from ELSE which has more functionalities (MC Support) and is backwards compatible to MAX's object!, f 70;
+#X obj 307 398 open-else;
+#X text 348 370 click;
+#X text 92 371 Plugdata users can just use the original object from ELSE instead (same with those with ELSE)., f 33;
+#X msg 307 371 tanh~;
+#N canvas 795 189 371 312 multichannel 0;
+#X listbox 58 102 12 0 0 0 - - - 0;
+#X text 100 28 Multichannel support example.;
+#X obj 58 128 snake~ in;
+#X obj 58 161 cyclone/tanh~;
+#X obj 58 219 cyclone/snapshot~ 1;
+#X obj 58 249 nbx 9 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10 #dcdcdc #000000 #000000 0 256;
+#X obj 58 191 snake~ out, f 24;
+#X obj 199 219 cyclone/snapshot~ 1;
+#X obj 199 249 nbx 9 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10 #dcdcdc #000000 #000000 0 256;
+#X obj 58 73 cyclone/loadmess 0.75 1.2;
+#X connect 0 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 6 0;
+#X connect 4 0 5 0;
+#X connect 6 0 4 0;
+#X connect 6 1 7 0;
+#X connect 7 0 8 0;
+#X connect 9 0 0 0;
+#X restore 406 253 pd multichannel;
+#X connect 14 0 18 0;
+#X connect 15 0 16 0;
+#X connect 17 0 14 0;
 #X connect 18 0 15 0;
-#X connect 19 0 16 0;
+#X connect 29 0 26 0;