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