miracle part 1

[melted] / src / framework / mlt_producer.c

diff --git a/src/framework/mlt_producer.c b/src/framework/mlt_producer.c
index 164ed59..751e19a 100644 (file)
--- a/src/framework/mlt_producer.c
+++ b/src/framework/mlt_producer.c
@@ -58,10 +58,11 @@ int mlt_producer_init( mlt_producer this, void *child )
                mlt_properties_set_double( properties, "fps", 25.0 );
                mlt_properties_set_double( properties, "speed", 1.0 );
                mlt_properties_set_timecode( properties, "in", 0.0 );
-               mlt_properties_set_timecode( properties, "out", 3600.0 );
-               mlt_properties_set_timecode( properties, "length", 3600.0 );
+               mlt_properties_set_timecode( properties, "out", 36000.0 );
+               mlt_properties_set_timecode( properties, "length", 36000.0 );
                mlt_properties_set_int( properties, "known_length", 1 );
                mlt_properties_set_double( properties, "aspect_ratio", 4.0 / 3.0 );
+               mlt_properties_set( properties, "log_id", "multitrack" );
 
                // Override service get_frame
                parent->get_frame = producer_get_frame;
@@ -264,6 +265,10 @@ static int producer_get_frame( mlt_service service, mlt_frame_ptr frame, int ind
        {
                // Get the frame from the implementation
                result = this->get_frame( this, frame, index );
+
+               mlt_properties frame_properties = mlt_frame_properties( *frame );
+               double speed = mlt_producer_get_speed( this );
+               mlt_properties_set_double( frame_properties, "speed", speed );
        }
        else
        {