Initial revision

Original commit message from CVS:
Initial revision

4 files changed, 527 insertions, 0 deletions

diff --git a/gst/speed/Makefile.am b/gst/speed/Makefile.am
new file mode 100644
index 000000000..35aed2079
--- /dev/null
+++ b/gst/speed/Makefile.am
@@ -0,0 +1,8 @@
+filterdir = $(libdir)/gst
+
+filter_LTLIBRARIES = libgstspeed.la
+
+libgstspeed_la_SOURCES = gstspeed.c
+libgstspeed_la_CFLAGS = $(GST_CFLAGS)
+
+noinst_HEADERS = gstspeed.h filter.func
diff --git a/gst/speed/filter.func b/gst/speed/filter.func
new file mode 100644
index 000000000..89429528a
--- /dev/null
+++ b/gst/speed/filter.func
@@ -0,0 +1,66 @@
+/* -*- Mode: c; c-basic-offset: 2 -*- */ 
+    _FORMAT *in_data, *out_data;
+
+    /* get a buffer here so that we can have something to interpolate
+     * against for the first few samples if speed < 0.5 */
+    in_data = (_FORMAT*) GST_BUFFER_DATA(in);
+    nin = GST_BUFFER_SIZE(in)/sizeof(_FORMAT);
+    lower = in_data[0];
+    i_float = 0.5 * (speed - 1.0);
+    i = i_float + 1.0; /* ciel(i_float) for ints */
+    
+    do {
+      speed = filter->speed; /* update this, it might have changed */
+      
+      if (filter->srcpool) {
+        out = gst_buffer_new_from_pool(filter->srcpool, 0, 0);
+        out_data = (_FORMAT*) GST_BUFFER_DATA(out);
+      } else {
+        out = gst_buffer_new();
+        GST_BUFFER_DATA(out) = (gchar*) g_new(_FORMAT,SPEED_BUFSIZE/sizeof(_FORMAT));
+        GST_BUFFER_SIZE(out) = SPEED_BUFSIZE;
+        out_data = (_FORMAT*) GST_BUFFER_DATA(out);
+      }
+      nout = GST_BUFFER_SIZE(out) / sizeof(_FORMAT);
+      
+      for (j=0; j<nout; j++) {
+        /* index of upper bounds of interpolation for
+         * new sample, got it by trial&error on the chalkboard */
+        i_float += speed;
+        i = i_float + 1.0; /* ciel(i_float) for ints */
+        
+        while (i >= nin) {
+          i = i % nin;
+          i_float = i_float - nin;
+          lower = in_data[nin-1];
+          gst_buffer_unref(in);
+          in = gst_pad_pull (filter->sinkpad);
+          
+          while (GST_IS_EVENT(in)) {
+            switch (GST_EVENT_TYPE(in)) {
+            case GST_EVENT_EOS:
+              gst_element_set_state((GstElement*)filter, GST_STATE_PAUSED);
+              gst_pad_push(filter->srcpad, in);
+              return;
+            default:
+              gst_pad_push(filter->srcpad, in);
+              in = gst_pad_pull (filter->sinkpad);
+            }
+          }
+          
+          in_data = (_FORMAT*) GST_BUFFER_DATA(in);
+          nin = GST_BUFFER_SIZE(in) / sizeof(_FORMAT);
+        } 
+        
+        if (i>0)
+          lower = in_data[i-1];
+        
+        interp = i_float - floor(i_float);
+        
+        out_data[j] = lower*(1-interp) + in_data[i]*interp;
+        
+        lower = in_data[i];
+      }
+      
+      gst_pad_push(filter->srcpad, out);
+    } while (!GST_ELEMENT_IS_COTHREAD_STOPPING (element));
diff --git a/gst/speed/gstspeed.c b/gst/speed/gstspeed.c
new file mode 100644
index 000000000..51811227e
--- /dev/null
+++ b/gst/speed/gstspeed.c
@@ -0,0 +1,347 @@
+/* -*- c-basic-offset: 2 -*-
+ * GStreamer
+ * Copyright (C) 1999-2001 Erik Walthinsen <omega@cse.ogi.edu>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library General Public
+ * License along with this library; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
+ */
+
+#include <string.h>
+#include <gst/gst.h>
+#include <math.h>
+#include <libs/audio/gstaudio.h>
+#include "gstspeed.h"
+
+/* buffer size to make if no bufferpool is available, must be divisible by 
+ * sizeof(gfloat) */
+#define SPEED_BUFSIZE 4096
+/* number of buffers to allocate per chunk in sink buffer pool */
+#define SPEED_NUMBUF 6
+
+static GstElementDetails speed_details = {
+  "Speed",
+  "Filter/Effect",
+  "Set speed/pitch on audio/raw streams (resampler)",
+  VERSION,
+  "Andy Wingo <apwingo@eos.ncsu.edu>",
+  "(C) 2001"
+};
+
+
+/* Filter signals and args */
+enum {
+  /* FILL ME */
+  LAST_SIGNAL
+};
+
+enum {
+  ARG_0,
+  ARG_SILENT,
+  ARG_SPEED
+};
+
+static GstPadTemplate*                    
+speed_sink_factory (void)            
+{                                         
+  static GstPadTemplate *template = NULL; 
+                                          
+  if (!template) {                        
+    template = gst_padtemplate_new 
+      ("sink", GST_PAD_SINK, GST_PAD_ALWAYS,
+      gst_caps_append(gst_caps_new ("sink_int",  "audio/raw",
+                                    GST_AUDIO_INT_MONO_PAD_TEMPLATE_PROPS),
+                      gst_caps_new ("sink_float", "audio/raw",
+                                    GST_AUDIO_FLOAT_MONO_PAD_TEMPLATE_PROPS)),
+      NULL);
+  }                                       
+  return template;                        
+}
+
+static GstPadTemplate*
+speed_src_factory (void)
+{
+  static GstPadTemplate *template = NULL;
+  
+  if (!template)
+    template = gst_padtemplate_new 
+      ("src", GST_PAD_SRC, GST_PAD_ALWAYS,
+       gst_caps_append (gst_caps_new ("src_float", "audio/raw",
+                                      GST_AUDIO_FLOAT_MONO_PAD_TEMPLATE_PROPS),
+                        gst_caps_new ("src_int", "audio/raw",
+                                      GST_AUDIO_INT_MONO_PAD_TEMPLATE_PROPS)),
+       NULL);
+  
+  return template;
+}
+
+static GstBufferPool*
+speed_sink_get_bufferpool (GstPad *pad)
+{
+  GstSpeed *filter;
+  
+  filter = GST_SPEED (gst_pad_get_parent(pad));
+
+  return filter->sinkpool;
+}
+
+static void		speed_class_init		(GstSpeedClass *klass);
+static void		speed_init		(GstSpeed *filter);
+
+static void		speed_set_property	(GObject *object, guint prop_id, const GValue *value, GParamSpec *pspec);
+static void		speed_get_property        (GObject *object, guint prop_id, GValue *value, GParamSpec *pspec);
+
+static gint             speed_parse_caps          (GstSpeed *filter, GstCaps *caps);
+
+static void		speed_loop              (GstElement *element);
+
+static GstElementClass *parent_class = NULL;
+//static guint gst_filter_signals[LAST_SIGNAL] = { 0 };
+
+static GstPadNegotiateReturn
+speed_negotiate_src (GstPad *pad, GstCaps **caps, gpointer *data)
+{
+  GstSpeed* filter = GST_SPEED (gst_pad_get_parent (pad));
+  
+  if (*caps==NULL) 
+    return GST_PAD_NEGOTIATE_FAIL;
+  
+  if (speed_parse_caps(filter, *caps))
+    return GST_PAD_NEGOTIATE_FAIL;
+  
+  return gst_pad_negotiate_proxy(pad,filter->sinkpad,caps);
+}
+
+static GstPadNegotiateReturn
+speed_negotiate_sink (GstPad *pad, GstCaps **caps, gpointer *data)
+{
+  GstSpeed* filter = GST_SPEED (gst_pad_get_parent (pad));
+  
+  if (*caps==NULL) 
+    return GST_PAD_NEGOTIATE_FAIL;
+  
+  if (speed_parse_caps(filter, *caps))
+    return GST_PAD_NEGOTIATE_FAIL;
+  
+  return gst_pad_negotiate_proxy(pad,filter->srcpad,caps);
+}	
+
+static gint
+speed_parse_caps (GstSpeed *filter, GstCaps *caps)
+{
+  const gchar *format;
+  
+  g_return_val_if_fail(filter!=NULL,-1);
+  g_return_val_if_fail(caps!=NULL,-1);
+  
+  format = gst_caps_get_string(caps, "format");
+  
+  filter->rate       = gst_caps_get_int (caps, "rate");
+  filter->channels   = gst_caps_get_int (caps, "channels");
+  
+  if (strcmp(format, "int")==0) {
+    filter->format        = GST_SPEED_FORMAT_INT;
+    filter->width         = gst_caps_get_int (caps, "width");
+    filter->depth         = gst_caps_get_int (caps, "depth");
+    filter->law           = gst_caps_get_int (caps, "law");
+    filter->endianness    = gst_caps_get_int (caps, "endianness");
+    filter->is_signed     = gst_caps_get_int (caps, "signed");
+    if (!filter->silent) {
+      g_print ("Speed : channels %d, rate %d\n",  
+               filter->channels, filter->rate);
+      g_print ("Speed : format int, bit width %d, endianness %d, signed %s\n",
+               filter->width, filter->endianness, filter->is_signed ? "yes" : "no");
+    }
+  } else if (strcmp(format, "float")==0) {
+    filter->format     = GST_SPEED_FORMAT_FLOAT;
+    filter->layout     = gst_caps_get_string(caps, "layout");
+    filter->intercept  = gst_caps_get_float(caps, "intercept");
+    filter->slope      = gst_caps_get_float(caps, "slope");
+    if (!filter->silent) {
+      g_print ("Speed : channels %d, rate %d\n",  
+               filter->channels, filter->rate);
+      g_print ("Speed : format float, layout %s, intercept %f, slope %f\n",
+               filter->layout, filter->intercept, filter->slope);
+    }
+  } else  {
+    return -1;
+  }
+  return 0;
+}
+
+
+GType
+gst_speed_get_type(void) {
+  static GType speed_type = 0;
+
+  if (!speed_type) {
+    static const GTypeInfo speed_info = {
+      sizeof(GstSpeedClass),      NULL,
+      NULL,
+      (GClassInitFunc)speed_class_init,
+      NULL,
+      NULL,
+      sizeof(GstSpeed),
+      0,
+      (GInstanceInitFunc)speed_init,
+    };
+    speed_type = g_type_register_static(GST_TYPE_ELEMENT, "GstSpeed", &speed_info, 0);
+  }
+  return speed_type;
+}
+
+static void
+speed_class_init (GstSpeedClass *klass)
+{
+  GObjectClass *gobject_class;
+  GstElementClass *gstelement_class;
+
+  gobject_class = (GObjectClass*)klass;
+  gstelement_class = (GstElementClass*)klass;
+
+  parent_class = g_type_class_ref(GST_TYPE_ELEMENT);
+
+  g_object_class_install_property(G_OBJECT_CLASS(klass), ARG_SILENT,
+    g_param_spec_boolean("silent","silent","silent",
+                         TRUE,G_PARAM_READWRITE)); // CHECKME
+
+  g_object_class_install_property(G_OBJECT_CLASS(klass), ARG_SPEED,
+    g_param_spec_float("speed","speed","speed",
+                       0.1,40.0,1.0,G_PARAM_READWRITE));
+
+  gobject_class->set_property = speed_set_property;
+  gobject_class->get_property = speed_get_property;
+}
+
+static void
+speed_init (GstSpeed *filter)
+{
+  filter->sinkpad = gst_pad_new_from_template(speed_sink_factory (),"sink");
+  gst_pad_set_negotiate_function(filter->sinkpad,speed_negotiate_sink);
+  gst_pad_set_bufferpool_function (filter->sinkpad, speed_sink_get_bufferpool);
+  filter->srcpad = gst_pad_new_from_template(speed_src_factory (),"src");
+  gst_pad_set_negotiate_function(filter->srcpad,speed_negotiate_src);
+  
+  gst_element_add_pad(GST_ELEMENT(filter),filter->sinkpad);
+  gst_element_add_pad(GST_ELEMENT(filter),filter->srcpad);
+  gst_element_set_loop_function(GST_ELEMENT(filter),speed_loop);
+  filter->silent = FALSE;
+  filter->speed = 1.0;
+  
+  filter->sinkpool = gst_buffer_pool_get_default(SPEED_BUFSIZE,
+                                                 SPEED_NUMBUF);
+}
+
+static void
+speed_loop (GstElement *element)
+{
+  GstSpeed *filter = GST_SPEED(element);
+  GstBuffer *in, *out;
+  guint i, j, nin, nout;
+  gfloat interp, speed, lower, i_float;
+  
+  g_return_if_fail(filter != NULL);
+  g_return_if_fail(GST_IS_SPEED(filter));
+
+  filter->srcpool = gst_pad_get_bufferpool(filter->srcpad);
+  
+  i = j = 0;
+  speed = filter->speed;
+  
+  in = gst_pad_pull(filter->sinkpad);
+  
+  /* this is a bit nasty, but hey, it's what you've got to do to keep the same
+   * algorithm and multiple data types in c. */
+  if (filter->format==GST_SPEED_FORMAT_FLOAT) {
+#define _FORMAT gfloat
+#include "filter.func"
+#undef _FORMAT
+  } else if (filter->format==GST_SPEED_FORMAT_INT && filter->width==16) {
+#define _FORMAT gint16
+#include "filter.func"
+#undef _FORMAT
+  } else if (filter->format==GST_SPEED_FORMAT_INT && filter->width==8) {
+#define _FORMAT gint8
+#include "filter.func"
+#undef _FORMAT
+  }
+}
+
+static void
+speed_set_property (GObject *object, guint prop_id, const GValue *value, GParamSpec *pspec)
+{
+  GstSpeed *filter;
+
+  /* it's not null if we got it, but it might not be ours */
+  g_return_if_fail(GST_IS_SPEED(object));
+  filter = GST_SPEED(object);
+
+  switch (prop_id) 
+  {
+    case ARG_SILENT:
+      filter->silent = g_value_get_boolean (value);
+      break;
+    case ARG_SPEED:
+      filter->speed = g_value_get_float (value);
+      break;
+    default:
+      break;
+  }
+}
+
+static void
+speed_get_property (GObject *object, guint prop_id, GValue *value, GParamSpec *pspec)
+{
+  GstSpeed *filter;
+
+  /* it's not null if we got it, but it might not be ours */
+  g_return_if_fail(GST_IS_SPEED(object));
+  filter = GST_SPEED(object);
+
+  switch (prop_id) {
+    case ARG_SILENT:
+      g_value_set_boolean (value, filter->silent);
+      break;
+    case ARG_SPEED:
+      g_value_set_float (value, filter->speed);
+      break;
+    default:
+      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
+      break;
+  }
+}
+
+static gboolean
+plugin_init (GModule *module, GstPlugin *plugin)
+{
+  GstElementFactory *factory;
+
+  factory = gst_elementfactory_new("speed",GST_TYPE_SPEED,
+                                   &speed_details);
+  g_return_val_if_fail(factory != NULL, FALSE);
+  
+  gst_elementfactory_add_padtemplate (factory, speed_src_factory ());
+  gst_elementfactory_add_padtemplate (factory, speed_sink_factory ());
+
+  gst_plugin_add_feature (plugin, GST_PLUGIN_FEATURE (factory));
+
+  return TRUE;
+}
+
+GstPluginDesc plugin_desc = {
+  GST_VERSION_MAJOR,
+  GST_VERSION_MINOR,
+  "speed",
+  plugin_init
+};
diff --git a/gst/speed/gstspeed.h b/gst/speed/gstspeed.h
new file mode 100644
index 000000000..530a9dc88
--- /dev/null
+++ b/gst/speed/gstspeed.h
@@ -0,0 +1,106 @@
+/* -*- c-basic-offset: 2 -*-
+ * GStreamer
+ * Copyright (C) <1999> Erik Walthinsen <omega@cse.ogi.edu>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library General Public
+ * License along with this library; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
+ */
+
+
+#ifndef __GST_SPEED_H__
+#define __GST_SPEED_H__
+
+
+#include <config.h>
+#include <gst/gst.h>
+// #include <gst/meta/audioraw.h>
+
+
+#ifdef __cplusplus
+extern "C" {
+#endif /* __cplusplus */
+
+
+#define GST_TYPE_SPEED \
+  (gst_speed_get_type())
+#define GST_SPEED(obj) \
+  (G_TYPE_CHECK_INSTANCE_CAST((obj),GST_TYPE_SPEED,GstSpeed))
+#define GST_SPEED_CLASS(klass) \
+  (G_TYPE_CHECK_CLASS_CAST((klass),GST_TYPE_ULAW,GstSpeed))
+#define GST_IS_SPEED(obj) \
+  (G_TYPE_CHECK_INSTANCE_TYPE((obj),GST_TYPE_SPEED))
+#define GST_IS_SPEED_CLASS(obj) \
+  (G_TYPE_CHECK_CLASS_TYPE((klass),GST_TYPE_SPEED))
+
+typedef struct _GstSpeed GstSpeed;
+typedef struct _GstSpeedClass GstSpeedClass;
+typedef enum _GstSpeedFormat GstSpeedFormat;
+
+enum _GstSpeedFormat {
+  GST_SPEED_FORMAT_INT,
+  GST_SPEED_FORMAT_FLOAT
+};
+
+struct _GstSpeed {
+  GstElement element;
+
+  GstPad *sinkpad, *srcpad;
+  GstBufferPool *sinkpool, *srcpool;
+  
+  gboolean silent;
+  
+  gfloat speed;
+  
+  /* the next three are valid for both int and float */
+  
+  GstSpeedFormat format;
+  
+  guint rate;
+  
+  guint channels;
+  
+  /* the next five are valid only for format==GST_SPEED_FORMAT_INT */
+  
+  guint width;
+  
+  guint depth;
+
+  guint endianness;
+  
+  guint law;
+  
+  gboolean is_signed;
+  
+  /* the next three are valid only for format==GST_SPEED_FORMAT_FLOAT */
+  
+  const gchar *layout;
+  
+  gfloat slope;
+  
+  gfloat intercept;
+};
+
+struct _GstSpeedClass {
+  GstElementClass parent_class;
+};
+
+GType gst_speed_get_type(void);
+
+#ifdef __cplusplus
+}
+#endif /* __cplusplus */
+
+
+#endif /* __GST_SPEED_H__ */