more int64 frame addressing in playlist

[melted] / mlt / src / framework / mlt_producer.c

diff --git a/mlt/src/framework/mlt_producer.c b/mlt/src/framework/mlt_producer.c
index 87c2f08..278d902 100644 (file)
--- a/mlt/src/framework/mlt_producer.c
+++ b/mlt/src/framework/mlt_producer.c
@@ -87,6 +87,28 @@ mlt_properties mlt_producer_properties( mlt_producer this )
        return mlt_service_properties( &this->parent );
 }
 
+/** Convert frame position to timecode.
+*/
+
+mlt_timecode mlt_producer_time( mlt_producer this, int64_t frame )
+{
+       if ( frame < 0 )
+               return -1;
+       else
+               return ( mlt_timecode )frame / mlt_producer_get_fps( this );
+}
+
+/** Convert timecode to frame position.
+*/
+
+int64_t mlt_producer_frame_position( mlt_producer this, mlt_timecode position )
+{
+       if ( position < 0 )
+               return -1;
+       else
+               return ( int64_t )( floor( position * mlt_producer_get_fps( this ) + 0.5 ) );
+}
+
 /** Seek to a specified time code.
 */
 
@@ -111,13 +133,13 @@ int mlt_producer_seek( mlt_producer this, mlt_timecode timecode )
 /** Seek to a specified absolute frame.
 */
 
-int mlt_producer_seek_frame( mlt_producer this, uint64_t frame )
+int mlt_producer_seek_frame( mlt_producer this, int64_t frame )
 {
        // Calculate the time code
        double timecode = ( frame / mlt_producer_get_fps( this ) ) - mlt_producer_get_in( this );
 
        // If timecode is invalid, then seek on time
-       if ( timecode < 0 )
+       if ( frame < 0 || timecode < 0 )
        {
                // Seek to the in point
                mlt_producer_seek( this, 0 );
@@ -265,6 +287,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
        {