summaryrefslogtreecommitdiffstats
path: root/gst/speed
diff options
context:
space:
mode:
Diffstat (limited to 'gst/speed')
-rw-r--r--gst/speed/Makefile.am8
-rw-r--r--gst/speed/filter.func66
-rw-r--r--gst/speed/gstspeed.c347
-rw-r--r--gst/speed/gstspeed.h106
4 files changed, 527 insertions, 0 deletions
diff --git a/gst/speed/Makefile.am b/gst/speed/Makefile.am
new file mode 100644
index 00000000..35aed207
--- /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 00000000..89429528
--- /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 00000000..51811227
--- /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 00000000..530a9dc8
--- /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__ */