From 486e5ff7ebf4ed0fe1089ac73643c8dbca9b838a Mon Sep 17 00:00:00 2001
From: musil <tmusil@users.sourceforge.net>
Date: Fri, 8 Jul 2005 02:13:24 +0000
Subject: dos-return

svn path=/trunk/externals/iemlib/; revision=3301
---
 src/iemlib2/transf_fader.c | 308 ++++++++++++++++++++++-----------------------
 1 file changed, 154 insertions(+), 154 deletions(-)

(limited to 'src/iemlib2/transf_fader.c')

diff --git a/src/iemlib2/transf_fader.c b/src/iemlib2/transf_fader.c
index 33e8666..7f9c679 100644
--- a/src/iemlib2/transf_fader.c
+++ b/src/iemlib2/transf_fader.c
@@ -1,154 +1,154 @@
-/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
-* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
-
-iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
-
-#ifdef NT
-#pragma warning( disable : 4244 )
-#pragma warning( disable : 4305 )
-#endif
-
-
-#include "m_pd.h"
-#include "iemlib.h"
-#include <stdio.h>
-#include <string.h>
-
-
-/* ------------------------ transf_fader ----------------------- */
-/* -- this loopkup tabel objekt makes a 2-point interpolation -- */
-/* --------- between the pairs of determinating points --------- */
-
-typedef struct _transf_fader
-{
-  t_object  x_obj;
-  int       x_size;
-  int       x_message;
-  float     *x_array;
-} t_transf_fader;
-
-static t_class *transf_fader_class;
-
-static void transf_fader_pairs(t_transf_fader *x, t_symbol *s, int argc, t_atom *argv)
-{
-  if(argc >= 4)
-  {
-    int i, j, k, ac=argc/2;
-    int n=1000;
-    int i_prev=0;
-    int first=1;
-    int i_delta;
-    float val_delta;
-    float delta;
-    float val_prev=0.0f;
-    float val=0.0f;
-    float *vec=x->x_array;
-    float fad_in, fad_out;
-
-    for(j=0; j<n; j++)
-    {
-      vec[j] = -123456.0f;
-    }
-
-    for(j=0; j<ac; j++)
-    {
-      fad_in = atom_getfloat(argv++);
-      while(fad_in < 0.0f)
-        fad_in = 0.0f;
-      while(fad_in > 1000.0f)
-        fad_in = 1000.0f;
-
-      fad_out = atom_getfloat(argv++);
-      while(fad_out < -123455.0f)
-        fad_out = -123455.0f;
-
-      i = (int)fad_in;
-      vec[i] = fad_out;
-    }
-
-    for(j=0; j<n; j++)
-    {
-      if(vec[j] > -123456.0f)
-      {
-        if(first)
-        {
-          first = 0;
-          i_prev = j;
-          val_prev = vec[j];
-        }
-        else
-        {
-          i = j;
-          val = vec[j];
-          i_delta = i - i_prev;
-          val_delta = val - val_prev;
-          if(i_delta > 1)
-          {
-            delta = val_delta / (float)i_delta;
-            for(k=i_prev+1; k<i; k++)
-            {
-              vec[k] = val_prev + delta*(float)(k - i_prev);
-            }
-          }
-          i_prev = i;
-          val_prev = val;
-        }
-      }
-    }
-  }
-  else
-  {
-    if(x->x_message)
-      post("transf_fader-ERROR: less than 2 pairs make no sense");
-  }
-}
-
-static void transf_fader_float(t_transf_fader *x, t_floatarg fad_in)
-{
-  float fad_out;
-  float *vec=x->x_array;
-  float fract;
-  int i;
-
-  while(fad_in < 0.0f)
-    fad_in = 0.0f;
-  while(fad_in > 999.0f)
-    fad_in = 999.0f;
-
-  i = (int)fad_in;
-  fract = fad_in - (float)i;
-  fad_out = vec[i] + fract*(vec[i+1] - vec[i]);
-  if(fad_out > -123455.0f)
-    outlet_float(x->x_obj.ob_outlet, fad_out);
-}
-
-static void transf_fader_free(t_transf_fader *x)
-{
-  freebytes(x->x_array, x->x_size * sizeof(float));
-}
-
-static void *transf_fader_new(t_symbol *s, int argc, t_atom *argv)
-{
-  t_transf_fader *x = (t_transf_fader *)pd_new(transf_fader_class);
-  int i, n;
-
-  x->x_size = 1001;
-  x->x_message = 0;
-  x->x_array = (float *)getbytes(x->x_size * sizeof(float));
-  n = x->x_size;
-  for(i=0; i<n; i++)
-    x->x_array[i] = -123456.0f;
-  transf_fader_pairs(x, gensym("pairs"), argc, argv);
-  x->x_message = 1;
-  outlet_new(&x->x_obj, &s_float);
-  return (x);
-}
-
-void transf_fader_setup(void)
-{
-  transf_fader_class = class_new(gensym("transf_fader"), (t_newmethod)transf_fader_new, (t_method)transf_fader_free,
-           sizeof(t_transf_fader), 0, A_GIMME, 0);
-  class_addfloat(transf_fader_class, (t_method)transf_fader_float);
-  class_addmethod(transf_fader_class, (t_method)transf_fader_pairs, gensym("pairs"), A_GIMME, 0);
-  class_sethelpsymbol(transf_fader_class, gensym("iemhelp/help-transf_fader"));
-}
+/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
+* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
+
+iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
+
+#ifdef NT
+#pragma warning( disable : 4244 )
+#pragma warning( disable : 4305 )
+#endif
+
+
+#include "m_pd.h"
+#include "iemlib.h"
+#include <stdio.h>
+#include <string.h>
+
+
+/* ------------------------ transf_fader ----------------------- */
+/* -- this loopkup tabel objekt makes a 2-point interpolation -- */
+/* --------- between the pairs of determinating points --------- */
+
+typedef struct _transf_fader
+{
+  t_object  x_obj;
+  int       x_size;
+  int       x_message;
+  float     *x_array;
+} t_transf_fader;
+
+static t_class *transf_fader_class;
+
+static void transf_fader_pairs(t_transf_fader *x, t_symbol *s, int argc, t_atom *argv)
+{
+  if(argc >= 4)
+  {
+    int i, j, k, ac=argc/2;
+    int n=1000;
+    int i_prev=0;
+    int first=1;
+    int i_delta;
+    float val_delta;
+    float delta;
+    float val_prev=0.0f;
+    float val=0.0f;
+    float *vec=x->x_array;
+    float fad_in, fad_out;
+
+    for(j=0; j<n; j++)
+    {
+      vec[j] = -123456.0f;
+    }
+
+    for(j=0; j<ac; j++)
+    {
+      fad_in = atom_getfloat(argv++);
+      while(fad_in < 0.0f)
+        fad_in = 0.0f;
+      while(fad_in > 1000.0f)
+        fad_in = 1000.0f;
+
+      fad_out = atom_getfloat(argv++);
+      while(fad_out < -123455.0f)
+        fad_out = -123455.0f;
+
+      i = (int)fad_in;
+      vec[i] = fad_out;
+    }
+
+    for(j=0; j<n; j++)
+    {
+      if(vec[j] > -123456.0f)
+      {
+        if(first)
+        {
+          first = 0;
+          i_prev = j;
+          val_prev = vec[j];
+        }
+        else
+        {
+          i = j;
+          val = vec[j];
+          i_delta = i - i_prev;
+          val_delta = val - val_prev;
+          if(i_delta > 1)
+          {
+            delta = val_delta / (float)i_delta;
+            for(k=i_prev+1; k<i; k++)
+            {
+              vec[k] = val_prev + delta*(float)(k - i_prev);
+            }
+          }
+          i_prev = i;
+          val_prev = val;
+        }
+      }
+    }
+  }
+  else
+  {
+    if(x->x_message)
+      post("transf_fader-ERROR: less than 2 pairs make no sense");
+  }
+}
+
+static void transf_fader_float(t_transf_fader *x, t_floatarg fad_in)
+{
+  float fad_out;
+  float *vec=x->x_array;
+  float fract;
+  int i;
+
+  while(fad_in < 0.0f)
+    fad_in = 0.0f;
+  while(fad_in > 999.0f)
+    fad_in = 999.0f;
+
+  i = (int)fad_in;
+  fract = fad_in - (float)i;
+  fad_out = vec[i] + fract*(vec[i+1] - vec[i]);
+  if(fad_out > -123455.0f)
+    outlet_float(x->x_obj.ob_outlet, fad_out);
+}
+
+static void transf_fader_free(t_transf_fader *x)
+{
+  freebytes(x->x_array, x->x_size * sizeof(float));
+}
+
+static void *transf_fader_new(t_symbol *s, int argc, t_atom *argv)
+{
+  t_transf_fader *x = (t_transf_fader *)pd_new(transf_fader_class);
+  int i, n;
+
+  x->x_size = 1001;
+  x->x_message = 0;
+  x->x_array = (float *)getbytes(x->x_size * sizeof(float));
+  n = x->x_size;
+  for(i=0; i<n; i++)
+    x->x_array[i] = -123456.0f;
+  transf_fader_pairs(x, gensym("pairs"), argc, argv);
+  x->x_message = 1;
+  outlet_new(&x->x_obj, &s_float);
+  return (x);
+}
+
+void transf_fader_setup(void)
+{
+  transf_fader_class = class_new(gensym("transf_fader"), (t_newmethod)transf_fader_new, (t_method)transf_fader_free,
+           sizeof(t_transf_fader), 0, A_GIMME, 0);
+  class_addfloat(transf_fader_class, (t_method)transf_fader_float);
+  class_addmethod(transf_fader_class, (t_method)transf_fader_pairs, gensym("pairs"), A_GIMME, 0);
+  class_sethelpsymbol(transf_fader_class, gensym("iemhelp/help-transf_fader"));
+}
-- 
cgit v1.2.1