projects / melted / blob
? search:


291e1a4c9917c5ba860c0189122a8d6d503d1fbf
[melted] / src / inigo / inigo.c
1 #include <stdio.h>
2 #include <stdlib.h>
3 #include <string.h>
4 #include <sched.h>
5
6 #include <framework/mlt.h>
7
8 #ifdef __DARWIN__
9 #include <SDL.h>
10 #endif
11
12 #include "io.h"
13
14 static void transport_action( mlt_producer producer, char *value )
15 {
16 mlt_properties properties = MLT_PRODUCER_PROPERTIES( producer );
17 mlt_multitrack multitrack = mlt_properties_get_data( properties, "multitrack", NULL );
18 mlt_consumer consumer = mlt_properties_get_data( properties, "transport_consumer", NULL );
19
20 mlt_properties_set_int( properties, "stats_off", 0 );
21
22 if ( strlen( value ) == 1 )
23 {
24 switch( value[ 0 ] )
25 {
26 case 'q':
27 mlt_properties_set_int( properties, "done", 1 );
28 break;
29 case '0':
30 mlt_producer_set_speed( producer, 1 );
31 mlt_producer_seek( producer, 0 );
32 break;
33 case '1':
34 mlt_producer_set_speed( producer, -10 );
35 break;
36 case '2':
37 mlt_producer_set_speed( producer, -5 );
38 break;
39 case '3':
40 mlt_producer_set_speed( producer, -2 );
41 break;
42 case '4':
43 mlt_producer_set_speed( producer, -1 );
44 break;
45 case '5':
46 mlt_producer_set_speed( producer, 0 );
47 break;
48 case '6':
49 case ' ':
50 mlt_producer_set_speed( producer, 1 );
51 break;
52 case '7':
53 mlt_producer_set_speed( producer, 2 );
54 break;
55 case '8':
56 mlt_producer_set_speed( producer, 5 );
57 break;
58 case '9':
59 mlt_producer_set_speed( producer, 10 );
60 break;
61 case 'd':
62 if ( multitrack != NULL )
63 {
64 int i = 0;
65 mlt_position last = -1;
66 fprintf( stderr, "\n" );
67 for ( i = 0; 1; i ++ )
68 {
69 mlt_position time = mlt_multitrack_clip( multitrack, mlt_whence_relative_start, i );
70 if ( time == last )
71 break;
72 last = time;
73 fprintf( stderr, "%d: %d\n", i, (int)time );
74 }
75 }
76 break;
77
78 case 'g':
79 if ( multitrack != NULL )
80 {
81 mlt_position time = mlt_multitrack_clip( multitrack, mlt_whence_relative_current, 0 );
82 mlt_producer_seek( producer, time );
83 }
84 break;
85 case 'H':
86 if ( producer != NULL )
87 {
88 mlt_position position = mlt_producer_position( producer );
89 mlt_producer_seek( producer, position - ( mlt_producer_get_fps( producer ) * 60 ) );
90 }
91 break;
92 case 'h':
93 if ( producer != NULL )
94 {
95 mlt_position position = mlt_producer_position( producer );
96 mlt_producer_set_speed( producer, 0 );
97 mlt_producer_seek( producer, position - 1 );
98 }
99 break;
100 case 'j':
101 if ( multitrack != NULL )
102 {
103 mlt_position time = mlt_multitrack_clip( multitrack, mlt_whence_relative_current, 1 );
104 mlt_producer_seek( producer, time );
105 }
106 break;
107 case 'k':
108 if ( multitrack != NULL )
109 {
110 mlt_position time = mlt_multitrack_clip( multitrack, mlt_whence_relative_current, -1 );
111 mlt_producer_seek( producer, time );
112 }
113 break;
114 case 'l':
115 if ( producer != NULL )
116 {
117 mlt_position position = mlt_producer_position( producer );
118 if ( mlt_producer_get_speed( producer ) != 0 )
119 mlt_producer_set_speed( producer, 0 );
120 else
121 mlt_producer_seek( producer, position + 1 );
122 }
123 break;
124 case 'L':
125 if ( producer != NULL )
126 {
127 mlt_position position = mlt_producer_position( producer );
128 mlt_producer_seek( producer, position + ( mlt_producer_get_fps( producer ) * 60 ) );
129 }
130 break;
131 }
132
133 mlt_properties_set_int( MLT_CONSUMER_PROPERTIES( consumer ), "refresh", 1 );
134 }
135
136 mlt_properties_set_int( properties, "stats_off", 0 );
137 }
138
139 static mlt_consumer create_consumer( char *id, mlt_producer producer )
140 {
141 char *arg = id != NULL ? strchr( id, ':' ) : NULL;
142 if ( arg != NULL )
143 *arg ++ = '\0';
144 mlt_consumer consumer = mlt_factory_consumer( id, arg );
145 if ( consumer != NULL )
146 {
147 mlt_properties properties = MLT_CONSUMER_PROPERTIES( consumer );
148 mlt_properties_set_data( properties, "transport_callback", transport_action, 0, NULL, NULL );
149 mlt_properties_set_data( properties, "transport_producer", producer, 0, NULL, NULL );
150 mlt_properties_set_data( MLT_PRODUCER_PROPERTIES( producer ), "transport_consumer", consumer, 0, NULL, NULL );
151 }
152 return consumer;
153 }
154
155 #ifdef __DARWIN__
156
157 static void event_handling( mlt_producer producer, mlt_consumer consumer )
158 {
159 SDL_Event event;
160
161 while ( SDL_PollEvent( &event ) )
162 {
163 switch( event.type )
164 {
165 case SDL_QUIT:
166 mlt_properties_set_int( MLT_PRODUCER_PROPERTIES( consumer ), "done", 1 );
167 break;
168
169 case SDL_KEYDOWN:
170 if ( event.key.keysym.unicode < 0x80 && event.key.keysym.unicode > 0 )
171 {
172 char keyboard[ 2 ] = { event.key.keysym.unicode, 0 };
173 transport_action( producer, keyboard );
174 }
175 break;
176 }
177 }
178 }
179
180 #endif
181
182 static void transport( mlt_producer producer, mlt_consumer consumer )
183 {
184 mlt_properties properties = MLT_PRODUCER_PROPERTIES( producer );
185 int silent = mlt_properties_get_int( MLT_CONSUMER_PROPERTIES( consumer ), "silent" );
186 struct timespec tm = { 0, 40000 };
187
188 if ( mlt_properties_get_int( properties, "done" ) == 0 && !mlt_consumer_is_stopped( consumer ) )
189 {
190 if ( !silent )
191 {
192 term_init( );
193
194 fprintf( stderr, "+-----+ +-----+ +-----+ +-----+ +-----+ +-----+ +-----+ +-----+ +-----+\n" );
195 fprintf( stderr, "|1=-10| |2= -5| |3= -2| |4= -1| |5= 0| |6= 1| |7= 2| |8= 5| |9= 10|\n" );
196 fprintf( stderr, "+-----+ +-----+ +-----+ +-----+ +-----+ +-----+ +-----+ +-----+ +-----+\n" );
197
198 fprintf( stderr, "+---------------------------------------------------------------------+\n" );
199 fprintf( stderr, "| H = back 1 minute, L = forward 1 minute |\n" );
200 fprintf( stderr, "| h = previous frame, l = next frame |\n" );
201 fprintf( stderr, "| g = start of clip, j = next clip, k = previous clip |\n" );
202 fprintf( stderr, "| 0 = restart, q = quit, space = play |\n" );
203 fprintf( stderr, "+---------------------------------------------------------------------+\n" );
204 }
205
206 while( mlt_properties_get_int( properties, "done" ) == 0 && !mlt_consumer_is_stopped( consumer ) )
207 {
208 int value = silent ? -1 : term_read( );
209
210 if ( value != -1 )
211 {
212 char string[ 2 ] = { value, 0 };
213 transport_action( producer, string );
214 }
215
216 #ifdef __DARWIN__
217 event_handling( producer, consumer );
218 #endif
219
220 if ( !silent && mlt_properties_get_int( properties, "stats_off" ) == 0 )
221 fprintf( stderr, "Current Position: %10d\r", (int)mlt_producer_position( producer ) );
222
223 if ( silent )
224 nanosleep( &tm, NULL );
225 }
226
227 if ( !silent )
228 fprintf( stderr, "\n" );
229 }
230 }
231
232 int main( int argc, char **argv )
233 {
234 int i;
235 mlt_consumer consumer = NULL;
236 mlt_producer inigo = NULL;
237 FILE *store = NULL;
238 char *name = NULL;
239 struct sched_param scp;
240
241 // Use realtime scheduling if possible
242 memset( &scp, '\0', sizeof( scp ) );
243 scp.sched_priority = sched_get_priority_max( SCHED_FIFO ) - 1;
244 #ifndef __DARWIN__
245 sched_setscheduler( 0, SCHED_FIFO, &scp );
246 #endif
247
248 // Construct the factory
249 mlt_factory_init( NULL );
250
251 // Check for serialisation switch first
252 for ( i = 1; i < argc; i ++ )
253 {
254 if ( !strcmp( argv[ i ], "-serialise" ) )
255 {
256 name = argv[ ++ i ];
257 if ( strstr( name, ".inigo" ) )
258 store = fopen( name, "w" );
259 }
260 }
261
262 // Get inigo producer
263 if ( argc > 1 )
264 inigo = mlt_factory_producer( "inigo", &argv[ 1 ] );
265
266 if ( argc > 1 && inigo != NULL && mlt_producer_get_length( inigo ) > 0 )
267 {
268 // Get inigo's properties
269 mlt_properties inigo_props = MLT_PRODUCER_PROPERTIES( inigo );
270
271 // Get the last group
272 mlt_properties group = mlt_properties_get_data( inigo_props, "group", 0 );
273
274 // Parse the arguments
275 for ( i = 1; i < argc; i ++ )
276 {
277 if ( !strcmp( argv[ i ], "-consumer" ) )
278 {
279 consumer = create_consumer( argv[ ++ i ], inigo );
280 while ( argv[ i + 1 ] != NULL && strstr( argv[ i + 1 ], "=" ) )
281 mlt_properties_parse( group, argv[ ++ i ] );
282 }
283 else if ( !strcmp( argv[ i ], "-serialise" ) )
284 {
285 i ++;
286 }
287 else
288 {
289 if ( store != NULL )
290 fprintf( store, "%s\n", argv[ i ] );
291
292 i ++;
293
294 while ( argv[ i ] != NULL && argv[ i ][ 0 ] != '-' )
295 {
296 if ( store != NULL )
297 fprintf( store, "%s\n", argv[ i ] );
298 i += 1;
299 }
300
301 i --;
302 }
303 }
304
305 // If we have no consumer, default to sdl
306 if ( store == NULL && consumer == NULL )
307 consumer = create_consumer( NULL, inigo );
308
309 if ( consumer != NULL && store == NULL )
310 {
311 // Apply group settings
312 mlt_properties properties = MLT_CONSUMER_PROPERTIES( consumer );
313 mlt_properties_inherit( properties, group );
314
315 // Connect consumer to inigo
316 mlt_consumer_connect( consumer, MLT_PRODUCER_SERVICE( inigo ) );
317
318 // Start the consumer
319 mlt_consumer_start( consumer );
320
321 // Transport functionality
322 transport( inigo, consumer );
323
324 // Stop the consumer
325 mlt_consumer_stop( consumer );
326 }
327 else if ( store != NULL )
328 {
329 fprintf( stderr, "Project saved as %s.\n", name );
330 fclose( store );
331 }
332 }
333 else
334 {
335 fprintf( stderr, "Usage: inigo [ -group [ name=value ]* ]\n"
336 " [ -consumer id[:arg] [ name=value ]* ]\n"
337 " [ -filter filter[:arg] [ name=value ] * ]\n"
338 " [ -attach filter[:arg] [ name=value ] * ]\n"
339 " [ -mix length [ -mixer transition ]* ]\n"
340 " [ -transition id[:arg] [ name=value ] * ]\n"
341 " [ -blank frames ]\n"
342 " [ -track ]\n"
343 " [ -split relative-frame ]\n"
344 " [ -join clips ]\n"
345 " [ -repeat times ]\n"
346 " [ producer [ name=value ] * ]+\n" );
347 }
348
349 // Close the consumer
350 if ( consumer != NULL )
351 mlt_consumer_close( consumer );
352
353 // Close the producer
354 if ( inigo != NULL )
355 mlt_producer_close( inigo );
356
357 // Close the factory
358 mlt_factory_close( );
359
360 return 0;
361 }
my melted branch