+mlt_tractor mlt_tractor_new( )
+{
+ mlt_tractor this = calloc( sizeof( struct mlt_tractor_s ), 1 );
+ if ( this != NULL )
+ {
+ mlt_producer producer = &this->parent;
+ if ( mlt_producer_init( producer, this ) == 0 )
+ {
+ mlt_multitrack multitrack = mlt_multitrack_init( );
+ mlt_field field = mlt_field_new( multitrack, this );
+ mlt_properties props = mlt_producer_properties( producer );
+
+ mlt_properties_set( props, "resource", "<tractor>" );
+ mlt_properties_set( props, "mlt_type", "mlt_producer" );
+ mlt_properties_set( props, "mlt_service", "tractor" );
+ mlt_properties_set_data( props, "multitrack", multitrack, 0, ( mlt_destructor )mlt_multitrack_close, NULL );
+ mlt_properties_set_data( props, "field", field, 0, ( mlt_destructor )mlt_field_close, NULL );
+
+ producer->get_frame = producer_get_frame;
+ producer->close = ( mlt_destructor )mlt_tractor_close;
+ producer->close_object = this;
+ }
+ else
+ {
+ free( this );
+ this = NULL;
+ }
+ }
+ return this;
+}
+