* Copyright (C) 2003-2004 Ushodaya Enterprises Limited
* Author: Charles Yates <charles.yates@pandora.be>
*
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU 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 free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
*
- * This program is distributed in the hope that it will be useful,
+ * 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 General Public License for more details.
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Lesser General Public License for more details.
*
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software Foundation,
- * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ * You should have received a copy of the GNU Lesser 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 "filter_obscure.h"
-
+#include <framework/mlt_filter.h>
#include <framework/mlt_frame.h>
-#include <framework/mlt_deque.h>
+#include <framework/mlt_profile.h>
#include <stdio.h>
#include <stdlib.h>
struct geometry_s
{
+ int nw;
+ int nh;
float x;
float y;
float w;
int mask_h;
};
+/** Parse a value from a geometry string.
+*/
+
+static inline float parse_value( char **ptr, int normalisation, char delim, float defaults )
+{
+ float value = defaults;
+
+ if ( *ptr != NULL && **ptr != '\0' )
+ {
+ char *end = NULL;
+ value = strtod( *ptr, &end );
+ if ( end != NULL )
+ {
+ if ( *end == '%' )
+ value = ( value / 100.0 ) * normalisation;
+ while ( *end == delim || *end == '%' || ( delim == ',' && *end == '/' ) )
+ end ++;
+ }
+ *ptr = end;
+ }
+
+ return value;
+}
+
/** Parse a geometry property string.
*/
-static void geometry_parse( struct geometry_s *geometry, struct geometry_s *defaults, char *property )
+static void geometry_parse( struct geometry_s *geometry, struct geometry_s *defaults, char *property, int nw, int nh )
{
+ // Assign normalised width and height
+ geometry->nw = nw;
+ geometry->nh = nh;
+
// Assign from defaults if available
if ( defaults != NULL )
{
}
else
{
+ geometry->x = 0;
+ geometry->y = 0;
+ geometry->w = nw;
+ geometry->h = nh;
geometry->mask_w = 20;
geometry->mask_h = 20;
}
// Parse the geomtry string
if ( property != NULL )
- sscanf( property, "%f,%f:%fx%f:%dx%d", &geometry->x, &geometry->y, &geometry->w, &geometry->h, &geometry->mask_w, &geometry->mask_h );
+ {
+ char *ptr = property;
+ geometry->x = parse_value( &ptr, nw, ',', geometry->x );
+ geometry->y = parse_value( &ptr, nh, ':', geometry->y );
+ geometry->w = parse_value( &ptr, nw, 'x', geometry->w );
+ geometry->h = parse_value( &ptr, nh, ':', geometry->h );
+ geometry->mask_w = parse_value( &ptr, nw, 'x', geometry->mask_w );
+ geometry->mask_h = parse_value( &ptr, nh, ' ', geometry->mask_h );
+ }
}
/** A Timism but not as clean ;-).
{
if ( value < lower )
return lower;
- else if ( value > upper )
+ else if ( upper > lower && value > upper )
return upper;
return value;
}
/** Calculate real geometry.
*/
-static void geometry_calculate( struct geometry_s *output, struct geometry_s *in, struct geometry_s *out, float position )
+static void geometry_calculate( struct geometry_s *output, struct geometry_s *in, struct geometry_s *out, float position, int ow, int oh )
{
// Calculate this frames geometry
- output->x = lerp( in->x + ( out->x - in->x ) * position, 0, 100 );
- output->y = lerp( in->y + ( out->y - in->y ) * position, 0, 100 );
- output->w = lerp( in->w + ( out->w - in->w ) * position, 0, 100 - output->x );
- output->h = lerp( in->h + ( out->h - in->h ) * position, 0, 100 - output->y );
- output->mask_w = in->mask_w + ( out->mask_w - in->mask_w ) * position;
- output->mask_h = in->mask_h + ( out->mask_h - in->mask_h ) * position;
-}
-
-/** Calculate the position for this frame.
-*/
-
-static float position_calculate( mlt_filter this, mlt_frame frame )
-{
- // Get the in and out position
- mlt_position in = mlt_filter_get_in( this );
- mlt_position out = mlt_filter_get_out( this );
-
- // Get the position of the frame
- mlt_position position = mlt_frame_get_position( frame );
-
- // Now do the calcs
- return ( float )( position - in ) / ( float )( out - in + 1 );
+ output->x = lerp( ( in->x + ( out->x - in->x ) * position ) / ( float )out->nw * ow, 0, ow );
+ output->y = lerp( ( in->y + ( out->y - in->y ) * position ) / ( float )out->nh * oh, 0, oh );
+ output->w = lerp( ( in->w + ( out->w - in->w ) * position ) / ( float )out->nw * ow, 0, ow - output->x );
+ output->h = lerp( ( in->h + ( out->h - in->h ) * position ) / ( float )out->nh * oh, 0, oh - output->y );
+ output->mask_w = lerp( in->mask_w + ( out->mask_w - in->mask_w ) * position, 1, -1 );
+ output->mask_h = lerp( in->mask_h + ( out->mask_h - in->mask_h ) * position, 1, -1 );
}
/** The averaging function...
*/
-void obscure_average( uint8_t *start, int width, int height, int stride )
+static inline void obscure_average( uint8_t *start, int width, int height, int stride )
{
- int y;
- int x;
- int Y = ( *start + *( start + 2 ) ) / 2;
- int U = *( start + 1 );
- int V = *( start + 3 );
-
- for ( y = 0; y < height; y ++ )
+ register int y;
+ register int x;
+ register int Y = ( *start + *( start + 2 ) ) / 2;
+ register int U = *( start + 1 );
+ register int V = *( start + 3 );
+ register uint8_t *p;
+ register int components = width >> 1;
+
+ y = height;
+ while( y -- )
{
- uint8_t *p = start + y * stride;
- for ( x = 0; x < width / 2; x ++ )
+ p = start;
+ x = components;
+ while( x -- )
{
- Y = ( Y + *p ++ ) / 2;
- U = ( U + *p ++ ) / 2;
- Y = ( Y + *p ++ ) / 2;
- V = ( V + *p ++ ) / 2;
+ Y = ( Y + *p ++ ) >> 1;
+ U = ( U + *p ++ ) >> 1;
+ Y = ( Y + *p ++ ) >> 1;
+ V = ( V + *p ++ ) >> 1;
}
+ start += stride;
}
- for ( y = 0; y < height; y ++ )
+ start -= height * stride;
+ y = height;
+ while( y -- )
{
- uint8_t *p = start + y * stride;
- for ( x = 0; x < width / 2; x ++ )
+ p = start;
+ x = components;
+ while( x -- )
{
*p ++ = Y;
*p ++ = U;
*p ++ = Y;
*p ++ = V;
}
+ start += stride;
}
}
static void obscure_render( uint8_t *image, int width, int height, struct geometry_s result )
{
- int area_x = ( result.x / 100 ) * width;
- int area_y = ( result.y / 100 ) * height;
- int area_w = ( result.w / 100 ) * width;
- int area_h = ( result.h / 100 ) * height;
+ int area_x = result.x;
+ int area_y = result.y;
+ int area_w = result.w;
+ int area_h = result.h;
int mw = result.mask_w;
int mh = result.mask_h;
int w;
int h;
+ int aw;
+ int ah;
uint8_t *p = image + area_y * width * 2 + area_x * 2;
{
for ( h = 0; h < area_h; h += mh )
{
- int aw = w + mw > area_w ? mw - ( w + mw - area_w ) : mw;
- int ah = h + mh > area_h ? mh - ( h + mh - area_h ) : mh;
- if ( aw > 1 && ah > 1 );
- obscure_average( p + h * width * 2 + w * 2, aw, ah, width * 2 );
+ aw = w + mw > area_w ? mw - ( w + mw - area_w ) : mw;
+ ah = h + mh > area_h ? mh - ( h + mh - area_h ) : mh;
+ if ( aw > 1 && ah > 1 )
+ obscure_average( p + h * ( width << 1 ) + ( w << 1 ), aw, ah, width << 1 );
}
}
}
static int filter_get_image( mlt_frame frame, uint8_t **image, mlt_image_format *format, int *width, int *height, int writable )
{
- // Get the frame properties
- mlt_properties frame_properties = mlt_frame_properties( frame );
-
- // Fetch the obscure stack for this frame
- mlt_deque deque = mlt_properties_get_data( frame_properties, "filter_obscure", NULL );
-
// Pop the top of stack now
- mlt_filter this = mlt_deque_pop_back( deque );
+ mlt_filter filter = mlt_frame_pop_service( frame );
+
+ // Get the image from the frame
+ *format = mlt_image_yuv422;
+ int error = mlt_frame_get_image( frame, image, format, width, height, 1 );
// Get the image from the frame
- if ( mlt_frame_get_image( frame, image, format, width, height, 1 ) == 0 )
+ if ( error == 0 )
{
- if ( this != NULL )
+ if ( filter != NULL )
{
// Get the filter properties
- mlt_properties properties = mlt_filter_properties( this );
+ mlt_properties properties = MLT_FILTER_PROPERTIES( filter );
+ mlt_profile profile = mlt_service_profile( MLT_FILTER_SERVICE( filter ) );
// Structures for geometry
struct geometry_s result;
struct geometry_s start;
struct geometry_s end;
- // Calculate the position
- float position = position_calculate( this, frame );
+ // Retrieve the position
+ float position = mlt_filter_get_progress( filter, frame );
// Now parse the geometries
- geometry_parse( &start, NULL, mlt_properties_get( properties, "start" ) );
- geometry_parse( &end, &start, mlt_properties_get( properties, "end" ) );
+ geometry_parse( &start, NULL, mlt_properties_get( properties, "start" ), profile->width, profile->height );
+ geometry_parse( &end, &start, mlt_properties_get( properties, "end" ), profile->width, profile->height );
// Do the calculation
- geometry_calculate( &result, &start, &end, position );
+ geometry_calculate( &result, &start, &end, position, *width, *height );
// Now actually render it
obscure_render( *image, *width, *height, result );
}
}
- return 0;
+ return error;
}
/** Filter processing.
*/
-static mlt_frame filter_process( mlt_filter this, mlt_frame frame )
+static mlt_frame filter_process( mlt_filter filter, mlt_frame frame )
{
- // Get the frame properties
- mlt_properties frame_properties = mlt_frame_properties( frame );
-
- // Fetch the obscure stack for this frame
- mlt_deque deque = mlt_properties_get_data( frame_properties, "filter_obscure", NULL );
-
- // Create stack if necessary
- if ( deque == NULL )
- {
- // Create the deque
- deque = mlt_deque_init( );
-
- // Assign to the frame
- mlt_properties_set_data( frame_properties, "filter_obscure", deque, 0, ( mlt_destructor )mlt_deque_close, NULL );
- }
-
- // Push this on to the obscure stack
- mlt_deque_push_back( deque, this );
+ // Push this on to the service stack
+ mlt_frame_push_service( frame, filter );
// Push the get image call
mlt_frame_push_get_image( frame, filter_get_image );
/** Constructor for the filter.
*/
-mlt_filter filter_obscure_init( void *arg )
+mlt_filter filter_obscure_init( mlt_profile profile, mlt_service_type type, const char *id, char *arg )
{
- mlt_filter this = calloc( 1, sizeof( struct mlt_filter_s ) );
- mlt_properties properties = mlt_filter_properties( this );
- mlt_filter_init( this, NULL );
- this->process = filter_process;
- mlt_properties_set( properties, "start", "40,40:20x20" );
- mlt_properties_set( properties, "end", "" );
- return this;
+ mlt_filter filter = mlt_filter_new( );
+ if ( filter != NULL )
+ {
+ mlt_properties properties = MLT_FILTER_PROPERTIES( filter );
+ filter->process = filter_process;
+ mlt_properties_set( properties, "start", arg != NULL ? arg : "0%/0%:100%x100%" );
+ mlt_properties_set( properties, "end", "" );
+ }
+ return filter;
}