]> git.sesse.net Git - mlt/blobdiff - src/modules/gtk2/producer_pango.c
Add support for HTML style color parameter to producer_pango.
[mlt] / src / modules / gtk2 / producer_pango.c
index 7da47d1710071f5b23172ec234710824223c1364..e1bff5d43bba5a0f79942689c98eb0994752b772 100644 (file)
@@ -3,22 +3,22 @@
  * Copyright (C) 2003-2004 Ushodaya Enterprises Limited
  * Author: Dan Dennedy <dan@dennedy.org>
  *
- * 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 "producer_pango.h"
+#include <framework/mlt_producer.h>
 #include <framework/mlt_frame.h>
 #include <framework/mlt_geometry.h>
 #include <stdlib.h>
 #include <freetype/freetype.h>
 #include <iconv.h>
 #include <pthread.h>
+#include <ctype.h>
+
+typedef struct producer_pango_s *producer_pango;
+
+typedef enum
+{
+       pango_align_left = 0,
+       pango_align_center,
+       pango_align_right
+} pango_align;
 
 static pthread_mutex_t pango_mutex = PTHREAD_MUTEX_INITIALIZER;
 
 struct producer_pango_s
 {
        struct mlt_producer_s parent;
-       int width;
-       int height;
-       uint8_t *image;
-       uint8_t *alpha;
+       int   width;
+       int   height;
+       GdkPixbuf *pixbuf;
        char *fgcolor;
        char *bgcolor;
        int   align;
@@ -45,7 +54,7 @@ struct producer_pango_s
        char *markup;
        char *text;
        char *font;
-       int weight;
+       int   weight;
 };
 
 // special color type used by internal pango routines
@@ -123,7 +132,9 @@ mlt_producer producer_pango_init( const char *filename )
                mlt_properties_set( properties, "encoding", "UTF-8" );
                mlt_properties_set_int( properties, "weight", PANGO_WEIGHT_NORMAL );
 
-               if ( filename == NULL )
+               if ( filename == NULL || ( filename && ( !strcmp( filename, "" )
+                       // workaround for old kdenlive countdown generator
+                       || strstr( filename, "&lt;producer&gt;" ) ) ) )
                {
                        mlt_properties_set( properties, "markup", "" );
                }
@@ -136,7 +147,7 @@ mlt_producer producer_pango_init( const char *filename )
                        ( *strrchr( markup, '.' ) ) = '\0';
                        while ( strchr( markup, '~' ) )
                                ( *strchr( markup, '~' ) ) = '\n';
-                       mlt_properties_set( properties, "resource", ( char * )filename );
+                       mlt_properties_set( properties, "resource", filename );
                        mlt_properties_set( properties, "markup", markup );
                        free( copy );
                }
@@ -146,7 +157,7 @@ mlt_producer producer_pango_init( const char *filename )
                        mlt_properties contents = mlt_properties_load( filename );
                        mlt_geometry key_frames = mlt_geometry_init( );
                        struct mlt_geometry_item_s item;
-                       mlt_properties_set( properties, "resource", ( char * )filename );
+                       mlt_properties_set( properties, "resource", filename );
                        mlt_properties_set_data( properties, "contents", contents, 0, ( mlt_destructor )mlt_properties_close, NULL );
                        mlt_properties_set_data( properties, "key_frames", key_frames, 0, ( mlt_destructor )mlt_geometry_close, NULL );
 
@@ -163,6 +174,7 @@ mlt_producer producer_pango_init( const char *filename )
                                item.frame = atoi( name );
                                mlt_geometry_insert( key_frames, &item );
                        }
+                       mlt_geometry_interpolate( key_frames );
                }
                else
                {
@@ -192,13 +204,16 @@ mlt_producer producer_pango_init( const char *filename )
                                if ( markup[ strlen( markup ) - 1 ] == '\n' ) 
                                        markup[ strlen( markup ) - 1 ] = '\0';
 
-                               mlt_properties_set( properties, "resource", ( char * ) filename );
-                               mlt_properties_set( properties, "markup", ( char * ) ( markup == NULL ? "" : markup ) );
+                               mlt_properties_set( properties, "resource", filename );
+                               mlt_properties_set( properties, "markup", ( markup == NULL ? "" : markup ) );
                                free( markup );
                        }
                        else
                        {
-                               mlt_properties_set( properties, "markup", "" );
+                               producer->close = NULL;
+                               mlt_producer_close( producer );
+                               producer = NULL;
+                               free( this );
                        }
                }
 
@@ -208,7 +223,7 @@ mlt_producer producer_pango_init( const char *filename )
        return NULL;
 }
 
-static void set_string( char **string, char *value, char *fallback )
+static void set_string( char **string, const char *value, const char *fallback )
 {
        if ( value != NULL )
        {
@@ -226,20 +241,11 @@ static void set_string( char **string, char *value, char *fallback )
        }
 }
 
-rgba_color parse_color( char *color )
+rgba_color parse_color( char *color, unsigned int color_int )
 {
        rgba_color result = { 0xff, 0xff, 0xff, 0xff };
 
-       if ( !strncmp( color, "0x", 2 ) )
-       {
-               unsigned int temp = 0;
-               sscanf( color + 2, "%x", &temp );
-               result.r = ( temp >> 24 ) & 0xff;
-               result.g = ( temp >> 16 ) & 0xff;
-               result.b = ( temp >> 8 ) & 0xff;
-               result.a = ( temp ) & 0xff;
-       }
-       else if ( !strcmp( color, "red" ) )
+       if ( !strcmp( color, "red" ) )
        {
                result.r = 0xff;
                result.g = 0x00;
@@ -257,14 +263,12 @@ rgba_color parse_color( char *color )
                result.g = 0x00;
                result.b = 0xff;
        }
-       else
+       else if ( strcmp( color, "white" ) )
        {
-               unsigned int temp = 0;
-               sscanf( color, "%d", &temp );
-               result.r = ( temp >> 24 ) & 0xff;
-               result.g = ( temp >> 16 ) & 0xff;
-               result.b = ( temp >> 8 ) & 0xff;
-               result.a = ( temp ) & 0xff;
+               result.r = ( color_int >> 24 ) & 0xff;
+               result.g = ( color_int >> 16 ) & 0xff;
+               result.b = ( color_int >> 8 ) & 0xff;
+               result.a = ( color_int ) & 0xff;
        }
 
        return result;
@@ -272,7 +276,7 @@ rgba_color parse_color( char *color )
 
 /** Convert a string property to UTF-8
 */
-static int iconv_utf8( mlt_properties properties, char *prop_name, const char* encoding )
+static int iconv_utf8( mlt_properties properties, const char *prop_name, const char* encoding )
 {
        char *text = mlt_properties_get( properties, prop_name );
        int result = -1;
@@ -302,8 +306,8 @@ static int iconv_utf8( mlt_properties properties, char *prop_name, const char* e
 
 static void refresh_image( mlt_frame frame, int width, int height )
 {
-       // Pixbuf 
-       GdkPixbuf *pixbuf = NULL;
+       // Pixbuf
+       GdkPixbuf *pixbuf = mlt_properties_get_data( MLT_FRAME_PROPERTIES( frame ), "pixbuf", NULL );
 
        // Obtain properties of frame
        mlt_properties properties = MLT_FRAME_PROPERTIES( frame );
@@ -328,49 +332,52 @@ static void refresh_image( mlt_frame frame, int width, int height )
        char *encoding = mlt_properties_get( producer_props, "encoding" );
        int weight = mlt_properties_get_int( producer_props, "weight" );
        int size = mlt_properties_get_int( producer_props, "size" );
-       int property_changed = ( align != this->align );
-
-       // Check for file support
-       int position = mlt_properties_get_position( properties, "pango_position" );
-       mlt_properties contents = mlt_properties_get_data( producer_props, "contents", NULL );
-       mlt_geometry key_frames = mlt_properties_get_data( producer_props, "key_frames", NULL );
-       struct mlt_geometry_item_s item;
-       if ( contents != NULL )
+       int property_changed = 0;
+
+       if ( pixbuf == NULL )
        {
-               char temp[ 20 ];
-               mlt_geometry_prev_key( key_frames, &item, position );
-               sprintf( temp, "%d", item.frame );
-               markup = mlt_properties_get( contents, temp );
-       }
+               // Check for file support
+               int position = mlt_properties_get_position( properties, "pango_position" );
+               mlt_properties contents = mlt_properties_get_data( producer_props, "contents", NULL );
+               mlt_geometry key_frames = mlt_properties_get_data( producer_props, "key_frames", NULL );
+               struct mlt_geometry_item_s item;
+               if ( contents != NULL )
+               {
+                       char temp[ 20 ];
+                       mlt_geometry_prev_key( key_frames, &item, position );
+                       sprintf( temp, "%d", item.frame );
+                       markup = mlt_properties_get( contents, temp );
+               }
        
-       // See if any properties changed
-       property_changed = property_changed || ( this->fgcolor == NULL || ( fg && strcmp( fg, this->fgcolor ) ) );
-       property_changed = property_changed || ( this->bgcolor == NULL || ( bg && strcmp( bg, this->bgcolor ) ) );
-       property_changed = property_changed || ( pad != this->pad );
-       property_changed = property_changed || ( markup && this->markup && strcmp( markup, this->markup ) );
-       property_changed = property_changed || ( text && this->text && strcmp( text, this->text ) );
-       property_changed = property_changed || ( font && this->font && strcmp( font, this->font ) );
-       property_changed = property_changed || ( weight != this->weight );
-
-       // Save the properties for next comparison
-       this->align = align;
-       this->pad = pad;
-       set_string( &this->fgcolor, fg, "0xffffffff" );
-       set_string( &this->bgcolor, bg, "0x00000000" );
-       set_string( &this->markup, markup, NULL );
-       set_string( &this->text, text, NULL );
-       set_string( &this->font, font, "Sans 48" );
-       this->weight = weight;
-
-       if ( property_changed )
+               // See if any properties changed
+               property_changed = ( align != this->align );
+               property_changed = property_changed || ( this->fgcolor == NULL || ( fg && strcmp( fg, this->fgcolor ) ) );
+               property_changed = property_changed || ( this->bgcolor == NULL || ( bg && strcmp( bg, this->bgcolor ) ) );
+               property_changed = property_changed || ( pad != this->pad );
+               property_changed = property_changed || ( markup && this->markup && strcmp( markup, this->markup ) );
+               property_changed = property_changed || ( text && this->text && strcmp( text, this->text ) );
+               property_changed = property_changed || ( font && this->font && strcmp( font, this->font ) );
+               property_changed = property_changed || ( weight != this->weight );
+
+               // Save the properties for next comparison
+               this->align = align;
+               this->pad = pad;
+               set_string( &this->fgcolor, fg, "0xffffffff" );
+               set_string( &this->bgcolor, bg, "0x00000000" );
+               set_string( &this->markup, markup, NULL );
+               set_string( &this->text, text, NULL );
+               set_string( &this->font, font, "Sans 48" );
+               this->weight = weight;
+       }
+
+       if ( pixbuf == NULL && property_changed )
        {
-               rgba_color fgcolor = parse_color( this->fgcolor );
-               rgba_color bgcolor = parse_color( this->bgcolor );
+               rgba_color fgcolor = parse_color( this->fgcolor, mlt_properties_get_int( producer_props, "fgcolour" ) );
+               rgba_color bgcolor = parse_color( this->bgcolor, mlt_properties_get_int( producer_props, "bgcolour" ) );
 
-               mlt_pool_release( this->image );
-               mlt_pool_release( this->alpha );
-               this->image = NULL;
-               this->alpha = NULL;
+               if ( this->pixbuf )
+                       g_object_unref( this->pixbuf );
+               this->pixbuf = NULL;
 
                // Convert from specified encoding to UTF-8
                if ( encoding != NULL && !strncaseeq( encoding, "utf-8", 5 ) && !strncaseeq( encoding, "utf8", 4 ) )
@@ -394,6 +401,8 @@ static void refresh_image( mlt_frame frame, int width, int height )
                {
                        // Register this pixbuf for destruction and reuse
                        mlt_properties_set_data( producer_props, "pixbuf", pixbuf, 0, ( mlt_destructor )g_object_unref, NULL );
+                       g_object_ref( pixbuf );
+                       mlt_properties_set_data( MLT_FRAME_PROPERTIES( frame ), "pixbuf", pixbuf, 0, ( mlt_destructor )g_object_unref, NULL );
 
                        mlt_properties_set_int( producer_props, "real_width", gdk_pixbuf_get_width( pixbuf ) );
                        mlt_properties_set_int( producer_props, "real_height", gdk_pixbuf_get_height( pixbuf ) );
@@ -403,13 +412,11 @@ static void refresh_image( mlt_frame frame, int width, int height )
                        this->height = gdk_pixbuf_get_height( pixbuf );
                }
        }
-       else if ( width > 0 && ( this->image == NULL || width != this->width || height != this->height ) )
+       else if ( pixbuf == NULL && width > 0 && ( this->pixbuf == NULL || width != this->width || height != this->height ) )
        {
-               mlt_pool_release( this->image );
-               mlt_pool_release( this->alpha );
-               this->image = NULL;
-               this->alpha = NULL;
-
+               if ( this->pixbuf )
+                       g_object_unref( this->pixbuf );
+               this->pixbuf = NULL;
                pixbuf = mlt_properties_get_data( producer_props, "pixbuf", NULL );
        }
 
@@ -423,30 +430,17 @@ static void refresh_image( mlt_frame frame, int width, int height )
                        interp = GDK_INTERP_NEAREST;
                else if ( strcmp( interps, "tiles" ) == 0 )
                        interp = GDK_INTERP_TILES;
-               else if ( strcmp( interps, "hyper" ) == 0 )
+               else if ( strcmp( interps, "hyper" ) == 0 || strcmp( interps, "bicubic" ) == 0 )
                        interp = GDK_INTERP_HYPER;
 
-//             fprintf( stderr, "SCALING PANGO from %dx%d to %dx%d was %dx%d\n", gdk_pixbuf_get_width( pixbuf ), gdk_pixbuf_get_height( pixbuf ), width, height, this->width, this->height );
-                       
+// fprintf(stderr,"%s: scaling from %dx%d to %dx%d\n", __FILE__, this->width, this->height, width, height);
+
                // Note - the original pixbuf is already safe and ready for destruction
-               pixbuf = gdk_pixbuf_scale_simple( pixbuf, width, height, interp );
+               this->pixbuf = gdk_pixbuf_scale_simple( pixbuf, width, height, interp );
 
                // Store width and height
                this->width = width;
                this->height = height;
-
-               // Allocate/define image
-               this->image = mlt_pool_alloc( width * ( height + 1 ) * 2 );
-               this->alpha = mlt_pool_alloc( this->width * this->height );
-
-               // Convert the image
-               mlt_convert_rgb24a_to_yuv422( gdk_pixbuf_get_pixels( pixbuf ),
-                                                                         this->width, this->height,
-                                                                         gdk_pixbuf_get_rowstride( pixbuf ),
-                                                                         this->image, this->alpha );
-
-               // Finished with pixbuf now
-               g_object_unref( pixbuf );
        }
 
        // Set width/height
@@ -454,82 +448,50 @@ static void refresh_image( mlt_frame frame, int width, int height )
        mlt_properties_set_int( properties, "height", this->height );
        mlt_properties_set_int( properties, "real_width", mlt_properties_get_int( producer_props, "real_width" ) );
        mlt_properties_set_int( properties, "real_height", mlt_properties_get_int( producer_props, "real_height" ) );
-
-       // pass the image data without destructor
-       mlt_properties_set_data( properties, "image", this->image, this->width * ( this->height + 1 ) * 2, NULL, NULL );
-       mlt_properties_set_data( properties, "alpha", this->alpha, this->width * this->height, NULL, NULL );
 }
 
 static int producer_get_image( mlt_frame frame, uint8_t **buffer, mlt_image_format *format, int *width, int *height, int writable )
 {
+       int error = 0;
+       producer_pango this = ( producer_pango ) mlt_frame_pop_service( frame );
+
        // Obtain properties of frame
        mlt_properties properties = MLT_FRAME_PROPERTIES( frame );
 
-       // We need to know the size of the image to clone it
-       int image_size = 0;
-       int alpha_size = 0;
-
-       // Alpha channel
-       uint8_t *alpha = NULL;
-
        *width = mlt_properties_get_int( properties, "rescale_width" );
        *height = mlt_properties_get_int( properties, "rescale_height" );
 
+       mlt_service_lock( MLT_PRODUCER_SERVICE( &this->parent ) );
+
        // Refresh the image
        pthread_mutex_lock( &pango_mutex );
        refresh_image( frame, *width, *height );
 
-       // Get the image
-       *buffer = mlt_properties_get_data( properties, "image", &image_size );
-       alpha = mlt_properties_get_data( properties, "alpha", &alpha_size );
-
        // Get width and height
-       *width = mlt_properties_get_int( properties, "width" );
-       *height = mlt_properties_get_int( properties, "height" );
+       *width = this->width;
+       *height = this->height;
 
        // Always clone here to allow 'animated' text
-       if ( *buffer != NULL )
+       if ( this->pixbuf )
        {
-               // Clone the image and the alpha
-               uint8_t *image_copy = mlt_pool_alloc( image_size );
-               uint8_t *alpha_copy = mlt_pool_alloc( alpha_size );
-
-               memcpy( image_copy, *buffer, image_size );
-
-               // Copy or default the alpha
-               if ( alpha != NULL )
-                       memcpy( alpha_copy, alpha, alpha_size );
-               else
-                       memset( alpha_copy, 255, alpha_size );
+               // Clone the image
+               int image_size = this->width * this->height * 4;
+               *buffer = mlt_pool_alloc( image_size );
+               memcpy( *buffer, gdk_pixbuf_get_pixels( this->pixbuf ), image_size );
 
                // Now update properties so we free the copy after
-               mlt_properties_set_data( properties, "image", image_copy, image_size, mlt_pool_release, NULL );
-               mlt_properties_set_data( properties, "alpha", alpha_copy, alpha_size, mlt_pool_release, NULL );
-
-               // We're going to pass the copy on
-               *buffer = image_copy;
+               mlt_frame_set_image( frame, *buffer, image_size, mlt_pool_release );
+               *format = mlt_image_rgb24a;
        }
        else
        {
-               // TODO: Review all cases of invalid images
-               *buffer = mlt_pool_alloc( 50 * 50 * 2 );
-               mlt_properties_set_data( properties, "image", *buffer, image_size, mlt_pool_release, NULL );
-               *width = 50;
-               *height = 50;
+               error = 1;
        }
 
        pthread_mutex_unlock( &pango_mutex );
+       mlt_service_unlock( MLT_PRODUCER_SERVICE( &this->parent ) );
 
-       return 0;
-}
-
-static uint8_t *producer_get_alpha_mask( mlt_frame this )
-{
-       // Obtain properties of frame
-       mlt_properties properties = MLT_FRAME_PROPERTIES( this );
-
-       // Return the alpha mask
-       return mlt_properties_get_data( properties, "alpha", NULL );
+       return error;
 }
 
 static int producer_get_frame( mlt_producer producer, mlt_frame_ptr frame, int index )
@@ -537,7 +499,7 @@ static int producer_get_frame( mlt_producer producer, mlt_frame_ptr frame, int i
        producer_pango this = producer->child;
 
        // Generate a frame
-       *frame = mlt_frame_init( );
+       *frame = mlt_frame_init( MLT_PRODUCER_SERVICE( producer ) );
 
        // Obtain properties of frame and producer
        mlt_properties properties = MLT_FRAME_PROPERTIES( *frame );
@@ -558,10 +520,8 @@ static int producer_get_frame( mlt_producer producer, mlt_frame_ptr frame, int i
        mlt_properties_set_int( properties, "progressive", 1 );
        mlt_properties_set_double( properties, "aspect_ratio", 1 );
 
-       // Set alpha call back
-       ( *frame )->get_alpha_mask = producer_get_alpha_mask;
-
        // Stack the get image callback
+       mlt_frame_push_service( *frame, this );
        mlt_frame_push_get_image( *frame, producer_get_image );
 
        // Calculate the next timecode
@@ -573,8 +533,8 @@ static int producer_get_frame( mlt_producer producer, mlt_frame_ptr frame, int i
 static void producer_close( mlt_producer parent )
 {
        producer_pango this = parent->child;
-       mlt_pool_release( this->image );
-       mlt_pool_release( this->alpha );
+       if ( this->pixbuf )
+               g_object_unref( this->pixbuf );
        free( this->fgcolor );
        free( this->bgcolor );
        free( this->markup );
@@ -622,18 +582,46 @@ static GdkPixbuf *pango_get_pixbuf( const char *markup, const char *text, const
        pango_layout_set_width( layout, -1 ); // set wrapping constraints
        pango_font_description_set_weight( desc, ( PangoWeight ) weight  );
        if ( size != 0 )
-               pango_font_description_set_size( desc, PANGO_SCALE * size );
+               pango_font_description_set_absolute_size( desc, PANGO_SCALE * size );
        pango_layout_set_font_description( layout, desc );
 //     pango_layout_set_spacing( layout, space );
        pango_layout_set_alignment( layout, ( PangoAlignment ) align  );
        if ( markup != NULL && strcmp( markup, "" ) != 0 )
+       {
                pango_layout_set_markup( layout, markup, strlen( markup ) );
+       }
        else if ( text != NULL && strcmp( text, "" ) != 0 )
-               pango_layout_set_text( layout, text, strlen( text ) );
+       {
+               // Replace all ~'s with a line feed (silly convention, but handy)
+               char *copy = strdup( text );
+               while ( strchr( copy, '~' ) )
+                       ( *strchr( copy, '~' ) ) = '\n';
+               pango_layout_set_text( layout, copy, strlen( copy ) );
+               free( copy );
+       }
        else
+       {
+               // Pango doesn't like empty strings
                pango_layout_set_text( layout, "  ", 2 );
+       }
        pango_layout_get_pixel_size( layout, &w, &h );
 
+       // Interpret size property as an absolute pixel height and compensate for
+       // freetype's "interpretation" of our absolute size request. This gives
+       // precise control over compositing and better quality by reducing scaling
+       // artifacts with composite geometries that constrain the dimensions.
+       // If you do not want this, then put the size in the font property or in
+       // the pango markup.
+       if ( size != 0 )
+       {
+               pango_font_description_set_absolute_size( desc, PANGO_SCALE * size * size/h );
+               pango_layout_set_font_description( layout, desc );
+               pango_layout_get_pixel_size( layout, &w, &h );
+       }
+
+        if ( pad == 0 )
+            pad = 1;
+
        pixbuf = gdk_pixbuf_new( GDK_COLORSPACE_RGB, TRUE /* has alpha */, 8, w + 2 * pad, h + 2 * pad );
        pango_draw_background( pixbuf, bg );