git.sesse.net Git - kdenlive/blob - src/renderer.cpp

   1 /***************************************************************************
   2                         krender.cpp  -  description
   3                            -------------------
   4   begin                : Fri Nov 22 2002
   5   copyright            : (C) 2002 by Jason Wood
   6   email                : jasonwood@blueyonder.co.uk
   7   copyright            : (C) 2005 Lucio Flavio Correa
   8   email                : lucio.correa@gmail.com
   9   copyright            : (C) Marco Gittler
  10   email                : g.marco@freenet.de
  11   copyright            : (C) 2006 Jean-Baptiste Mardelle
  12   email                : jb@kdenlive.org
  13
  14 ***************************************************************************/
  15
  16 /***************************************************************************
  17  *                                                                         *
  18  *   This program is free software; you can redistribute it and/or modify  *
  19  *   it under the terms of the GNU General Public License as published by  *
  20  *   the Free Software Foundation; either version 2 of the License, or     *
  21  *   (at your option) any later version.                                   *
  22  *                                                                         *
  23  ***************************************************************************/
  24
  25
  26 #include "renderer.h"
  27 #include "kdenlivesettings.h"
  28 #include "kthumb.h"
  29 #include "definitions.h"
  30 #include "slideshowclip.h"
  31 #include "profilesdialog.h"
  32 #include "blackmagic/devices.h"
  33
  34 #include <mlt++/Mlt.h>
  35
  36 #include <KDebug>
  37 #include <KStandardDirs>
  38 #include <KMessageBox>
  39 #include <KLocale>
  40 #include <KTemporaryFile>
  41
  42 #include <QTimer>
  43 #include <QDir>
  44 #include <QString>
  45 #include <QApplication>
  46
  47 #include <cstdlib>
  48 #include <cstdarg>
  49
  50 #include <QDebug>
  51
  52
  53 static void kdenlive_callback(void* /*ptr*/, int level, const char* fmt, va_list vl)
  54 {
  55     if (level > MLT_LOG_ERROR) return;
  56     QString error;
  57     QApplication::postEvent(qApp->activeWindow(), new MltErrorEvent(error.vsprintf(fmt, vl).simplified()));
  58     va_end(vl);
  59 }
  60
  61
  62 static void consumer_frame_show(mlt_consumer, Render * self, mlt_frame frame_ptr)
  63 {
  64     // detect if the producer has finished playing. Is there a better way to do it?
  65     if (self->m_isBlocked) return;
  66     Mlt::Frame frame(frame_ptr);
  67     if (!frame.is_valid()) return;
  68     self->emitFrameNumber(mlt_frame_get_position(frame_ptr));
  69     if (self->sendFrameForAnalysis && frame_ptr->convert_image) {
  70         self->emitFrameUpdated(frame);
  71     }
  72     if (self->analyseAudio) self->showAudio(frame);
  73     if (frame.get_double("_speed") == 0.0) {
  74         self->emitConsumerStopped();
  75     } else if (frame.get_double("_speed") < 0.0 && mlt_frame_get_position(frame_ptr) <= 0) {
  76         self->pause();
  77         self->emitConsumerStopped();
  78     }
  79 }
  80
  81 static void consumer_gl_frame_show(mlt_consumer, Render * self, mlt_frame frame_ptr)
  82 {
  83     // detect if the producer has finished playing. Is there a better way to do it?
  84     if (self->m_isBlocked) return;
  85     Mlt::Frame frame(frame_ptr);
  86     self->showFrame(frame);
  87     if (frame.get_double("_speed") == 0.0) {
  88         self->emitConsumerStopped();
  89     } else if (frame.get_double("_speed") < 0.0 && mlt_frame_get_position(frame_ptr) <= 0) {
  90         self->pause();
  91         self->emitConsumerStopped();
  92     }
  93 }
  94
  95 Render::Render(const QString & rendererName, int winid, QString profile, QWidget *parent) :
  96     QObject(parent),
  97     m_isBlocked(0),
  98     sendFrameForAnalysis(false),
  99     analyseAudio(KdenliveSettings::monitor_audio()),
 100     m_name(rendererName),
 101     m_mltConsumer(NULL),
 102     m_mltProducer(NULL),
 103     m_mltProfile(NULL),
 104     m_framePosition(0),
 105     m_externalConsumer(false),
 106     m_isZoneMode(false),
 107     m_isLoopMode(false),
 108     m_isSplitView(false),
 109     m_blackClip(NULL),
 110     m_winid(winid)
 111 {
 112     if (profile.isEmpty()) profile = KdenliveSettings::current_profile();
 113     buildConsumer(profile);
 114
 115     m_mltProducer = m_blackClip->cut(0, 50);
 116     m_mltConsumer->connect(*m_mltProducer);
 117     m_mltProducer->set_speed(0.0);
 118 }
 119
 120 Render::~Render()
 121 {
 122     m_isBlocked = 1;
 123     closeMlt();
 124 }
 125
 126
 127 void Render::closeMlt()
 128 {
 129     //delete m_osdTimer;
 130     if (m_mltProducer) {
 131         Mlt::Service service(m_mltProducer->parent().get_service());
 132         mlt_service_lock(service.get_service());
 133
 134         if (service.type() == tractor_type) {
 135             Mlt::Tractor tractor(service);
 136             Mlt::Field *field = tractor.field();
 137             mlt_service nextservice = mlt_service_get_producer(service.get_service());
 138             mlt_service nextservicetodisconnect;
 139             mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
 140             QString mlt_type = mlt_properties_get(properties, "mlt_type");
 141             QString resource = mlt_properties_get(properties, "mlt_service");
 142             // Delete all transitions
 143             while (mlt_type == "transition") {
 144                 nextservicetodisconnect = nextservice;
 145                 nextservice = mlt_service_producer(nextservice);
 146                 mlt_field_disconnect_service(field->get_field(), nextservicetodisconnect);
 147                 nextservice = mlt_service_producer(nextservice);
 148                 if (nextservice == NULL) break;
 149                 properties = MLT_SERVICE_PROPERTIES(nextservice);
 150                 mlt_type = mlt_properties_get(properties, "mlt_type");
 151                 resource = mlt_properties_get(properties, "mlt_service");
 152             }
 153
 154             for (int trackNb = tractor.count() - 1; trackNb >= 0; --trackNb) {
 155                 Mlt::Producer trackProducer(tractor.track(trackNb));
 156                 Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
 157                 if (trackPlaylist.type() == playlist_type) trackPlaylist.clear();
 158             }
 159         }
 160         mlt_service_unlock(service.get_service());
 161     }
 162
 163     kDebug() << "// // // CLOSE RENDERER " << m_name;
 164     delete m_mltConsumer;
 165     delete m_mltProducer;
 166     delete m_blackClip;
 167     //delete m_osdInfo;
 168 }
 169
 170 void Render::slotSwitchFullscreen()
 171 {
 172     if (m_mltConsumer) m_mltConsumer->set("full_screen", 1);
 173 }
 174
 175 void Render::buildConsumer(const QString profileName)
 176 {
 177     m_activeProfile = profileName;
 178     char *tmp = qstrdup(m_activeProfile.toUtf8().constData());
 179     setenv("MLT_PROFILE", tmp, 1);
 180     delete m_blackClip;
 181     m_blackClip = NULL;
 182
 183     //TODO: uncomment following line when everything is clean
 184     //if (m_mltProfile) delete m_mltProfile;
 185     m_mltProfile = new Mlt::Profile(tmp);
 186     m_mltProfile->get_profile()->is_explicit = 1;
 187     delete[] tmp;
 188
 189     m_blackClip = new Mlt::Producer(*m_mltProfile, "colour", "black");
 190     m_blackClip->set("id", "black");
 191     m_blackClip->set("mlt_type", "producer");
 192
 193     if (KdenliveSettings::external_display() && m_name != "clip") {
 194         // Use blackmagic card for video output
 195         QMap< QString, QString > profileProperties = ProfilesDialog::getSettingsFromFile(profileName);
 196         if (BMInterface::isSupportedProfile(KdenliveSettings::blackmagic_output_device(), profileProperties)) {
 197             QString decklink = "decklink:" + QString::number(KdenliveSettings::blackmagic_output_device());
 198             tmp = qstrdup(decklink.toUtf8().constData());
 199             m_mltConsumer = new Mlt::Consumer(*m_mltProfile, tmp);
 200             delete[] tmp;
 201             if (m_mltConsumer) {
 202                 m_externalConsumer = true;
 203                 m_mltConsumer->listen("consumer-frame-show", this, (mlt_listener) consumer_frame_show);
 204                 m_mltConsumer->set("terminate_on_pause", 0);
 205                 mlt_log_set_callback(kdenlive_callback);
 206             }
 207             if (m_mltConsumer && m_mltConsumer->is_valid()) return;
 208         } else KMessageBox::informationList(qApp->activeWindow(), i18n("Your project's profile %1 is not compatible with the blackmagic output card. Please see supported profiles below. Switching to normal video display.", m_mltProfile->description()), BMInterface::supportedModes(KdenliveSettings::blackmagic_output_device()));
 209     }
 210     m_externalConsumer = false;
 211     QString videoDriver = KdenliveSettings::videodrivername();
 212     if (!videoDriver.isEmpty()) {
 213         if (videoDriver == "x11_noaccel") {
 214             setenv("SDL_VIDEO_YUV_HWACCEL", "0", 1);
 215             videoDriver = "x11";
 216         } else {
 217             unsetenv("SDL_VIDEO_YUV_HWACCEL");
 218         }
 219     }
 220     setenv("SDL_VIDEO_ALLOW_SCREENSAVER", "1", 1);
 221
 222     //m_mltConsumer->set("fullscreen", 1);
 223     if (m_winid == 0) {
 224         // OpenGL monitor
 225         m_mltConsumer = new Mlt::Consumer(*m_mltProfile, "sdl_audio");
 226         m_mltConsumer->set("preview_off", 1);
 227         m_mltConsumer->set("preview_format", mlt_image_rgb24a);
 228         m_mltConsumer->listen("consumer-frame-show", this, (mlt_listener) consumer_gl_frame_show);
 229     } else {
 230         m_mltConsumer = new Mlt::Consumer(*m_mltProfile, "sdl_preview");
 231         // FIXME: the event object returned by the listen gets leaked...
 232         m_mltConsumer->listen("consumer-frame-show", this, (mlt_listener) consumer_frame_show);
 233         m_mltConsumer->set("window_id", m_winid);
 234     }
 235     m_mltConsumer->set("resize", 1);
 236     m_mltConsumer->set("terminate_on_pause", 1);
 237     m_mltConsumer->set("window_background", KdenliveSettings::window_background().name().toUtf8().constData());
 238     m_mltConsumer->set("rescale", "nearest");
 239     mlt_log_set_callback(kdenlive_callback);
 240
 241     QString audioDevice = KdenliveSettings::audiodevicename();
 242     if (!audioDevice.isEmpty())
 243         m_mltConsumer->set("audio_device", audioDevice.toUtf8().constData());
 244
 245     if (!videoDriver.isEmpty())
 246         m_mltConsumer->set("video_driver", videoDriver.toUtf8().constData());
 247
 248     QString audioDriver = KdenliveSettings::audiodrivername();
 249
 250     /*
 251     // Disabled because the "auto" detected driver was sometimes wrong
 252     if (audioDriver.isEmpty())
 253         audioDriver = KdenliveSettings::autoaudiodrivername();
 254     */
 255
 256     if (!audioDriver.isEmpty())
 257         m_mltConsumer->set("audio_driver", audioDriver.toUtf8().constData());
 258
 259     m_mltConsumer->set("progressive", 1);
 260     m_mltConsumer->set("audio_buffer", 1024);
 261     m_mltConsumer->set("frequency", 48000);
 262 }
 263
 264 Mlt::Producer *Render::invalidProducer(const QString &id)
 265 {
 266     Mlt::Producer *clip = new Mlt::Producer(*m_mltProfile, "colour", "red");
 267     clip->set("id", id.toUtf8().constData());
 268     clip->set("mlt_type", "producer");
 269     return clip;
 270 }
 271
 272 int Render::resetProfile(const QString profileName)
 273 {
 274     if (m_mltConsumer) {
 275         if (m_externalConsumer == KdenliveSettings::external_display()) {
 276             if (KdenliveSettings::external_display() && m_activeProfile == profileName) return 1;
 277             QString videoDriver = KdenliveSettings::videodrivername();
 278             QString currentDriver = m_mltConsumer->get("video_driver");
 279             if (getenv("SDL_VIDEO_YUV_HWACCEL") != NULL && currentDriver == "x11") currentDriver = "x11_noaccel";
 280             QString background = KdenliveSettings::window_background().name();
 281             QString currentBackground = m_mltConsumer->get("window_background");
 282             if (m_activeProfile == profileName && currentDriver == videoDriver && background == currentBackground) {
 283                 kDebug() << "reset to same profile, nothing to do";
 284                 return 1;
 285             }
 286         }
 287
 288         if (m_isSplitView) slotSplitView(false);
 289         if (!m_mltConsumer->is_stopped()) m_mltConsumer->stop();
 290         m_mltConsumer->purge();
 291         delete m_mltConsumer;
 292         m_mltConsumer = NULL;
 293     }
 294     QString scene = sceneList();
 295     int pos = 0;
 296     double current_fps = m_mltProfile->fps();
 297     delete m_blackClip;
 298     m_blackClip = NULL;
 299
 300     if (m_mltProducer) {
 301         pos = m_mltProducer->position();
 302
 303         Mlt::Service service(m_mltProducer->get_service());
 304         if (service.type() == tractor_type) {
 305             Mlt::Tractor tractor(service);
 306             for (int trackNb = tractor.count() - 1; trackNb >= 0; --trackNb) {
 307                 Mlt::Producer trackProducer(tractor.track(trackNb));
 308                 Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
 309                 trackPlaylist.clear();
 310             }
 311         }
 312
 313         delete m_mltProducer;
 314     }
 315     m_mltProducer = NULL;
 316     buildConsumer(profileName);
 317     double new_fps = m_mltProfile->fps();
 318     if (current_fps != new_fps) {
 319         // fps changed, we must update the scenelist positions
 320         scene = updateSceneListFps(current_fps, new_fps, scene);
 321     }
 322     //kDebug() << "//RESET WITHSCENE: " << scene;
 323     setSceneList(scene, pos);
 324     // producers have changed (different profile), so reset them...
 325     emit refreshDocumentProducers();
 326     /*Mlt::Producer *producer = new Mlt::Producer(*m_mltProfile , "xml-string", scene.toUtf8().constData());
 327     m_mltProducer = producer;
 328     m_blackClip = new Mlt::Producer(*m_mltProfile , "colour", "black");
 329     m_mltProducer->optimise();
 330     m_mltProducer->set_speed(0);
 331     connectPlaylist();*/
 332
 333     //delete m_mltProfile;
 334     // mlt_properties properties = MLT_CONSUMER_PROPERTIES(m_mltConsumer->get_consumer());
 335     //mlt_profile prof = m_mltProfile->get_profile();
 336     //mlt_properties_set_data(properties, "_profile", prof, 0, (mlt_destructor)mlt_profile_close, NULL);
 337     //mlt_properties_set(properties, "profile", "hdv_1080_50i");
 338     //m_mltConsumer->set("profile", (char *) profile.toUtf8().data());
 339     //m_mltProfile = new Mlt::Profile((char*) profile.toUtf8().data());
 340
 341     //apply_profile_properties( m_mltProfile, m_mltConsumer->get_consumer(), properties );
 342     //refresh();
 343     return 1;
 344 }
 345
 346 void Render::seek(GenTime time)
 347 {
 348     if (!m_mltProducer)
 349         return;
 350     m_isBlocked = false;
 351     m_mltProducer->seek((int)(time.frames(m_fps)));
 352     refresh();
 353 }
 354
 355 //static
 356 /*QPixmap Render::frameThumbnail(Mlt::Frame *frame, int width, int height, bool border) {
 357     QPixmap pix(width, height);
 358
 359     mlt_image_format format = mlt_image_rgb24a;
 360     uint8_t *thumb = frame->get_image(format, width, height);
 361     QImage image(thumb, width, height, QImage::Format_ARGB32);
 362
 363     if (!image.isNull()) {
 364         pix = pix.fromImage(image);
 365         if (border) {
 366             QPainter painter(&pix);
 367             painter.drawRect(0, 0, width - 1, height - 1);
 368         }
 369     } else pix.fill(Qt::black);
 370     return pix;
 371 }
 372 */
 373 int Render::frameRenderWidth() const
 374 {
 375     return m_mltProfile->width();
 376 }
 377
 378 int Render::renderWidth() const
 379 {
 380     return (int)(m_mltProfile->height() * m_mltProfile->dar() + 0.5);
 381 }
 382
 383 int Render::renderHeight() const
 384 {
 385     return m_mltProfile->height();
 386 }
 387
 388 QImage Render::extractFrame(int frame_position, int width, int height)
 389 {
 390     if (width == -1) {
 391         width = renderWidth();
 392         height = renderHeight();
 393     } else if (width % 2 == 1) width++;
 394
 395     if (!m_mltProducer) {
 396         QImage pix(width, height, QImage::Format_RGB32);
 397         pix.fill(Qt::black);
 398         return pix;
 399     }
 400     return KThumb::getFrame(m_mltProducer, frame_position, width, height);
 401 }
 402
 403 QPixmap Render::getImageThumbnail(KUrl url, int /*width*/, int /*height*/)
 404 {
 405     QImage im;
 406     QPixmap pixmap;
 407     if (url.fileName().startsWith(".all.")) {  //  check for slideshow
 408         QString fileType = url.fileName().right(3);
 409         QStringList more;
 410         QStringList::Iterator it;
 411
 412         QDir dir(url.directory());
 413         QStringList filter;
 414         filter << "*." + fileType;
 415         filter << "*." + fileType.toUpper();
 416         more = dir.entryList(filter, QDir::Files);
 417         im.load(url.directory() + '/' + more.at(0));
 418     } else im.load(url.path());
 419     //pixmap = im.scaled(width, height);
 420     return pixmap;
 421 }
 422
 423 double Render::consumerRatio() const
 424 {
 425     if (!m_mltConsumer) return 1.0;
 426     return (m_mltConsumer->get_double("aspect_ratio_num") / m_mltConsumer->get_double("aspect_ratio_den"));
 427 }
 428
 429
 430 int Render::getLength()
 431 {
 432
 433     if (m_mltProducer) {
 434         // kDebug()<<"//////  LENGTH: "<<mlt_producer_get_playtime(m_mltProducer->get_producer());
 435         return mlt_producer_get_playtime(m_mltProducer->get_producer());
 436     }
 437     return 0;
 438 }
 439
 440 bool Render::isValid(KUrl url)
 441 {
 442     Mlt::Producer producer(*m_mltProfile, url.path().toUtf8().constData());
 443     if (producer.is_blank())
 444         return false;
 445
 446     return true;
 447 }
 448
 449 double Render::dar() const
 450 {
 451     return m_mltProfile->dar();
 452 }
 453
 454
 455 void Render::slotSplitView(bool doit)
 456 {
 457     m_isSplitView = doit;
 458     Mlt::Service service(m_mltProducer->parent().get_service());
 459     Mlt::Tractor tractor(service);
 460     if (service.type() != tractor_type || tractor.count() < 2) return;
 461     Mlt::Field *field = tractor.field();
 462     if (doit) {
 463         for (int i = 1, screen = 0; i < tractor.count() && screen < 4; i++) {
 464             Mlt::Producer trackProducer(tractor.track(i));
 465             kDebug() << "// TRACK: " << i << ", HIDE: " << trackProducer.get("hide");
 466             if (QString(trackProducer.get("hide")).toInt() != 1) {
 467                 kDebug() << "// ADIDNG TRACK: " << i;
 468                 Mlt::Transition *transition = new Mlt::Transition(*m_mltProfile, "composite");
 469                 transition->set("mlt_service", "composite");
 470                 transition->set("a_track", 0);
 471                 transition->set("b_track", i);
 472                 transition->set("distort", 1);
 473                 transition->set("internal_added", "200");
 474                 const char *tmp;
 475                 switch (screen) {
 476                 case 0:
 477                     tmp = "0,0:50%x50%";
 478                     break;
 479                 case 1:
 480                     tmp = "50%,0:50%x50%";
 481                     break;
 482                 case 2:
 483                     tmp = "0,50%:50%x50%";
 484                     break;
 485                 case 3:
 486                 default:
 487                     tmp = "50%,50%:50%x50%";
 488                     break;
 489                 }
 490                 transition->set("geometry", tmp);
 491                 transition->set("always_active", "1");
 492                 field->plant_transition(*transition, 0, i);
 493                 //delete[] tmp;
 494                 screen++;
 495             }
 496         }
 497         m_mltConsumer->set("refresh", 1);
 498     } else {
 499         mlt_service serv = m_mltProducer->parent().get_service();
 500         mlt_service nextservice = mlt_service_get_producer(serv);
 501         mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
 502         QString mlt_type = mlt_properties_get(properties, "mlt_type");
 503         QString resource = mlt_properties_get(properties, "mlt_service");
 504
 505         while (mlt_type == "transition") {
 506             QString added = mlt_properties_get(MLT_SERVICE_PROPERTIES(nextservice), "internal_added");
 507             if (added == "200") {
 508                 mlt_field_disconnect_service(field->get_field(), nextservice);
 509             }
 510             nextservice = mlt_service_producer(nextservice);
 511             if (nextservice == NULL) break;
 512             properties = MLT_SERVICE_PROPERTIES(nextservice);
 513             mlt_type = mlt_properties_get(properties, "mlt_type");
 514             resource = mlt_properties_get(properties, "mlt_service");
 515             m_mltConsumer->set("refresh", 1);
 516         }
 517     }
 518 }
 519
 520 void Render::getFileProperties(const QDomElement xml, const QString &clipId, int imageHeight, bool replaceProducer)
 521 {
 522     KUrl url = KUrl(xml.attribute("resource", QString()));
 523     Mlt::Producer *producer = NULL;
 524     CLIPTYPE type = (CLIPTYPE)xml.attribute("type").toInt();
 525
 526     //kDebug() << "PROFILE WIDT: "<< xml.attribute("mlt_service") << ": "<< m_mltProfile->width() << "\n...................\n\n";
 527     /*if (xml.attribute("type").toInt() == TEXT && !QFile::exists(url.path())) {
 528         emit replyGetFileProperties(clipId, producer, QMap < QString, QString >(), QMap < QString, QString >(), replaceProducer);
 529         return;
 530     }*/
 531
 532     if (type == COLOR) {
 533         producer = new Mlt::Producer(*m_mltProfile, 0, ("colour:" + xml.attribute("colour")).toUtf8().constData());
 534     } else if (type == TEXT) {
 535         producer = new Mlt::Producer(*m_mltProfile, 0, ("kdenlivetitle:" + xml.attribute("resource")).toUtf8().constData());
 536         if (producer && producer->is_valid() && xml.hasAttribute("xmldata"))
 537             producer->set("xmldata", xml.attribute("xmldata").toUtf8().constData());
 538     } else if (url.isEmpty()) {
 539         QDomDocument doc;
 540         QDomElement mlt = doc.createElement("mlt");
 541         QDomElement play = doc.createElement("playlist");
 542         doc.appendChild(mlt);
 543         mlt.appendChild(play);
 544         play.appendChild(doc.importNode(xml, true));
 545         producer = new Mlt::Producer(*m_mltProfile, "xml-string", doc.toString().toUtf8().constData());
 546     } else {
 547         producer = new Mlt::Producer(*m_mltProfile, url.path().toUtf8().constData());
 548     }
 549
 550     if (producer == NULL || producer->is_blank() || !producer->is_valid()) {
 551         kDebug() << " / / / / / / / / ERROR / / / / // CANNOT LOAD PRODUCER: ";
 552         emit removeInvalidClip(clipId, replaceProducer);
 553         delete producer;
 554         return;
 555     }
 556
 557     if (xml.hasAttribute("force_aspect_ratio")) {
 558         double aspect = xml.attribute("force_aspect_ratio").toDouble();
 559         if (aspect > 0) producer->set("force_aspect_ratio", aspect);
 560     }
 561
 562     if (xml.hasAttribute("force_aspect_num") && xml.hasAttribute("force_aspect_den")) {
 563         int width = xml.attribute("frame_size").section('x', 0, 0).toInt();
 564         int height = xml.attribute("frame_size").section('x', 1, 1).toInt();
 565         int aspectNumerator = xml.attribute("force_aspect_num").toInt();
 566         int aspectDenominator = xml.attribute("force_aspect_den").toInt();
 567         if (aspectDenominator != 0 && width != 0)
 568             producer->set("force_aspect_ratio", double(height) * aspectNumerator / aspectDenominator / width);
 569     }
 570
 571     if (xml.hasAttribute("force_fps")) {
 572         double fps = xml.attribute("force_fps").toDouble();
 573         if (fps > 0) producer->set("force_fps", fps);
 574     }
 575
 576     if (xml.hasAttribute("force_progressive")) {
 577         bool ok;
 578         int progressive = xml.attribute("force_progressive").toInt(&ok);
 579         if (ok) producer->set("force_progressive", progressive);
 580     }
 581     if (xml.hasAttribute("force_tff")) {
 582         bool ok;
 583         int fieldOrder = xml.attribute("force_tff").toInt(&ok);
 584         if (ok) producer->set("force_tff", fieldOrder);
 585     }
 586     if (xml.hasAttribute("threads")) {
 587         int threads = xml.attribute("threads").toInt();
 588         if (threads != 1) producer->set("threads", threads);
 589     }
 590     if (xml.hasAttribute("video_index")) {
 591         int vindex = xml.attribute("video_index").toInt();
 592         if (vindex != 0) producer->set("video_index", vindex);
 593     }
 594     if (xml.hasAttribute("audio_index")) {
 595         int aindex = xml.attribute("audio_index").toInt();
 596         if (aindex != 0) producer->set("audio_index", aindex);
 597     }
 598     if (xml.hasAttribute("force_colorspace")) {
 599         int colorspace = xml.attribute("force_colorspace").toInt();
 600         if (colorspace != 0) producer->set("force_colorspace", colorspace);
 601     }
 602     if (xml.hasAttribute("full_luma")) {
 603         int full_luma = xml.attribute("full_luma").toInt();
 604         if (full_luma != 0) producer->set("set.force_full_luma", full_luma);
 605     }
 606
 607     // setup length here as otherwise default length (currently 15000 frames in MLT) will be taken even if outpoint is larger
 608     if (type == COLOR || type == TEXT || type == IMAGE || type == SLIDESHOW)
 609         producer->set("length", xml.attribute("out").toInt() - xml.attribute("in").toInt() + 1);
 610
 611     if (xml.hasAttribute("out"))
 612         producer->set_in_and_out(xml.attribute("in").toInt(), xml.attribute("out").toInt());
 613
 614     producer->set("id", clipId.toUtf8().constData());
 615
 616     if (xml.hasAttribute("templatetext"))
 617         producer->set("templatetext", xml.attribute("templatetext").toUtf8().constData());
 618
 619     if (!replaceProducer && xml.hasAttribute("file_hash")) {
 620         // Clip  already has all properties
 621         emit replyGetFileProperties(clipId, producer, QMap < QString, QString >(), QMap < QString, QString >(), replaceProducer);
 622         return;
 623     }
 624
 625     int width = (int)(imageHeight * m_mltProfile->dar() + 0.5);
 626     QMap < QString, QString > filePropertyMap;
 627     QMap < QString, QString > metadataPropertyMap;
 628
 629     int frameNumber = xml.attribute("thumbnail", "0").toInt();
 630     if (frameNumber != 0) producer->seek(frameNumber);
 631
 632     filePropertyMap["duration"] = QString::number(producer->get_playtime());
 633     //kDebug() << "///////  PRODUCER: " << url.path() << " IS: " << producer.get_playtime();
 634
 635     Mlt::Frame *frame = producer->get_frame();
 636
 637     if (type == SLIDESHOW) {
 638         int ttl = xml.hasAttribute("ttl") ? xml.attribute("ttl").toInt() : 0;
 639         if (ttl) producer->set("ttl", ttl);
 640         if (!xml.attribute("animation").isEmpty()) {
 641             Mlt::Filter *filter = new Mlt::Filter(*m_mltProfile, "affine");
 642             if (filter && filter->is_valid()) {
 643                 int cycle = ttl;
 644                 QString geometry = SlideshowClip::animationToGeometry(xml.attribute("animation"), cycle);
 645                 if (!geometry.isEmpty()) {
 646                     if (xml.attribute("animation").contains("low-pass")) {
 647                         Mlt::Filter *blur = new Mlt::Filter(*m_mltProfile, "boxblur");
 648                         if (blur && blur->is_valid())
 649                             producer->attach(*blur);
 650                     }
 651                     filter->set("transition.geometry", geometry.toUtf8().data());
 652                     filter->set("transition.cycle", cycle);
 653                     producer->attach(*filter);
 654                 }
 655             }
 656         }
 657         if (xml.attribute("fade") == "1") {
 658             // user wants a fade effect to slideshow
 659             Mlt::Filter *filter = new Mlt::Filter(*m_mltProfile, "luma");
 660             if (filter && filter->is_valid()) {
 661                 if (ttl) filter->set("cycle", ttl);
 662                 if (xml.hasAttribute("luma_duration") && !xml.attribute("luma_duration").isEmpty()) filter->set("duration", xml.attribute("luma_duration").toInt());
 663                 if (xml.hasAttribute("luma_file") && !xml.attribute("luma_file").isEmpty()) {
 664                     filter->set("luma.resource", xml.attribute("luma_file").toUtf8().constData());
 665                     if (xml.hasAttribute("softness")) {
 666                         int soft = xml.attribute("softness").toInt();
 667                         filter->set("luma.softness", (double) soft / 100.0);
 668                     }
 669                 }
 670                 producer->attach(*filter);
 671             }
 672         }
 673         if (xml.attribute("crop") == "1") {
 674             // user wants to center crop the slides
 675             Mlt::Filter *filter = new Mlt::Filter(*m_mltProfile, "crop");
 676             if (filter && filter->is_valid()) {
 677                 filter->set("center", 1);
 678                 producer->attach(*filter);
 679             }
 680         }
 681     }
 682
 683     if (producer->get_double("meta.media.frame_rate_den") > 0) {
 684         filePropertyMap["fps"] = QString::number(producer->get_double("meta.media.frame_rate_num") / producer->get_double("meta.media.frame_rate_den"));
 685     } else filePropertyMap["fps"] = producer->get("source_fps");
 686
 687     if (frame && frame->is_valid()) {
 688         filePropertyMap["frame_size"] = QString::number(frame->get_int("width")) + 'x' + QString::number(frame->get_int("height"));
 689         filePropertyMap["frequency"] = QString::number(frame->get_int("frequency"));
 690         filePropertyMap["channels"] = QString::number(frame->get_int("channels"));
 691         filePropertyMap["aspect_ratio"] = frame->get("aspect_ratio");
 692
 693         if (frame->get_int("test_image") == 0) {
 694             if (url.path().endsWith(".mlt") || url.path().endsWith(".westley") || url.path().endsWith(".kdenlive")) {
 695                 filePropertyMap["type"] = "playlist";
 696                 metadataPropertyMap["comment"] = QString::fromUtf8(producer->get("title"));
 697             } else if (frame->get_int("test_audio") == 0)
 698                 filePropertyMap["type"] = "av";
 699             else
 700                 filePropertyMap["type"] = "video";
 701
 702             mlt_image_format format = mlt_image_rgb24a;
 703             int frame_width = width;
 704             int frame_height = imageHeight;
 705             uint8_t *data = frame->get_image(format, frame_width, frame_height, 0);
 706             QImage image((uchar *)data, frame_width, frame_height, QImage::Format_ARGB32_Premultiplied);
 707             QPixmap pix;
 708
 709             if (!image.isNull()) {
 710                 if (frame_width > (2 * width)) {
 711                     // there was a scaling problem, do it manually
 712                     QImage scaled = image.scaled(width, imageHeight);
 713                     pix = QPixmap::fromImage(scaled.rgbSwapped());
 714                 } else pix = QPixmap::fromImage(image.rgbSwapped());
 715             } else
 716                 pix.fill(Qt::black);
 717
 718             emit replyGetImage(clipId, pix);
 719
 720         } else if (frame->get_int("test_audio") == 0) {
 721             QPixmap pixmap = KIcon("audio-x-generic").pixmap(QSize(width, imageHeight));
 722             emit replyGetImage(clipId, pixmap);
 723             filePropertyMap["type"] = "audio";
 724         }
 725     }
 726     delete frame;
 727     // Retrieve audio / video codec name
 728
 729     // If there is a
 730     char property[200];
 731     if (producer->get_int("video_index") > -1) {
 732         /*if (context->duration == AV_NOPTS_VALUE) {
 733         kDebug() << " / / / / / / / /ERROR / / / CLIP HAS UNKNOWN DURATION";
 734             emit removeInvalidClip(clipId);
 735             delete producer;
 736             return;
 737         }*/
 738         // Get the video_index
 739         int default_video = producer->get_int("video_index");
 740         int video_max = 0;
 741         int default_audio = producer->get_int("audio_index");
 742         int audio_max = 0;
 743
 744         // Find maximum stream index values
 745         for (int ix = 0; ix < producer->get_int("meta.media.nb_streams"); ix++) {
 746             snprintf(property, sizeof(property), "meta.media.%d.stream.type", ix);
 747             QString type = producer->get(property);
 748             if (type == "video")
 749                 video_max = ix;
 750             else if (type == "audio")
 751                 audio_max = ix;
 752         }
 753         filePropertyMap["default_video"] = QString::number(default_video);
 754         filePropertyMap["video_max"] = QString::number(video_max);
 755         filePropertyMap["default_audio"] = QString::number(default_audio);
 756         filePropertyMap["audio_max"] = QString::number(audio_max);
 757
 758         snprintf(property, sizeof(property), "meta.media.%d.codec.long_name", default_video);
 759         if (producer->get(property)) {
 760             filePropertyMap["videocodec"] = producer->get(property);
 761         } else {
 762             snprintf(property, sizeof(property), "meta.media.%d.codec.name", default_video);
 763             if (producer->get(property))
 764                 filePropertyMap["videocodec"] = producer->get(property);
 765         }
 766         QString query;
 767         query = QString("meta.media.%1.codec.pix_fmt").arg(default_video);
 768         filePropertyMap["pix_fmt"] = producer->get(query.toUtf8().constData());
 769         filePropertyMap["colorspace"] = producer->get("meta.media.colorspace");
 770
 771     } else kDebug() << " / / / / /WARNING, VIDEO CONTEXT IS NULL!!!!!!!!!!!!!!";
 772     if (producer->get_int("audio_index") > -1) {
 773         // Get the audio_index
 774         int index = producer->get_int("audio_index");
 775
 776         snprintf(property, sizeof(property), "meta.media.%d.codec.long_name", index);
 777         if (producer->get(property)) {
 778             filePropertyMap["audiocodec"] = producer->get(property);
 779         } else {
 780             snprintf(property, sizeof(property), "meta.media.%d.codec.name", index);
 781             if (producer->get(property))
 782                 filePropertyMap["audiocodec"] = producer->get(property);
 783         }
 784     }
 785
 786     // metadata
 787     Mlt::Properties metadata;
 788     metadata.pass_values(*producer, "meta.attr.");
 789     int count = metadata.count();
 790     for (int i = 0; i < count; i ++) {
 791         QString name = metadata.get_name(i);
 792         QString value = QString::fromUtf8(metadata.get(i));
 793         if (name.endsWith("markup") && !value.isEmpty())
 794             metadataPropertyMap[ name.section('.', 0, -2)] = value;
 795     }
 796     producer->seek(0);
 797     emit replyGetFileProperties(clipId, producer, filePropertyMap, metadataPropertyMap, replaceProducer);
 798     // FIXME: should delete this to avoid a leak...
 799     //delete producer;
 800 }
 801
 802
 803 #if 0
 804 /** Create the producer from the MLT XML QDomDocument */
 805 void Render::initSceneList()
 806 {
 807     kDebug() << "--------  INIT SCENE LIST ------_";
 808     QDomDocument doc;
 809     QDomElement mlt = doc.createElement("mlt");
 810     doc.appendChild(mlt);
 811     QDomElement prod = doc.createElement("producer");
 812     prod.setAttribute("resource", "colour");
 813     prod.setAttribute("colour", "red");
 814     prod.setAttribute("id", "black");
 815     prod.setAttribute("in", "0");
 816     prod.setAttribute("out", "0");
 817
 818     QDomElement tractor = doc.createElement("tractor");
 819     QDomElement multitrack = doc.createElement("multitrack");
 820
 821     QDomElement playlist1 = doc.createElement("playlist");
 822     playlist1.appendChild(prod);
 823     multitrack.appendChild(playlist1);
 824     QDomElement playlist2 = doc.createElement("playlist");
 825     multitrack.appendChild(playlist2);
 826     QDomElement playlist3 = doc.createElement("playlist");
 827     multitrack.appendChild(playlist3);
 828     QDomElement playlist4 = doc.createElement("playlist");
 829     multitrack.appendChild(playlist4);
 830     QDomElement playlist5 = doc.createElement("playlist");
 831     multitrack.appendChild(playlist5);
 832     tractor.appendChild(multitrack);
 833     mlt.appendChild(tractor);
 834     // kDebug()<<doc.toString();
 835     /*
 836        QString tmp = QString("<mlt><producer resource=\"colour\" colour=\"red\" id=\"red\" /><tractor><multitrack><playlist></playlist><playlist></playlist><playlist /><playlist /><playlist></playlist></multitrack></tractor></mlt>");*/
 837     setSceneList(doc, 0);
 838 }
 839 #endif
 840
 841 int Render::setProducer(Mlt::Producer *producer, int position)
 842 {
 843     if (m_winid == -1) return -1;
 844
 845     if (m_mltConsumer) {
 846         m_mltConsumer->stop();
 847     } else return -1;
 848
 849     m_mltConsumer->purge();
 850     m_isBlocked = true;
 851     if (m_mltProducer) {
 852         m_mltProducer->set_speed(0);
 853         delete m_mltProducer;
 854         m_mltProducer = NULL;
 855         emit stopped();
 856     }
 857     if (producer) {
 858         m_mltProducer = new Mlt::Producer(producer->get_producer());
 859     } else m_mltProducer = m_blackClip->cut(0, 50);
 860
 861     if (!m_mltProducer || !m_mltProducer->is_valid()) {
 862         kDebug() << " WARNING - - - - -INVALID PLAYLIST: ";
 863         return -1;
 864     }
 865     int volume = KdenliveSettings::volume();
 866     m_mltProducer->set("meta.volume", (double)volume / 100);
 867     m_fps = m_mltProducer->get_fps();
 868     int error = connectPlaylist();
 869
 870     if (position != -1) {
 871         m_mltProducer->seek(position);
 872         emit rendererPosition(position);
 873     } else emit rendererPosition((int) m_mltProducer->position());
 874     m_isBlocked = false;
 875     return error;
 876 }
 877
 878 int Render::setSceneList(QDomDocument list, int position)
 879 {
 880     return setSceneList(list.toString(), position);
 881 }
 882
 883 int Render::setSceneList(QString playlist, int position)
 884 {
 885     if (m_winid == -1) return -1;
 886     m_isBlocked = true;
 887     int error = 0;
 888
 889     //kDebug() << "//////  RENDER, SET SCENE LIST: " << playlist;
 890
 891     if (m_mltConsumer) {
 892         if (!m_mltConsumer->is_stopped()) {
 893             m_mltConsumer->stop();
 894         }
 895         m_mltConsumer->set("refresh", 0);
 896     } else {
 897         kWarning() << "///////  ERROR, TRYING TO USE NULL MLT CONSUMER";
 898         error = -1;
 899     }
 900
 901     if (m_mltProducer) {
 902         m_mltProducer->set_speed(0);
 903         //if (KdenliveSettings::osdtimecode() && m_osdInfo) m_mltProducer->detach(*m_osdInfo);
 904
 905
 906         Mlt::Service service(m_mltProducer->parent().get_service());
 907         mlt_service_lock(service.get_service());
 908
 909         if (service.type() == tractor_type) {
 910             Mlt::Tractor tractor(service);
 911             Mlt::Field *field = tractor.field();
 912             mlt_service nextservice = mlt_service_get_producer(service.get_service());
 913             mlt_service nextservicetodisconnect;
 914             mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
 915             QString mlt_type = mlt_properties_get(properties, "mlt_type");
 916             QString resource = mlt_properties_get(properties, "mlt_service");
 917             // Delete all transitions
 918             while (mlt_type == "transition") {
 919                 nextservicetodisconnect = nextservice;
 920                 nextservice = mlt_service_producer(nextservice);
 921                 mlt_field_disconnect_service(field->get_field(), nextservicetodisconnect);
 922                 if (nextservice == NULL) break;
 923                 properties = MLT_SERVICE_PROPERTIES(nextservice);
 924                 mlt_type = mlt_properties_get(properties, "mlt_type");
 925                 resource = mlt_properties_get(properties, "mlt_service");
 926             }
 927
 928             for (int trackNb = tractor.count() - 1; trackNb >= 0; --trackNb) {
 929                 Mlt::Producer trackProducer(tractor.track(trackNb));
 930                 Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
 931                 if (trackPlaylist.type() == playlist_type) trackPlaylist.clear();
 932             }
 933             delete field;
 934         }
 935         mlt_service_unlock(service.get_service());
 936
 937         qDeleteAll(m_slowmotionProducers.values());
 938         m_slowmotionProducers.clear();
 939
 940         delete m_mltProducer;
 941         m_mltProducer = NULL;
 942         emit stopped();
 943     }
 944
 945     blockSignals(true);
 946
 947     // TODO: Better way to do this
 948     if (KdenliveSettings::projectloading_avformatnovalidate())
 949         playlist.replace(">avformat</property>", ">avformat-novalidate</property>");
 950     else
 951         playlist.replace(">avformat-novalidate</property>", ">avformat</property>");
 952
 953     m_mltProducer = new Mlt::Producer(*m_mltProfile, "xml-string", playlist.toUtf8().constData());
 954
 955     if (!m_mltProducer || !m_mltProducer->is_valid()) {
 956         kDebug() << " WARNING - - - - -INVALID PLAYLIST: " << playlist.toUtf8().constData();
 957         m_mltProducer = m_blackClip->cut(0, 50);
 958         error = -1;
 959     }
 960     int volume = KdenliveSettings::volume();
 961     m_mltProducer->set("meta.volume", (double)volume / 100);
 962     m_mltProducer->optimise();
 963
 964     /*if (KdenliveSettings::osdtimecode()) {
 965     // Attach filter for on screen display of timecode
 966     delete m_osdInfo;
 967     QString attr = "attr_check";
 968     mlt_filter filter = mlt_factory_filter( "data_feed", (char*) attr.ascii() );
 969     mlt_properties_set_int( MLT_FILTER_PROPERTIES( filter ), "_loader", 1 );
 970     mlt_producer_attach( m_mltProducer->get_producer(), filter );
 971     mlt_filter_close( filter );
 972
 973       m_osdInfo = new Mlt::Filter("data_show");
 974     m_osdInfo->set("resource", m_osdProfile.toUtf8().constData());
 975     mlt_properties properties = MLT_PRODUCER_PROPERTIES(m_mltProducer->get_producer());
 976     mlt_properties_set_int( properties, "meta.attr.timecode", 1);
 977     mlt_properties_set( properties, "meta.attr.timecode.markup", "#timecode#");
 978     m_osdInfo->set("dynamic", "1");
 979
 980       if (m_mltProducer->attach(*m_osdInfo) == 1) kDebug()<<"////// error attaching filter";
 981     } else {
 982     m_osdInfo->set("dynamic", "0");
 983     }*/
 984
 985     m_fps = m_mltProducer->get_fps();
 986     if (position != 0) {
 987         // Seek to correct place after opening project.
 988         m_mltProducer->seek(position);
 989     }
 990
 991     kDebug() << "// NEW SCENE LIST DURATION SET TO: " << m_mltProducer->get_playtime();
 992     if (error == 0) error = connectPlaylist();
 993     else connectPlaylist();
 994     fillSlowMotionProducers();
 995
 996     m_isBlocked = false;
 997     blockSignals(false);
 998
 999     return error;
1000     //kDebug()<<"// SETSCN LST, POS: "<<position;
1001     //if (position != 0) emit rendererPosition(position);
1002 }
1003
1004 const QString Render::sceneList()
1005 {
1006     QString playlist;
1007     Mlt::Profile profile((mlt_profile) 0);
1008     Mlt::Consumer xmlConsumer(profile, "xml:kdenlive_playlist");
1009     m_mltProducer->optimise();
1010     xmlConsumer.set("terminate_on_pause", 1);
1011     Mlt::Producer prod(m_mltProducer->get_producer());
1012     bool split = m_isSplitView;
1013     if (split) slotSplitView(false);
1014     xmlConsumer.connect(prod);
1015     xmlConsumer.start();
1016     while (!xmlConsumer.is_stopped()) {}
1017     playlist = QString::fromUtf8(xmlConsumer.get("kdenlive_playlist"));
1018     if (split) slotSplitView(true);
1019     return playlist;
1020 }
1021
1022 bool Render::saveSceneList(QString path, QDomElement kdenliveData)
1023 {
1024     QFile file(path);
1025     QDomDocument doc;
1026     doc.setContent(sceneList(), false);
1027     if (!kdenliveData.isNull()) {
1028         // add Kdenlive specific tags
1029         QDomNode mlt = doc.elementsByTagName("mlt").at(0);
1030         mlt.appendChild(doc.importNode(kdenliveData, true));
1031     }
1032     if (!file.open(QIODevice::WriteOnly | QIODevice::Text)) {
1033         kWarning() << "//////  ERROR writing to file: " << path;
1034         return false;
1035     }
1036     file.write(doc.toString().toUtf8());
1037     if (file.error() != QFile::NoError) {
1038         file.close();
1039         return false;
1040     }
1041     file.close();
1042     return true;
1043 }
1044
1045 void Render::saveZone(KUrl url, QString desc, QPoint zone)
1046 {
1047     kDebug() << "// SAVING CLIP ZONE, RENDER: " << m_name;
1048     Mlt::Consumer xmlConsumer(*m_mltProfile, ("xml:" + url.path()).toUtf8().constData());
1049     m_mltProducer->optimise();
1050     xmlConsumer.set("terminate_on_pause", 1);
1051     if (m_name == "clip") {
1052         Mlt::Producer *prod = m_mltProducer->cut(zone.x(), zone.y());
1053         Mlt::Playlist list;
1054         list.insert_at(0, prod, 0);
1055         delete prod;
1056         list.set("title", desc.toUtf8().constData());
1057         xmlConsumer.connect(list);
1058
1059     } else {
1060         //TODO: not working yet, save zone from timeline
1061         Mlt::Producer *p1 = new Mlt::Producer(m_mltProducer->get_producer());
1062         /* Mlt::Service service(p1->parent().get_service());
1063          if (service.type() != tractor_type) kWarning() << "// TRACTOR PROBLEM";*/
1064
1065         //Mlt::Producer *prod = p1->cut(zone.x(), zone.y());
1066         //prod->set("title", desc.toUtf8().constData());
1067         xmlConsumer.connect(*p1); //list);
1068     }
1069
1070     xmlConsumer.start();
1071 }
1072
1073 double Render::fps() const
1074 {
1075     return m_fps;
1076 }
1077
1078 int Render::connectPlaylist()
1079 {
1080     if (!m_mltConsumer) return -1;
1081     //m_mltConsumer->set("refresh", "0");
1082     m_mltConsumer->connect(*m_mltProducer);
1083     m_mltProducer->set_speed(0);
1084     if (m_mltConsumer->start() == -1) {
1085         // ARGH CONSUMER BROKEN!!!!
1086         KMessageBox::error(qApp->activeWindow(), i18n("Could not create the video preview window.\nThere is something wrong with your Kdenlive install or your driver settings, please fix it."));
1087         delete m_mltConsumer;
1088         m_mltConsumer = NULL;
1089         return -1;
1090     }
1091     emit durationChanged(m_mltProducer->get_playtime());
1092     return 0;
1093     //refresh();
1094 }
1095
1096 void Render::refreshDisplay()
1097 {
1098
1099     if (!m_mltProducer) return;
1100     //m_mltConsumer->set("refresh", 0);
1101
1102     //mlt_properties properties = MLT_PRODUCER_PROPERTIES(m_mltProducer->get_producer());
1103     /*if (KdenliveSettings::osdtimecode()) {
1104         mlt_properties_set_int( properties, "meta.attr.timecode", 1);
1105         mlt_properties_set( properties, "meta.attr.timecode.markup", "#timecode#");
1106         m_osdInfo->set("dynamic", "1");
1107         m_mltProducer->attach(*m_osdInfo);
1108     }
1109     else {
1110         m_mltProducer->detach(*m_osdInfo);
1111         m_osdInfo->set("dynamic", "0");
1112     }*/
1113     refresh();
1114 }
1115
1116 int Render::volume() const
1117 {
1118     if (!m_mltConsumer || !m_mltProducer) return -1;
1119     return ((int) 100 * m_mltProducer->get_double("meta.volume"));
1120 }
1121
1122 void Render::slotSetVolume(int volume)
1123 {
1124     if (!m_mltConsumer || !m_mltProducer) return;
1125     m_mltProducer->set("meta.volume", (double)volume / 100.0);
1126     return;
1127     /*osdTimer->stop();
1128     m_mltConsumer->set("refresh", 0);
1129     // Attach filter for on screen display of timecode
1130     mlt_properties properties = MLT_PRODUCER_PROPERTIES(m_mltProducer->get_producer());
1131     mlt_properties_set_double( properties, "meta.volume", volume );
1132     mlt_properties_set_int( properties, "meta.attr.osdvolume", 1);
1133     mlt_properties_set( properties, "meta.attr.osdvolume.markup", i18n("Volume: ") + QString::number(volume * 100));
1134
1135     if (!KdenliveSettings::osdtimecode()) {
1136     m_mltProducer->detach(*m_osdInfo);
1137     mlt_properties_set_int( properties, "meta.attr.timecode", 0);
1138      if (m_mltProducer->attach(*m_osdInfo) == 1) kDebug()<<"////// error attaching filter";
1139     }*/
1140     refresh();
1141     //m_osdTimer->setSingleShot(2500);
1142 }
1143
1144 void Render::slotOsdTimeout()
1145 {
1146     mlt_properties properties = MLT_PRODUCER_PROPERTIES(m_mltProducer->get_producer());
1147     mlt_properties_set_int(properties, "meta.attr.osdvolume", 0);
1148     mlt_properties_set(properties, "meta.attr.osdvolume.markup", NULL);
1149     //if (!KdenliveSettings::osdtimecode()) m_mltProducer->detach(*m_osdInfo);
1150     refresh();
1151 }
1152
1153 void Render::start()
1154 {
1155     kDebug() << "-----  STARTING MONITOR: " << m_name;
1156     if (m_winid == -1) {
1157         kDebug() << "-----  BROKEN MONITOR: " << m_name << ", RESTART";
1158         return;
1159     }
1160     if (m_mltConsumer && m_mltConsumer->is_stopped()) {
1161         kDebug() << "-----  MONITOR: " << m_name << " WAS STOPPED";
1162         if (m_mltConsumer->start() == -1) {
1163             //KMessageBox::error(qApp->activeWindow(), i18n("Could not create the video preview window.\nThere is something wrong with your Kdenlive install or your driver settings, please fix it."));
1164             kDebug(QtWarningMsg) << "/ / / / CANNOT START MONITOR";
1165         } else {
1166             kDebug() << "-----  MONITOR: " << m_name << " REFRESH";
1167             m_isBlocked = false;
1168             refresh();
1169         }
1170     }
1171     m_isBlocked = false;
1172 }
1173
1174 void Render::stop()
1175 {
1176     if (m_mltProducer == NULL) return;
1177     if (m_mltConsumer && !m_mltConsumer->is_stopped()) {
1178         kDebug() << "/////////////   RENDER STOPPED: " << m_name;
1179         m_isBlocked = true;
1180         //m_mltConsumer->set("refresh", 0);
1181         m_mltConsumer->stop();
1182         // delete m_mltConsumer;
1183         // m_mltConsumer = NULL;
1184     }
1185     kDebug() << "/////////////   RENDER STOP2-------";
1186     m_isBlocked = true;
1187
1188     if (m_mltProducer) {
1189         if (m_isZoneMode) resetZoneMode();
1190         m_mltProducer->set_speed(0.0);
1191         //m_mltProducer->set("out", m_mltProducer->get_length() - 1);
1192         //kDebug() << m_mltProducer->get_length();
1193     }
1194     kDebug() << "/////////////   RENDER STOP3-------";
1195 }
1196
1197 void Render::stop(const GenTime & startTime)
1198 {
1199
1200     kDebug() << "/////////////   RENDER STOP-------2";
1201     if (m_mltProducer) {
1202         if (m_isZoneMode) resetZoneMode();
1203         m_mltProducer->set_speed(0.0);
1204         m_mltProducer->seek((int) startTime.frames(m_fps));
1205     }
1206     m_mltConsumer->purge();
1207 }
1208
1209 void Render::pause()
1210 {
1211     if (!m_mltProducer || !m_mltConsumer)
1212         return;
1213     if (m_mltProducer->get_speed() == 0.0) return;
1214     if (m_isZoneMode) resetZoneMode();
1215     m_isBlocked = true;
1216     m_mltConsumer->set("refresh", 0);
1217     m_mltProducer->set_speed(0.0);
1218     /*
1219     The 2 lines below create a flicker loop
1220     emit rendererPosition(m_framePosition);
1221     m_mltProducer->seek(m_framePosition);*/
1222     m_mltConsumer->purge();
1223 }
1224
1225 void Render::switchPlay()
1226 {
1227     if (!m_mltProducer || !m_mltConsumer)
1228         return;
1229     if (m_isZoneMode) resetZoneMode();
1230     if (m_mltProducer->get_speed() == 0.0) {
1231         m_isBlocked = false;
1232         if (m_name == "clip" && m_framePosition == (int) m_mltProducer->get_out()) m_mltProducer->seek(0);
1233         m_mltProducer->set_speed(1.0);
1234         m_mltConsumer->set("refresh", 1);
1235     } else {
1236         m_isBlocked = true;
1237         m_mltConsumer->set("refresh", 0);
1238         m_mltProducer->set_speed(0.0);
1239         //emit rendererPosition(m_framePosition);
1240         m_mltProducer->seek(m_framePosition);
1241         m_mltConsumer->purge();
1242         //kDebug()<<" *********  RENDER PAUSE: "<<m_mltProducer->get_speed();
1243         //m_mltConsumer->set("refresh", 0);
1244         /*mlt_position position = mlt_producer_position( m_mltProducer->get_producer() );
1245         m_mltProducer->set_speed(0);
1246         m_mltProducer->seek( position );
1247                //m_mltProducer->seek((int) m_framePosition);
1248                m_isBlocked = false;*/
1249     }
1250     /*if (speed == 0.0) {
1251     m_mltProducer->seek((int) m_framePosition + 1);
1252         m_mltConsumer->purge();
1253     }*/
1254     //refresh();
1255 }
1256
1257 void Render::play(double speed)
1258 {
1259     if (!m_mltProducer)
1260         return;
1261     // if (speed == 0.0) m_mltProducer->set("out", m_mltProducer->get_length() - 1);
1262     m_isBlocked = false;
1263     m_mltProducer->set_speed(speed);
1264     /*if (speed == 0.0) {
1265     m_mltProducer->seek((int) m_framePosition + 1);
1266         m_mltConsumer->purge();
1267     }*/
1268     refresh();
1269 }
1270
1271 void Render::play(const GenTime & startTime)
1272 {
1273     if (!m_mltProducer || !m_mltConsumer)
1274         return;
1275     m_isBlocked = false;
1276     m_mltProducer->seek((int)(startTime.frames(m_fps)));
1277     m_mltProducer->set_speed(1.0);
1278     m_mltConsumer->set("refresh", 1);
1279 }
1280
1281 void Render::loopZone(const GenTime & startTime, const GenTime & stopTime)
1282 {
1283     if (!m_mltProducer || !m_mltConsumer)
1284         return;
1285     //m_mltProducer->set("eof", "loop");
1286     m_isLoopMode = true;
1287     m_loopStart = startTime;
1288     playZone(startTime, stopTime);
1289 }
1290
1291 void Render::playZone(const GenTime & startTime, const GenTime & stopTime)
1292 {
1293     if (!m_mltProducer || !m_mltConsumer)
1294         return;
1295     m_isBlocked = false;
1296     if (!m_isZoneMode) m_originalOut = m_mltProducer->get_playtime() - 1;
1297     m_mltProducer->set("out", (int)(stopTime.frames(m_fps)));
1298     m_mltProducer->seek((int)(startTime.frames(m_fps)));
1299     m_mltProducer->set_speed(1.0);
1300     m_mltConsumer->set("refresh", 1);
1301     m_isZoneMode = true;
1302 }
1303
1304 void Render::resetZoneMode()
1305 {
1306     if (!m_isZoneMode && !m_isLoopMode) return;
1307     m_mltProducer->set("out", m_originalOut);
1308     //m_mltProducer->set("eof", "pause");
1309     m_isZoneMode = false;
1310     m_isLoopMode = false;
1311 }
1312
1313 void Render::seekToFrame(int pos)
1314 {
1315     //kDebug()<<" *********  RENDER SEEK TO POS";
1316     if (!m_mltProducer)
1317         return;
1318     m_isBlocked = false;
1319     resetZoneMode();
1320     m_mltProducer->seek(pos);
1321     refresh();
1322 }
1323
1324 void Render::seekToFrameDiff(int diff)
1325 {
1326     //kDebug()<<" *********  RENDER SEEK TO POS";
1327     if (!m_mltProducer)
1328         return;
1329     m_isBlocked = false;
1330     resetZoneMode();
1331     m_mltProducer->seek(m_mltProducer->position() + diff);
1332     refresh();
1333 }
1334
1335 void Render::doRefresh()
1336 {
1337     // Use a Timer so that we don't refresh too much
1338     if (!m_isBlocked && m_mltConsumer) m_mltConsumer->set("refresh", 1);
1339 }
1340
1341 void Render::refresh()
1342 {
1343     if (!m_mltProducer || m_isBlocked)
1344         return;
1345     if (m_mltConsumer) {
1346         m_mltConsumer->set("refresh", 1);
1347     }
1348 }
1349
1350 void Render::setDropFrames(bool show)
1351 {
1352     if (m_mltConsumer) {
1353         int dropFrames = 1;
1354         if (show == false) dropFrames = 0;
1355         m_mltConsumer->stop();
1356         if (m_winid == 0)
1357             m_mltConsumer->set("real_time", dropFrames);
1358         else
1359             m_mltConsumer->set("play.real_time", dropFrames);
1360
1361         if (m_mltConsumer->start() == -1) {
1362             kDebug(QtWarningMsg) << "ERROR, Cannot start monitor";
1363         }
1364
1365     }
1366 }
1367
1368 double Render::playSpeed()
1369 {
1370     if (m_mltProducer) return m_mltProducer->get_speed();
1371     return 0.0;
1372 }
1373
1374 GenTime Render::seekPosition() const
1375 {
1376     if (m_mltProducer) return GenTime((int) m_mltProducer->position(), m_fps);
1377     else return GenTime();
1378 }
1379
1380 int Render::seekFramePosition() const
1381 {
1382     if (m_mltProducer) return (int) m_mltProducer->position();
1383     return 0;
1384 }
1385
1386 const QString & Render::rendererName() const
1387 {
1388     return m_name;
1389 }
1390
1391 void Render::emitFrameUpdated(Mlt::Frame& frame)
1392 {
1393     mlt_image_format format = mlt_image_rgb24a;
1394     int width = 0;
1395     int height = 0;
1396     const uchar* image = frame.get_image(format, width, height);
1397     QImage qimage(width, height, QImage::Format_ARGB32);
1398     memcpy(qimage.bits(), image, width * height * 4);
1399     emit frameUpdated(qimage.rgbSwapped());
1400 }
1401
1402 void Render::emitFrameNumber(double position)
1403 {
1404     m_framePosition = position;
1405     emit rendererPosition((int) position);
1406 }
1407
1408 void Render::emitConsumerStopped()
1409 {
1410     // This is used to know when the playing stopped
1411     if (m_mltProducer) {
1412         double pos = m_mltProducer->position();
1413         if (m_isLoopMode) play(m_loopStart);
1414         else if (m_isZoneMode) resetZoneMode();
1415         emit rendererStopped((int) pos);
1416     }
1417 }
1418
1419 void Render::exportFileToFirewire(QString /*srcFileName*/, int /*port*/, GenTime /*startTime*/, GenTime /*endTime*/)
1420 {
1421     KMessageBox::sorry(0, i18n("Firewire is not enabled on your system.\n Please install Libiec61883 and recompile Kdenlive"));
1422 }
1423
1424 void Render::exportCurrentFrame(KUrl url, bool /*notify*/)
1425 {
1426     if (!m_mltProducer) {
1427         KMessageBox::sorry(qApp->activeWindow(), i18n("There is no clip, cannot extract frame."));
1428         return;
1429     }
1430
1431     //int height = 1080;//KdenliveSettings::defaultheight();
1432     //int width = 1940; //KdenliveSettings::displaywidth();
1433     //TODO: rewrite
1434     QPixmap pix; // = KThumb::getFrame(m_mltProducer, -1, width, height);
1435     /*
1436        QPixmap pix(width, height);
1437        Mlt::Filter m_convert(*m_mltProfile, "avcolour_space");
1438        m_convert.set("forced", mlt_image_rgb24a);
1439        m_mltProducer->attach(m_convert);
1440        Mlt::Frame * frame = m_mltProducer->get_frame();
1441        m_mltProducer->detach(m_convert);
1442        if (frame) {
1443            pix = frameThumbnail(frame, width, height);
1444            delete frame;
1445        }*/
1446     pix.save(url.path(), "PNG");
1447     //if (notify) QApplication::postEvent(qApp->activeWindow(), new UrlEvent(url, 10003));
1448 }
1449
1450
1451 void Render::showFrame(Mlt::Frame& frame)
1452 {
1453     m_framePosition = qMax(frame.get_int("_position"), 0);
1454     emit rendererPosition((int) m_framePosition);
1455     mlt_image_format format = mlt_image_rgb24a;
1456     int width = 0;
1457     int height = 0;
1458     const uchar* image = frame.get_image(format, width, height);
1459     QImage qimage(width, height, QImage::Format_ARGB32_Premultiplied);
1460     memcpy(qimage.scanLine(0), image, width * height * 4);
1461     emit showImageSignal(qimage);
1462     if (analyseAudio) showAudio(frame);
1463     if (sendFrameForAnalysis && frame.get_frame()->convert_image) {
1464         emit frameUpdated(qimage.rgbSwapped());
1465     }
1466 }
1467
1468 void Render::showAudio(Mlt::Frame& frame)
1469 {
1470     if (!frame.is_valid() || frame.get_int("test_audio") != 0) return;
1471     mlt_audio_format audio_format = mlt_audio_s16;
1472     int freq = 0;
1473     int num_channels = 0;
1474     int samples = 0;
1475     int16_t* data = (int16_t*)frame.get_audio(audio_format, freq, num_channels, samples);
1476
1477     QVector<int16_t> sampleVector(samples);
1478     memcpy(sampleVector.data(), data, samples*sizeof(int16_t));
1479     qDebug() << samples << " samples. Freq=" << freq << ", channels=" << num_channels;
1480     qDebug() << sizeof(char) << " (c) " << sizeof(int16_t) << " (int16_t)";
1481     qDebug() << sampleVector.at(0);
1482
1483     if (!data)
1484         return;
1485     int num_samples = samples > 200 ? 200 : samples;
1486
1487
1488     QByteArray channels;
1489     for (int i = 0; i < num_channels; i++) {
1490         long val = 0;
1491         for (int s = 0; s < num_samples; s ++) {
1492             val += abs(data[i+s*num_channels] / 128);
1493         }
1494         channels.append(val / num_samples);
1495     }
1496
1497     qDebug() << channels.size() <<  ": size.";
1498     if (samples > 0) {
1499         emit showAudioSignal(channels);
1500         emit audioSamplesSignal(sampleVector, freq, num_channels, samples);
1501     } else {
1502         emit showAudioSignal(QByteArray());
1503     }
1504 }
1505
1506 /*
1507  * MLT playlist direct manipulation.
1508  */
1509
1510 void Render::mltCheckLength(Mlt::Tractor *tractor)
1511 {
1512     //kDebug()<<"checking track length: "<<track<<"..........";
1513
1514     int trackNb = tractor->count();
1515     int duration = 0;
1516     int trackDuration;
1517     if (trackNb == 1) {
1518         Mlt::Producer trackProducer(tractor->track(0));
1519         duration = trackProducer.get_playtime() - 1;
1520         m_mltProducer->set("out", duration);
1521         emit durationChanged(duration);
1522         return;
1523     }
1524     while (trackNb > 1) {
1525         Mlt::Producer trackProducer(tractor->track(trackNb - 1));
1526         trackDuration = trackProducer.get_playtime() - 1;
1527         // kDebug() << " / / /DURATON FOR TRACK " << trackNb - 1 << " = " << trackDuration;
1528         if (trackDuration > duration) duration = trackDuration;
1529         trackNb--;
1530     }
1531
1532     Mlt::Producer blackTrackProducer(tractor->track(0));
1533
1534     if (blackTrackProducer.get_playtime() - 1 != duration) {
1535         Mlt::Playlist blackTrackPlaylist((mlt_playlist) blackTrackProducer.get_service());
1536         Mlt::Producer *blackclip = blackTrackPlaylist.get_clip(0);
1537         if (blackclip && blackclip->is_blank()) {
1538             delete blackclip;
1539             blackclip = NULL;
1540         }
1541
1542         if (blackclip == NULL || blackTrackPlaylist.count() != 1) {
1543             blackTrackPlaylist.clear();
1544             m_blackClip->set("length", duration + 1);
1545             m_blackClip->set("out", duration);
1546             blackclip = m_blackClip->cut(0, duration);
1547             blackTrackPlaylist.insert_at(0, blackclip, 1);
1548         } else {
1549             if (duration > blackclip->parent().get_length()) {
1550                 blackclip->parent().set("length", duration + 1);
1551                 blackclip->parent().set("out", duration);
1552                 blackclip->set("length", duration + 1);
1553             }
1554             blackTrackPlaylist.resize_clip(0, 0, duration);
1555         }
1556
1557         delete blackclip;
1558         m_mltProducer->set("out", duration);
1559         emit durationChanged(duration);
1560     }
1561 }
1562
1563 Mlt::Producer *Render::checkSlowMotionProducer(Mlt::Producer *prod, QDomElement element)
1564 {
1565     if (element.attribute("speed", "1.0").toDouble() == 1.0 && element.attribute("strobe", "1").toInt() == 1) return prod;
1566
1567     // We want a slowmotion producer
1568     double speed = element.attribute("speed", "1.0").toDouble();
1569     int strobe = element.attribute("strobe", "1").toInt();
1570     QString url = QString::fromUtf8(prod->get("resource"));
1571     url.append('?' + QString::number(speed));
1572     if (strobe > 1) url.append("&strobe=" + QString::number(strobe));
1573     Mlt::Producer *slowprod = m_slowmotionProducers.value(url);
1574     if (!slowprod || slowprod->get_producer() == NULL) {
1575         slowprod = new Mlt::Producer(*m_mltProfile, "framebuffer", url.toUtf8().constData());
1576         if (strobe > 1) slowprod->set("strobe", strobe);
1577         QString id = prod->get("id");
1578         if (id.contains('_')) id = id.section('_', 0, 0);
1579         QString producerid = "slowmotion:" + id + ':' + QString::number(speed);
1580         if (strobe > 1) producerid.append(':' + QString::number(strobe));
1581         slowprod->set("id", producerid.toUtf8().constData());
1582         m_slowmotionProducers.insert(url, slowprod);
1583     }
1584     return slowprod;
1585 }
1586
1587 int Render::mltInsertClip(ItemInfo info, QDomElement element, Mlt::Producer *prod, bool overwrite, bool push)
1588 {
1589     if (m_mltProducer == NULL) {
1590         kDebug() << "PLAYLIST NOT INITIALISED //////";
1591         return -1;
1592     }
1593     if (prod == NULL) {
1594         kDebug() << "Cannot insert clip without producer //////";
1595         return -1;
1596     }
1597     Mlt::Producer parentProd(m_mltProducer->parent());
1598     if (parentProd.get_producer() == NULL) {
1599         kDebug() << "PLAYLIST BROKEN, CANNOT INSERT CLIP //////";
1600         return -1;
1601     }
1602
1603     Mlt::Service service(parentProd.get_service());
1604     if (service.type() != tractor_type) {
1605         kWarning() << "// TRACTOR PROBLEM";
1606         return -1;
1607     }
1608     Mlt::Tractor tractor(service);
1609     if (info.track > tractor.count() - 1) {
1610         kDebug() << "ERROR TRYING TO INSERT CLIP ON TRACK " << info.track << ", at POS: " << info.startPos.frames(25);
1611         return -1;
1612     }
1613     mlt_service_lock(service.get_service());
1614     Mlt::Producer trackProducer(tractor.track(info.track));
1615     int trackDuration = trackProducer.get_playtime() - 1;
1616     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1617     //kDebug()<<"/// INSERT cLIP: "<<info.cropStart.frames(m_fps)<<", "<<info.startPos.frames(m_fps)<<"-"<<info.endPos.frames(m_fps);
1618     prod = checkSlowMotionProducer(prod, element);
1619     if (prod == NULL || !prod->is_valid()) {
1620         mlt_service_unlock(service.get_service());
1621         return -1;
1622     }
1623
1624     int cutPos = (int) info.cropStart.frames(m_fps);
1625     if (cutPos < 0) cutPos = 0;
1626     int insertPos = (int) info.startPos.frames(m_fps);
1627     int cutDuration = (int)(info.endPos - info.startPos).frames(m_fps) - 1;
1628     Mlt::Producer *clip = prod->cut(cutPos, cutDuration + cutPos);
1629     if (overwrite && (insertPos < trackDuration)) {
1630         // Replace zone with blanks
1631         //trackPlaylist.split_at(insertPos, true);
1632         trackPlaylist.remove_region(insertPos, cutDuration + 1);
1633         int clipIndex = trackPlaylist.get_clip_index_at(insertPos);
1634         trackPlaylist.insert_blank(clipIndex, cutDuration);
1635     } else if (push) {
1636         trackPlaylist.split_at(insertPos, true);
1637         int clipIndex = trackPlaylist.get_clip_index_at(insertPos);
1638         trackPlaylist.insert_blank(clipIndex, cutDuration);
1639     }
1640     int newIndex = trackPlaylist.insert_at(insertPos, clip, 1);
1641     delete clip;
1642     /*if (QString(prod->get("transparency")).toInt() == 1)
1643         mltAddClipTransparency(info, info.track - 1, QString(prod->get("id")).toInt());*/
1644
1645     if (info.track != 0 && (newIndex + 1 == trackPlaylist.count())) mltCheckLength(&tractor);
1646     mlt_service_unlock(service.get_service());
1647     /*tractor.multitrack()->refresh();
1648     tractor.refresh();*/
1649     return 0;
1650 }
1651
1652
1653 void Render::mltCutClip(int track, GenTime position)
1654 {
1655     m_isBlocked = true;
1656
1657     Mlt::Service service(m_mltProducer->parent().get_service());
1658     if (service.type() != tractor_type) {
1659         kWarning() << "// TRACTOR PROBLEM";
1660         return;
1661     }
1662
1663     Mlt::Tractor tractor(service);
1664     Mlt::Producer trackProducer(tractor.track(track));
1665     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1666
1667
1668     /* // Display playlist info
1669     kDebug()<<"////////////  BEFORE";
1670     for (int i = 0; i < trackPlaylist.count(); i++) {
1671     int blankStart = trackPlaylist.clip_start(i);
1672     int blankDuration = trackPlaylist.clip_length(i) - 1;
1673     QString blk;
1674     if (trackPlaylist.is_blank(i)) blk = "(blank)";
1675     kDebug()<<"CLIP "<<i<<": ("<<blankStart<<'x'<<blankStart + blankDuration<<")"<<blk;
1676     }*/
1677
1678     int cutPos = (int) position.frames(m_fps);
1679
1680     int clipIndex = trackPlaylist.get_clip_index_at(cutPos);
1681     if (trackPlaylist.is_blank(clipIndex)) {
1682         kDebug() << "// WARNING, TRYING TO CUT A BLANK";
1683         m_isBlocked = false;
1684         return;
1685     }
1686     mlt_service_lock(service.get_service());
1687     int clipStart = trackPlaylist.clip_start(clipIndex);
1688     trackPlaylist.split(clipIndex, cutPos - clipStart - 1);
1689     mlt_service_unlock(service.get_service());
1690
1691     // duplicate effects
1692     Mlt::Producer *original = trackPlaylist.get_clip_at(clipStart);
1693     Mlt::Producer *clip = trackPlaylist.get_clip_at(cutPos);
1694
1695     if (original == NULL || clip == NULL) {
1696         kDebug() << "// ERROR GRABBING CLIP AFTER SPLIT";
1697     }
1698     Mlt::Service clipService(original->get_service());
1699     Mlt::Service dupService(clip->get_service());
1700     delete original;
1701     delete clip;
1702     int ct = 0;
1703     Mlt::Filter *filter = clipService.filter(ct);
1704     while (filter) {
1705         // Only duplicate Kdenlive filters, and skip the fade in effects
1706         if (filter->is_valid() && strcmp(filter->get("kdenlive_id"), "") && strcmp(filter->get("kdenlive_id"), "fadein") && strcmp(filter->get("kdenlive_id"), "fade_from_black")) {
1707             // looks like there is no easy way to duplicate a filter,
1708             // so we will create a new one and duplicate its properties
1709             Mlt::Filter *dup = new Mlt::Filter(*m_mltProfile, filter->get("mlt_service"));
1710             if (dup && dup->is_valid()) {
1711                 Mlt::Properties entries(filter->get_properties());
1712                 for (int i = 0; i < entries.count(); i++) {
1713                     dup->set(entries.get_name(i), entries.get(i));
1714                 }
1715                 dupService.attach(*dup);
1716             }
1717         }
1718         ct++;
1719         filter = clipService.filter(ct);
1720     }
1721
1722     /* // Display playlist info
1723     kDebug()<<"////////////  AFTER";
1724     for (int i = 0; i < trackPlaylist.count(); i++) {
1725     int blankStart = trackPlaylist.clip_start(i);
1726     int blankDuration = trackPlaylist.clip_length(i) - 1;
1727     QString blk;
1728     if (trackPlaylist.is_blank(i)) blk = "(blank)";
1729     kDebug()<<"CLIP "<<i<<": ("<<blankStart<<'x'<<blankStart + blankDuration<<")"<<blk;
1730     }*/
1731
1732     m_isBlocked = false;
1733 }
1734
1735 bool Render::mltUpdateClip(ItemInfo info, QDomElement element, Mlt::Producer *prod)
1736 {
1737     // TODO: optimize
1738     if (prod == NULL) {
1739         kDebug() << "Cannot update clip with null producer //////";
1740         return false;
1741     }
1742     Mlt::Service service(m_mltProducer->parent().get_service());
1743     if (service.type() != tractor_type) {
1744         kWarning() << "// TRACTOR PROBLEM";
1745         return false;
1746     }
1747     Mlt::Tractor tractor(service);
1748     Mlt::Producer trackProducer(tractor.track(info.track));
1749     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1750     int startPos = info.startPos.frames(m_fps);
1751     int clipIndex = trackPlaylist.get_clip_index_at(startPos);
1752     if (trackPlaylist.is_blank(clipIndex)) {
1753         kDebug() << "// WARNING, TRYING TO REMOVE A BLANK: " << startPos;
1754         return false;
1755     }
1756     mlt_service_lock(service.get_service());
1757     Mlt::Producer *clip = trackPlaylist.get_clip(clipIndex);
1758     // keep effects
1759     QList <Mlt::Filter *> filtersList;
1760     Mlt::Service sourceService(clip->get_service());
1761     int ct = 0;
1762     Mlt::Filter *filter = sourceService.filter(ct);
1763     while (filter) {
1764         if (filter->get_int("kdenlive_ix") != 0) {
1765             filtersList.append(filter);
1766         }
1767         ct++;
1768         filter = sourceService.filter(ct);
1769     }
1770
1771     trackPlaylist.replace_with_blank(clipIndex);
1772     delete clip;
1773     //if (!mltRemoveClip(info.track, info.startPos)) return false;
1774     prod = checkSlowMotionProducer(prod, element);
1775     if (prod == NULL || !prod->is_valid()) {
1776         mlt_service_unlock(service.get_service());
1777         return false;
1778     }
1779     Mlt::Producer *clip2 = prod->cut(info.cropStart.frames(m_fps), (info.cropDuration + info.cropStart).frames(m_fps));
1780     trackPlaylist.insert_at(info.startPos.frames(m_fps), clip2, 1);
1781     delete clip2;
1782
1783
1784     //if (mltInsertClip(info, element, prod) == -1) return false;
1785     if (!filtersList.isEmpty()) {
1786         clipIndex = trackPlaylist.get_clip_index_at(startPos);
1787         Mlt::Producer *destclip = trackPlaylist.get_clip(clipIndex);
1788         Mlt::Service destService(destclip->get_service());
1789         delete destclip;
1790         for (int i = 0; i < filtersList.count(); i++)
1791             destService.attach(*(filtersList.at(i)));
1792     }
1793     mlt_service_unlock(service.get_service());
1794     return true;
1795 }
1796
1797
1798 bool Render::mltRemoveClip(int track, GenTime position)
1799 {
1800     Mlt::Service service(m_mltProducer->parent().get_service());
1801     if (service.type() != tractor_type) {
1802         kWarning() << "// TRACTOR PROBLEM";
1803         return false;
1804     }
1805
1806     Mlt::Tractor tractor(service);
1807     mlt_service_lock(service.get_service());
1808     Mlt::Producer trackProducer(tractor.track(track));
1809     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1810     int clipIndex = trackPlaylist.get_clip_index_at((int) position.frames(m_fps));
1811
1812     // Display playlist info
1813     //kDebug() << "////  BEFORE -( " << position.frames(m_fps) << " )-------------------------------";
1814     /*for (int i = 0; i < trackPlaylist.count(); i++) {
1815     int blankStart = trackPlaylist.clip_start(i);
1816     int blankDuration = trackPlaylist.clip_length(i) - 1;
1817     QString blk;
1818     if (trackPlaylist.is_blank(i)) blk = "(blank)";
1819     kDebug()<<"CLIP "<<i<<": ("<<blankStart<<'x'<<blankStart + blankDuration<<")"<<blk;
1820     }*/
1821     if (trackPlaylist.is_blank(clipIndex)) {
1822         kDebug() << "// WARNING, TRYING TO REMOVE A BLANK: " << position.frames(25);
1823         mlt_service_unlock(service.get_service());
1824         return false;
1825     }
1826     //kDebug()<<"////  Deleting at: "<< (int) position.frames(m_fps) <<" --------------------------------------";
1827     m_isBlocked = true;
1828     Mlt::Producer *clip = trackPlaylist.replace_with_blank(clipIndex);
1829     if (clip) delete clip;
1830     trackPlaylist.consolidate_blanks(0);
1831     /*if (QString(clip.parent().get("transparency")).toInt() == 1)
1832         mltDeleteTransparency((int) position.frames(m_fps), track, QString(clip.parent().get("id")).toInt());*/
1833
1834     /* // Display playlist info
1835     kDebug()<<"////  AFTER";
1836     for (int i = 0; i < trackPlaylist.count(); i++) {
1837     int blankStart = trackPlaylist.clip_start(i);
1838     int blankDuration = trackPlaylist.clip_length(i) - 1;
1839     QString blk;
1840     if (trackPlaylist.is_blank(i)) blk = "(blank)";
1841     kDebug()<<"CLIP "<<i<<": ("<<blankStart<<'x'<<blankStart + blankDuration<<")"<<blk;
1842     }*/
1843     mlt_service_unlock(service.get_service());
1844     if (track != 0 && trackPlaylist.count() <= clipIndex) mltCheckLength(&tractor);
1845     m_isBlocked = false;
1846     return true;
1847 }
1848
1849 int Render::mltGetSpaceLength(const GenTime pos, int track, bool fromBlankStart)
1850 {
1851     if (!m_mltProducer) {
1852         kDebug() << "PLAYLIST NOT INITIALISED //////";
1853         return 0;
1854     }
1855     Mlt::Producer parentProd(m_mltProducer->parent());
1856     if (parentProd.get_producer() == NULL) {
1857         kDebug() << "PLAYLIST BROKEN, CANNOT INSERT CLIP //////";
1858         return 0;
1859     }
1860
1861     Mlt::Service service(parentProd.get_service());
1862     Mlt::Tractor tractor(service);
1863     int insertPos = pos.frames(m_fps);
1864
1865     Mlt::Producer trackProducer(tractor.track(track));
1866     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1867     int clipIndex = trackPlaylist.get_clip_index_at(insertPos);
1868     if (clipIndex == trackPlaylist.count()) {
1869         // We are after the end of the playlist
1870         return -1;
1871     }
1872     if (!trackPlaylist.is_blank(clipIndex)) return 0;
1873     if (fromBlankStart) return trackPlaylist.clip_length(clipIndex);
1874     return trackPlaylist.clip_length(clipIndex) + trackPlaylist.clip_start(clipIndex) - insertPos;
1875 }
1876
1877 int Render::mltTrackDuration(int track)
1878 {
1879     if (!m_mltProducer) {
1880         kDebug() << "PLAYLIST NOT INITIALISED //////";
1881         return -1;
1882     }
1883     Mlt::Producer parentProd(m_mltProducer->parent());
1884     if (parentProd.get_producer() == NULL) {
1885         kDebug() << "PLAYLIST BROKEN, CANNOT INSERT CLIP //////";
1886         return -1;
1887     }
1888
1889     Mlt::Service service(parentProd.get_service());
1890     Mlt::Tractor tractor(service);
1891
1892     Mlt::Producer trackProducer(tractor.track(track));
1893     return trackProducer.get_playtime() - 1;
1894 }
1895
1896 void Render::mltInsertSpace(QMap <int, int> trackClipStartList, QMap <int, int> trackTransitionStartList, int track, const GenTime duration, const GenTime timeOffset)
1897 {
1898     if (!m_mltProducer) {
1899         kDebug() << "PLAYLIST NOT INITIALISED //////";
1900         return;
1901     }
1902     Mlt::Producer parentProd(m_mltProducer->parent());
1903     if (parentProd.get_producer() == NULL) {
1904         kDebug() << "PLAYLIST BROKEN, CANNOT INSERT CLIP //////";
1905         return;
1906     }
1907     //kDebug()<<"// CLP STRT LST: "<<trackClipStartList;
1908     //kDebug()<<"// TRA STRT LST: "<<trackTransitionStartList;
1909
1910     Mlt::Service service(parentProd.get_service());
1911     Mlt::Tractor tractor(service);
1912     mlt_service_lock(service.get_service());
1913     int diff = duration.frames(m_fps);
1914     int offset = timeOffset.frames(m_fps);
1915     int insertPos;
1916
1917     if (track != -1) {
1918         // insert space in one track only
1919         Mlt::Producer trackProducer(tractor.track(track));
1920         Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1921         insertPos = trackClipStartList.value(track);
1922         if (insertPos != -1) {
1923             insertPos += offset;
1924             int clipIndex = trackPlaylist.get_clip_index_at(insertPos);
1925             if (diff > 0) {
1926                 trackPlaylist.insert_blank(clipIndex, diff - 1);
1927             } else {
1928                 if (!trackPlaylist.is_blank(clipIndex)) clipIndex --;
1929                 if (!trackPlaylist.is_blank(clipIndex)) {
1930                     kDebug() << "//// ERROR TRYING TO DELETE SPACE FROM " << insertPos;
1931                 }
1932                 int position = trackPlaylist.clip_start(clipIndex);
1933                 int blankDuration = trackPlaylist.clip_length(clipIndex);
1934                 diff = -diff;
1935                 if (blankDuration - diff == 0) {
1936                     trackPlaylist.remove(clipIndex);
1937                 } else trackPlaylist.remove_region(position, diff);
1938             }
1939             trackPlaylist.consolidate_blanks(0);
1940         }
1941         // now move transitions
1942         mlt_service serv = m_mltProducer->parent().get_service();
1943         mlt_service nextservice = mlt_service_get_producer(serv);
1944         mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
1945         QString mlt_type = mlt_properties_get(properties, "mlt_type");
1946         QString resource = mlt_properties_get(properties, "mlt_service");
1947
1948         while (mlt_type == "transition") {
1949             mlt_transition tr = (mlt_transition) nextservice;
1950             int currentTrack = mlt_transition_get_b_track(tr);
1951             int currentIn = (int) mlt_transition_get_in(tr);
1952             int currentOut = (int) mlt_transition_get_out(tr);
1953             insertPos = trackTransitionStartList.value(track);
1954             if (insertPos != -1) {
1955                 insertPos += offset;
1956                 if (track == currentTrack && currentOut > insertPos && resource != "mix") {
1957                     mlt_transition_set_in_and_out(tr, currentIn + diff, currentOut + diff);
1958                 }
1959             }
1960             nextservice = mlt_service_producer(nextservice);
1961             if (nextservice == NULL) break;
1962             properties = MLT_SERVICE_PROPERTIES(nextservice);
1963             mlt_type = mlt_properties_get(properties, "mlt_type");
1964             resource = mlt_properties_get(properties, "mlt_service");
1965         }
1966     } else {
1967         for (int trackNb = tractor.count() - 1; trackNb >= 1; --trackNb) {
1968             Mlt::Producer trackProducer(tractor.track(trackNb));
1969             Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1970
1971             //int clipNb = trackPlaylist.count();
1972             insertPos = trackClipStartList.value(trackNb);
1973             if (insertPos != -1) {
1974                 insertPos += offset;
1975
1976                 /* kDebug()<<"-------------\nTRACK "<<trackNb<<" HAS "<<clipNb<<" CLPIS";
1977                  kDebug() << "INSERT SPACE AT: "<<insertPos<<", DIFF: "<<diff<<", TK: "<<trackNb;
1978                         for (int i = 0; i < clipNb; i++) {
1979                             kDebug()<<"CLIP "<<i<<", START: "<<trackPlaylist.clip_start(i)<<", END: "<<trackPlaylist.clip_start(i) + trackPlaylist.clip_length(i);
1980                      if (trackPlaylist.is_blank(i)) kDebug()<<"++ BLANK ++ ";
1981                      kDebug()<<"-------------";
1982                  }
1983                  kDebug()<<"END-------------";*/
1984
1985
1986                 int clipIndex = trackPlaylist.get_clip_index_at(insertPos);
1987                 if (diff > 0) {
1988                     trackPlaylist.insert_blank(clipIndex, diff - 1);
1989                 } else {
1990                     if (!trackPlaylist.is_blank(clipIndex)) {
1991                         clipIndex --;
1992                     }
1993                     if (!trackPlaylist.is_blank(clipIndex)) {
1994                         kDebug() << "//// ERROR TRYING TO DELETE SPACE FROM " << insertPos;
1995                     }
1996                     int position = trackPlaylist.clip_start(clipIndex);
1997                     int blankDuration = trackPlaylist.clip_length(clipIndex);
1998                     if (diff + blankDuration == 0) {
1999                         trackPlaylist.remove(clipIndex);
2000                     } else trackPlaylist.remove_region(position, - diff);
2001                 }
2002                 trackPlaylist.consolidate_blanks(0);
2003             }
2004         }
2005         // now move transitions
2006         mlt_service serv = m_mltProducer->parent().get_service();
2007         mlt_service nextservice = mlt_service_get_producer(serv);
2008         mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
2009         QString mlt_type = mlt_properties_get(properties, "mlt_type");
2010         QString resource = mlt_properties_get(properties, "mlt_service");
2011
2012         while (mlt_type == "transition") {
2013             mlt_transition tr = (mlt_transition) nextservice;
2014             int currentIn = (int) mlt_transition_get_in(tr);
2015             int currentOut = (int) mlt_transition_get_out(tr);
2016             int currentTrack = mlt_transition_get_b_track(tr);
2017             insertPos = trackTransitionStartList.value(currentTrack);
2018             if (insertPos != -1) {
2019                 insertPos += offset;
2020                 if (currentOut > insertPos && resource != "mix") {
2021                     mlt_transition_set_in_and_out(tr, currentIn + diff, currentOut + diff);
2022                 }
2023             }
2024             nextservice = mlt_service_producer(nextservice);
2025             if (nextservice == NULL) break;
2026             properties = MLT_SERVICE_PROPERTIES(nextservice);
2027             mlt_type = mlt_properties_get(properties, "mlt_type");
2028             resource = mlt_properties_get(properties, "mlt_service");
2029         }
2030     }
2031     mlt_service_unlock(service.get_service());
2032     mltCheckLength(&tractor);
2033     m_mltConsumer->set("refresh", 1);
2034 }
2035
2036
2037 void Render::mltPasteEffects(Mlt::Producer *source, Mlt::Producer *dest)
2038 {
2039     if (source == dest) return;
2040     Mlt::Service sourceService(source->get_service());
2041     Mlt::Service destService(dest->get_service());
2042
2043     // move all effects to the correct producer
2044     int ct = 0;
2045     Mlt::Filter *filter = sourceService.filter(ct);
2046     while (filter) {
2047         if (filter->get_int("kdenlive_ix") != 0) {
2048             sourceService.detach(*filter);
2049             destService.attach(*filter);
2050         } else ct++;
2051         filter = sourceService.filter(ct);
2052     }
2053 }
2054
2055 int Render::mltChangeClipSpeed(ItemInfo info, ItemInfo speedIndependantInfo, double speed, double /*oldspeed*/, int strobe, Mlt::Producer *prod)
2056 {
2057     m_isBlocked = true;
2058     int newLength = 0;
2059     Mlt::Service service(m_mltProducer->parent().get_service());
2060     if (service.type() != tractor_type) {
2061         kWarning() << "// TRACTOR PROBLEM";
2062         return -1;
2063     }
2064     //kDebug() << "Changing clip speed, set in and out: " << info.cropStart.frames(m_fps) << " to " << (info.endPos - info.startPos).frames(m_fps) - 1;
2065     Mlt::Tractor tractor(service);
2066     Mlt::Producer trackProducer(tractor.track(info.track));
2067     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2068     int startPos = info.startPos.frames(m_fps);
2069     int clipIndex = trackPlaylist.get_clip_index_at(startPos);
2070     int clipLength = trackPlaylist.clip_length(clipIndex);
2071
2072     Mlt::Producer *original = trackPlaylist.get_clip(clipIndex);
2073     if (original == NULL) {
2074         return -1;
2075     }
2076     if (!original->is_valid() || original->is_blank()) {
2077         // invalid clip
2078         delete original;
2079         return -1;
2080     }
2081     Mlt::Producer clipparent = original->parent();
2082     if (!clipparent.is_valid() || clipparent.is_blank()) {
2083         // invalid clip
2084         delete original;
2085         return -1;
2086     }
2087
2088     QString serv = clipparent.get("mlt_service");
2089     QString id = clipparent.get("id");
2090     if (speed <= 0 && speed > -1) speed = 1.0;
2091     //kDebug() << "CLIP SERVICE: " << serv;
2092     if ((serv == "avformat" || serv == "avformat-novalidate") && (speed != 1.0 || strobe > 1)) {
2093         mlt_service_lock(service.get_service());
2094         QString url = QString::fromUtf8(clipparent.get("resource"));
2095         url.append('?' + QString::number(speed));
2096         if (strobe > 1) url.append("&strobe=" + QString::number(strobe));
2097         Mlt::Producer *slowprod = m_slowmotionProducers.value(url);
2098         if (!slowprod || slowprod->get_producer() == NULL) {
2099             slowprod = new Mlt::Producer(*m_mltProfile, 0, ("framebuffer:" + url).toUtf8().constData());
2100             if (strobe > 1) slowprod->set("strobe", strobe);
2101             QString producerid = "slowmotion:" + id + ':' + QString::number(speed);
2102             if (strobe > 1) producerid.append(':' + QString::number(strobe));
2103             slowprod->set("id", producerid.toUtf8().constData());
2104             // copy producer props
2105             double ar = original->parent().get_double("force_aspect_ratio");
2106             if (ar != 0.0) slowprod->set("force_aspect_ratio", ar);
2107             double fps = original->parent().get_double("force_fps");
2108             if (fps != 0.0) slowprod->set("force_fps", fps);
2109             int threads = original->parent().get_int("threads");
2110             if (threads != 0) slowprod->set("threads", threads);
2111             if (original->parent().get("force_progressive"))
2112                 slowprod->set("force_progressive", original->parent().get_int("force_progressive"));
2113             if (original->parent().get("force_tff"))
2114                 slowprod->set("force_tff", original->parent().get_int("force_tff"));
2115             int ix = original->parent().get_int("video_index");
2116             if (ix != 0) slowprod->set("video_index", ix);
2117             int colorspace = original->parent().get_int("force_colorspace");
2118             if (colorspace != 0) slowprod->set("force_colorspace", colorspace);
2119             int full_luma = original->parent().get_int("set.force_full_luma");
2120             if (full_luma != 0) slowprod->set("set.force_full_luma", full_luma);
2121             m_slowmotionProducers.insert(url, slowprod);
2122         }
2123         Mlt::Producer *clip = trackPlaylist.replace_with_blank(clipIndex);
2124         trackPlaylist.consolidate_blanks(0);
2125
2126         // Check that the blank space is long enough for our new duration
2127         clipIndex = trackPlaylist.get_clip_index_at(startPos);
2128         int blankEnd = trackPlaylist.clip_start(clipIndex) + trackPlaylist.clip_length(clipIndex);
2129         Mlt::Producer *cut;
2130         if (clipIndex + 1 < trackPlaylist.count() && (startPos + clipLength / speed > blankEnd)) {
2131             GenTime maxLength = GenTime(blankEnd, m_fps) - info.startPos;
2132             cut = slowprod->cut((int)(info.cropStart.frames(m_fps) / speed), (int)(info.cropStart.frames(m_fps) / speed + maxLength.frames(m_fps) - 1));
2133         } else cut = slowprod->cut((int)(info.cropStart.frames(m_fps) / speed), (int)((info.cropStart.frames(m_fps) + clipLength) / speed - 1));
2134
2135         // move all effects to the correct producer
2136         mltPasteEffects(clip, cut);
2137         trackPlaylist.insert_at(startPos, cut, 1);
2138         delete cut;
2139         delete clip;
2140         clipIndex = trackPlaylist.get_clip_index_at(startPos);
2141         newLength = trackPlaylist.clip_length(clipIndex);
2142         mlt_service_unlock(service.get_service());
2143     } else if (speed == 1.0 && strobe < 2) {
2144         mlt_service_lock(service.get_service());
2145
2146         Mlt::Producer *clip = trackPlaylist.replace_with_blank(clipIndex);
2147         trackPlaylist.consolidate_blanks(0);
2148
2149         // Check that the blank space is long enough for our new duration
2150         clipIndex = trackPlaylist.get_clip_index_at(startPos);
2151         int blankEnd = trackPlaylist.clip_start(clipIndex) + trackPlaylist.clip_length(clipIndex);
2152
2153         Mlt::Producer *cut;
2154         int originalStart = (int)(speedIndependantInfo.cropStart.frames(m_fps));
2155         if (clipIndex + 1 < trackPlaylist.count() && (info.startPos + speedIndependantInfo.cropDuration).frames(m_fps) > blankEnd) {
2156             GenTime maxLength = GenTime(blankEnd, m_fps) - info.startPos;
2157             cut = prod->cut(originalStart, (int)(originalStart + maxLength.frames(m_fps) - 1));
2158         } else cut = prod->cut(originalStart, (int)(originalStart + speedIndependantInfo.cropDuration.frames(m_fps)) - 1);
2159
2160         // move all effects to the correct producer
2161         mltPasteEffects(clip, cut);
2162
2163         trackPlaylist.insert_at(startPos, cut, 1);
2164         delete cut;
2165         delete clip;
2166         clipIndex = trackPlaylist.get_clip_index_at(startPos);
2167         newLength = trackPlaylist.clip_length(clipIndex);
2168         mlt_service_unlock(service.get_service());
2169
2170     } else if (serv == "framebuffer") {
2171         mlt_service_lock(service.get_service());
2172         QString url = QString::fromUtf8(clipparent.get("resource"));
2173         url = url.section('?', 0, 0);
2174         url.append('?' + QString::number(speed));
2175         if (strobe > 1) url.append("&strobe=" + QString::number(strobe));
2176         Mlt::Producer *slowprod = m_slowmotionProducers.value(url);
2177         if (!slowprod || slowprod->get_producer() == NULL) {
2178             slowprod = new Mlt::Producer(*m_mltProfile, 0, ("framebuffer:" + url).toUtf8().constData());
2179             slowprod->set("strobe", strobe);
2180             QString producerid = "slowmotion:" + id.section(':', 1, 1) + ':' + QString::number(speed);
2181             if (strobe > 1) producerid.append(':' + QString::number(strobe));
2182             slowprod->set("id", producerid.toUtf8().constData());
2183             // copy producer props
2184             double ar = original->parent().get_double("force_aspect_ratio");
2185             if (ar != 0.0) slowprod->set("force_aspect_ratio", ar);
2186             double fps = original->parent().get_double("force_fps");
2187             if (fps != 0.0) slowprod->set("force_fps", fps);
2188             if (original->parent().get("force_progressive"))
2189                 slowprod->set("force_progressive", original->parent().get_int("force_progressive"));
2190             if (original->parent().get("force_tff"))
2191                 slowprod->set("force_tff", original->parent().get_int("force_tff"));
2192             int threads = original->parent().get_int("threads");
2193             if (threads != 0) slowprod->set("threads", threads);
2194             int ix = original->parent().get_int("video_index");
2195             if (ix != 0) slowprod->set("video_index", ix);
2196             int colorspace = original->parent().get_int("force_colorspace");
2197             if (colorspace != 0) slowprod->set("force_colorspace", colorspace);
2198             int full_luma = original->parent().get_int("set.force_full_luma");
2199             if (full_luma != 0) slowprod->set("set.force_full_luma", full_luma);
2200             m_slowmotionProducers.insert(url, slowprod);
2201         }
2202         Mlt::Producer *clip = trackPlaylist.replace_with_blank(clipIndex);
2203         trackPlaylist.consolidate_blanks(0);
2204
2205         GenTime duration = speedIndependantInfo.cropDuration / speed;
2206         int originalStart = (int)(speedIndependantInfo.cropStart.frames(m_fps) / speed);
2207
2208         // Check that the blank space is long enough for our new duration
2209         clipIndex = trackPlaylist.get_clip_index_at(startPos);
2210         int blankEnd = trackPlaylist.clip_start(clipIndex) + trackPlaylist.clip_length(clipIndex);
2211
2212         Mlt::Producer *cut;
2213         if (clipIndex + 1 < trackPlaylist.count() && (info.startPos + duration).frames(m_fps) > blankEnd) {
2214             GenTime maxLength = GenTime(blankEnd, m_fps) - info.startPos;
2215             cut = slowprod->cut(originalStart, (int)(originalStart + maxLength.frames(m_fps) - 1));
2216         } else cut = slowprod->cut(originalStart, (int)(originalStart + duration.frames(m_fps)) - 1);
2217
2218         // move all effects to the correct producer
2219         mltPasteEffects(clip, cut);
2220
2221         trackPlaylist.insert_at(startPos, cut, 1);
2222         delete cut;
2223         delete clip;
2224         clipIndex = trackPlaylist.get_clip_index_at(startPos);
2225         newLength = trackPlaylist.clip_length(clipIndex);
2226
2227         mlt_service_unlock(service.get_service());
2228     }
2229     delete original;
2230     if (clipIndex + 1 == trackPlaylist.count()) mltCheckLength(&tractor);
2231     m_isBlocked = false;
2232     return newLength;
2233 }
2234
2235 bool Render::mltRemoveTrackEffect(int track, QString index, bool updateIndex)
2236 {
2237     Mlt::Service service(m_mltProducer->parent().get_service());
2238     bool success = false;
2239     Mlt::Tractor tractor(service);
2240     Mlt::Producer trackProducer(tractor.track(track));
2241     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2242     Mlt::Service clipService(trackPlaylist.get_service());
2243
2244     m_isBlocked = true;
2245     mlt_service_lock(service.get_service());
2246     int ct = 0;
2247     Mlt::Filter *filter = clipService.filter(ct);
2248     while (filter) {
2249         if ((index == "-1" && strcmp(filter->get("kdenlive_id"), ""))  || filter->get_int("kdenlive_ix") == index.toInt()) {
2250             if (clipService.detach(*filter) == 0) success = true;
2251         } else if (updateIndex) {
2252             // Adjust the other effects index
2253             if (filter->get_int("kdenlive_ix") > index.toInt()) filter->set("kdenlive_ix", filter->get_int("kdenlive_ix") - 1);
2254             ct++;
2255         } else ct++;
2256         filter = clipService.filter(ct);
2257     }
2258     m_isBlocked = false;
2259     mlt_service_unlock(service.get_service());
2260     refresh();
2261     return success;
2262 }
2263
2264 bool Render::mltRemoveEffect(int track, GenTime position, QString index, bool updateIndex, bool doRefresh)
2265 {
2266     if (position < GenTime()) {
2267         // Remove track effect
2268         return mltRemoveTrackEffect(track, index, updateIndex);
2269     }
2270     Mlt::Service service(m_mltProducer->parent().get_service());
2271     bool success = false;
2272     Mlt::Tractor tractor(service);
2273     Mlt::Producer trackProducer(tractor.track(track));
2274     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2275
2276     int clipIndex = trackPlaylist.get_clip_index_at((int) position.frames(m_fps));
2277     Mlt::Producer *clip = trackPlaylist.get_clip(clipIndex);
2278     if (!clip) {
2279         kDebug() << " / / / CANNOT FIND CLIP TO REMOVE EFFECT";
2280         return false;
2281     }
2282
2283     Mlt::Service clipService(clip->get_service());
2284     int duration = clip->get_playtime();
2285     if (doRefresh) {
2286         // Check if clip is visible in monitor
2287         int diff = trackPlaylist.clip_start(clipIndex) + duration - m_mltProducer->position();
2288         if (diff < 0 || diff > duration) doRefresh = false;
2289     }
2290     delete clip;
2291
2292 //    if (tag.startsWith("ladspa")) tag = "ladspa";
2293     m_isBlocked = true;
2294     mlt_service_lock(service.get_service());
2295     int ct = 0;
2296     Mlt::Filter *filter = clipService.filter(ct);
2297     while (filter) {
2298         if ((index == "-1" && strcmp(filter->get("kdenlive_id"), ""))  || filter->get_int("kdenlive_ix") == index.toInt()) {// && filter->get("kdenlive_id") == id) {
2299             if (clipService.detach(*filter) == 0) success = true;
2300             //kDebug()<<"Deleted filter id:"<<filter->get("kdenlive_id")<<", ix:"<<filter->get("kdenlive_ix")<<", SERVICE:"<<filter->get("mlt_service");
2301         } else if (updateIndex) {
2302             // Adjust the other effects index
2303             if (filter->get_int("kdenlive_ix") > index.toInt()) filter->set("kdenlive_ix", filter->get_int("kdenlive_ix") - 1);
2304             ct++;
2305         } else ct++;
2306         filter = clipService.filter(ct);
2307     }
2308     m_isBlocked = false;
2309     mlt_service_unlock(service.get_service());
2310     if (doRefresh) refresh();
2311     return success;
2312 }
2313
2314 bool Render::mltAddTrackEffect(int track, EffectsParameterList params)
2315 {
2316     Mlt::Service service(m_mltProducer->parent().get_service());
2317     Mlt::Tractor tractor(service);
2318     Mlt::Producer trackProducer(tractor.track(track));
2319     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2320     Mlt::Service trackService(trackProducer.get_service()); //trackPlaylist
2321     return mltAddEffect(trackService, params, 15000, true);
2322 }
2323
2324
2325 bool Render::mltAddEffect(int track, GenTime position, EffectsParameterList params, bool doRefresh)
2326 {
2327
2328     Mlt::Service service(m_mltProducer->parent().get_service());
2329
2330     Mlt::Tractor tractor(service);
2331     Mlt::Producer trackProducer(tractor.track(track));
2332     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2333
2334     int clipIndex = trackPlaylist.get_clip_index_at((int) position.frames(m_fps));
2335     Mlt::Producer *clip = trackPlaylist.get_clip(clipIndex);
2336     if (!clip) {
2337         return false;
2338     }
2339
2340     Mlt::Service clipService(clip->get_service());
2341     int duration = clip->get_playtime();
2342     if (doRefresh) {
2343         // Check if clip is visible in monitor
2344         int diff = trackPlaylist.clip_start(clipIndex) + duration - m_mltProducer->position();
2345         if (diff < 0 || diff > duration) doRefresh = false;
2346     }
2347     delete clip;
2348     return mltAddEffect(clipService, params, duration, doRefresh);
2349 }
2350
2351 bool Render::mltAddEffect(Mlt::Service service, EffectsParameterList params, int duration, bool doRefresh)
2352 {
2353     bool updateIndex = false;
2354     const int filter_ix = params.paramValue("kdenlive_ix").toInt();
2355     const QString region =  params.paramValue("region");
2356     int ct = 0;
2357     m_isBlocked = true;
2358     mlt_service_lock(service.get_service());
2359
2360     Mlt::Filter *filter = service.filter(ct);
2361     while (filter) {
2362         if (filter->get_int("kdenlive_ix") == filter_ix) {
2363             // A filter at that position already existed, so we will increase all indexes later
2364             updateIndex = true;
2365             break;
2366         }
2367         ct++;
2368         filter = service.filter(ct);
2369     }
2370
2371     if (params.paramValue("id") == "speed") {
2372         // special case, speed effect is not really inserted, we just update the other effects index (kdenlive_ix)
2373         ct = 0;
2374         filter = service.filter(ct);
2375         while (filter) {
2376             if (filter->get_int("kdenlive_ix") >= filter_ix) {
2377                 if (updateIndex) filter->set("kdenlive_ix", filter->get_int("kdenlive_ix") + 1);
2378             }
2379             ct++;
2380             filter = service.filter(ct);
2381         }
2382         m_isBlocked = false;
2383         mlt_service_unlock(service.get_service());
2384         if (doRefresh) refresh();
2385         return true;
2386     }
2387
2388
2389     // temporarily remove all effects after insert point
2390     QList <Mlt::Filter *> filtersList;
2391     ct = 0;
2392     filter = service.filter(ct);
2393     while (filter) {
2394         if (filter->get_int("kdenlive_ix") >= filter_ix) {
2395             filtersList.append(filter);
2396             service.detach(*filter);
2397         } else ct++;
2398         filter = service.filter(ct);
2399     }
2400
2401     // create filter
2402     QString tag =  params.paramValue("tag");
2403     kDebug() << " / / INSERTING EFFECT: " << tag << ", REGI: " << region;
2404     if (tag.startsWith("ladspa")) tag = "ladspa";
2405     char *filterTag = qstrdup(tag.toUtf8().constData());
2406     char *filterId = qstrdup(params.paramValue("id").toUtf8().constData());
2407     QHash<QString, QString>::Iterator it;
2408     QString kfr = params.paramValue("keyframes");
2409
2410     if (!kfr.isEmpty()) {
2411         QStringList keyFrames = kfr.split(';', QString::SkipEmptyParts);
2412         kDebug() << "// ADDING KEYFRAME EFFECT: " << params.paramValue("keyframes");
2413         char *starttag = qstrdup(params.paramValue("starttag", "start").toUtf8().constData());
2414         char *endtag = qstrdup(params.paramValue("endtag", "end").toUtf8().constData());
2415         kDebug() << "// ADDING KEYFRAME TAGS: " << starttag << ", " << endtag;
2416         //double max = params.paramValue("max").toDouble();
2417         double min = params.paramValue("min").toDouble();
2418         double factor = params.paramValue("factor", "1").toDouble();
2419         params.removeParam("starttag");
2420         params.removeParam("endtag");
2421         params.removeParam("keyframes");
2422         params.removeParam("min");
2423         params.removeParam("max");
2424         params.removeParam("factor");
2425         int offset = 0;
2426         // Special case, only one keyframe, means we want a constant value
2427         if (keyFrames.count() == 1) {
2428             Mlt::Filter *filter = new Mlt::Filter(*m_mltProfile, filterTag);
2429             if (filter && filter->is_valid()) {
2430                 filter->set("kdenlive_id", filterId);
2431                 int x1 = keyFrames.at(0).section(':', 0, 0).toInt();
2432                 double y1 = keyFrames.at(0).section(':', 1, 1).toDouble();
2433                 for (int j = 0; j < params.count(); j++) {
2434                     filter->set(params.at(j).name().toUtf8().constData(), params.at(j).value().toUtf8().constData());
2435                 }
2436                 filter->set("in", x1);
2437                 //kDebug() << "// ADDING KEYFRAME vals: " << min<<" / "<<max<<", "<<y1<<", factor: "<<factor;
2438                 filter->set(starttag, QString::number((min + y1) / factor).toUtf8().data());
2439                 service.attach(*filter);
2440             }
2441         } else for (int i = 0; i < keyFrames.size() - 1; ++i) {
2442                 Mlt::Filter *filter = new Mlt::Filter(*m_mltProfile, filterTag);
2443                 if (filter && filter->is_valid()) {
2444                     filter->set("kdenlive_id", filterId);
2445                     int x1 = keyFrames.at(i).section(':', 0, 0).toInt() + offset;
2446                     double y1 = keyFrames.at(i).section(':', 1, 1).toDouble();
2447                     int x2 = keyFrames.at(i + 1).section(':', 0, 0).toInt();
2448                     double y2 = keyFrames.at(i + 1).section(':', 1, 1).toDouble();
2449                     if (x2 == -1) x2 = duration;
2450
2451                     for (int j = 0; j < params.count(); j++) {
2452                         filter->set(params.at(j).name().toUtf8().constData(), params.at(j).value().toUtf8().constData());
2453                     }
2454
2455                     filter->set("in", x1);
2456                     filter->set("out", x2);
2457                     //kDebug() << "// ADDING KEYFRAME vals: " << min<<" / "<<max<<", "<<y1<<", factor: "<<factor;
2458                     filter->set(starttag, QString::number((min + y1) / factor).toUtf8().data());
2459                     filter->set(endtag, QString::number((min + y2) / factor).toUtf8().data());
2460                     service.attach(*filter);
2461                     offset = 1;
2462                 }
2463             }
2464         delete[] starttag;
2465         delete[] endtag;
2466     } else {
2467         Mlt::Filter *filter;
2468         QString prefix;
2469         if (!region.isEmpty()) {
2470             filter = new Mlt::Filter(*m_mltProfile, "region");
2471         } else filter = new Mlt::Filter(*m_mltProfile, filterTag);
2472         if (filter && filter->is_valid()) {
2473             filter->set("kdenlive_id", filterId);
2474             if (!region.isEmpty()) {
2475                 filter->set("resource", region.toUtf8().constData());
2476                 filter->set("kdenlive_ix", params.paramValue("kdenlive_ix").toUtf8().constData());
2477                 filter->set("filter0", filterTag);
2478                 prefix = "filter0.";
2479                 params.removeParam("id");
2480                 params.removeParam("region");
2481                 params.removeParam("kdenlive_ix");
2482             }
2483         } else {
2484             kDebug() << "filter is NULL";
2485             m_isBlocked = false;
2486             mlt_service_unlock(service.get_service());
2487             return false;
2488         }
2489         params.removeParam("kdenlive_id");
2490
2491         for (int j = 0; j < params.count(); j++) {
2492             filter->set((prefix + params.at(j).name()).toUtf8().constData(), params.at(j).value().toUtf8().constData());
2493         }
2494
2495         if (tag == "sox") {
2496             QString effectArgs = params.paramValue("id").section('_', 1);
2497
2498             params.removeParam("id");
2499             params.removeParam("kdenlive_ix");
2500             params.removeParam("tag");
2501             params.removeParam("disable");
2502             params.removeParam("region");
2503
2504             for (int j = 0; j < params.count(); j++) {
2505                 effectArgs.append(' ' + params.at(j).value());
2506             }
2507             //kDebug() << "SOX EFFECTS: " << effectArgs.simplified();
2508             filter->set("effect", effectArgs.simplified().toUtf8().constData());
2509         }
2510
2511         if (params.paramValue("id") == "pan_zoom") {
2512             filter->set_in_and_out(service.get_int("in"), service.get_int("out") + 1);
2513         }
2514
2515         // attach filter to the clip
2516         service.attach(*filter);
2517     }
2518     delete[] filterId;
2519     delete[] filterTag;
2520
2521     // re-add following filters
2522     for (int i = 0; i < filtersList.count(); i++) {
2523         Mlt::Filter *filter = filtersList.at(i);
2524         if (updateIndex)
2525             filter->set("kdenlive_ix", filter->get_int("kdenlive_ix") + 1);
2526         service.attach(*filter);
2527     }
2528     m_isBlocked = false;
2529     mlt_service_unlock(service.get_service());
2530     if (doRefresh) refresh();
2531     return true;
2532 }
2533
2534 bool Render::mltEditTrackEffect(int track, EffectsParameterList params)
2535 {
2536     Mlt::Service service(m_mltProducer->parent().get_service());
2537     Mlt::Tractor tractor(service);
2538     Mlt::Producer trackProducer(tractor.track(track));
2539     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2540     Mlt::Service clipService(trackPlaylist.get_service());
2541     m_isBlocked = true;
2542     int ct = 0;
2543     QString index = params.paramValue("kdenlive_ix");
2544     QString tag =  params.paramValue("tag");
2545
2546     Mlt::Filter *filter = clipService.filter(ct);
2547     while (filter) {
2548         if (filter->get_int("kdenlive_ix") == index.toInt()) {
2549             break;
2550         }
2551         ct++;
2552         filter = clipService.filter(ct);
2553     }
2554
2555     if (!filter) {
2556         kDebug() << "WARINIG, FILTER FOR EDITING NOT FOUND, ADDING IT! " << index << ", " << tag;
2557         // filter was not found, it was probably a disabled filter, so add it to the correct place...
2558
2559         bool success = false;//mltAddTrackEffect(track, params);
2560         m_isBlocked = false;
2561         return success;
2562     }
2563     QString prefix;
2564     QString ser = filter->get("mlt_service");
2565     if (ser == "region") prefix = "filter0.";
2566     mlt_service_lock(service.get_service());
2567     for (int j = 0; j < params.count(); j++) {
2568         filter->set((prefix + params.at(j).name()).toUtf8().constData(), params.at(j).value().toUtf8().constData());
2569     }
2570     mlt_service_unlock(service.get_service());
2571
2572     m_isBlocked = false;
2573     refresh();
2574     return true;
2575
2576 }
2577
2578 bool Render::mltEditEffect(int track, GenTime position, EffectsParameterList params)
2579 {
2580     QString index = params.paramValue("kdenlive_ix");
2581     QString tag =  params.paramValue("tag");
2582
2583     if (!params.paramValue("keyframes").isEmpty() || /*it.key().startsWith("#") || */tag.startsWith("ladspa") || tag == "sox" || tag == "autotrack_rectangle" || params.hasParam("region")) {
2584         // This is a keyframe effect, to edit it, we remove it and re-add it.
2585         bool success = mltRemoveEffect(track, position, index, false);
2586         if (!success) kDebug() << "// ERROR Removing effect : " << index;
2587         if (position < GenTime()) success = mltAddTrackEffect(track, params);
2588         else success = mltAddEffect(track, position, params);
2589         if (!success) kDebug() << "// ERROR Adding effect : " << index;
2590         return success;
2591     }
2592     if (position < GenTime()) {
2593         return mltEditTrackEffect(track, params);
2594     }
2595     // find filter
2596     Mlt::Service service(m_mltProducer->parent().get_service());
2597     Mlt::Tractor tractor(service);
2598     Mlt::Producer trackProducer(tractor.track(track));
2599     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2600
2601     int clipIndex = trackPlaylist.get_clip_index_at((int) position.frames(m_fps));
2602     Mlt::Producer *clip = trackPlaylist.get_clip(clipIndex);
2603     if (!clip) {
2604         kDebug() << "WARINIG, CANNOT FIND CLIP ON track: " << track << ", AT POS: " << position.frames(m_fps);
2605         return false;
2606     }
2607
2608     Mlt::Service clipService(clip->get_service());
2609     int duration = clip->get_playtime();
2610     bool doRefresh = true;
2611     // Check if clip is visible in monitor
2612     int diff = trackPlaylist.clip_start(clipIndex) + duration - m_mltProducer->position();
2613     if (diff < 0 || diff > duration) doRefresh = false;
2614     delete clip;
2615     m_isBlocked = true;
2616     int ct = 0;
2617     /* kDebug() << "EDITING FILTER: "<<index <<", "<<tag;
2618     kDebug() << "EFFect stack: ++++++++++++++++++++++++++";
2619     while (filter) {
2620         kDebug() << "Filter: "<< filter->get("kdenlive_id") <<", IX: "<<filter->get("kdenlive_ix");
2621         ct++;
2622         filter = clipService.filter(ct);
2623     }
2624     kDebug() << "++++++++++++++++++++++++++";
2625     ct = 0;
2626     filter = clipService.filter(ct); */
2627
2628     Mlt::Filter *filter = clipService.filter(ct);
2629     while (filter) {
2630         if (filter->get_int("kdenlive_ix") == index.toInt()) {
2631             break;
2632         }
2633         ct++;
2634         filter = clipService.filter(ct);
2635     }
2636
2637     if (!filter) {
2638         kDebug() << "WARINIG, FILTER FOR EDITING NOT FOUND, ADDING IT! " << index << ", " << tag;
2639         // filter was not found, it was probably a disabled filter, so add it to the correct place...
2640
2641         bool success = mltAddEffect(track, position, params);
2642         m_isBlocked = false;
2643         return success;
2644     }
2645     QString prefix;
2646     QString ser = filter->get("mlt_service");
2647     if (ser == "region") prefix = "filter0.";
2648     mlt_service_lock(service.get_service());
2649     for (int j = 0; j < params.count(); j++) {
2650         filter->set((prefix + params.at(j).name()).toUtf8().constData(), params.at(j).value().toUtf8().constData());
2651     }
2652     mlt_service_unlock(service.get_service());
2653
2654     m_isBlocked = false;
2655     if (doRefresh) refresh();
2656     return true;
2657 }
2658
2659 void Render::mltUpdateEffectPosition(int track, GenTime position, int oldPos, int newPos)
2660 {
2661     Mlt::Service service(m_mltProducer->parent().get_service());
2662     Mlt::Tractor tractor(service);
2663     Mlt::Producer trackProducer(tractor.track(track));
2664     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2665
2666     int clipIndex = trackPlaylist.get_clip_index_at((int) position.frames(m_fps));
2667     Mlt::Producer *clip = trackPlaylist.get_clip(clipIndex);
2668     if (!clip) {
2669         kDebug() << "WARINIG, CANNOT FIND CLIP ON track: " << track << ", AT POS: " << position.frames(m_fps);
2670         return;
2671     }
2672
2673     Mlt::Service clipService(clip->get_service());
2674     int duration = clip->get_playtime();
2675     bool doRefresh = true;
2676     // Check if clip is visible in monitor
2677     int diff = trackPlaylist.clip_start(clipIndex) + duration - m_mltProducer->position();
2678     if (diff < 0 || diff > duration) doRefresh = false;
2679     delete clip;
2680
2681     m_isBlocked = true;
2682     int ct = 0;
2683     Mlt::Filter *filter = clipService.filter(ct);
2684     while (filter) {
2685         int pos = filter->get_int("kdenlive_ix");
2686         if (pos == oldPos) {
2687             filter->set("kdenlive_ix", newPos);
2688         } else ct++;
2689         filter = clipService.filter(ct);
2690     }
2691
2692     m_isBlocked = false;
2693     if (doRefresh) refresh();
2694 }
2695
2696 void Render::mltMoveEffect(int track, GenTime position, int oldPos, int newPos)
2697 {
2698     if (position < GenTime()) {
2699         mltMoveTrackEffect(track, oldPos, newPos);
2700         return;
2701     }
2702     Mlt::Service service(m_mltProducer->parent().get_service());
2703     Mlt::Tractor tractor(service);
2704     Mlt::Producer trackProducer(tractor.track(track));
2705     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2706
2707     int clipIndex = trackPlaylist.get_clip_index_at((int) position.frames(m_fps));
2708     Mlt::Producer *clip = trackPlaylist.get_clip(clipIndex);
2709     if (!clip) {
2710         kDebug() << "WARINIG, CANNOT FIND CLIP ON track: " << track << ", AT POS: " << position.frames(m_fps);
2711         return;
2712     }
2713
2714     Mlt::Service clipService(clip->get_service());
2715     int duration = clip->get_playtime();
2716     bool doRefresh = true;
2717     // Check if clip is visible in monitor
2718     int diff = trackPlaylist.clip_start(clipIndex) + duration - m_mltProducer->position();
2719     if (diff < 0 || diff > duration) doRefresh = false;
2720     delete clip;
2721
2722     m_isBlocked = true;
2723     int ct = 0;
2724     QList <Mlt::Filter *> filtersList;
2725     Mlt::Filter *filter = clipService.filter(ct);
2726     bool found = false;
2727     if (newPos > oldPos) {
2728         while (filter) {
2729             if (!found && filter->get_int("kdenlive_ix") == oldPos) {
2730                 filter->set("kdenlive_ix", newPos);
2731                 filtersList.append(filter);
2732                 clipService.detach(*filter);
2733                 filter = clipService.filter(ct);
2734                 while (filter && filter->get_int("kdenlive_ix") <= newPos) {
2735                     filter->set("kdenlive_ix", filter->get_int("kdenlive_ix") - 1);
2736                     ct++;
2737                     filter = clipService.filter(ct);
2738                 }
2739                 found = true;
2740             }
2741             if (filter && filter->get_int("kdenlive_ix") > newPos) {
2742                 filtersList.append(filter);
2743                 clipService.detach(*filter);
2744             } else ct++;
2745             filter = clipService.filter(ct);
2746         }
2747     } else {
2748         while (filter) {
2749             if (filter->get_int("kdenlive_ix") == oldPos) {
2750                 filter->set("kdenlive_ix", newPos);
2751                 filtersList.append(filter);
2752                 clipService.detach(*filter);
2753             } else ct++;
2754             filter = clipService.filter(ct);
2755         }
2756
2757         ct = 0;
2758         filter = clipService.filter(ct);
2759         while (filter) {
2760             int pos = filter->get_int("kdenlive_ix");
2761             if (pos >= newPos) {
2762                 if (pos < oldPos) filter->set("kdenlive_ix", pos + 1);
2763                 filtersList.append(filter);
2764                 clipService.detach(*filter);
2765             } else ct++;
2766             filter = clipService.filter(ct);
2767         }
2768     }
2769
2770     for (int i = 0; i < filtersList.count(); i++) {
2771         clipService.attach(*(filtersList.at(i)));
2772     }
2773
2774     m_isBlocked = false;
2775     if (doRefresh) refresh();
2776 }
2777
2778 void Render::mltMoveTrackEffect(int track, int oldPos, int newPos)
2779 {
2780     Mlt::Service service(m_mltProducer->parent().get_service());
2781     Mlt::Tractor tractor(service);
2782     Mlt::Producer trackProducer(tractor.track(track));
2783     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2784
2785     Mlt::Service clipService(trackPlaylist.get_service());
2786
2787     m_isBlocked = true;
2788     int ct = 0;
2789     QList <Mlt::Filter *> filtersList;
2790     Mlt::Filter *filter = clipService.filter(ct);
2791     bool found = false;
2792     if (newPos > oldPos) {
2793         while (filter) {
2794             if (!found && filter->get_int("kdenlive_ix") == oldPos) {
2795                 filter->set("kdenlive_ix", newPos);
2796                 filtersList.append(filter);
2797                 clipService.detach(*filter);
2798                 filter = clipService.filter(ct);
2799                 while (filter && filter->get_int("kdenlive_ix") <= newPos) {
2800                     filter->set("kdenlive_ix", filter->get_int("kdenlive_ix") - 1);
2801                     ct++;
2802                     filter = clipService.filter(ct);
2803                 }
2804                 found = true;
2805             }
2806             if (filter && filter->get_int("kdenlive_ix") > newPos) {
2807                 filtersList.append(filter);
2808                 clipService.detach(*filter);
2809             } else ct++;
2810             filter = clipService.filter(ct);
2811         }
2812     } else {
2813         while (filter) {
2814             if (filter->get_int("kdenlive_ix") == oldPos) {
2815                 filter->set("kdenlive_ix", newPos);
2816                 filtersList.append(filter);
2817                 clipService.detach(*filter);
2818             } else ct++;
2819             filter = clipService.filter(ct);
2820         }
2821
2822         ct = 0;
2823         filter = clipService.filter(ct);
2824         while (filter) {
2825             int pos = filter->get_int("kdenlive_ix");
2826             if (pos >= newPos) {
2827                 if (pos < oldPos) filter->set("kdenlive_ix", pos + 1);
2828                 filtersList.append(filter);
2829                 clipService.detach(*filter);
2830             } else ct++;
2831             filter = clipService.filter(ct);
2832         }
2833     }
2834
2835     for (int i = 0; i < filtersList.count(); i++) {
2836         clipService.attach(*(filtersList.at(i)));
2837     }
2838     m_isBlocked = false;
2839     refresh();
2840 }
2841
2842 bool Render::mltResizeClipEnd(ItemInfo info, GenTime clipDuration)
2843 {
2844     m_isBlocked = true;
2845     Mlt::Service service(m_mltProducer->parent().get_service());
2846     Mlt::Tractor tractor(service);
2847     Mlt::Producer trackProducer(tractor.track(info.track));
2848     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2849
2850     /* // Display playlist info
2851     kDebug()<<"////////////  BEFORE RESIZE";
2852     for (int i = 0; i < trackPlaylist.count(); i++) {
2853     int blankStart = trackPlaylist.clip_start(i);
2854     int blankDuration = trackPlaylist.clip_length(i) - 1;
2855     QString blk;
2856     if (trackPlaylist.is_blank(i)) blk = "(blank)";
2857     kDebug()<<"CLIP "<<i<<": ("<<blankStart<<'x'<<blankStart + blankDuration<<")"<<blk;
2858     }*/
2859
2860     if (trackPlaylist.is_blank_at((int) info.startPos.frames(m_fps))) {
2861         kDebug() << "////////  ERROR RSIZING BLANK CLIP!!!!!!!!!!!";
2862         m_isBlocked = false;
2863         return false;
2864     }
2865     mlt_service_lock(service.get_service());
2866     int clipIndex = trackPlaylist.get_clip_index_at((int) info.startPos.frames(m_fps));
2867     //kDebug() << "// SELECTED CLIP START: " << trackPlaylist.clip_start(clipIndex);
2868     Mlt::Producer *clip = trackPlaylist.get_clip(clipIndex);
2869
2870     int previousStart = clip->get_in();
2871     int newDuration = (int) clipDuration.frames(m_fps) - 1;
2872     int diff = newDuration - (trackPlaylist.clip_length(clipIndex) - 1);
2873
2874     int currentOut = newDuration + previousStart;
2875     if (currentOut > clip->get_length()) {
2876         clip->parent().set("length", currentOut + 1);
2877         clip->parent().set("out", currentOut);
2878         clip->set("length", currentOut + 1);
2879     }
2880
2881     /*if (newDuration > clip->get_out()) {
2882         clip->parent().set_in_and_out(0, newDuration + 1);
2883         clip->set_in_and_out(0, newDuration + 1);
2884     }*/
2885     delete clip;
2886     trackPlaylist.resize_clip(clipIndex, previousStart, newDuration + previousStart);
2887     trackPlaylist.consolidate_blanks(0);
2888     // skip to next clip
2889     clipIndex++;
2890     //kDebug() << "////////  RESIZE CLIP: " << clipIndex << "( pos: " << info.startPos.frames(25) << "), DIFF: " << diff << ", CURRENT DUR: " << previousDuration << ", NEW DUR: " << newDuration << ", IX: " << clipIndex << ", MAX: " << trackPlaylist.count();
2891     if (diff > 0) {
2892         // clip was made longer, trim next blank if there is one.
2893         if (clipIndex < trackPlaylist.count()) {
2894             // If this is not the last clip in playlist
2895             if (trackPlaylist.is_blank(clipIndex)) {
2896                 int blankStart = trackPlaylist.clip_start(clipIndex);
2897                 int blankDuration = trackPlaylist.clip_length(clipIndex);
2898                 if (diff > blankDuration) {
2899                     kDebug() << "// ERROR blank clip is not large enough to get back required space!!!";
2900                 }
2901                 if (diff - blankDuration == 0) {
2902                     trackPlaylist.remove(clipIndex);
2903                 } else trackPlaylist.remove_region(blankStart, diff);
2904             } else {
2905                 kDebug() << "/// RESIZE ERROR, NXT CLIP IS NOT BLK: " << clipIndex;
2906             }
2907         }
2908     } else if (clipIndex != trackPlaylist.count()) trackPlaylist.insert_blank(clipIndex, 0 - diff - 1);
2909     trackPlaylist.consolidate_blanks(0);
2910     mlt_service_unlock(service.get_service());
2911
2912     if (info.track != 0 && clipIndex == trackPlaylist.count()) mltCheckLength(&tractor);
2913     /*if (QString(clip->parent().get("transparency")).toInt() == 1) {
2914         //mltResizeTransparency(previousStart, previousStart, previousStart + newDuration, track, QString(clip->parent().get("id")).toInt());
2915         mltDeleteTransparency(info.startPos.frames(m_fps), info.track, QString(clip->parent().get("id")).toInt());
2916         ItemInfo transpinfo;
2917         transpinfo.startPos = info.startPos;
2918         transpinfo.endPos = info.startPos + clipDuration;
2919         transpinfo.track = info.track;
2920         mltAddClipTransparency(transpinfo, info.track - 1, QString(clip->parent().get("id")).toInt());
2921     }*/
2922     m_isBlocked = false;
2923     m_mltConsumer->set("refresh", 1);
2924     return true;
2925 }
2926
2927 void Render::mltChangeTrackState(int track, bool mute, bool blind)
2928 {
2929     Mlt::Service service(m_mltProducer->parent().get_service());
2930     Mlt::Tractor tractor(service);
2931     Mlt::Producer trackProducer(tractor.track(track));
2932
2933     if (mute) {
2934         if (blind) trackProducer.set("hide", 3);
2935         else trackProducer.set("hide", 2);
2936     } else if (blind) {
2937         trackProducer.set("hide", 1);
2938     } else {
2939         trackProducer.set("hide", 0);
2940     }
2941     tractor.multitrack()->refresh();
2942     tractor.refresh();
2943     refresh();
2944 }
2945
2946
2947 bool Render::mltResizeClipCrop(ItemInfo info, GenTime diff)
2948 {
2949     Mlt::Service service(m_mltProducer->parent().get_service());
2950     int frameOffset = (int) diff.frames(m_fps);
2951     Mlt::Tractor tractor(service);
2952     Mlt::Producer trackProducer(tractor.track(info.track));
2953     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2954     if (trackPlaylist.is_blank_at(info.startPos.frames(m_fps))) {
2955         kDebug() << "////////  ERROR RSIZING BLANK CLIP!!!!!!!!!!!";
2956         return false;
2957     }
2958     mlt_service_lock(service.get_service());
2959     int clipIndex = trackPlaylist.get_clip_index_at(info.startPos.frames(m_fps));
2960     Mlt::Producer *clip = trackPlaylist.get_clip(clipIndex);
2961     if (clip == NULL) {
2962         kDebug() << "////////  ERROR RSIZING NULL CLIP!!!!!!!!!!!";
2963         mlt_service_unlock(service.get_service());
2964         return false;
2965     }
2966     int previousStart = clip->get_in();
2967     int previousOut = clip->get_out();
2968     delete clip;
2969     m_isBlocked = true;
2970     trackPlaylist.resize_clip(clipIndex, previousStart + frameOffset, previousOut + frameOffset);
2971     m_isBlocked = false;
2972     mlt_service_unlock(service.get_service());
2973     m_mltConsumer->set("refresh", 1);
2974     return true;
2975 }
2976
2977 bool Render::mltResizeClipStart(ItemInfo info, GenTime diff)
2978 {
2979     //kDebug() << "////////  RSIZING CLIP from: "<<info.startPos.frames(25)<<" to "<<diff.frames(25);
2980     Mlt::Service service(m_mltProducer->parent().get_service());
2981     int moveFrame = (int) diff.frames(m_fps);
2982     Mlt::Tractor tractor(service);
2983     Mlt::Producer trackProducer(tractor.track(info.track));
2984     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2985     if (trackPlaylist.is_blank_at(info.startPos.frames(m_fps))) {
2986         kDebug() << "////////  ERROR RSIZING BLANK CLIP!!!!!!!!!!!";
2987         return false;
2988     }
2989     mlt_service_lock(service.get_service());
2990     int clipIndex = trackPlaylist.get_clip_index_at(info.startPos.frames(m_fps));
2991     Mlt::Producer *clip = trackPlaylist.get_clip(clipIndex);
2992     if (clip == NULL || clip->is_blank()) {
2993         kDebug() << "////////  ERROR RSIZING NULL CLIP!!!!!!!!!!!";
2994         mlt_service_unlock(service.get_service());
2995         return false;
2996     }
2997     int previousStart = clip->get_in();
2998     int previousOut = clip->get_out();
2999
3000     m_isBlocked = true;
3001     previousStart += moveFrame;
3002
3003     int length = previousOut + 1;
3004     if (length > clip->get_length()) {
3005         clip->parent().set("length", length + 1);
3006         clip->parent().set("out", length);
3007         clip->set("length", length + 1);
3008     }
3009     delete clip;
3010
3011     // kDebug() << "RESIZE, new start: " << previousStart << ", " << previousOut;
3012     trackPlaylist.resize_clip(clipIndex, previousStart, previousOut);
3013     if (moveFrame > 0) {
3014         trackPlaylist.insert_blank(clipIndex, moveFrame - 1);
3015     } else {
3016         //int midpos = info.startPos.frames(m_fps) + moveFrame - 1;
3017         int blankIndex = clipIndex - 1;
3018         int blankLength = trackPlaylist.clip_length(blankIndex);
3019         // kDebug() << " + resizing blank length " <<  blankLength << ", SIZE DIFF: " << moveFrame;
3020         if (! trackPlaylist.is_blank(blankIndex)) {
3021             kDebug() << "WARNING, CLIP TO RESIZE IS NOT BLANK";
3022         }
3023         if (blankLength + moveFrame == 0)
3024             trackPlaylist.remove(blankIndex);
3025         else
3026             trackPlaylist.resize_clip(blankIndex, 0, blankLength + moveFrame - 1);
3027     }
3028     trackPlaylist.consolidate_blanks(0);
3029     /*if (QString(clip->parent().get("transparency")).toInt() == 1) {
3030         //mltResizeTransparency(previousStart, (int) moveEnd.frames(m_fps), (int) (moveEnd + out - in).frames(m_fps), track, QString(clip->parent().get("id")).toInt());
3031         mltDeleteTransparency(info.startPos.frames(m_fps), info.track, QString(clip->parent().get("id")).toInt());
3032         ItemInfo transpinfo;
3033         transpinfo.startPos = info.startPos + diff;
3034         transpinfo.endPos = info.startPos + diff + (info.endPos - info.startPos);
3035         transpinfo.track = info.track;
3036         mltAddClipTransparency(transpinfo, info.track - 1, QString(clip->parent().get("id")).toInt());
3037     }*/
3038     m_isBlocked = false;
3039     //m_mltConsumer->set("refresh", 1);
3040     mlt_service_unlock(service.get_service());
3041     m_mltConsumer->set("refresh", 1);
3042     return true;
3043 }
3044
3045 bool Render::mltMoveClip(int startTrack, int endTrack, GenTime moveStart, GenTime moveEnd, Mlt::Producer *prod, bool overwrite, bool insert)
3046 {
3047     return mltMoveClip(startTrack, endTrack, (int) moveStart.frames(m_fps), (int) moveEnd.frames(m_fps), prod, overwrite, insert);
3048 }
3049
3050
3051 bool Render::mltUpdateClipProducer(int track, int pos, Mlt::Producer *prod)
3052 {
3053     if (prod == NULL || !prod->is_valid()) {
3054         kDebug() << "// Warning, CLIP on track " << track << ", at: " << pos << " is invalid, cannot update it!!!";
3055         return false;
3056     }
3057     kDebug() << "NEW PROD ID: " << prod->get("id");
3058     m_isBlocked++;
3059     kDebug() << "// TRYING TO UPDATE CLIP at: " << pos << ", TK: " << track;
3060     Mlt::Service service(m_mltProducer->parent().get_service());
3061     if (service.type() != tractor_type) {
3062         kWarning() << "// TRACTOR PROBLEM";
3063         return false;
3064     }
3065     mlt_service_lock(service.get_service());
3066     Mlt::Tractor tractor(service);
3067     Mlt::Producer trackProducer(tractor.track(track));
3068     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
3069     int clipIndex = trackPlaylist.get_clip_index_at(pos);
3070     Mlt::Producer *clipProducer = trackPlaylist.replace_with_blank(clipIndex);
3071     if (clipProducer == NULL || clipProducer->is_blank()) {
3072         kDebug() << "// ERROR UPDATING CLIP PROD";
3073         delete clipProducer;
3074         mlt_service_unlock(service.get_service());
3075         m_isBlocked--;
3076         return false;
3077     }
3078     Mlt::Producer *clip = prod->cut(clipProducer->get_in(), clipProducer->get_out());
3079     if (!clip || !clip->is_valid()) {
3080         if (clip) delete clip;
3081         delete clipProducer;
3082         mlt_service_unlock(service.get_service());
3083         m_isBlocked--;
3084         return false;
3085     }
3086     // move all effects to the correct producer
3087     mltPasteEffects(clipProducer, clip);
3088     trackPlaylist.insert_at(pos, clip, 1);
3089     delete clip;
3090     delete clipProducer;
3091     mlt_service_unlock(service.get_service());
3092     m_isBlocked--;
3093     return true;
3094 }
3095
3096 bool Render::mltMoveClip(int startTrack, int endTrack, int moveStart, int moveEnd, Mlt::Producer *prod, bool overwrite, bool /*insert*/)
3097 {
3098     m_isBlocked++;
3099
3100     Mlt::Service service(m_mltProducer->parent().get_service());
3101     if (service.type() != tractor_type) {
3102         kWarning() << "// TRACTOR PROBLEM";
3103         return false;
3104     }
3105
3106     Mlt::Tractor tractor(service);
3107     mlt_service_lock(service.get_service());
3108     Mlt::Producer trackProducer(tractor.track(startTrack));
3109     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
3110     int clipIndex = trackPlaylist.get_clip_index_at(moveStart);
3111     kDebug() << "//////  LOOKING FOR CLIP TO MOVE, INDEX: " << clipIndex;
3112     bool checkLength = false;
3113     if (endTrack == startTrack) {
3114         Mlt::Producer *clipProducer = trackPlaylist.replace_with_blank(clipIndex);
3115         if ((!overwrite && !trackPlaylist.is_blank_at(moveEnd)) || !clipProducer || !clipProducer->is_valid() || clipProducer->is_blank()) {
3116             // error, destination is not empty
3117             if (clipProducer) {
3118                 if (!trackPlaylist.is_blank_at(moveEnd) && clipProducer->is_valid()) trackPlaylist.insert_at(moveStart, clipProducer, 1);
3119                 delete clipProducer;
3120             }
3121             //int ix = trackPlaylist.get_clip_index_at(moveEnd);
3122             kDebug() << "// ERROR MOVING CLIP TO : " << moveEnd;
3123             mlt_service_unlock(service.get_service());
3124             m_isBlocked--;
3125             return false;
3126         } else {
3127             trackPlaylist.consolidate_blanks(0);
3128             if (overwrite) {
3129                 trackPlaylist.remove_region(moveEnd, clipProducer->get_playtime());
3130                 int clipIndex = trackPlaylist.get_clip_index_at(moveEnd);
3131                 trackPlaylist.insert_blank(clipIndex, clipProducer->get_playtime() - 1);
3132             }
3133             int newIndex = trackPlaylist.insert_at(moveEnd, clipProducer, 1);
3134             trackPlaylist.consolidate_blanks(1);
3135             delete clipProducer;
3136             /*if (QString(clipProducer.parent().get("transparency")).toInt() == 1) {
3137             mltMoveTransparency(moveStart, moveEnd, startTrack, endTrack, QString(clipProducer.parent().get("id")).toInt());
3138             }*/
3139             if (newIndex + 1 == trackPlaylist.count()) checkLength = true;
3140         }
3141         //mlt_service_unlock(service.get_service());
3142     } else {
3143         Mlt::Producer destTrackProducer(tractor.track(endTrack));
3144         Mlt::Playlist destTrackPlaylist((mlt_playlist) destTrackProducer.get_service());
3145         if (!overwrite && !destTrackPlaylist.is_blank_at(moveEnd)) {
3146             // error, destination is not empty
3147             mlt_service_unlock(service.get_service());
3148             m_isBlocked--;
3149             return false;
3150         } else {
3151             Mlt::Producer *clipProducer = trackPlaylist.replace_with_blank(clipIndex);
3152             if (!clipProducer || clipProducer->is_blank()) {
3153                 // error, destination is not empty
3154                 //int ix = trackPlaylist.get_clip_index_at(moveEnd);
3155                 if (clipProducer) delete clipProducer;
3156                 kDebug() << "// ERROR MOVING CLIP TO : " << moveEnd;
3157                 mlt_service_unlock(service.get_service());
3158                 m_isBlocked--;
3159                 return false;
3160             }
3161             trackPlaylist.consolidate_blanks(0);
3162             destTrackPlaylist.consolidate_blanks(1);
3163             Mlt::Producer *clip;
3164             // check if we are moving a slowmotion producer
3165             QString serv = clipProducer->parent().get("mlt_service");
3166             QString currentid = clipProducer->parent().get("id");
3167             if (serv == "framebuffer" || currentid.endsWith("_video")) {
3168                 clip = clipProducer;
3169             } else {
3170                 if (prod == NULL) {
3171                     // Special case: prod is null when using placeholder clips.
3172                     // in that case, use the producer existing in playlist. Note that
3173                     // it will bypass the one producer per track logic and might cause
3174                     // Sound cracks if clip is moved so that it overlaps another copy of itself
3175                     clip = clipProducer->cut(clipProducer->get_in(), clipProducer->get_out());
3176                 } else clip = prod->cut(clipProducer->get_in(), clipProducer->get_out());
3177             }
3178
3179             // move all effects to the correct producer
3180             mltPasteEffects(clipProducer, clip);
3181
3182             if (overwrite) {
3183                 destTrackPlaylist.remove_region(moveEnd, clip->get_playtime());
3184                 int clipIndex = destTrackPlaylist.get_clip_index_at(moveEnd);
3185                 destTrackPlaylist.insert_blank(clipIndex, clip->get_playtime() - 1);
3186             }
3187
3188             int newIndex = destTrackPlaylist.insert_at(moveEnd, clip, 1);
3189
3190             if (clip == clipProducer) {
3191                 delete clip;
3192                 clip = NULL;
3193             } else {
3194                 delete clip;
3195                 delete clipProducer;
3196             }
3197             destTrackPlaylist.consolidate_blanks(0);
3198             /*if (QString(clipProducer.parent().get("transparency")).toInt() == 1) {
3199                 kDebug() << "//////// moving clip transparency";
3200                 mltMoveTransparency(moveStart, moveEnd, startTrack, endTrack, QString(clipProducer.parent().get("id")).toInt());
3201             }*/
3202             if (clipIndex > trackPlaylist.count()) checkLength = true;
3203             else if (newIndex + 1 == destTrackPlaylist.count()) checkLength = true;
3204         }
3205     }
3206     mlt_service_unlock(service.get_service());
3207     if (checkLength) mltCheckLength(&tractor);
3208     m_isBlocked--;
3209     //askForRefresh();
3210     //m_mltConsumer->set("refresh", 1);
3211     return true;
3212 }
3213
3214
3215 QList <int> Render::checkTrackSequence(int track)
3216 {
3217     QList <int> list;
3218     Mlt::Service service(m_mltProducer->parent().get_service());
3219     if (service.type() != tractor_type) {
3220         kWarning() << "// TRACTOR PROBLEM";
3221         return list;
3222     }
3223     Mlt::Tractor tractor(service);
3224     mlt_service_lock(service.get_service());
3225     Mlt::Producer trackProducer(tractor.track(track));
3226     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
3227     int clipNb = trackPlaylist.count();
3228     //kDebug() << "// PARSING SCENE TRACK: " << t << ", CLIPS: " << clipNb;
3229     for (int i = 0; i < clipNb; i++) {
3230         Mlt::Producer *c = trackPlaylist.get_clip(i);
3231         int pos = trackPlaylist.clip_start(i);
3232         if (!list.contains(pos)) list.append(pos);
3233         pos += c->get_playtime();
3234         if (!list.contains(pos)) list.append(pos);
3235         delete c;
3236     }
3237     return list;
3238 }
3239
3240 bool Render::mltMoveTransition(QString type, int startTrack, int newTrack, int newTransitionTrack, GenTime oldIn, GenTime oldOut, GenTime newIn, GenTime newOut)
3241 {
3242     int new_in = (int)newIn.frames(m_fps);
3243     int new_out = (int)newOut.frames(m_fps) - 1;
3244     if (new_in >= new_out) return false;
3245     int old_in = (int)oldIn.frames(m_fps);
3246     int old_out = (int)oldOut.frames(m_fps) - 1;
3247
3248     Mlt::Service service(m_mltProducer->parent().get_service());
3249     Mlt::Tractor tractor(service);
3250     Mlt::Field *field = tractor.field();
3251
3252     bool doRefresh = true;
3253     // Check if clip is visible in monitor
3254     int diff = old_out - m_mltProducer->position();
3255     if (diff < 0 || diff > old_out - old_in) doRefresh = false;
3256     if (doRefresh) {
3257         diff = new_out - m_mltProducer->position();
3258         if (diff < 0 || diff > new_out - new_in) doRefresh = false;
3259     }
3260
3261     m_isBlocked++;
3262     mlt_service_lock(service.get_service());
3263
3264     mlt_service nextservice = mlt_service_get_producer(service.get_service());
3265     mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
3266     QString mlt_type = mlt_properties_get(properties, "mlt_type");
3267     QString resource = mlt_properties_get(properties, "mlt_service");
3268     int old_pos = (int)(old_in + old_out) / 2;
3269     bool found = false;
3270
3271     while (mlt_type == "transition") {
3272         Mlt::Transition transition((mlt_transition) nextservice);
3273         int currentTrack = transition.get_b_track();
3274         int currentIn = (int) transition.get_in();
3275         int currentOut = (int) transition.get_out();
3276
3277         if (resource == type && startTrack == currentTrack && currentIn <= old_pos && currentOut >= old_pos) {
3278             found = true;
3279             if (newTrack - startTrack != 0) {
3280                 Mlt::Properties trans_props(transition.get_properties());
3281                 Mlt::Transition new_transition(*m_mltProfile, transition.get("mlt_service"));
3282                 Mlt::Properties new_trans_props(new_transition.get_properties());
3283                 new_trans_props.inherit(trans_props);
3284                 new_transition.set_in_and_out(new_in, new_out);
3285                 field->disconnect_service(transition);
3286                 mltPlantTransition(field, new_transition, newTransitionTrack, newTrack);
3287                 //field->plant_transition(new_transition, newTransitionTrack, newTrack);
3288             } else transition.set_in_and_out(new_in, new_out);
3289             break;
3290         }
3291         nextservice = mlt_service_producer(nextservice);
3292         if (nextservice == NULL) break;
3293         properties = MLT_SERVICE_PROPERTIES(nextservice);
3294         mlt_type = mlt_properties_get(properties, "mlt_type");
3295         resource = mlt_properties_get(properties, "mlt_service");
3296     }
3297     mlt_service_unlock(service.get_service());
3298     m_isBlocked--;
3299     if (doRefresh) refresh();
3300     //if (m_isBlocked == 0) m_mltConsumer->set("refresh", 1);
3301     return found;
3302 }
3303
3304
3305 void Render::mltPlantTransition(Mlt::Field *field, Mlt::Transition &tr, int a_track, int b_track)
3306 {
3307     mlt_service nextservice = mlt_service_get_producer(field->get_service());
3308     mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
3309     QString mlt_type = mlt_properties_get(properties, "mlt_type");
3310     QString resource = mlt_properties_get(properties, "mlt_service");
3311     QList <Mlt::Transition *> trList;
3312
3313     while (mlt_type == "transition") {
3314         Mlt::Transition transition((mlt_transition) nextservice);
3315         int aTrack = transition.get_a_track();
3316         int bTrack = transition.get_b_track();
3317         if (resource != "mix" && (aTrack < a_track || (aTrack == a_track && bTrack > b_track))) {
3318             Mlt::Properties trans_props(transition.get_properties());
3319             Mlt::Transition *cp = new Mlt::Transition(*m_mltProfile, transition.get("mlt_service"));
3320             Mlt::Properties new_trans_props(cp->get_properties());
3321             new_trans_props.inherit(trans_props);
3322             trList.append(cp);
3323             field->disconnect_service(transition);
3324         }
3325         //else kDebug() << "// FOUND TRANS OK, "<<resource<< ", A_: " << aTrack << ", B_ "<<bTrack;
3326
3327         nextservice = mlt_service_producer(nextservice);
3328         if (nextservice == NULL) break;
3329         properties = MLT_SERVICE_PROPERTIES(nextservice);
3330         mlt_type = mlt_properties_get(properties, "mlt_type");
3331         resource = mlt_properties_get(properties, "mlt_service");
3332     }
3333
3334     field->plant_transition(tr, a_track, b_track);
3335
3336     // re-add upper transitions
3337     for (int i = 0; i < trList.count(); i++) {
3338         // kDebug()<< "REPLANT ON TK: "<<trList.at(i)->get_a_track()<<", "<<trList.at(i)->get_b_track();
3339         field->plant_transition(*trList.at(i), trList.at(i)->get_a_track(), trList.at(i)->get_b_track());
3340     }
3341 }
3342
3343 void Render::mltUpdateTransition(QString oldTag, QString tag, int a_track, int b_track, GenTime in, GenTime out, QDomElement xml, bool force)
3344 {
3345     if (oldTag == tag && !force) mltUpdateTransitionParams(tag, a_track, b_track, in, out, xml);
3346     else {
3347         mltDeleteTransition(oldTag, a_track, b_track, in, out, xml, false);
3348         mltAddTransition(tag, a_track, b_track, in, out, xml, false);
3349     }
3350
3351     if (m_mltProducer->position() >= in.frames(m_fps) && m_mltProducer->position() <= out.frames(m_fps)) refresh();
3352 }
3353
3354 void Render::mltUpdateTransitionParams(QString type, int a_track, int b_track, GenTime in, GenTime out, QDomElement xml)
3355 {
3356     mlt_service serv = m_mltProducer->parent().get_service();
3357     mlt_service_lock(serv);
3358     m_isBlocked++;
3359
3360     mlt_service nextservice = mlt_service_get_producer(serv);
3361     mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
3362     QString mlt_type = mlt_properties_get(properties, "mlt_type");
3363     QString resource = mlt_properties_get(properties, "mlt_service");
3364     int in_pos = (int) in.frames(m_fps);
3365     int out_pos = (int) out.frames(m_fps) - 1;
3366
3367     while (mlt_type == "transition") {
3368         mlt_transition tr = (mlt_transition) nextservice;
3369         int currentTrack = mlt_transition_get_b_track(tr);
3370         int currentBTrack = mlt_transition_get_a_track(tr);
3371         int currentIn = (int) mlt_transition_get_in(tr);
3372         int currentOut = (int) mlt_transition_get_out(tr);
3373
3374         // kDebug()<<"Looking for transition : " << currentIn <<'x'<<currentOut<< ", OLD oNE: "<<in_pos<<'x'<<out_pos;
3375
3376         if (resource == type && b_track == currentTrack && currentIn == in_pos && currentOut == out_pos) {
3377             QMap<QString, QString> map = mltGetTransitionParamsFromXml(xml);
3378             QMap<QString, QString>::Iterator it;
3379             QString key;
3380             mlt_properties transproperties = MLT_TRANSITION_PROPERTIES(tr);
3381
3382             QString currentId = mlt_properties_get(transproperties, "kdenlive_id");
3383             if (currentId != xml.attribute("id")) {
3384                 // The transition ID is not the same, so reset all properties
3385                 mlt_properties_set(transproperties, "kdenlive_id", xml.attribute("id").toUtf8().constData());
3386                 // Cleanup previous properties
3387                 QStringList permanentProps;
3388                 permanentProps << "factory" << "kdenlive_id" << "mlt_service" << "mlt_type" << "in";
3389                 permanentProps << "out" << "a_track" << "b_track";
3390                 for (int i = 0; i < mlt_properties_count(transproperties); i++) {
3391                     QString propName = mlt_properties_get_name(transproperties, i);
3392                     if (!propName.startsWith('_') && ! permanentProps.contains(propName)) {
3393                         mlt_properties_set(transproperties, propName.toUtf8().constData(), "");
3394                     }
3395                 }
3396             }
3397
3398             mlt_properties_set_int(transproperties, "force_track", xml.attribute("force_track").toInt());
3399             mlt_properties_set_int(transproperties, "automatic", xml.attribute("automatic", "0").toInt());
3400
3401             if (currentBTrack != a_track) {
3402                 mlt_properties_set_int(transproperties, "a_track", a_track);
3403             }
3404             for (it = map.begin(); it != map.end(); ++it) {
3405                 key = it.key();
3406                 mlt_properties_set(transproperties, key.toUtf8().constData(), it.value().toUtf8().constData());
3407                 //kDebug() << " ------  UPDATING TRANS PARAM: " << key.toUtf8().constData() << ": " << it.value().toUtf8().constData();
3408                 //filter->set("kdenlive_id", id);
3409             }
3410             break;
3411         }
3412         nextservice = mlt_service_producer(nextservice);
3413         if (nextservice == NULL) break;
3414         properties = MLT_SERVICE_PROPERTIES(nextservice);
3415         mlt_type = mlt_properties_get(properties, "mlt_type");
3416         resource = mlt_properties_get(properties, "mlt_service");
3417     }
3418     mlt_service_unlock(serv);
3419     m_isBlocked--;
3420     //askForRefresh();
3421     //if (m_isBlocked == 0) m_mltConsumer->set("refresh", 1);
3422 }
3423
3424 void Render::mltDeleteTransition(QString tag, int /*a_track*/, int b_track, GenTime in, GenTime out, QDomElement /*xml*/, bool /*do_refresh*/)
3425 {
3426     mlt_service serv = m_mltProducer->parent().get_service();
3427     m_isBlocked++;
3428     mlt_service_lock(serv);
3429
3430     Mlt::Service service(serv);
3431     Mlt::Tractor tractor(service);
3432     Mlt::Field *field = tractor.field();
3433
3434     //if (do_refresh) m_mltConsumer->set("refresh", 0);
3435
3436     mlt_service nextservice = mlt_service_get_producer(serv);
3437     mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
3438     QString mlt_type = mlt_properties_get(properties, "mlt_type");
3439     QString resource = mlt_properties_get(properties, "mlt_service");
3440
3441     const int old_pos = (int)((in + out).frames(m_fps) / 2);
3442     kDebug() << " del trans pos: " << in.frames(25) << "-" << out.frames(25);
3443
3444     while (mlt_type == "transition") {
3445         mlt_transition tr = (mlt_transition) nextservice;
3446         int currentTrack = mlt_transition_get_b_track(tr);
3447         int currentIn = (int) mlt_transition_get_in(tr);
3448         int currentOut = (int) mlt_transition_get_out(tr);
3449         //kDebug() << "// FOUND EXISTING TRANS, IN: " << currentIn << ", OUT: " << currentOut << ", TRACK: " << currentTrack;
3450
3451         if (resource == tag && b_track == currentTrack && currentIn <= old_pos && currentOut >= old_pos) {
3452             mlt_field_disconnect_service(field->get_field(), nextservice);
3453             break;
3454         }
3455         nextservice = mlt_service_producer(nextservice);
3456         if (nextservice == NULL) break;
3457         properties = MLT_SERVICE_PROPERTIES(nextservice);
3458         mlt_type = mlt_properties_get(properties, "mlt_type");
3459         resource = mlt_properties_get(properties, "mlt_service");
3460     }
3461     mlt_service_unlock(serv);
3462     m_isBlocked--;
3463     //askForRefresh();
3464     //if (m_isBlocked == 0) m_mltConsumer->set("refresh", 1);
3465 }
3466
3467 QMap<QString, QString> Render::mltGetTransitionParamsFromXml(QDomElement xml)
3468 {
3469     QDomNodeList attribs = xml.elementsByTagName("parameter");
3470     QMap<QString, QString> map;
3471     for (int i = 0; i < attribs.count(); i++) {
3472         QDomElement e = attribs.item(i).toElement();
3473         QString name = e.attribute("name");
3474         //kDebug()<<"-- TRANSITION PARAM: "<<name<<" = "<< e.attribute("name")<<" / " << e.attribute("value");
3475         map[name] = e.attribute("default");
3476         if (!e.attribute("value").isEmpty()) {
3477             map[name] = e.attribute("value");
3478         }
3479         if (!e.attribute("factor").isEmpty() && e.attribute("factor").toDouble() > 0) {
3480             map[name] = QString::number(map[name].toDouble() / e.attribute("factor").toDouble());
3481             //map[name]=map[name].replace(".",","); //FIXME how to solve locale conversion of . ,
3482         }
3483
3484         if (e.attribute("namedesc").contains(';')) {
3485             QString format = e.attribute("format");
3486             QStringList separators = format.split("%d", QString::SkipEmptyParts);
3487             QStringList values = e.attribute("value").split(QRegExp("[,:;x]"));
3488             QString neu;
3489             QTextStream txtNeu(&neu);
3490             if (values.size() > 0)
3491                 txtNeu << (int)values[0].toDouble();
3492             int i = 0;
3493             for (i = 0; i < separators.size() && i + 1 < values.size(); i++) {
3494                 txtNeu << separators[i];
3495                 txtNeu << (int)(values[i+1].toDouble());
3496             }
3497             if (i < separators.size())
3498                 txtNeu << separators[i];
3499             map[e.attribute("name")] = neu;
3500         }
3501
3502     }
3503     return map;
3504 }
3505
3506 void Render::mltAddClipTransparency(ItemInfo info, int transitiontrack, int id)
3507 {
3508     kDebug() << "/////////  ADDING CLIP TRANSPARENCY AT: " << info.startPos.frames(25);
3509     Mlt::Service service(m_mltProducer->parent().get_service());
3510     Mlt::Tractor tractor(service);
3511     Mlt::Field *field = tractor.field();
3512
3513     Mlt::Transition *transition = new Mlt::Transition(*m_mltProfile, "composite");
3514     transition->set_in_and_out((int) info.startPos.frames(m_fps), (int) info.endPos.frames(m_fps) - 1);
3515     transition->set("transparency", id);
3516     transition->set("fill", 1);
3517     transition->set("internal_added", 237);
3518     field->plant_transition(*transition, transitiontrack, info.track);
3519     refresh();
3520 }
3521
3522 void Render::mltDeleteTransparency(int pos, int track, int id)
3523 {
3524     Mlt::Service service(m_mltProducer->parent().get_service());
3525     Mlt::Tractor tractor(service);
3526     Mlt::Field *field = tractor.field();
3527
3528     //if (do_refresh) m_mltConsumer->set("refresh", 0);
3529     mlt_service serv = m_mltProducer->parent().get_service();
3530
3531     mlt_service nextservice = mlt_service_get_producer(serv);
3532     mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
3533     QString mlt_type = mlt_properties_get(properties, "mlt_type");
3534     QString resource = mlt_properties_get(properties, "mlt_service");
3535
3536     while (mlt_type == "transition") {
3537         mlt_transition tr = (mlt_transition) nextservice;
3538         int currentTrack = mlt_transition_get_b_track(tr);
3539         int currentIn = (int) mlt_transition_get_in(tr);
3540         int currentOut = (int) mlt_transition_get_out(tr);
3541         int transitionId = QString(mlt_properties_get(properties, "transparency")).toInt();
3542         kDebug() << "// FOUND EXISTING TRANS, IN: " << currentIn << ", OUT: " << currentOut << ", TRACK: " << currentTrack;
3543
3544         if (resource == "composite" && track == currentTrack && currentIn == pos && transitionId == id) {
3545             //kDebug() << " / / / / /DELETE TRANS DOOOMNE";
3546             mlt_field_disconnect_service(field->get_field(), nextservice);
3547             break;
3548         }
3549         nextservice = mlt_service_producer(nextservice);
3550         if (nextservice == NULL) break;
3551         properties = MLT_SERVICE_PROPERTIES(nextservice);
3552         mlt_type = mlt_properties_get(properties, "mlt_type");
3553         resource = mlt_properties_get(properties, "mlt_service");
3554     }
3555     //if (do_refresh) m_mltConsumer->set("refresh", 1);
3556 }
3557
3558 void Render::mltResizeTransparency(int oldStart, int newStart, int newEnd, int track, int id)
3559 {
3560     Mlt::Service service(m_mltProducer->parent().get_service());
3561     Mlt::Tractor tractor(service);
3562
3563     mlt_service_lock(service.get_service());
3564     m_mltConsumer->set("refresh", 0);
3565     m_isBlocked++;
3566
3567     mlt_service serv = m_mltProducer->parent().get_service();
3568     mlt_service nextservice = mlt_service_get_producer(serv);
3569     mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
3570     QString mlt_type = mlt_properties_get(properties, "mlt_type");
3571     QString resource = mlt_properties_get(properties, "mlt_service");
3572     kDebug() << "// resize transpar from: " << oldStart << ", TO: " << newStart << 'x' << newEnd << ", " << track << ", " << id;
3573     while (mlt_type == "transition") {
3574         mlt_transition tr = (mlt_transition) nextservice;
3575         int currentTrack = mlt_transition_get_b_track(tr);
3576         int currentIn = (int) mlt_transition_get_in(tr);
3577         //mlt_properties props = MLT_TRANSITION_PROPERTIES(tr);
3578         int transitionId = QString(mlt_properties_get(properties, "transparency")).toInt();
3579         kDebug() << "// resize transpar current in: " << currentIn << ", Track: " << currentTrack << ", id: " << id << 'x' << transitionId ;
3580         if (resource == "composite" && track == currentTrack && currentIn == oldStart && transitionId == id) {
3581             kDebug() << " / / / / /RESIZE TRANS TO: " << newStart << 'x' << newEnd;
3582             mlt_transition_set_in_and_out(tr, newStart, newEnd);
3583             break;
3584         }
3585         nextservice = mlt_service_producer(nextservice);
3586         if (nextservice == NULL) break;
3587         properties = MLT_SERVICE_PROPERTIES(nextservice);
3588         mlt_type = mlt_properties_get(properties, "mlt_type");
3589         resource = mlt_properties_get(properties, "mlt_service");
3590     }
3591     mlt_service_unlock(service.get_service());
3592     m_isBlocked--;
3593     if (m_isBlocked == 0) m_mltConsumer->set("refresh", 1);
3594
3595 }
3596
3597 void Render::mltMoveTransparency(int startTime, int endTime, int startTrack, int endTrack, int id)
3598 {
3599     Mlt::Service service(m_mltProducer->parent().get_service());
3600     Mlt::Tractor tractor(service);
3601
3602     mlt_service_lock(service.get_service());
3603     m_mltConsumer->set("refresh", 0);
3604     m_isBlocked++;
3605
3606     mlt_service serv = m_mltProducer->parent().get_service();
3607     mlt_service nextservice = mlt_service_get_producer(serv);
3608     mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
3609     QString mlt_type = mlt_properties_get(properties, "mlt_type");
3610     QString resource = mlt_properties_get(properties, "mlt_service");
3611
3612     while (mlt_type == "transition") {
3613         mlt_transition tr = (mlt_transition) nextservice;
3614         int currentTrack = mlt_transition_get_b_track(tr);
3615         int currentaTrack = mlt_transition_get_a_track(tr);
3616         int currentIn = (int) mlt_transition_get_in(tr);
3617         int currentOut = (int) mlt_transition_get_out(tr);
3618         //mlt_properties properties = MLT_TRANSITION_PROPERTIES(tr);
3619         int transitionId = QString(mlt_properties_get(properties, "transparency")).toInt();
3620         //kDebug()<<" + TRANSITION "<<id<<" == "<<transitionId<<", START TMIE: "<<currentIn<<", LOOK FR: "<<startTime<<", TRACK: "<<currentTrack<<'x'<<startTrack;
3621         if (resource == "composite" && transitionId == id && startTime == currentIn && startTrack == currentTrack) {
3622             kDebug() << "//////MOVING";
3623             mlt_transition_set_in_and_out(tr, endTime, endTime + currentOut - currentIn);
3624             if (endTrack != startTrack) {
3625                 mlt_properties properties = MLT_TRANSITION_PROPERTIES(tr);
3626                 mlt_properties_set_int(properties, "a_track", currentaTrack + endTrack - currentTrack);
3627                 mlt_properties_set_int(properties, "b_track", endTrack);
3628             }
3629             break;
3630         }
3631         nextservice = mlt_service_producer(nextservice);
3632         if (nextservice == NULL) break;
3633         properties = MLT_SERVICE_PROPERTIES(nextservice);
3634         mlt_type = mlt_properties_get(properties, "mlt_type");
3635         resource = mlt_properties_get(properties, "mlt_service");
3636     }
3637     m_isBlocked--;
3638     mlt_service_unlock(service.get_service());
3639     m_mltConsumer->set("refresh", 1);
3640 }
3641
3642
3643 bool Render::mltAddTransition(QString tag, int a_track, int b_track, GenTime in, GenTime out, QDomElement xml, bool do_refresh)
3644 {
3645     if (in >= out) return false;
3646     QMap<QString, QString> args = mltGetTransitionParamsFromXml(xml);
3647     Mlt::Service service(m_mltProducer->parent().get_service());
3648
3649     Mlt::Tractor tractor(service);
3650     Mlt::Field *field = tractor.field();
3651
3652     Mlt::Transition *transition = new Mlt::Transition(*m_mltProfile, tag.toUtf8().constData());
3653     if (out != GenTime())
3654         transition->set_in_and_out((int) in.frames(m_fps), (int) out.frames(m_fps) - 1);
3655
3656     if (do_refresh && (m_mltProducer->position() < in.frames(m_fps) || m_mltProducer->position() > out.frames(m_fps))) do_refresh = false;
3657     QMap<QString, QString>::Iterator it;
3658     QString key;
3659     if (xml.attribute("automatic") == "1") transition->set("automatic", 1);
3660     //kDebug() << " ------  ADDING TRANSITION PARAMs: " << args.count();
3661     if (xml.hasAttribute("id"))
3662         transition->set("kdenlive_id", xml.attribute("id").toUtf8().constData());
3663
3664     for (it = args.begin(); it != args.end(); ++it) {
3665         key = it.key();
3666         if (!it.value().isEmpty())
3667             transition->set(key.toUtf8().constData(), it.value().toUtf8().constData());
3668         //kDebug() << " ------  ADDING TRANS PARAM: " << key << ": " << it.value();
3669     }
3670     // attach transition
3671     mltPlantTransition(field, *transition, a_track, b_track);
3672     // field->plant_transition(*transition, a_track, b_track);
3673     if (do_refresh) refresh();
3674     return true;
3675 }
3676
3677 void Render::mltSavePlaylist()
3678 {
3679     kWarning() << "// UPDATING PLAYLIST TO DISK++++++++++++++++";
3680     Mlt::Consumer fileConsumer(*m_mltProfile, "xml");
3681     fileConsumer.set("resource", "/tmp/playlist.mlt");
3682
3683     Mlt::Service service(m_mltProducer->get_service());
3684
3685     fileConsumer.connect(service);
3686     fileConsumer.start();
3687 }
3688
3689 const QList <Mlt::Producer *> Render::producersList()
3690 {
3691     QList <Mlt::Producer *> prods;
3692     if (m_mltProducer == NULL) return prods;
3693     Mlt::Service service(m_mltProducer->parent().get_service());
3694     if (service.type() != tractor_type) return prods;
3695     Mlt::Tractor tractor(service);
3696     QStringList ids;
3697
3698     int trackNb = tractor.count();
3699     for (int t = 1; t < trackNb; t++) {
3700         Mlt::Producer *tt = tractor.track(t);
3701         Mlt::Producer trackProducer(tt);
3702         delete tt;
3703         Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
3704         int clipNb = trackPlaylist.count();
3705         //kDebug() << "// PARSING SCENE TRACK: " << t << ", CLIPS: " << clipNb;
3706         for (int i = 0; i < clipNb; i++) {
3707             Mlt::Producer *c = trackPlaylist.get_clip(i);
3708             Mlt::Producer *nprod = new Mlt::Producer(c->get_parent());
3709             if (nprod) {
3710                 if (!nprod->is_blank() && !ids.contains(nprod->get("id"))) {
3711                     ids.append(nprod->get("id"));
3712                     prods.append(nprod);
3713                 } else delete nprod;
3714             }
3715             delete c;
3716         }
3717     }
3718     return prods;
3719 }
3720
3721 void Render::fillSlowMotionProducers()
3722 {
3723     if (m_mltProducer == NULL) return;
3724     Mlt::Service service(m_mltProducer->parent().get_service());
3725     if (service.type() != tractor_type) return;
3726
3727     Mlt::Tractor tractor(service);
3728
3729     int trackNb = tractor.count();
3730     for (int t = 1; t < trackNb; t++) {
3731         Mlt::Producer *tt = tractor.track(t);
3732         Mlt::Producer trackProducer(tt);
3733         delete tt;
3734         Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
3735         int clipNb = trackPlaylist.count();
3736         for (int i = 0; i < clipNb; i++) {
3737             Mlt::Producer *c = trackPlaylist.get_clip(i);
3738             Mlt::Producer *nprod = new Mlt::Producer(c->get_parent());
3739             if (nprod) {
3740                 QString id = nprod->get("id");
3741                 if (id.startsWith("slowmotion:") && !nprod->is_blank()) {
3742                     // this is a slowmotion producer, add it to the list
3743                     QString url = QString::fromUtf8(nprod->get("resource"));
3744                     int strobe = nprod->get_int("strobe");
3745                     if (strobe > 1) url.append("&strobe=" + QString::number(strobe));
3746                     if (!m_slowmotionProducers.contains(url)) {
3747                         m_slowmotionProducers.insert(url, nprod);
3748                     }
3749                 } else delete nprod;
3750             }
3751             delete c;
3752         }
3753     }
3754 }
3755
3756 void Render::mltInsertTrack(int ix, bool videoTrack)
3757 {
3758     blockSignals(true);
3759     m_isBlocked++;
3760
3761     Mlt::Service service(m_mltProducer->parent().get_service());
3762     mlt_service_lock(service.get_service());
3763     if (service.type() != tractor_type) {
3764         kWarning() << "// TRACTOR PROBLEM";
3765         return;
3766     }
3767
3768     Mlt::Tractor tractor(service);
3769
3770     Mlt::Playlist playlist;
3771     int ct = tractor.count();
3772     if (ix > ct) {
3773         kDebug() << "// ERROR, TRYING TO insert TRACK " << ix << ", max: " << ct;
3774         ix = ct;
3775     }
3776
3777     int pos = ix;
3778     if (pos < ct) {
3779         Mlt::Producer *prodToMove = new Mlt::Producer(tractor.track(pos));
3780         tractor.set_track(playlist, pos);
3781         Mlt::Producer newProd(tractor.track(pos));
3782         if (!videoTrack) newProd.set("hide", 1);
3783         pos++;
3784         for (; pos <= ct; pos++) {
3785             Mlt::Producer *prodToMove2 = new Mlt::Producer(tractor.track(pos));
3786             tractor.set_track(*prodToMove, pos);
3787             prodToMove = prodToMove2;
3788         }
3789     } else {
3790         tractor.set_track(playlist, ix);
3791         Mlt::Producer newProd(tractor.track(ix));
3792         if (!videoTrack) newProd.set("hide", 1);
3793     }
3794
3795     // Move transitions
3796     mlt_service serv = m_mltProducer->parent().get_service();
3797     mlt_service nextservice = mlt_service_get_producer(serv);
3798     mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
3799     QString mlt_type = mlt_properties_get(properties, "mlt_type");
3800     QString resource = mlt_properties_get(properties, "mlt_service");
3801
3802     while (mlt_type == "transition") {
3803         if (resource != "mix") {
3804             mlt_transition tr = (mlt_transition) nextservice;
3805             int currentTrack = mlt_transition_get_b_track(tr);
3806             int currentaTrack = mlt_transition_get_a_track(tr);
3807             mlt_properties properties = MLT_TRANSITION_PROPERTIES(tr);
3808
3809             if (currentTrack >= ix) {
3810                 mlt_properties_set_int(properties, "b_track", currentTrack + 1);
3811                 mlt_properties_set_int(properties, "a_track", currentaTrack + 1);
3812             }
3813         }
3814         nextservice = mlt_service_producer(nextservice);
3815         if (nextservice == NULL) break;
3816         properties = MLT_SERVICE_PROPERTIES(nextservice);
3817         mlt_type = mlt_properties_get(properties, "mlt_type");
3818         resource = mlt_properties_get(properties, "mlt_service");
3819     }
3820
3821     // Add audio mix transition to last track
3822     Mlt::Field *field = tractor.field();
3823     Mlt::Transition *transition = new Mlt::Transition(*m_mltProfile, "mix");
3824     transition->set("a_track", 1);
3825     transition->set("b_track", ct);
3826     transition->set("always_active", 1);
3827     transition->set("internal_added", 237);
3828     transition->set("combine", 1);
3829     field->plant_transition(*transition, 1, ct);
3830     //mlt_service_unlock(m_mltConsumer->get_service());
3831     mlt_service_unlock(service.get_service());
3832     //tractor.multitrack()->refresh();
3833     //tractor.refresh();
3834     m_isBlocked--;
3835     blockSignals(false);
3836 }
3837
3838
3839 void Render::mltDeleteTrack(int ix)
3840 {
3841     QDomDocument doc;
3842     doc.setContent(sceneList(), false);
3843     int tracksCount = doc.elementsByTagName("track").count() - 1;
3844     QDomNode track = doc.elementsByTagName("track").at(ix);
3845     QDomNode tractor = doc.elementsByTagName("tractor").at(0);
3846     QDomNodeList transitions = doc.elementsByTagName("transition");
3847     for (int i = 0; i < transitions.count(); i++) {
3848         QDomElement e = transitions.at(i).toElement();
3849         QDomNodeList props = e.elementsByTagName("property");
3850         QMap <QString, QString> mappedProps;
3851         for (int j = 0; j < props.count(); j++) {
3852             QDomElement f = props.at(j).toElement();
3853             mappedProps.insert(f.attribute("name"), f.firstChild().nodeValue());
3854         }
3855         if (mappedProps.value("mlt_service") == "mix" && mappedProps.value("b_track").toInt() == tracksCount) {
3856             tractor.removeChild(transitions.at(i));
3857             i--;
3858         } else if (mappedProps.value("mlt_service") != "mix" && (mappedProps.value("b_track").toInt() >= ix || mappedProps.value("a_track").toInt() >= ix)) {
3859             // Transition needs to be moved
3860             int a_track = mappedProps.value("a_track").toInt();
3861             int b_track = mappedProps.value("b_track").toInt();
3862             if (a_track > 0 && a_track >= ix) a_track --;
3863             if (b_track == ix) {
3864                 // transition was on the deleted track, so remove it
3865                 tractor.removeChild(transitions.at(i));
3866                 i--;
3867                 continue;
3868             }
3869             if (b_track > 0 && b_track > ix) b_track --;
3870             for (int j = 0; j < props.count(); j++) {
3871                 QDomElement f = props.at(j).toElement();
3872                 if (f.attribute("name") == "a_track") f.firstChild().setNodeValue(QString::number(a_track));
3873                 else if (f.attribute("name") == "b_track") f.firstChild().setNodeValue(QString::number(b_track));
3874             }
3875
3876         }
3877     }
3878     tractor.removeChild(track);
3879     //kDebug() << "/////////// RESULT SCENE: \n" << doc.toString();
3880     setSceneList(doc.toString(), m_framePosition);
3881
3882     /*    if (m_mltProducer != NULL) {
3883             Mlt::Producer parentProd(m_mltProducer->parent());
3884             if (parentProd.get_producer() != NULL) {
3885                 Mlt::Service service(parentProd.get_service());
3886                 if (service.type() == tractor_type) {
3887                     Mlt::Tractor tractor(service);
3888                     mltCheckLength(&tractor);
3889                 }
3890             }
3891         }*/
3892 }
3893
3894
3895 void Render::updatePreviewSettings()
3896 {
3897     kDebug() << "////// RESTARTING CONSUMER";
3898     if (!m_mltConsumer || !m_mltProducer) return;
3899     if (m_mltProducer->get_playtime() == 0) return;
3900     Mlt::Service service(m_mltProducer->parent().get_service());
3901     if (service.type() != tractor_type) return;
3902
3903     //m_mltConsumer->set("refresh", 0);
3904     if (!m_mltConsumer->is_stopped()) m_mltConsumer->stop();
3905     m_mltConsumer->purge();
3906     QString scene = sceneList();
3907     int pos = 0;
3908     if (m_mltProducer) {
3909         pos = m_mltProducer->position();
3910     }
3911
3912     setSceneList(scene, pos);
3913 }
3914
3915
3916 QString Render::updateSceneListFps(double current_fps, double new_fps, QString scene)
3917 {
3918     // Update all frame positions to the new fps value
3919     //WARNING: there are probably some effects or other that hold a frame value
3920     // as parameter and will also need to be updated here!
3921     QDomDocument doc;
3922     doc.setContent(scene);
3923
3924     double factor = new_fps / current_fps;
3925     QDomNodeList producers = doc.elementsByTagName("producer");
3926     for (int i = 0; i < producers.count(); i++) {
3927         QDomElement prod = producers.at(i).toElement();
3928         prod.removeAttribute("in");
3929         prod.removeAttribute("out");
3930
3931         QDomNodeList props = prod.childNodes();
3932         for (int j = 0; j < props.count(); j++) {
3933             QDomElement param =  props.at(j).toElement();
3934             QString paramName = param.attribute("name");
3935             if (paramName.startsWith("meta.") || paramName == "length") {
3936                 prod.removeChild(props.at(j));
3937                 j--;
3938             }
3939         }
3940     }
3941
3942     QDomNodeList entries = doc.elementsByTagName("entry");
3943     for (int i = 0; i < entries.count(); i++) {
3944         QDomElement entry = entries.at(i).toElement();
3945         int in = entry.attribute("in").toInt();
3946         int out = entry.attribute("out").toInt();
3947         in = factor * in + 0.5;
3948         out = factor * out + 0.5;
3949         entry.setAttribute("in", in);
3950         entry.setAttribute("out", out);
3951     }
3952
3953     QDomNodeList blanks = doc.elementsByTagName("blank");
3954     for (int i = 0; i < blanks.count(); i++) {
3955         QDomElement blank = blanks.at(i).toElement();
3956         int length = blank.attribute("length").toInt();
3957         length = factor * length + 0.5;
3958         blank.setAttribute("length", QString::number(length));
3959     }
3960
3961     QDomNodeList filters = doc.elementsByTagName("filter");
3962     for (int i = 0; i < filters.count(); i++) {
3963         QDomElement filter = filters.at(i).toElement();
3964         int in = filter.attribute("in").toInt();
3965         int out = filter.attribute("out").toInt();
3966         in = factor * in + 0.5;
3967         out = factor * out + 0.5;
3968         filter.setAttribute("in", in);
3969         filter.setAttribute("out", out);
3970     }
3971
3972     QDomNodeList transitions = doc.elementsByTagName("transition");
3973     for (int i = 0; i < transitions.count(); i++) {
3974         QDomElement transition = transitions.at(i).toElement();
3975         int in = transition.attribute("in").toInt();
3976         int out = transition.attribute("out").toInt();
3977         in = factor * in + 0.5;
3978         out = factor * out + 0.5;
3979         transition.setAttribute("in", in);
3980         transition.setAttribute("out", out);
3981         QDomNodeList props = transition.childNodes();
3982         for (int j = 0; j < props.count(); j++) {
3983             QDomElement param =  props.at(j).toElement();
3984             QString paramName = param.attribute("name");
3985             if (paramName == "geometry") {
3986                 QString geom = param.firstChild().nodeValue();
3987                 QStringList keys = geom.split(';');
3988                 QStringList newKeys;
3989                 for (int k = 0; k < keys.size(); ++k) {
3990                     if (keys.at(k).contains('=')) {
3991                         int pos = keys.at(k).section('=', 0, 0).toInt();
3992                         pos = factor * pos + 0.5;
3993                         newKeys.append(QString::number(pos) + '=' + keys.at(k).section('=', 1));
3994                     } else newKeys.append(keys.at(k));
3995                 }
3996                 param.firstChild().setNodeValue(newKeys.join(";"));
3997             }
3998         }
3999     }
4000     QDomElement tractor = doc.elementsByTagName("tractor").at(0).toElement();
4001     int out = tractor.attribute("out").toInt();
4002     out = factor * out + 0.5;
4003     tractor.setAttribute("out", out);
4004     emit durationChanged(out);
4005
4006     //kDebug() << "///////////////////////////// " << out << " \n" << doc.toString() << "\n-------------------------";
4007     return doc.toString();
4008 }
4009
4010
4011 void Render::sendFrameUpdate()
4012 {
4013     if (m_mltProducer) {
4014         Mlt::Frame * frame = m_mltProducer->get_frame();
4015         emitFrameUpdated(*frame);
4016         delete frame;
4017     }
4018 }
4019
4020
4021 #include "renderer.moc"
4022