1 /*
2 * control-sources.c
3 *
4 * Generates a datafile for various control sources.
5 *
6 * Needs gnuplot for plotting.
7 * plot "ctrl_i1.dat" using 1:2 with points title 'none', "" using 1:3 with points title 'linear', "" using 1:4 with points title 'cubic', "ctrl_i2.dat" using 1:2 with lines title 'none', "" using 1:3 with lines title 'linear', "" using 1:4 with lines title 'cubic'
8 * plot "ctrl_l1.dat" using 1:2 with points title 'sine', "" using 1:3 with points title 'square', "" using 1:4 with points title 'saw', "" using 1:5 with points title 'revsaw', "" using 1:6 with points title 'triangle', "ctrl_l2.dat" using 1:2 with lines title 'sine', "" using 1:3 with lines title 'square', "" using 1:4 with lines title 'saw', "" using 1:5 with lines title 'revsaw', "" using 1:6 with lines title 'triangle'
9 * plot "ctrl_cl1.dat" using 1:2 with points title 'sine', "ctrl_cl2.dat" using 1:2 with lines title 'sine'
10 */
11
12 #include <stdio.h>
13 #include <stdlib.h>
14
15 #include <gst/gst.h>
16 #include <gst/controller/gstinterpolationcontrolsource.h>
17 #include <gst/controller/gstlfocontrolsource.h>
18 #include <gst/controller/gstdirectcontrolbinding.h>
19
20 /* local test element */
21
22 enum
23 {
24 PROP_INT = 1,
25 PROP_FLOAT,
26 PROP_DOUBLE,
27 PROP_BOOLEAN,
28 PROP_COUNT
29 };
30
31 #define GST_TYPE_TEST_OBJ (gst_test_obj_get_type ())
32 #define GST_TEST_OBJ(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), GST_TYPE_TEST_OBJ, GstTestObj))
33 #define GST_TEST_OBJ_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), GST_TYPE_TEST_OBJ, GstTestObjClass))
34 #define GST_IS_TEST_OBJ(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), GST_TYPE_TEST_OBJ))
35 #define GST_IS_TEST_OBJ_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), GST_TYPE_TEST_OBJ))
36 #define GST_TEST_OBJ_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), GST_TYPE_TEST_OBJ, GstTestObjClass))
37
38 typedef struct _GstTestObj GstTestObj;
39 typedef struct _GstTestObjClass GstTestObjClass;
40
41 struct _GstTestObj
42 {
43 GstElement parent;
44 gint val_int;
45 gfloat val_float;
46 gdouble val_double;
47 gboolean val_boolean;
48 };
49 struct _GstTestObjClass
50 {
51 GstElementClass parent_class;
52 };
53
54 static GType gst_test_obj_get_type (void);
55
56 static void
gst_test_obj_get_property(GObject * object,guint property_id,GValue * value,GParamSpec * pspec)57 gst_test_obj_get_property (GObject * object,
58 guint property_id, GValue * value, GParamSpec * pspec)
59 {
60 GstTestObj *self = GST_TEST_OBJ (object);
61
62 switch (property_id) {
63 case PROP_INT:
64 g_value_set_int (value, self->val_int);
65 break;
66 case PROP_FLOAT:
67 g_value_set_float (value, self->val_float);
68 break;
69 case PROP_DOUBLE:
70 g_value_set_double (value, self->val_double);
71 break;
72 case PROP_BOOLEAN:
73 g_value_set_boolean (value, self->val_boolean);
74 break;
75 default:
76 G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
77 break;
78 }
79 }
80
81 static void
gst_test_obj_set_property(GObject * object,guint property_id,const GValue * value,GParamSpec * pspec)82 gst_test_obj_set_property (GObject * object,
83 guint property_id, const GValue * value, GParamSpec * pspec)
84 {
85 GstTestObj *self = GST_TEST_OBJ (object);
86
87 switch (property_id) {
88 case PROP_INT:
89 self->val_int = g_value_get_int (value);
90 GST_DEBUG ("test value int=%d", self->val_int);
91 break;
92 case PROP_FLOAT:
93 self->val_float = g_value_get_float (value);
94 GST_DEBUG ("test value float=%f", self->val_float);
95 break;
96 case PROP_DOUBLE:
97 self->val_double = g_value_get_double (value);
98 GST_DEBUG ("test value double=%f", self->val_double);
99 break;
100 case PROP_BOOLEAN:
101 self->val_boolean = g_value_get_boolean (value);
102 GST_DEBUG ("test value boolean=%d", self->val_boolean);
103 break;
104 default:
105 G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
106 break;
107 }
108 }
109
110 static void
gst_test_obj_class_init(GstTestObjClass * klass)111 gst_test_obj_class_init (GstTestObjClass * klass)
112 {
113 GObjectClass *gobject_class = G_OBJECT_CLASS (klass);
114
115 gobject_class->set_property = gst_test_obj_set_property;
116 gobject_class->get_property = gst_test_obj_get_property;
117
118 g_object_class_install_property (gobject_class, PROP_INT,
119 g_param_spec_int ("int",
120 "int prop",
121 "int number parameter",
122 0, 100, 0, G_PARAM_READWRITE | GST_PARAM_CONTROLLABLE));
123
124 g_object_class_install_property (gobject_class, PROP_FLOAT,
125 g_param_spec_float ("float",
126 "float prop",
127 "float number parameter",
128 0.0, 100.0, 0.0, G_PARAM_READWRITE | GST_PARAM_CONTROLLABLE));
129
130 g_object_class_install_property (gobject_class, PROP_DOUBLE,
131 g_param_spec_double ("double",
132 "double prop",
133 "double number parameter",
134 0.0, 100.0, 0.0, G_PARAM_READWRITE | GST_PARAM_CONTROLLABLE));
135
136 g_object_class_install_property (gobject_class, PROP_BOOLEAN,
137 g_param_spec_boolean ("boolean",
138 "boolean prop",
139 "boolean parameter",
140 FALSE, G_PARAM_READWRITE | GST_PARAM_CONTROLLABLE));
141 }
142
143 static void
gst_test_obj_base_init(GstTestObjClass * klass)144 gst_test_obj_base_init (GstTestObjClass * klass)
145 {
146 GstElementClass *element_class = GST_ELEMENT_CLASS (klass);
147
148 gst_element_class_set_metadata (element_class,
149 "test object for unit tests",
150 "Test", "Use in unit tests", "Stefan Sauer <ensonic@users.sf.net>");
151 }
152
153 static GType
gst_test_obj_get_type(void)154 gst_test_obj_get_type (void)
155 {
156 static gsize TEST_OBJ_type = 0;
157
158 if (g_once_init_enter (&TEST_OBJ_type)) {
159 GType type;
160 static const GTypeInfo info = {
161 (guint16) sizeof (GstTestObjClass),
162 (GBaseInitFunc) gst_test_obj_base_init, // base_init
163 NULL, // base_finalize
164 (GClassInitFunc) gst_test_obj_class_init, // class_init
165 NULL, // class_finalize
166 NULL, // class_data
167 (guint16) sizeof (GstTestObj),
168 0, // n_preallocs
169 NULL, // instance_init
170 NULL // value_table
171 };
172 type = g_type_register_static (GST_TYPE_ELEMENT, "GstTestObj", &info, 0);
173 g_once_init_leave (&TEST_OBJ_type, type);
174 }
175 return TEST_OBJ_type;
176 }
177
178 static void
test_interpolation(void)179 test_interpolation (void)
180 {
181 GstObject *e;
182 GstTimedValueControlSource *tvcs;
183 GstControlSource *cs;
184 gint t, i1, i2, i3;
185 GValue *v1, *v2, *v3;
186 gint n_values;
187 FILE *f;
188
189 e = (GstObject *) gst_element_factory_make ("testobj", NULL);
190
191 cs = gst_interpolation_control_source_new ();
192 tvcs = (GstTimedValueControlSource *) cs;
193
194 gst_object_add_control_binding (e, gst_direct_control_binding_new (e, "int",
195 cs));
196
197 gst_timed_value_control_source_set (tvcs, 0 * GST_SECOND, 0.0);
198 gst_timed_value_control_source_set (tvcs, 10 * GST_SECOND, 1.0);
199 gst_timed_value_control_source_set (tvcs, 20 * GST_SECOND, 0.5);
200 gst_timed_value_control_source_set (tvcs, 30 * GST_SECOND, 0.2);
201
202 /* test single values */
203 if (!(f = fopen ("ctrl_i1.dat", "w")))
204 exit (-1);
205 fprintf (f, "# Time None Linear Cubic\n");
206
207 for (t = 0; t < 40; t++) {
208 g_object_set (cs, "mode", GST_INTERPOLATION_MODE_NONE, NULL);
209 gst_object_sync_values (e, t * GST_SECOND);
210 i1 = GST_TEST_OBJ (e)->val_int;
211
212 g_object_set (cs, "mode", GST_INTERPOLATION_MODE_LINEAR, NULL);
213 gst_object_sync_values (e, t * GST_SECOND);
214 i2 = GST_TEST_OBJ (e)->val_int;
215
216 g_object_set (cs, "mode", GST_INTERPOLATION_MODE_CUBIC, NULL);
217 gst_object_sync_values (e, t * GST_SECOND);
218 i3 = GST_TEST_OBJ (e)->val_int;
219
220 fprintf (f, "%4.1f %d %d %d\n", (gfloat) t, i1, i2, i3);
221 }
222
223 fclose (f);
224
225 /* test value arrays */
226 if (!(f = fopen ("ctrl_i2.dat", "w")))
227 exit (-1);
228 fprintf (f, "# Time None Linear Cubic\n");
229 n_values = 40 * 10;
230
231 g_object_set (cs, "mode", GST_INTERPOLATION_MODE_NONE, NULL);
232 v1 = g_new0 (GValue, n_values);
233 gst_object_get_g_value_array (e, "int", 0, GST_SECOND / 10, n_values, v1);
234
235 g_object_set (cs, "mode", GST_INTERPOLATION_MODE_LINEAR, NULL);
236 v2 = g_new0 (GValue, n_values);
237 gst_object_get_g_value_array (e, "int", 0, GST_SECOND / 10, n_values, v2);
238
239 g_object_set (cs, "mode", GST_INTERPOLATION_MODE_CUBIC, NULL);
240 v3 = g_new0 (GValue, n_values);
241 gst_object_get_g_value_array (e, "int", 0, GST_SECOND / 10, n_values, v3);
242
243 for (t = 0; t < n_values; t++) {
244 i1 = g_value_get_int (&v1[t]);
245 i2 = g_value_get_int (&v2[t]);
246 i3 = g_value_get_int (&v3[t]);
247 fprintf (f, "%4.1f %d %d %d\n", (gfloat) t / 10.0, i1, i2, i3);
248 g_value_unset (&v1[t]);
249 g_value_unset (&v2[t]);
250 g_value_unset (&v3[t]);
251 }
252 g_free (v1);
253 g_free (v2);
254 g_free (v3);
255
256 fclose (f);
257
258 gst_object_unref (cs);
259 gst_object_unref (e);
260 }
261
262 static void
test_lfo(void)263 test_lfo (void)
264 {
265 GstObject *e;
266 GstControlSource *cs;
267 gint t, i1, i2, i3, i4, i5;
268 GValue *v1, *v2, *v3, *v4, *v5;
269 gint n_values;
270 FILE *f;
271
272 e = (GstObject *) gst_element_factory_make ("testobj", NULL);
273
274 cs = gst_lfo_control_source_new ();
275
276 gst_object_add_control_binding (e, gst_direct_control_binding_new (e, "int",
277 cs));
278
279 g_object_set (cs,
280 "frequency", (gdouble) 0.05,
281 "timeshift", (GstClockTime) 0,
282 "amplitude", (gdouble) 0.5, "offset", (gdouble) 0.5, NULL);
283
284 /* test single values */
285 if (!(f = fopen ("ctrl_l1.dat", "w")))
286 exit (-1);
287 fprintf (f, "# Time Sine Square Saw RevSaw Triangle\n");
288
289 for (t = 0; t < 40; t++) {
290 g_object_set (cs, "waveform", GST_LFO_WAVEFORM_SINE, NULL);
291 gst_object_sync_values (e, t * GST_SECOND);
292 i1 = GST_TEST_OBJ (e)->val_int;
293
294 g_object_set (cs, "waveform", GST_LFO_WAVEFORM_SQUARE, NULL);
295 gst_object_sync_values (e, t * GST_SECOND);
296 i2 = GST_TEST_OBJ (e)->val_int;
297
298 g_object_set (cs, "waveform", GST_LFO_WAVEFORM_SAW, NULL);
299 gst_object_sync_values (e, t * GST_SECOND);
300 i3 = GST_TEST_OBJ (e)->val_int;
301
302 g_object_set (cs, "waveform", GST_LFO_WAVEFORM_REVERSE_SAW, NULL);
303 gst_object_sync_values (e, t * GST_SECOND);
304 i4 = GST_TEST_OBJ (e)->val_int;
305
306 g_object_set (cs, "waveform", GST_LFO_WAVEFORM_TRIANGLE, NULL);
307 gst_object_sync_values (e, t * GST_SECOND);
308 i5 = GST_TEST_OBJ (e)->val_int;
309
310 fprintf (f, "%4.1f %d %d %d %d %d\n", (gfloat) t, i1, i2, i3, i4, i5);
311 }
312
313 fclose (f);
314
315 /* test value arrays */
316 if (!(f = fopen ("ctrl_l2.dat", "w")))
317 exit (-1);
318 fprintf (f, "# Time Sine Square Saw RevSaw Triangle\n");
319 n_values = 40 * 10;
320
321 g_object_set (cs, "waveform", GST_LFO_WAVEFORM_SINE, NULL);
322 v1 = g_new0 (GValue, n_values);
323 gst_object_get_g_value_array (e, "int", 0, GST_SECOND / 10, n_values, v1);
324
325 g_object_set (cs, "waveform", GST_LFO_WAVEFORM_SQUARE, NULL);
326 v2 = g_new0 (GValue, n_values);
327 gst_object_get_g_value_array (e, "int", 0, GST_SECOND / 10, n_values, v2);
328
329 g_object_set (cs, "waveform", GST_LFO_WAVEFORM_SAW, NULL);
330 v3 = g_new0 (GValue, n_values);
331 gst_object_get_g_value_array (e, "int", 0, GST_SECOND / 10, n_values, v3);
332
333 g_object_set (cs, "waveform", GST_LFO_WAVEFORM_REVERSE_SAW, NULL);
334 v4 = g_new0 (GValue, n_values);
335 gst_object_get_g_value_array (e, "int", 0, GST_SECOND / 10, n_values, v4);
336
337 g_object_set (cs, "waveform", GST_LFO_WAVEFORM_TRIANGLE, NULL);
338 v5 = g_new0 (GValue, n_values);
339 gst_object_get_g_value_array (e, "int", 0, GST_SECOND / 10, n_values, v5);
340
341 for (t = 0; t < n_values; t++) {
342 i1 = g_value_get_int (&v1[t]);
343 i2 = g_value_get_int (&v2[t]);
344 i3 = g_value_get_int (&v3[t]);
345 i4 = g_value_get_int (&v4[t]);
346 i5 = g_value_get_int (&v5[t]);
347 fprintf (f, "%4.1f %d %d %d %d %d\n", (gfloat) t / 10.0, i1, i2, i3, i4,
348 i5);
349 g_value_unset (&v1[t]);
350 g_value_unset (&v2[t]);
351 g_value_unset (&v3[t]);
352 g_value_unset (&v4[t]);
353 g_value_unset (&v5[t]);
354 }
355 g_free (v1);
356 g_free (v2);
357 g_free (v3);
358 g_free (v4);
359 g_free (v5);
360
361 fclose (f);
362
363 gst_object_unref (cs);
364 gst_object_unref (e);
365 }
366
367 static void
test_chained_lfo(void)368 test_chained_lfo (void)
369 {
370 GstObject *e;
371 GstControlSource *cs1, *cs2;
372 gint t, i1;
373 GValue *v1;
374 gint n_values;
375 FILE *f;
376
377 e = (GstObject *) gst_element_factory_make ("testobj", NULL);
378
379 cs1 = gst_lfo_control_source_new ();
380
381 gst_object_add_control_binding (e, gst_direct_control_binding_new (e, "int",
382 cs1));
383
384 g_object_set (cs1,
385 "waveform", GST_LFO_WAVEFORM_SINE,
386 "frequency", (gdouble) 0.05,
387 "timeshift", (GstClockTime) 0, "offset", (gdouble) 0.5, NULL);
388
389 cs2 = gst_lfo_control_source_new ();
390
391 gst_object_add_control_binding ((GstObject *) cs1,
392 gst_direct_control_binding_new ((GstObject *) cs1, "amplitude", cs2));
393
394 g_object_set (cs2,
395 "waveform", GST_LFO_WAVEFORM_SINE,
396 "frequency", (gdouble) 0.05,
397 "timeshift", (GstClockTime) 0,
398 "amplitude", (gdouble) 0.5, "offset", (gdouble) 0.5, NULL);
399
400 /* test single values */
401 if (!(f = fopen ("ctrl_cl1.dat", "w")))
402 exit (-1);
403 fprintf (f, "# Time Sine\n");
404
405 for (t = 0; t < 40; t++) {
406 gst_object_sync_values (e, t * GST_SECOND);
407 i1 = GST_TEST_OBJ (e)->val_int;
408
409 fprintf (f, "%4.1f %d\n", (gfloat) t, i1);
410 }
411
412 fclose (f);
413
414 /* test value arrays */
415 if (!(f = fopen ("ctrl_cl2.dat", "w")))
416 exit (-1);
417 fprintf (f, "# Time Sine\n");
418 n_values = 40 * 10;
419
420 v1 = g_new0 (GValue, n_values);
421 gst_object_get_g_value_array (e, "int", 0, GST_SECOND / 10, n_values, v1);
422
423 for (t = 0; t < n_values; t++) {
424 i1 = g_value_get_int (&v1[t]);
425 fprintf (f, "%4.1f %d\n", (gfloat) t / 10.0, i1);
426 g_value_unset (&v1[t]);
427 }
428 g_free (v1);
429
430 fclose (f);
431
432 gst_object_unref (cs1);
433 gst_object_unref (cs2);
434 gst_object_unref (e);
435 }
436
437 gint
main(gint argc,gchar ** argv)438 main (gint argc, gchar ** argv)
439 {
440 gst_init (&argc, &argv);
441
442 gst_element_register (NULL, "testobj", GST_RANK_NONE, GST_TYPE_TEST_OBJ);
443
444 test_interpolation ();
445 test_lfo ();
446
447 test_chained_lfo ();
448
449 return 0;
450 }
451