+/*
+ * transition_movit_luma.cpp
+ * Copyright (C) 2014 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 program 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.
+ *
+ * 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.
+ */
+
+
+#include <framework/mlt.h>
+#include <string.h>
+#include <math.h>
+
+#include "filter_glsl_manager.h"
+#include <movit/init.h>
+#include <movit/effect_chain.h>
+#include <movit/util.h>
+#include <movit/luma_mix_effect.h>
+#include <movit/mix_effect.h>
+#include "mlt_movit_input.h"
+
+using namespace movit;
+
+static int get_image( mlt_frame a_frame, uint8_t **image, mlt_image_format *format, int *width, int *height, int writable )
+{
+ int error;
+
+ // Get the transition object
+ mlt_transition transition = (mlt_transition) mlt_frame_pop_service( a_frame );
+ mlt_service service = MLT_TRANSITION_SERVICE( transition );
+
+ // Get the b frame from the stack
+ mlt_frame b_frame = (mlt_frame) mlt_frame_pop_frame( a_frame );
+ mlt_frame c_frame = (mlt_frame) mlt_frame_pop_frame( a_frame );
+
+ // Get the properties of the transition
+ mlt_properties properties = MLT_TRANSITION_PROPERTIES( transition );
+
+ mlt_service_lock( service );
+
+ // Get the transition parameters
+ mlt_position position = mlt_transition_get_position( transition, a_frame );
+ mlt_position length = mlt_transition_get_length( transition );
+ int reverse = mlt_properties_get_int( properties, "reverse" );
+ double mix = mlt_transition_get_progress( transition, a_frame );
+ double inverse = 1.0 - mix;
+ double softness = mlt_properties_anim_get_double( properties, "softness", position, length );
+
+ if ( c_frame )
+ {
+ // Set the Movit parameters.
+ mlt_properties_set( properties, "movit.parms.float.strength_first", NULL );
+ mlt_properties_set( properties, "movit.parms.float.strength_second", NULL );
+ mlt_properties_set_double( properties, "movit.parms.float.progress", reverse ? inverse : mix );
+ mlt_properties_set_double( properties, "movit.parms.float.transition_width", 1.0 / (softness + 1.0e-4) );
+
+ uint8_t *a_image, *b_image, *c_image;
+
+ // Get the images.
+ *format = mlt_image_glsl;
+ error = mlt_frame_get_image( a_frame, &a_image, format, width, height, writable );
+ error = mlt_frame_get_image( b_frame, &b_image, format, width, height, writable );
+ error = mlt_frame_get_image( c_frame, &c_image, format, width, height, writable );
+
+ GlslManager::set_effect_input( service, a_frame, (mlt_service) a_image );
+ GlslManager::set_effect_secondary_input( service, a_frame, (mlt_service) b_image, b_frame );
+ GlslManager::set_effect_third_input( service, a_frame, (mlt_service) c_image, c_frame );
+ GlslManager::set_effect( service, a_frame, new LumaMixEffect() );
+ }
+ else
+ {
+ // Set the Movit parameters.
+ mlt_properties_set( properties, "movit.parms.float.progress", NULL );
+ mlt_properties_set( properties, "movit.parms.float.transition_width", NULL );
+ mlt_properties_set_double( properties, "movit.parms.float.strength_first", reverse ? mix : inverse );
+ mlt_properties_set_double( properties, "movit.parms.float.strength_second", reverse ? inverse : mix );
+
+ uint8_t *a_image, *b_image;
+
+ // Get the two images.
+ *format = mlt_image_glsl;
+ error = mlt_frame_get_image( a_frame, &a_image, format, width, height, writable );
+ error = mlt_frame_get_image( b_frame, &b_image, format, width, height, writable );
+
+ GlslManager::set_effect_input( service, a_frame, (mlt_service) a_image );
+ GlslManager::set_effect_secondary_input( service, a_frame, (mlt_service) b_image, b_frame );
+ GlslManager::set_effect( service, a_frame, new MixEffect() );
+ }
+ *image = (uint8_t *) service;
+
+ mlt_service_unlock( service );
+ return error;
+}
+
+static mlt_frame process( mlt_transition transition, mlt_frame a_frame, mlt_frame b_frame )
+{
+ mlt_properties properties = MLT_TRANSITION_PROPERTIES( transition );
+
+ // Obtain the wipe producer.
+ char *resource = mlt_properties_get( properties, "resource" );
+ char *last_resource = mlt_properties_get( properties, "_resource" );
+ int invert = mlt_properties_get_int( properties, "invert" );
+ int last_invert = mlt_properties_get_int( properties, "_invert" );
+ mlt_producer producer = (mlt_producer) mlt_properties_get_data( properties, "instance", NULL );
+
+ // If we haven't created the wipe producer or it has changed
+ if ( resource )
+ if ( ( !producer || strcmp( resource, last_resource ) ) || ( invert != last_invert ) ) {
+ char temp[ 512 ];
+ char *extension = strrchr( resource, '.' );
+
+ // Store the last resource now
+ mlt_properties_set( properties, "_resource", resource );
+ mlt_properties_set_int( properties, "_invert", invert );
+
+ // This is a hack - the idea is that we can indirectly reference the
+ // luma modules pgm or png images by a short cut like %luma01.pgm - we then replace
+ // the % with the full path to the image and use it if it exists, if not, check for
+ // the file ending in a .png, and failing that, default to a fade in
+ if ( strchr( resource, '%' ) ) {
+ FILE *test;
+ sprintf( temp, "%s/lumas/%s/%s", mlt_environment( "MLT_DATA" ), mlt_environment( "MLT_NORMALISATION" ), strchr( resource, '%' ) + 1 );
+ test = fopen( temp, "r" );
+
+ if ( test == NULL )
+ {
+ strcat( temp, ".png" );
+ test = fopen( temp, "r" );
+ }
+
+ if ( test )
+ fclose( test );
+ else
+ strcpy( temp, "colour:0x00000080" );
+
+ resource = temp;
+ extension = strrchr( resource, '.' );
+ }
+
+ mlt_profile profile = mlt_service_profile( MLT_TRANSITION_SERVICE( transition ) );
+ producer = mlt_factory_producer( profile, NULL, resource );
+ if ( producer != NULL ) {
+ mlt_properties_set( MLT_PRODUCER_PROPERTIES( producer ), "eof", "loop" );
+ if ( invert ) {
+ mlt_filter filter = mlt_factory_filter( profile, "invert", NULL );
+ if ( filter )
+ mlt_producer_attach( producer, filter );
+ }
+ }
+ mlt_properties_set_data( properties, "instance", producer, 0, (mlt_destructor) mlt_producer_close, NULL );
+ }
+ // We may still not have a producer in which case, we do nothing
+ if ( producer ) {
+ mlt_frame wipe = NULL;
+ mlt_position position = mlt_transition_get_position( transition, a_frame );
+ mlt_properties_pass( MLT_PRODUCER_PROPERTIES( producer ), properties, "producer." );
+ mlt_producer_seek( producer, position );
+ if ( mlt_service_get_frame( MLT_PRODUCER_SERVICE( producer ), &wipe, 0 ) == 0 ) {
+ char *name = mlt_properties_get( properties, "_unique_id" );
+ mlt_properties_set_data( MLT_FRAME_PROPERTIES(a_frame), name, wipe, 0, (mlt_destructor) mlt_frame_close, NULL );
+ mlt_properties_set_int( MLT_FRAME_PROPERTIES(wipe), "distort", 1 );
+ mlt_frame_push_frame( a_frame, wipe );
+ } else {
+ mlt_frame_push_frame( a_frame, NULL );
+ }
+ } else {
+ mlt_frame_push_frame( a_frame, NULL );
+ }
+ mlt_frame_push_frame( a_frame, b_frame );
+ mlt_frame_push_service( a_frame, transition );
+ mlt_frame_push_get_image( a_frame, get_image );
+
+ return a_frame;
+}
+
+extern "C"
+mlt_transition transition_movit_luma_init( mlt_profile profile, mlt_service_type type, const char *id, char *arg )
+{
+ mlt_transition transition = NULL;
+ GlslManager* glsl = GlslManager::get_instance();
+ if ( glsl && ( transition = mlt_transition_new() ) ) {
+ transition->process = process;
+ mlt_properties_set( MLT_TRANSITION_PROPERTIES( transition ), "resource", arg );
+
+ // Inform apps and framework that this is a video only transition
+ mlt_properties_set_int( MLT_TRANSITION_PROPERTIES( transition ), "_transition_type", 1 );
+ }
+ return transition;
+}