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 #include <stdlib.h>
  26
  27 #include <QTimer>
  28 #include <QDir>
  29 #include <QApplication>
  30
  31 #include <KDebug>
  32 #include <KStandardDirs>
  33 #include <KMessageBox>
  34 #include <KLocale>
  35 #include <KTemporaryFile>
  36
  37 #include "renderer.h"
  38 #include "kdenlivesettings.h"
  39 #include "kthumb.h"
  40 #include "definitions.h"
  41
  42 #include <mlt++/Mlt.h>
  43
  44
  45 static void consumer_frame_show(mlt_consumer, Render * self, mlt_frame frame_ptr) {
  46     // detect if the producer has finished playing. Is there a better way to do it ?
  47     if (self->m_isBlocked) return;
  48     if (mlt_properties_get_double(MLT_FRAME_PROPERTIES(frame_ptr), "_speed") == 0.0) {
  49         self->emitConsumerStopped();
  50     } else {
  51         self->emitFrameNumber(mlt_frame_get_position(frame_ptr));
  52     }
  53 }
  54
  55 Render::Render(const QString & rendererName, int winid, int extid, QWidget *parent): QObject(parent), m_name(rendererName), m_mltConsumer(NULL), m_mltProducer(NULL), m_mltTextProducer(NULL), m_winid(winid), m_externalwinid(extid),  m_framePosition(0), m_isBlocked(true), m_blackClip(NULL), m_isSplitView(false), m_isZoneMode(false), m_isLoopMode(false) {
  56     kDebug() << "//////////  USING PROFILE: " << (char*)KdenliveSettings::current_profile().toUtf8().data();
  57     refreshTimer = new QTimer(this);
  58     connect(refreshTimer, SIGNAL(timeout()), this, SLOT(refresh()));
  59
  60     /*if (rendererName == "project") m_monitorId = 10000;
  61     else m_monitorId = 10001;*/
  62     osdTimer = new QTimer(this);
  63     connect(osdTimer, SIGNAL(timeout()), this, SLOT(slotOsdTimeout()));
  64
  65     m_osdProfile =   KStandardDirs::locate("data", "kdenlive/profiles/metadata.properties");
  66     buildConsumer();
  67
  68     Mlt::Producer *producer = new Mlt::Producer(*m_mltProfile , "colour", "black");
  69     m_mltProducer = producer;
  70     if (m_blackClip) delete m_blackClip;
  71     m_blackClip = new Mlt::Producer(*m_mltProfile , "colour", "black");
  72     m_blackClip->set("id", "black");
  73     m_mltConsumer->connect(*m_mltProducer);
  74     m_mltProducer->set_speed(0.0);
  75 }
  76
  77 Render::~Render() {
  78     closeMlt();
  79 }
  80
  81
  82 void Render::closeMlt() {
  83     delete osdTimer;
  84     delete refreshTimer;
  85     if (m_mltConsumer)
  86         delete m_mltConsumer;
  87     if (m_mltProducer)
  88         delete m_mltProducer;
  89     if (m_blackClip) delete m_blackClip;
  90     //delete m_osdInfo;
  91 }
  92
  93
  94 void Render::buildConsumer() {
  95     char *tmp;
  96     tmp = decodedString(KdenliveSettings::current_profile());
  97     m_mltProfile = new Mlt::Profile(tmp);
  98     delete[] tmp;
  99
 100
 101     QString videoDriver = KdenliveSettings::videodrivername();
 102     if (!videoDriver.isEmpty()) {
 103         if (videoDriver == "x11_noaccel") {
 104             setenv("SDL_VIDEO_YUV_HWACCEL", "0", 1);
 105             videoDriver = "x11";
 106         } else {
 107             unsetenv("SDL_VIDEO_YUV_HWACCEL");
 108         }
 109     }
 110     setenv("SDL_VIDEO_ALLOW_SCREENSAVER", "1", 1);
 111
 112     m_mltConsumer = new Mlt::Consumer(*m_mltProfile , "sdl_preview");
 113     m_mltConsumer->set("resize", 1);
 114     m_mltConsumer->set("window_id", m_winid);
 115     m_mltConsumer->set("terminate_on_pause", 1);
 116     //m_mltConsumer->set("fullscreen", 1);
 117     m_mltConsumer->listen("consumer-frame-show", this, (mlt_listener) consumer_frame_show);
 118     m_mltConsumer->set("rescale", "nearest");
 119
 120     QString audioDevice = KdenliveSettings::audiodevicename();
 121     if (!audioDevice.isEmpty()) {
 122         tmp = decodedString(audioDevice);
 123         m_mltConsumer->set("audio_device", tmp);
 124         delete[] tmp;
 125     }
 126
 127     if (!videoDriver.isEmpty()) {
 128         tmp = decodedString(videoDriver);
 129         m_mltConsumer->set("video_driver", tmp);
 130         delete[] tmp;
 131     }
 132
 133     QString audioDriver = KdenliveSettings::audiodrivername();
 134     if (!audioDriver.isEmpty()) {
 135         tmp = decodedString(audioDriver);
 136         m_mltConsumer->set("audio_driver", tmp);
 137         delete[] tmp;
 138     }
 139
 140
 141     m_mltConsumer->set("progressive", 1);
 142     m_mltConsumer->set("audio_buffer", 1024);
 143     m_mltConsumer->set("frequency", 48000);
 144 }
 145
 146 int Render::resetProfile() {
 147     if (!m_mltConsumer) return 0;
 148     QString currentProfile = getenv("MLT_PROFILE");
 149     if (currentProfile == KdenliveSettings::current_profile()) {
 150         kDebug() << "reset to same profile, nothing to do";
 151         return 1;
 152     }
 153     if (m_isSplitView) slotSplitView(false);
 154     if (!m_mltConsumer->is_stopped()) m_mltConsumer->stop();
 155     m_mltConsumer->purge();
 156     delete m_mltConsumer;
 157     m_mltConsumer = NULL;
 158     QString scene = sceneList();
 159     if (m_mltProducer) delete m_mltProducer;
 160     m_mltProducer = NULL;
 161     if (m_mltProfile) delete m_mltProfile;
 162     m_mltProfile = NULL;
 163     buildConsumer();
 164
 165     //kDebug() << "//RESET WITHSCENE: " << scene;
 166     setSceneList(scene);
 167
 168     char *tmp = decodedString(scene);
 169     Mlt::Producer *producer = new Mlt::Producer(*m_mltProfile , "westley-xml", tmp);
 170     delete[] tmp;
 171     m_mltProducer = producer;
 172     if (m_blackClip) delete m_blackClip;
 173     m_blackClip = new Mlt::Producer(*m_mltProfile , "colour", "black");
 174     m_mltProducer->optimise();
 175     m_mltProducer->set_speed(0);
 176     connectPlaylist();
 177
 178     //delete m_mltProfile;
 179     // mlt_properties properties = MLT_CONSUMER_PROPERTIES(m_mltConsumer->get_consumer());
 180     //mlt_profile prof = m_mltProfile->get_profile();
 181     //mlt_properties_set_data(properties, "_profile", prof, 0, (mlt_destructor)mlt_profile_close, NULL);
 182     //mlt_properties_set(properties, "profile", "hdv_1080_50i");
 183     //m_mltConsumer->set("profile", (char *) profile.toUtf8().data());
 184     //m_mltProfile = new Mlt::Profile((char*) profile.toUtf8().data());
 185
 186     //apply_profile_properties( m_mltProfile, m_mltConsumer->get_consumer(), properties );
 187     //refresh();
 188     return 1;
 189 }
 190
 191 /** Wraps the VEML command of the same name; Seeks the renderer clip to the given time. */
 192 void Render::seek(GenTime time) {
 193     if (!m_mltProducer)
 194         return;
 195     m_isBlocked = false;
 196     m_mltProducer->seek((int)(time.frames(m_fps)));
 197     refresh();
 198 }
 199
 200 //static
 201 char *Render::decodedString(QString str) {
 202     /*QCString fn = QFile::encodeName(str);
 203     char *t = new char[fn.length() + 1];
 204     strcpy(t, (const char *)fn);*/
 205
 206     return (char *) qstrdup(str.toUtf8().data());   //toLatin1
 207 }
 208
 209 //static
 210 /*QPixmap Render::frameThumbnail(Mlt::Frame *frame, int width, int height, bool border) {
 211     QPixmap pix(width, height);
 212
 213     mlt_image_format format = mlt_image_rgb24a;
 214     uint8_t *thumb = frame->get_image(format, width, height);
 215     QImage image(thumb, width, height, QImage::Format_ARGB32);
 216
 217     if (!image.isNull()) {
 218         pix = pix.fromImage(image);
 219         if (border) {
 220             QPainter painter(&pix);
 221             painter.drawRect(0, 0, width - 1, height - 1);
 222         }
 223     } else pix.fill(Qt::black);
 224     return pix;
 225 }
 226 */
 227 const int Render::renderWidth() const {
 228     return (int)(m_mltProfile->height() * m_mltProfile->dar());
 229 }
 230
 231 const int Render::renderHeight() const {
 232     return m_mltProfile->height();
 233 }
 234
 235 QPixmap Render::extractFrame(int frame_position, int width, int height) {
 236     if (width == -1) {
 237         width = renderWidth();
 238         height = renderHeight();
 239     }
 240     QPixmap pix(width, height);
 241     if (!m_mltProducer) {
 242         pix.fill(Qt::black);
 243         return pix;
 244     }
 245     return KThumb::getFrame(m_mltProducer, frame_position, width, height);
 246 }
 247
 248 QPixmap Render::getImageThumbnail(KUrl url, int width, int height) {
 249     QImage im;
 250     QPixmap pixmap;
 251     if (url.fileName().startsWith(".all.")) {  //  check for slideshow
 252         QString fileType = url.fileName().right(3);
 253         QStringList more;
 254         QStringList::Iterator it;
 255
 256         QDir dir(url.directory());
 257         QStringList filter;
 258         filter << "*." + fileType;
 259         filter << "*." + fileType.toUpper();
 260         more = dir.entryList(filter, QDir::Files);
 261         im.load(url.directory() + "/" + more.at(0));
 262     } else im.load(url.path());
 263     //pixmap = im.scaled(width, height);
 264     return pixmap;
 265 }
 266 /*
 267 //static
 268 QPixmap Render::getVideoThumbnail(char *profile, QString file, int frame_position, int width, int height) {
 269     QPixmap pix(width, height);
 270     char *tmp = decodedString(file);
 271     Mlt::Profile *prof = new Mlt::Profile(profile);
 272     Mlt::Producer m_producer(*prof, tmp);
 273     delete[] tmp;
 274     if (m_producer.is_blank()) {
 275         pix.fill(Qt::black);
 276         return pix;
 277     }
 278
 279     Mlt::Filter m_convert(*prof, "avcolour_space");
 280     m_convert.set("forced", mlt_image_rgb24a);
 281     m_producer.attach(m_convert);
 282     m_producer.seek(frame_position);
 283     Mlt::Frame * frame = m_producer.get_frame();
 284     if (frame) {
 285         pix = frameThumbnail(frame, width, height, true);
 286         delete frame;
 287     }
 288     if (prof) delete prof;
 289     return pix;
 290 }
 291 */
 292 /*
 293 void Render::getImage(KUrl url, int frame_position, QPoint size)
 294 {
 295     char *tmp = decodedString(url.path());
 296     Mlt::Producer m_producer(tmp);
 297     delete[] tmp;
 298     if (m_producer.is_blank()) {
 299  return;
 300     }
 301     Mlt::Filter m_convert("avcolour_space");
 302     m_convert.set("forced", mlt_image_rgb24a);
 303     m_producer.attach(m_convert);
 304     m_producer.seek(frame_position);
 305
 306     Mlt::Frame * frame = m_producer.get_frame();
 307
 308     if (frame) {
 309  QPixmap pix = frameThumbnail(frame, size.x(), size.y(), true);
 310  delete frame;
 311  emit replyGetImage(url, frame_position, pix, size.x(), size.y());
 312     }
 313 }*/
 314
 315 /* Create thumbnail for color */
 316 /*void Render::getImage(int id, QString color, QPoint size)
 317 {
 318     QPixmap pixmap(size.x() - 2, size.y() - 2);
 319     color = color.replace(0, 2, "#");
 320     color = color.left(7);
 321     pixmap.fill(QColor(color));
 322     QPixmap result(size.x(), size.y());
 323     result.fill(Qt::black);
 324     //copyBlt(&result, 1, 1, &pixmap, 0, 0, size.x() - 2, size.y() - 2);
 325     emit replyGetImage(id, result, size.x(), size.y());
 326
 327 }*/
 328
 329 /* Create thumbnail for image */
 330 /*void Render::getImage(KUrl url, QPoint size)
 331 {
 332     QImage im;
 333     QPixmap pixmap;
 334     if (url.fileName().startsWith(".all.")) {  //  check for slideshow
 335      QString fileType = url.fileName().right(3);
 336          QStringList more;
 337          QStringList::Iterator it;
 338
 339             QDir dir( url.directory() );
 340             more = dir.entryList( QDir::Files );
 341             for ( it = more.begin() ; it != more.end() ; ++it ) {
 342                 if ((*it).endsWith("."+fileType, Qt::CaseInsensitive)) {
 343    if (!im.load(url.directory() + "/" + *it))
 344        kDebug()<<"++ ERROR LOADIN IMAGE: "<<url.directory() + "/" + *it;
 345    break;
 346   }
 347      }
 348     }
 349     else im.load(url.path());
 350
 351     //pixmap = im.smoothScale(size.x() - 2, size.y() - 2);
 352     QPixmap result(size.x(), size.y());
 353     result.fill(Qt::black);
 354     //copyBlt(&result, 1, 1, &pixmap, 0, 0, size.x() - 2, size.y() - 2);
 355     emit replyGetImage(url, 1, result, size.x(), size.y());
 356 }*/
 357
 358
 359 double Render::consumerRatio() const {
 360     if (!m_mltConsumer) return 1.0;
 361     return (m_mltConsumer->get_double("aspect_ratio_num") / m_mltConsumer->get_double("aspect_ratio_den"));
 362 }
 363
 364
 365 int Render::getLength() {
 366
 367     if (m_mltProducer) {
 368         // kDebug()<<"//////  LENGTH: "<<mlt_producer_get_playtime(m_mltProducer->get_producer());
 369         return mlt_producer_get_playtime(m_mltProducer->get_producer());
 370     }
 371     return 0;
 372 }
 373
 374 bool Render::isValid(KUrl url) {
 375     char *tmp = decodedString(url.path());
 376     Mlt::Producer producer(*m_mltProfile, tmp);
 377     delete[] tmp;
 378     if (producer.is_blank())
 379         return false;
 380
 381     return true;
 382 }
 383
 384 const double Render::dar() const {
 385     return m_mltProfile->dar();
 386 }
 387
 388 void Render::slotSplitView(bool doit) {
 389     m_isSplitView = doit;
 390     Mlt::Service service(m_mltProducer->parent().get_service());
 391     Mlt::Tractor tractor(service);
 392     if (service.type() != tractor_type || tractor.count() < 2) return;
 393     Mlt::Field *field = tractor.field();
 394     if (doit) {
 395         int screen = 0;
 396         for (int i = 1; i < tractor.count() && screen < 4; i++) {
 397             Mlt::Producer trackProducer(tractor.track(i));
 398             kDebug() << "// TRACK: " << i << ", HIDE: " << trackProducer.get("hide");
 399             if (QString(trackProducer.get("hide")).toInt() != 1) {
 400                 kDebug() << "// ADIDNG TRACK: " << i;
 401                 Mlt::Transition *transition = new Mlt::Transition(*m_mltProfile, "composite");
 402                 transition->set("mlt_service", "composite");
 403                 transition->set("a_track", 0);
 404                 transition->set("b_track", i);
 405                 transition->set("distort", 1);
 406                 transition->set("internal_added", "200");
 407                 const char *tmp;
 408                 switch (screen) {
 409                 case 0:
 410                     tmp = "0,0:50%x50%";
 411                     break;
 412                 case 1:
 413                     tmp = "50%,0:50%x50%";
 414                     break;
 415                 case 2:
 416                     tmp = "0,50%:50%x50%";
 417                     break;
 418                 case 3:
 419                     tmp = "50%,50%:50%x50%";
 420                     break;
 421                 }
 422                 transition->set("geometry", tmp);
 423                 transition->set("always_active", "1");
 424                 field->plant_transition(*transition, 0, i);
 425                 //delete[] tmp;
 426                 screen++;
 427             }
 428         }
 429         m_mltConsumer->set("refresh", 1);
 430     } else {
 431         mlt_service serv = m_mltProducer->parent().get_service();
 432         mlt_service nextservice = mlt_service_get_producer(serv);
 433         mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
 434         QString mlt_type = mlt_properties_get(properties, "mlt_type");
 435         QString resource = mlt_properties_get(properties, "mlt_service");
 436
 437         while (mlt_type == "transition") {
 438             QString added = mlt_properties_get(MLT_SERVICE_PROPERTIES(nextservice), "internal_added");
 439             if (added == "200") {
 440                 mlt_field_disconnect_service(field->get_field(), nextservice);
 441             }
 442             nextservice = mlt_service_producer(nextservice);
 443             if (nextservice == NULL) break;
 444             properties = MLT_SERVICE_PROPERTIES(nextservice);
 445             mlt_type = mlt_properties_get(properties, "mlt_type");
 446             resource = mlt_properties_get(properties, "mlt_service");
 447             m_mltConsumer->set("refresh", 1);
 448         }
 449     }
 450 }
 451
 452 void Render::getFileProperties(const QDomElement &xml, const QString &clipId) {
 453     int height = 50;
 454     int width = (int)(height  * m_mltProfile->dar());
 455     QMap < QString, QString > filePropertyMap;
 456     QMap < QString, QString > metadataPropertyMap;
 457
 458     KUrl url = KUrl(xml.attribute("resource", QString::null));
 459     Mlt::Producer *producer = NULL;
 460     if (xml.attribute("type").toInt() == TEXT && !QFile::exists(url.path())) {
 461         emit replyGetFileProperties(clipId, producer, filePropertyMap, metadataPropertyMap);
 462         return;
 463     }
 464     if (xml.attribute("type").toInt() == COLOR) {
 465         char *tmp = decodedString("colour:" + xml.attribute("colour"));
 466         producer = new Mlt::Producer(*m_mltProfile, "fezzik", tmp);
 467         delete[] tmp;
 468     } else if (url.isEmpty()) {
 469         QDomDocument doc;
 470         QDomElement westley = doc.createElement("westley");
 471         QDomElement play = doc.createElement("playlist");
 472         doc.appendChild(westley);
 473         westley.appendChild(play);
 474         play.appendChild(doc.importNode(xml, true));
 475         char *tmp = decodedString(doc.toString());
 476         producer = new Mlt::Producer(*m_mltProfile, "westley-xml", tmp);
 477         delete[] tmp;
 478     } else {
 479         QString urlpath = url.path();
 480         /*if (urlpath.contains(':')) {
 481             if (!urlpath.startsWith("file:")) urlpath.prepend("file:");
 482             char *tmp = decodedString(urlpath);
 483             producer = new Mlt::Producer(*m_mltProfile, "avformat", tmp);
 484             delete[] tmp;
 485         }
 486         else {*/
 487         char *tmp = decodedString(urlpath);
 488         producer = new Mlt::Producer(*m_mltProfile, tmp);
 489         delete[] tmp;
 490
 491         if (xml.hasAttribute("force_aspect_ratio")) {
 492             double aspect = xml.attribute("force_aspect_ratio").toDouble();
 493             if (aspect > 0) producer->set("force_aspect_ratio", aspect);
 494         }
 495         if (xml.hasAttribute("threads")) {
 496             int threads = xml.attribute("threads").toInt();
 497             if (threads != 1) producer->set("threads", threads);
 498         }
 499         if (xml.hasAttribute("video_index")) {
 500             int vindex = xml.attribute("video_index").toInt();
 501             if (vindex != 0) producer->set("video_index", vindex);
 502         }
 503         if (xml.hasAttribute("audio_index")) {
 504             int aindex = xml.attribute("audio_index").toInt();
 505             if (aindex != 0) producer->set("audio_index", aindex);
 506         }
 507         //}
 508     }
 509
 510     if (producer == NULL || producer->is_blank() || !producer->is_valid()) {
 511         kDebug() << " / / / / / / / /ERRROR / / / / // CANNOT LOAD PRODUCER: ";
 512         emit removeInvalidClip(clipId);
 513         return;
 514     }
 515
 516     if (xml.hasAttribute("out")) producer->set_in_and_out(xml.attribute("in").toInt(), xml.attribute("out").toInt());
 517
 518     char *tmp = decodedString(clipId);
 519     producer->set("id", tmp);
 520     delete[] tmp;
 521     int frameNumber = xml.attribute("thumbnail", "0").toInt();
 522     if (frameNumber != 0) producer->seek(frameNumber);
 523     mlt_properties properties = MLT_PRODUCER_PROPERTIES(producer->get_producer());
 524
 525     filePropertyMap["duration"] = QString::number(producer->get_playtime());
 526     //kDebug() << "///////  PRODUCER: " << url.path() << " IS: " << producer.get_playtime();
 527
 528     Mlt::Frame *frame = producer->get_frame();
 529
 530     if (xml.attribute("type").toInt() == SLIDESHOW) {
 531         if (xml.hasAttribute("ttl")) producer->set("ttl", xml.attribute("ttl").toInt());
 532         if (xml.attribute("fade") == "1") {
 533             // user wants a fade effect to slideshow
 534             Mlt::Filter *filter = new Mlt::Filter(*m_mltProfile, "luma");
 535             if (filter && filter->is_valid()) {
 536                 if (xml.hasAttribute("ttl")) filter->set("period", xml.attribute("ttl").toInt() - 1);
 537                 if (xml.hasAttribute("luma_duration") && !xml.attribute("luma_duration").isEmpty()) filter->set("luma.out", xml.attribute("luma_duration").toInt());
 538                 if (xml.hasAttribute("luma_file") && !xml.attribute("luma_file").isEmpty()) {
 539                     char *tmp = decodedString(xml.attribute("luma_file"));
 540                     filter->set("luma.resource", tmp);
 541                     delete[] tmp;
 542                     if (xml.hasAttribute("softness")) {
 543                         int soft = xml.attribute("softness").toInt();
 544                         filter->set("luma.softness", (double) soft / 100.0);
 545                     }
 546                 }
 547                 Mlt::Service clipService(producer->get_service());
 548                 clipService.attach(*filter);
 549             }
 550         }
 551     }
 552
 553
 554     filePropertyMap["fps"] = producer->get("source_fps");
 555
 556     if (frame && frame->is_valid()) {
 557         filePropertyMap["frame_size"] = QString::number(frame->get_int("width")) + "x" + QString::number(frame->get_int("height"));
 558         filePropertyMap["frequency"] = QString::number(frame->get_int("frequency"));
 559         filePropertyMap["channels"] = QString::number(frame->get_int("channels"));
 560         filePropertyMap["aspect_ratio"] = frame->get("aspect_ratio");
 561
 562         if (frame->get_int("test_image") == 0) {
 563             if (url.path().endsWith(".westley") || url.path().endsWith(".kdenlive")) {
 564                 filePropertyMap["type"] = "playlist";
 565                 metadataPropertyMap["comment"] = QString::fromUtf8(producer->get("title"));
 566             } else if (frame->get_int("test_audio") == 0)
 567                 filePropertyMap["type"] = "av";
 568             else
 569                 filePropertyMap["type"] = "video";
 570
 571             mlt_image_format format = mlt_image_yuv422;
 572             int frame_width = 0;
 573             int frame_height = 0;
 574             //frame->set("rescale.interp", "hyper");
 575             frame->set("normalised_height", height);
 576             frame->set("normalised_width", width);
 577             QPixmap pix(width, height);
 578
 579             uint8_t *data = frame->get_image(format, frame_width, frame_height, 0);
 580             uint8_t *new_image = (uint8_t *)mlt_pool_alloc(frame_width * (frame_height + 1) * 4);
 581             mlt_convert_yuv422_to_rgb24a((uint8_t *)data, new_image, frame_width * frame_height);
 582             QImage image((uchar *)new_image, frame_width, frame_height, QImage::Format_ARGB32);
 583
 584             if (!image.isNull()) {
 585                 pix = QPixmap::fromImage(image.rgbSwapped());
 586             } else
 587                 pix.fill(Qt::black);
 588
 589             mlt_pool_release(new_image);
 590             emit replyGetImage(clipId, 0, pix, width, height);
 591
 592         } else if (frame->get_int("test_audio") == 0) {
 593             QPixmap pixmap = KIcon("audio-x-generic").pixmap(QSize(width, height));
 594             emit replyGetImage(clipId, 0, pixmap, width, height);
 595             filePropertyMap["type"] = "audio";
 596         }
 597     }
 598
 599     // Retrieve audio / video codec name
 600
 601     // If there is a
 602     char property[200];
 603     if (producer->get_int("video_index") > -1) {
 604         /*if (context->duration == AV_NOPTS_VALUE) {
 605         kDebug() << " / / / / / / / /ERRROR / / / CLIP HAS UNKNOWN DURATION";
 606             emit removeInvalidClip(clipId);
 607             return;
 608         }*/
 609         // Get the video_index
 610         int default_video = producer->get_int("video_index");
 611         int video_max = 0;
 612         int default_audio = producer->get_int("audio_index");
 613         int audio_max = 0;
 614
 615         // Find maximum stream index values
 616         for (int ix = 0; ix < producer->get_int("meta.media.nb_streams"); ix++) {
 617             snprintf(property, sizeof(property), "meta.media.%d.stream.type", ix);
 618             QString type = producer->get(property);
 619             if (type == "video")
 620                 video_max = ix;
 621             else if (type == "audio")
 622                 audio_max = ix;
 623         }
 624         filePropertyMap["default_video"] = QString::number(default_video);
 625         filePropertyMap["video_max"] = QString::number(video_max);
 626         filePropertyMap["default_audio"] = QString::number(default_audio);
 627         filePropertyMap["audio_max"] = QString::number(audio_max);
 628
 629         snprintf(property, sizeof(property), "meta.media.%d.codec.long_name", default_video);
 630         if (producer->get(property)) {
 631             filePropertyMap["videocodec"] = producer->get(property);
 632         } else {
 633             snprintf(property, sizeof(property), "meta.media.%d.codec.name", default_video);
 634             if (producer->get(property))
 635                 filePropertyMap["videocodec"] = producer->get(property);
 636         }
 637     } else kDebug() << " / / / / /WARNING, VIDEO CONTEXT IS NULL!!!!!!!!!!!!!!";
 638     if (producer->get_int("audio_index") > -1) {
 639         // Get the audio_index
 640         int index = producer->get_int("audio_index");
 641
 642         snprintf(property, sizeof(property), "meta.media.%d.codec.long_name", index);
 643         if (producer->get(property)) {
 644             filePropertyMap["audiocodec"] = producer->get(property);
 645         } else {
 646             snprintf(property, sizeof(property), "meta.media.%d.codec.name", index);
 647             if (producer->get(property))
 648                 filePropertyMap["audiocodec"] = producer->get(property);
 649         }
 650     }
 651
 652     // metadata
 653     Mlt::Properties metadata;
 654     metadata.pass_values(*producer, "meta.attr.");
 655     int count = metadata.count();
 656     for (int i = 0; i < count; i ++) {
 657         QString name = metadata.get_name(i);
 658         QString value = QString::fromUtf8(metadata.get(i));
 659         if (name.endsWith("markup") && !value.isEmpty())
 660             metadataPropertyMap[ name.section(".", 0, -2)] = value;
 661     }
 662
 663     emit replyGetFileProperties(clipId, producer, filePropertyMap, metadataPropertyMap);
 664     kDebug() << "REquested fuile info for: " << url.path();
 665     if (frame) delete frame;
 666     //if (producer) delete producer;
 667 }
 668
 669
 670 /** Create the producer from the Westley QDomDocument */
 671 #if 0
 672 void Render::initSceneList() {
 673     kDebug() << "--------  INIT SCENE LIST ------_";
 674     QDomDocument doc;
 675     QDomElement westley = doc.createElement("westley");
 676     doc.appendChild(westley);
 677     QDomElement prod = doc.createElement("producer");
 678     prod.setAttribute("resource", "colour");
 679     prod.setAttribute("colour", "red");
 680     prod.setAttribute("id", "black");
 681     prod.setAttribute("in", "0");
 682     prod.setAttribute("out", "0");
 683
 684     QDomElement tractor = doc.createElement("tractor");
 685     QDomElement multitrack = doc.createElement("multitrack");
 686
 687     QDomElement playlist1 = doc.createElement("playlist");
 688     playlist1.appendChild(prod);
 689     multitrack.appendChild(playlist1);
 690     QDomElement playlist2 = doc.createElement("playlist");
 691     multitrack.appendChild(playlist2);
 692     QDomElement playlist3 = doc.createElement("playlist");
 693     multitrack.appendChild(playlist3);
 694     QDomElement playlist4 = doc.createElement("playlist");
 695     multitrack.appendChild(playlist4);
 696     QDomElement playlist5 = doc.createElement("playlist");
 697     multitrack.appendChild(playlist5);
 698     tractor.appendChild(multitrack);
 699     westley.appendChild(tractor);
 700     // kDebug()<<doc.toString();
 701     /*
 702        QString tmp = QString("<westley><producer resource=\"colour\" colour=\"red\" id=\"red\" /><tractor><multitrack><playlist></playlist><playlist></playlist><playlist /><playlist /><playlist></playlist></multitrack></tractor></westley>");*/
 703     setSceneList(doc, 0);
 704 }
 705 #endif
 706
 707
 708
 709 /** Create the producer from the Westley QDomDocument */
 710 void Render::setProducer(Mlt::Producer *producer, int position) {
 711     if (m_winid == -1) return;
 712
 713     if (m_mltConsumer) {
 714         m_mltConsumer->stop();
 715     } else return;
 716
 717     m_isBlocked = true;
 718     if (m_mltProducer) {
 719         m_mltProducer->set_speed(0);
 720         delete m_mltProducer;
 721         m_mltProducer = NULL;
 722         emit stopped();
 723     }
 724     if (producer) m_mltProducer = new Mlt::Producer(producer->get_producer());
 725     else m_mltProducer = new Mlt::Producer();
 726     if (!m_mltProducer || !m_mltProducer->is_valid()) kDebug() << " WARNING - - - - -INVALID PLAYLIST: ";
 727
 728     m_fps = m_mltProducer->get_fps();
 729     connectPlaylist();
 730     if (position != -1) {
 731         m_mltProducer->seek(position);
 732         emit rendererPosition(position);
 733     }
 734     m_isBlocked = false;
 735 }
 736
 737
 738
 739 /** Create the producer from the Westley QDomDocument */
 740 void Render::setSceneList(QDomDocument list, int position) {
 741     setSceneList(list.toString(), position);
 742 }
 743
 744 /** Create the producer from the Westley QDomDocument */
 745 void Render::setSceneList(QString playlist, int position) {
 746     if (m_winid == -1) return;
 747     m_isBlocked = true;
 748
 749     //kWarning() << "//////  RENDER, SET SCENE LIST: " << playlist;
 750
 751     if (m_mltConsumer) {
 752         m_mltConsumer->stop();
 753         //m_mltConsumer->set("refresh", 0);
 754     } else {
 755         m_isBlocked = false;
 756         return;
 757     }
 758
 759     if (m_mltProducer) {
 760         m_mltProducer->set_speed(0);
 761         //if (KdenliveSettings::osdtimecode() && m_osdInfo) m_mltProducer->detach(*m_osdInfo);
 762
 763         delete m_mltProducer;
 764         m_mltProducer = NULL;
 765         emit stopped();
 766     }
 767
 768     blockSignals(true);
 769     char *tmp = decodedString(playlist);
 770     m_mltProducer = new Mlt::Producer(*m_mltProfile, "westley-xml", tmp);
 771     delete[] tmp;
 772     if (m_blackClip) delete m_blackClip;
 773     m_blackClip = new Mlt::Producer(*m_mltProfile , "colour", "black");
 774     m_blackClip->set("id", "black");
 775     if (!m_mltProducer || !m_mltProducer->is_valid()) {
 776         kDebug() << " WARNING - - - - -INVALID PLAYLIST: " << tmp;
 777     }
 778     m_mltProducer->optimise();
 779
 780     /*if (KdenliveSettings::osdtimecode()) {
 781     // Attach filter for on screen display of timecode
 782     delete m_osdInfo;
 783     QString attr = "attr_check";
 784     mlt_filter filter = mlt_factory_filter( "data_feed", (char*) attr.ascii() );
 785     mlt_properties_set_int( MLT_FILTER_PROPERTIES( filter ), "_fezzik", 1 );
 786     mlt_producer_attach( m_mltProducer->get_producer(), filter );
 787     mlt_filter_close( filter );
 788
 789       m_osdInfo = new Mlt::Filter("data_show");
 790     tmp = decodedString(m_osdProfile);
 791       m_osdInfo->set("resource", tmp);
 792     delete[] tmp;
 793     mlt_properties properties = MLT_PRODUCER_PROPERTIES(m_mltProducer->get_producer());
 794     mlt_properties_set_int( properties, "meta.attr.timecode", 1);
 795     mlt_properties_set( properties, "meta.attr.timecode.markup", "#timecode#");
 796     m_osdInfo->set("dynamic", "1");
 797
 798       if (m_mltProducer->attach(*m_osdInfo) == 1) kDebug()<<"////// error attaching filter";
 799     } else {
 800     m_osdInfo->set("dynamic", "0");
 801     }*/
 802
 803     m_fps = m_mltProducer->get_fps();
 804     kDebug() << "// NEW SCENE LIST DURATION SET TO: " << m_mltProducer->get_playtime();
 805     connectPlaylist();
 806     if (position != 0) {
 807         //TODO: seek to correct place after opening project.
 808         //  Needs to be done from another place since it crashes here.
 809         m_mltProducer->seek(position);
 810     }
 811     m_isBlocked = false;
 812     blockSignals(false);
 813     emit rendererPosition(position);
 814 }
 815
 816 /** Create the producer from the Westley QDomDocument */
 817 QString Render::sceneList() {
 818     QString playlist;
 819     Mlt::Consumer westleyConsumer(*m_mltProfile , "westley:kdenlive_playlist");
 820     m_mltProducer->optimise();
 821     westleyConsumer.set("terminate_on_pause", 1);
 822     Mlt::Producer prod(m_mltProducer->get_producer());
 823     bool split = m_isSplitView;
 824     if (split) slotSplitView(false);
 825     westleyConsumer.connect(prod);
 826     westleyConsumer.start();
 827     while (!westleyConsumer.is_stopped()) {}
 828     playlist = QString::fromUtf8(westleyConsumer.get("kdenlive_playlist"));
 829     if (split) slotSplitView(true);
 830     return playlist;
 831 }
 832
 833 void Render::saveSceneList(QString path, QDomElement kdenliveData) {
 834     QFile file(path);
 835     QDomDocument doc;
 836     doc.setContent(sceneList(), false);
 837     if (!kdenliveData.isNull()) {
 838         // add Kdenlive specific tags
 839         QDomNode wes = doc.elementsByTagName("westley").at(0);
 840         wes.appendChild(doc.importNode(kdenliveData, true));
 841     }
 842     if (!file.open(QIODevice::WriteOnly | QIODevice::Text)) {
 843         kWarning() << "//////  ERROR writing to file: " << path;
 844         return;
 845     }
 846     QTextStream out(&file);
 847     out << doc.toString();
 848     file.close();
 849 }
 850
 851
 852 void Render::saveZone(KUrl url, QString desc, QPoint zone) {
 853     kDebug() << "// SAVING CLIP ZONE, RENDER: " << m_name;
 854     char *tmppath = decodedString("westley:" + url.path());
 855     Mlt::Consumer westleyConsumer(*m_mltProfile , tmppath);
 856     m_mltProducer->optimise();
 857     delete[] tmppath;
 858     westleyConsumer.set("terminate_on_pause", 1);
 859     if (m_name == "clip") {
 860         Mlt::Producer *prod = m_mltProducer->cut(zone.x(), zone.y());
 861         tmppath = decodedString(desc);
 862         Mlt::Playlist list;
 863         list.insert_at(0, prod, 0);
 864         list.set("title", tmppath);
 865         delete[] tmppath;
 866         westleyConsumer.connect(list);
 867
 868     } else {
 869         //TODO: not working yet, save zone from timeline
 870         Mlt::Producer *p1 = new Mlt::Producer(m_mltProducer->get_producer());
 871         /* Mlt::Service service(p1->parent().get_service());
 872          if (service.type() != tractor_type) kWarning() << "// TRACTOR PROBLEM";*/
 873
 874         //Mlt::Producer *prod = p1->cut(zone.x(), zone.y());
 875         tmppath = decodedString(desc);
 876         //prod->set("title", tmppath);
 877         delete[] tmppath;
 878         westleyConsumer.connect(*p1); //list);
 879     }
 880
 881     westleyConsumer.start();
 882 }
 883
 884 const double Render::fps() const {
 885     return m_fps;
 886 }
 887
 888 void Render::connectPlaylist() {
 889     if (!m_mltConsumer) return;
 890     //m_mltConsumer->set("refresh", "0");
 891     m_mltConsumer->connect(*m_mltProducer);
 892     m_mltProducer->set_speed(0);
 893     m_mltConsumer->start();
 894     emit durationChanged(m_mltProducer->get_playtime());
 895     //refresh();
 896     /*
 897      if (m_mltConsumer->start() == -1) {
 898           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."));
 899           m_mltConsumer = NULL;
 900      }
 901      else {
 902              refresh();
 903      }*/
 904 }
 905
 906 void Render::refreshDisplay() {
 907
 908     if (!m_mltProducer) return;
 909     //m_mltConsumer->set("refresh", 0);
 910
 911     mlt_properties properties = MLT_PRODUCER_PROPERTIES(m_mltProducer->get_producer());
 912     /*if (KdenliveSettings::osdtimecode()) {
 913         mlt_properties_set_int( properties, "meta.attr.timecode", 1);
 914         mlt_properties_set( properties, "meta.attr.timecode.markup", "#timecode#");
 915         m_osdInfo->set("dynamic", "1");
 916         m_mltProducer->attach(*m_osdInfo);
 917     }
 918     else {
 919         m_mltProducer->detach(*m_osdInfo);
 920         m_osdInfo->set("dynamic", "0");
 921     }*/
 922     refresh();
 923 }
 924
 925 void Render::setVolume(double volume) {
 926     if (!m_mltConsumer || !m_mltProducer) return;
 927     /*osdTimer->stop();
 928     m_mltConsumer->set("refresh", 0);
 929     // Attach filter for on screen display of timecode
 930     mlt_properties properties = MLT_PRODUCER_PROPERTIES(m_mltProducer->get_producer());
 931     mlt_properties_set_double( properties, "meta.volume", volume );
 932     mlt_properties_set_int( properties, "meta.attr.osdvolume", 1);
 933     mlt_properties_set( properties, "meta.attr.osdvolume.markup", i18n("Volume: ") + QString::number(volume * 100));
 934
 935     if (!KdenliveSettings::osdtimecode()) {
 936     m_mltProducer->detach(*m_osdInfo);
 937     mlt_properties_set_int( properties, "meta.attr.timecode", 0);
 938      if (m_mltProducer->attach(*m_osdInfo) == 1) kDebug()<<"////// error attaching filter";
 939     }*/
 940     refresh();
 941     osdTimer->setSingleShot(2500);
 942 }
 943
 944 void Render::slotOsdTimeout() {
 945     mlt_properties properties = MLT_PRODUCER_PROPERTIES(m_mltProducer->get_producer());
 946     mlt_properties_set_int(properties, "meta.attr.osdvolume", 0);
 947     mlt_properties_set(properties, "meta.attr.osdvolume.markup", NULL);
 948     //if (!KdenliveSettings::osdtimecode()) m_mltProducer->detach(*m_osdInfo);
 949     refresh();
 950 }
 951
 952 void Render::start() {
 953     kDebug() << "-----  STARTING MONITOR: " << m_name;
 954     if (m_winid == -1) {
 955         kDebug() << "-----  BROKEN MONITOR: " << m_name << ", RESTART";
 956         return;
 957     }
 958
 959     if (m_mltConsumer && m_mltConsumer->is_stopped()) {
 960         kDebug() << "-----  MONITOR: " << m_name << " WAS STOPPED";
 961         if (m_mltConsumer->start() == -1) {
 962             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."));
 963             m_mltConsumer = NULL;
 964             return;
 965         } else {
 966             kDebug() << "-----  MONITOR: " << m_name << " REFRESH";
 967             m_isBlocked = false;
 968             refresh();
 969         }
 970     }
 971     m_isBlocked = false;
 972 }
 973
 974 void Render::clear() {
 975     kDebug() << " *********  RENDER CLEAR";
 976     if (m_mltConsumer) {
 977         //m_mltConsumer->set("refresh", 0);
 978         if (!m_mltConsumer->is_stopped()) m_mltConsumer->stop();
 979     }
 980
 981     if (m_mltProducer) {
 982         //if (KdenliveSettings::osdtimecode() && m_osdInfo) m_mltProducer->detach(*m_osdInfo);
 983         m_mltProducer->set_speed(0.0);
 984         delete m_mltProducer;
 985         m_mltProducer = NULL;
 986         emit stopped();
 987     }
 988 }
 989
 990 void Render::stop() {
 991     if (m_mltConsumer && !m_mltConsumer->is_stopped()) {
 992         kDebug() << "/////////////   RENDER STOPPED: " << m_name;
 993         m_isBlocked = true;
 994         m_mltConsumer->set("refresh", 0);
 995         m_mltConsumer->stop();
 996         // delete m_mltConsumer;
 997         // m_mltConsumer = NULL;
 998     }
 999     kDebug() << "/////////////   RENDER STOP2-------";
1000     m_isBlocked = true;
1001
1002     if (m_mltProducer) {
1003         if (m_isZoneMode) resetZoneMode();
1004         m_mltProducer->set_speed(0.0);
1005         //m_mltProducer->set("out", m_mltProducer->get_length() - 1);
1006         //kDebug() << m_mltProducer->get_length();
1007     }
1008     kDebug() << "/////////////   RENDER STOP3-------";
1009 }
1010
1011 void Render::stop(const GenTime & startTime) {
1012
1013     kDebug() << "/////////////   RENDER STOP-------2";
1014     if (m_mltProducer) {
1015         if (m_isZoneMode) resetZoneMode();
1016         m_mltProducer->set_speed(0.0);
1017         m_mltProducer->seek((int) startTime.frames(m_fps));
1018     }
1019     m_mltConsumer->purge();
1020 }
1021
1022 void Render::pause() {
1023     if (!m_mltProducer || !m_mltConsumer)
1024         return;
1025     if (m_mltProducer->get_speed() == 0.0) return;
1026     if (m_isZoneMode) resetZoneMode();
1027     m_isBlocked = true;
1028     m_mltConsumer->set("refresh", 0);
1029     m_mltProducer->set_speed(0.0);
1030     emit rendererPosition(m_framePosition);
1031     m_mltProducer->seek(m_framePosition);
1032     m_mltConsumer->purge();
1033 }
1034
1035 void Render::switchPlay() {
1036     if (!m_mltProducer || !m_mltConsumer)
1037         return;
1038     if (m_isZoneMode) resetZoneMode();
1039     if (m_mltProducer->get_speed() == 0.0) {
1040         m_isBlocked = false;
1041         m_mltProducer->set_speed(1.0);
1042         m_mltConsumer->set("refresh", 1);
1043     } else {
1044         m_isBlocked = true;
1045         m_mltConsumer->set("refresh", 0);
1046         m_mltProducer->set_speed(0.0);
1047         emit rendererPosition(m_framePosition);
1048         m_mltProducer->seek(m_framePosition);
1049         m_mltConsumer->purge();
1050         //kDebug()<<" *********  RENDER PAUSE: "<<m_mltProducer->get_speed();
1051         //m_mltConsumer->set("refresh", 0);
1052         /*mlt_position position = mlt_producer_position( m_mltProducer->get_producer() );
1053         m_mltProducer->set_speed(0);
1054         m_mltProducer->seek( position );
1055                //m_mltProducer->seek((int) m_framePosition);
1056                m_isBlocked = false;*/
1057     }
1058     /*if (speed == 0.0) {
1059     m_mltProducer->seek((int) m_framePosition + 1);
1060         m_mltConsumer->purge();
1061     }*/
1062     //refresh();
1063 }
1064
1065 void Render::play(double speed) {
1066     if (!m_mltProducer)
1067         return;
1068     // if (speed == 0.0) m_mltProducer->set("out", m_mltProducer->get_length() - 1);
1069     m_isBlocked = false;
1070     m_mltProducer->set_speed(speed);
1071     /*if (speed == 0.0) {
1072     m_mltProducer->seek((int) m_framePosition + 1);
1073         m_mltConsumer->purge();
1074     }*/
1075     refresh();
1076 }
1077
1078 void Render::play(const GenTime & startTime) {
1079     if (!m_mltProducer || !m_mltConsumer)
1080         return;
1081     m_isBlocked = false;
1082     m_mltProducer->seek((int)(startTime.frames(m_fps)));
1083     m_mltProducer->set_speed(1.0);
1084     m_mltConsumer->set("refresh", 1);
1085 }
1086
1087 void Render::loopZone(const GenTime & startTime, const GenTime & stopTime) {
1088     if (!m_mltProducer || !m_mltConsumer)
1089         return;
1090     //m_mltProducer->set("eof", "loop");
1091     m_isLoopMode = true;
1092     m_loopStart = startTime;
1093     playZone(startTime, stopTime);
1094 }
1095
1096 void Render::playZone(const GenTime & startTime, const GenTime & stopTime) {
1097     if (!m_mltProducer || !m_mltConsumer)
1098         return;
1099     m_isBlocked = false;
1100     m_mltProducer->set("out", stopTime.frames(m_fps));
1101     m_mltProducer->seek((int)(startTime.frames(m_fps)));
1102     m_mltProducer->set_speed(1.0);
1103     m_mltConsumer->set("refresh", 1);
1104     m_isZoneMode = true;
1105 }
1106
1107 void Render::resetZoneMode() {
1108     m_mltProducer->set("out", m_mltProducer->get_length() - 1);
1109     //m_mltProducer->set("eof", "pause");
1110     m_isZoneMode = false;
1111     m_isLoopMode = false;
1112 }
1113
1114 void Render::seekToFrame(int pos) {
1115     //kDebug()<<" *********  RENDER SEEK TO POS";
1116     if (!m_mltProducer)
1117         return;
1118     m_isBlocked = false;
1119     resetZoneMode();
1120     m_mltProducer->seek(pos);
1121     refresh();
1122 }
1123
1124 void Render::askForRefresh() {
1125     // Use a Timer so that we don't refresh too much
1126     refreshTimer->start(200);
1127 }
1128
1129 void Render::doRefresh() {
1130     // Use a Timer so that we don't refresh too much
1131     if (!m_isBlocked && m_mltConsumer) m_mltConsumer->set("refresh", 1);
1132 }
1133
1134 void Render::refresh() {
1135     if (!m_mltProducer || m_isBlocked)
1136         return;
1137     refreshTimer->stop();
1138     if (m_mltConsumer) {
1139         m_mltConsumer->set("refresh", 1);
1140     }
1141 }
1142
1143 double Render::playSpeed() {
1144     if (m_mltProducer) return m_mltProducer->get_speed();
1145     return 0.0;
1146 }
1147
1148 GenTime Render::seekPosition() const {
1149     if (m_mltProducer) return GenTime((int) m_mltProducer->position(), m_fps);
1150     else return GenTime();
1151 }
1152
1153
1154 const QString & Render::rendererName() const {
1155     return m_name;
1156 }
1157
1158
1159 void Render::emitFrameNumber(double position) {
1160     m_framePosition = position;
1161     emit rendererPosition((int) position);
1162     //if (qApp->activeWindow()) QApplication::postEvent(qApp->activeWindow(), new PositionChangeEvent( GenTime((int) position, m_fps), m_monitorId));
1163 }
1164
1165 void Render::emitConsumerStopped() {
1166     // This is used to know when the playing stopped
1167     if (m_mltProducer) {
1168         double pos = m_mltProducer->position();
1169         if (m_isLoopMode) play(m_loopStart);
1170         else if (m_isZoneMode) resetZoneMode();
1171         emit rendererStopped((int) pos);
1172         //if (qApp->activeWindow()) QApplication::postEvent(qApp->activeWindow(), new PositionChangeEvent(GenTime((int) pos, m_fps), m_monitorId + 100));
1173         //new QCustomEvent(10002));
1174     }
1175 }
1176
1177
1178
1179 void Render::exportFileToFirewire(QString srcFileName, int port, GenTime startTime, GenTime endTime) {
1180     KMessageBox::sorry(0, i18n("Firewire is not enabled on your system.\n Please install Libiec61883 and recompile Kdenlive"));
1181 }
1182
1183
1184 void Render::exportCurrentFrame(KUrl url, bool notify) {
1185     if (!m_mltProducer) {
1186         KMessageBox::sorry(qApp->activeWindow(), i18n("There is no clip, cannot extract frame."));
1187         return;
1188     }
1189
1190     int height = 1080;//KdenliveSettings::defaultheight();
1191     int width = 1940; //KdenliveSettings::displaywidth();
1192     //TODO: rewrite
1193     QPixmap pix; // = KThumb::getFrame(m_mltProducer, -1, width, height);
1194     /*
1195        QPixmap pix(width, height);
1196        Mlt::Filter m_convert(*m_mltProfile, "avcolour_space");
1197        m_convert.set("forced", mlt_image_rgb24a);
1198        m_mltProducer->attach(m_convert);
1199        Mlt::Frame * frame = m_mltProducer->get_frame();
1200        m_mltProducer->detach(m_convert);
1201        if (frame) {
1202            pix = frameThumbnail(frame, width, height);
1203            delete frame;
1204        }*/
1205     pix.save(url.path(), "PNG");
1206     //if (notify) QApplication::postEvent(qApp->activeWindow(), new UrlEvent(url, 10003));
1207 }
1208
1209 /** MLT PLAYLIST DIRECT MANIPULATON  **/
1210
1211
1212 void Render::mltCheckLength(bool reload) {
1213     //kDebug()<<"checking track length: "<<track<<"..........";
1214
1215     Mlt::Service service(m_mltProducer->get_service());
1216     Mlt::Tractor tractor(service);
1217
1218     int trackNb = tractor.count();
1219     double duration = 0;
1220     double trackDuration;
1221     if (trackNb == 1) {
1222         Mlt::Producer trackProducer(tractor.track(0));
1223         Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1224         duration = Mlt::Producer(trackPlaylist.get_producer()).get_playtime() - 1;
1225         m_mltProducer->set("out", duration);
1226         emit durationChanged((int) duration);
1227         return;
1228     }
1229     while (trackNb > 1) {
1230         Mlt::Producer trackProducer(tractor.track(trackNb - 1));
1231         Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1232         trackDuration = Mlt::Producer(trackPlaylist.get_producer()).get_playtime() - 1;
1233
1234         //kDebug() << " / / /DURATON FOR TRACK " << trackNb - 1 << " = " << trackDuration;
1235         if (trackDuration > duration) duration = trackDuration;
1236         trackNb--;
1237     }
1238
1239     Mlt::Producer blackTrackProducer(tractor.track(0));
1240     Mlt::Playlist blackTrackPlaylist((mlt_playlist) blackTrackProducer.get_service());
1241     double blackDuration = Mlt::Producer(blackTrackPlaylist.get_producer()).get_playtime() - 1;
1242
1243     if (blackDuration != duration) {
1244         blackTrackPlaylist.remove_region(0, (int)blackDuration);
1245         int i = 0;
1246         int dur = (int)duration;
1247         QDomDocument doc;
1248         QDomElement black = doc.createElement("producer");
1249         black.setAttribute("mlt_service", "colour");
1250         black.setAttribute("colour", "black");
1251         black.setAttribute("id", "black");
1252         ItemInfo info;
1253         info.track = 0;
1254         while (dur > 14000) {
1255             info.startPos = GenTime(i * 14000, m_fps);
1256             info.endPos = info.startPos + GenTime(13999, m_fps);
1257             mltInsertClip(info, black, m_blackClip);
1258             dur = dur - 14000;
1259             i++;
1260         }
1261         if (dur > 0) {
1262             info.startPos = GenTime(i * 14000, m_fps);
1263             info.endPos = info.startPos + GenTime(dur, m_fps);
1264             mltInsertClip(info, black, m_blackClip);
1265         }
1266         m_mltProducer->set("out", duration);
1267         emit durationChanged((int)duration);
1268     }
1269 }
1270
1271 void Render::mltInsertClip(ItemInfo info, QDomElement element, Mlt::Producer *prod) {
1272     if (!m_mltProducer) {
1273         kDebug() << "PLAYLIST NOT INITIALISED //////";
1274         return;
1275     }
1276     Mlt::Producer parentProd(m_mltProducer->parent());
1277     if (parentProd.get_producer() == NULL) {
1278         kDebug() << "PLAYLIST BROKEN, CANNOT INSERT CLIP //////";
1279         return;
1280     }
1281
1282     Mlt::Service service(parentProd.get_service());
1283     Mlt::Tractor tractor(service);
1284     mlt_service_lock(service.get_service());
1285     Mlt::Producer trackProducer(tractor.track(info.track));
1286     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1287     //kDebug()<<"/// INSERT cLIP: "<<info.cropStart.frames(m_fps)<<", "<<info.startPos.frames(m_fps)<<"-"<<info.endPos.frames(m_fps);
1288     Mlt::Producer *clip = prod->cut((int) info.cropStart.frames(m_fps), (int)(info.endPos - info.startPos + info.cropStart).frames(m_fps) - 1);
1289     int newIndex = trackPlaylist.insert_at((int) info.startPos.frames(m_fps), *clip, 1);
1290
1291     /*if (QString(prod->get("transparency")).toInt() == 1)
1292         mltAddClipTransparency(info, info.track - 1, QString(prod->get("id")).toInt());*/
1293
1294     mlt_service_unlock(service.get_service());
1295
1296     if (info.track != 0 && (newIndex + 1 == trackPlaylist.count())) mltCheckLength();
1297     //tractor.multitrack()->refresh();
1298     //tractor.refresh();
1299 }
1300
1301
1302 void Render::mltCutClip(int track, GenTime position) {
1303
1304     m_isBlocked = true;
1305
1306     Mlt::Service service(m_mltProducer->parent().get_service());
1307     if (service.type() != tractor_type) kWarning() << "// TRACTOR PROBLEM";
1308
1309     Mlt::Tractor tractor(service);
1310     Mlt::Producer trackProducer(tractor.track(track));
1311     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1312
1313
1314     /* // Display playlist info
1315     kDebug()<<"////////////  BEFORE";
1316     for (int i = 0; i < trackPlaylist.count(); i++) {
1317     int blankStart = trackPlaylist.clip_start(i);
1318     int blankDuration = trackPlaylist.clip_length(i) - 1;
1319     QString blk;
1320     if (trackPlaylist.is_blank(i)) blk = "(blank)";
1321     kDebug()<<"CLIP "<<i<<": ("<<blankStart<<"x"<<blankStart + blankDuration<<")"<<blk;
1322     }*/
1323
1324     int cutPos = (int) position.frames(m_fps);
1325
1326     int clipIndex = trackPlaylist.get_clip_index_at(cutPos);
1327     if (trackPlaylist.is_blank(clipIndex)) {
1328         kDebug() << "// WARNING, TRYING TO CUT A BLANK";
1329         m_isBlocked = false;
1330         return;
1331     }
1332     mlt_service_lock(service.get_service());
1333     int clipStart = trackPlaylist.clip_start(clipIndex);
1334     trackPlaylist.split(clipIndex, cutPos - clipStart - 1);
1335     mlt_service_unlock(service.get_service());
1336
1337     // duplicate effects
1338     Mlt::Producer *original = trackPlaylist.get_clip_at(clipStart);
1339     Mlt::Producer *clip = trackPlaylist.get_clip_at(cutPos);
1340
1341     if (original == NULL || clip == NULL) {
1342         kDebug() << "// ERROR GRABBING CLIP AFTER SPLIT";
1343     }
1344     Mlt::Service clipService(original->get_service());
1345     Mlt::Service dupService(clip->get_service());
1346     int ct = 0;
1347     Mlt::Filter *filter = clipService.filter(ct);
1348     while (filter) {
1349         if (filter->is_valid() && filter->get("kdenlive_id") != "") {
1350             // looks like there is no easy way to duplicate a filter,
1351             // so we will create a new one and duplicate its properties
1352             Mlt::Filter *dup = new Mlt::Filter(*m_mltProfile, filter->get("mlt_service"));
1353             if (dup && dup->is_valid()) {
1354                 Mlt::Properties entries(filter->get_properties());
1355                 for (int i = 0;i < entries.count();i++) {
1356                     dup->set(entries.get_name(i), entries.get(i));
1357                 }
1358                 dupService.attach(*dup);
1359             }
1360         }
1361         ct++;
1362         filter = clipService.filter(ct);
1363     }
1364
1365     /* // Display playlist info
1366     kDebug()<<"////////////  AFTER";
1367     for (int i = 0; i < trackPlaylist.count(); i++) {
1368     int blankStart = trackPlaylist.clip_start(i);
1369     int blankDuration = trackPlaylist.clip_length(i) - 1;
1370     QString blk;
1371     if (trackPlaylist.is_blank(i)) blk = "(blank)";
1372     kDebug()<<"CLIP "<<i<<": ("<<blankStart<<"x"<<blankStart + blankDuration<<")"<<blk;
1373     }*/
1374
1375     m_isBlocked = false;
1376 }
1377
1378 void Render::mltUpdateClip(ItemInfo info, QDomElement element, Mlt::Producer *prod) {
1379     // TODO: optimize
1380     mltRemoveClip(info.track, info.startPos);
1381     mltInsertClip(info, element, prod);
1382 }
1383
1384
1385 bool Render::mltRemoveClip(int track, GenTime position) {
1386     Mlt::Service service(m_mltProducer->parent().get_service());
1387     if (service.type() != tractor_type) kWarning() << "// TRACTOR PROBLEM";
1388
1389     Mlt::Tractor tractor(service);
1390     Mlt::Producer trackProducer(tractor.track(track));
1391     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1392     int clipIndex = trackPlaylist.get_clip_index_at((int) position.frames(m_fps));
1393
1394     /* // Display playlist info
1395     kDebug()<<"////  BEFORE";
1396     for (int i = 0; i < trackPlaylist.count(); i++) {
1397     int blankStart = trackPlaylist.clip_start(i);
1398     int blankDuration = trackPlaylist.clip_length(i) - 1;
1399     QString blk;
1400     if (trackPlaylist.is_blank(i)) blk = "(blank)";
1401     kDebug()<<"CLIP "<<i<<": ("<<blankStart<<"x"<<blankStart + blankDuration<<")"<<blk;
1402     }*/
1403
1404     if (trackPlaylist.is_blank(clipIndex)) {
1405         kDebug() << "// WARMNING, TRYING TO REMOVE A BLANK: " << clipIndex << ", AT: " << position.frames(25);
1406         return false;
1407     }
1408     m_isBlocked = true;
1409     Mlt::Producer clip(trackPlaylist.get_clip(clipIndex));
1410     trackPlaylist.replace_with_blank(clipIndex);
1411     trackPlaylist.consolidate_blanks(0);
1412     /*if (QString(clip.parent().get("transparency")).toInt() == 1)
1413         mltDeleteTransparency((int) position.frames(m_fps), track, QString(clip.parent().get("id")).toInt());*/
1414
1415     /* // Display playlist info
1416     kDebug()<<"////  AFTER";
1417     for (int i = 0; i < trackPlaylist.count(); i++) {
1418     int blankStart = trackPlaylist.clip_start(i);
1419     int blankDuration = trackPlaylist.clip_length(i) - 1;
1420     QString blk;
1421     if (trackPlaylist.is_blank(i)) blk = "(blank)";
1422     kDebug()<<"CLIP "<<i<<": ("<<blankStart<<"x"<<blankStart + blankDuration<<")"<<blk;
1423     }*/
1424
1425     if (track != 0 && trackPlaylist.count() <= clipIndex) mltCheckLength();
1426     m_isBlocked = false;
1427     return true;
1428 }
1429
1430 int Render::mltGetSpaceLength(const GenTime pos, int track, bool fromBlankStart) {
1431     if (!m_mltProducer) {
1432         kDebug() << "PLAYLIST NOT INITIALISED //////";
1433         return -1;
1434     }
1435     Mlt::Producer parentProd(m_mltProducer->parent());
1436     if (parentProd.get_producer() == NULL) {
1437         kDebug() << "PLAYLIST BROKEN, CANNOT INSERT CLIP //////";
1438         return -1;
1439     }
1440
1441     Mlt::Service service(parentProd.get_service());
1442     Mlt::Tractor tractor(service);
1443     int insertPos = pos.frames(m_fps);
1444
1445     Mlt::Producer trackProducer(tractor.track(track));
1446     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1447     int clipIndex = trackPlaylist.get_clip_index_at(insertPos);
1448     if (!trackPlaylist.is_blank(clipIndex)) return -1;
1449     if (fromBlankStart) return trackPlaylist.clip_length(clipIndex);
1450     return trackPlaylist.clip_length(clipIndex) + trackPlaylist.clip_start(clipIndex) - insertPos;
1451 }
1452
1453
1454 void Render::mltInsertSpace(const GenTime pos, int track, const GenTime duration) {
1455     if (!m_mltProducer) {
1456         kDebug() << "PLAYLIST NOT INITIALISED //////";
1457         return;
1458     }
1459     Mlt::Producer parentProd(m_mltProducer->parent());
1460     if (parentProd.get_producer() == NULL) {
1461         kDebug() << "PLAYLIST BROKEN, CANNOT INSERT CLIP //////";
1462         return;
1463     }
1464
1465     Mlt::Service service(parentProd.get_service());
1466     Mlt::Tractor tractor(service);
1467     mlt_service_lock(service.get_service());
1468     int insertPos = pos.frames(m_fps);
1469     int diff = duration.frames(m_fps);
1470
1471     if (track != -1) {
1472         // insert space in one track only
1473         Mlt::Producer trackProducer(tractor.track(track));
1474         Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1475         int clipIndex = trackPlaylist.get_clip_index_at(insertPos);
1476         if (diff > 0) trackPlaylist.insert_blank(clipIndex, diff - 1);
1477         else {
1478             int position = trackPlaylist.clip_start(clipIndex);
1479             trackPlaylist.remove_region(position + diff, -diff - 1);
1480         }
1481         trackPlaylist.consolidate_blanks(0);
1482
1483         // now move transitions
1484         mlt_service serv = m_mltProducer->parent().get_service();
1485         mlt_service nextservice = mlt_service_get_producer(serv);
1486         mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
1487         QString mlt_type = mlt_properties_get(properties, "mlt_type");
1488         QString resource = mlt_properties_get(properties, "mlt_service");
1489
1490         while (mlt_type == "transition") {
1491             mlt_transition tr = (mlt_transition) nextservice;
1492             int currentTrack = mlt_transition_get_b_track(tr);
1493             int currentIn = (int) mlt_transition_get_in(tr);
1494             int currentOut = (int) mlt_transition_get_out(tr);
1495
1496             if (track == currentTrack && currentOut > insertPos && resource != "mix") {
1497                 mlt_transition_set_in_and_out(tr, currentIn + diff, currentOut + diff);
1498             }
1499             nextservice = mlt_service_producer(nextservice);
1500             if (nextservice == NULL) break;
1501             properties = MLT_SERVICE_PROPERTIES(nextservice);
1502             mlt_type = mlt_properties_get(properties, "mlt_type");
1503             resource = mlt_properties_get(properties, "mlt_service");
1504         }
1505     } else {
1506         int trackNb = tractor.count();
1507         while (trackNb > 1) {
1508             Mlt::Producer trackProducer(tractor.track(trackNb - 1));
1509             Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1510             int clipIndex = trackPlaylist.get_clip_index_at(insertPos);
1511             if (diff > 0) trackPlaylist.insert_blank(clipIndex, diff - 1);
1512             else {
1513                 int position = trackPlaylist.clip_start(clipIndex);
1514                 trackPlaylist.remove_region(position + diff, -diff - 1);
1515             }
1516             trackPlaylist.consolidate_blanks(0);
1517             trackNb--;
1518         }
1519         // now move transitions
1520         mlt_service serv = m_mltProducer->parent().get_service();
1521         mlt_service nextservice = mlt_service_get_producer(serv);
1522         mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
1523         QString mlt_type = mlt_properties_get(properties, "mlt_type");
1524         QString resource = mlt_properties_get(properties, "mlt_service");
1525
1526         while (mlt_type == "transition") {
1527             mlt_transition tr = (mlt_transition) nextservice;
1528             int currentIn = (int) mlt_transition_get_in(tr);
1529             int currentOut = (int) mlt_transition_get_out(tr);
1530
1531             if (currentOut > insertPos && resource != "mix") {
1532                 mlt_transition_set_in_and_out(tr, currentIn + diff, currentOut + diff);
1533             }
1534             nextservice = mlt_service_producer(nextservice);
1535             if (nextservice == NULL) break;
1536             properties = MLT_SERVICE_PROPERTIES(nextservice);
1537             mlt_type = mlt_properties_get(properties, "mlt_type");
1538             resource = mlt_properties_get(properties, "mlt_service");
1539         }
1540     }
1541     mlt_service_unlock(service.get_service());
1542     mltCheckLength();
1543 }
1544
1545 int Render::mltChangeClipSpeed(ItemInfo info, double speed, double oldspeed, Mlt::Producer *prod) {
1546     m_isBlocked = true;
1547     int newLength = 0;
1548     Mlt::Service service(m_mltProducer->parent().get_service());
1549     if (service.type() != tractor_type) kWarning() << "// TRACTOR PROBLEM";
1550     kDebug() << "Changing clip speed, set in and out: " << info.cropStart.frames(m_fps) << " to " << (info.endPos - info.startPos).frames(m_fps) - 1;
1551     Mlt::Tractor tractor(service);
1552     Mlt::Producer trackProducer(tractor.track(info.track));
1553     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1554     int startPos = info.startPos.frames(m_fps);
1555     int clipIndex = trackPlaylist.get_clip_index_at(startPos);
1556     int clipLength = trackPlaylist.clip_length(clipIndex);
1557
1558     Mlt::Producer clip(trackPlaylist.get_clip(clipIndex));
1559     QString serv = clip.parent().get("mlt_service");
1560     QString id = clip.parent().get("id");
1561     kDebug() << "CLIP SERVICE: " << clip.parent().get("mlt_service");
1562     if (serv == "avformat" && speed != 1.0) {
1563         mlt_service_lock(service.get_service());
1564         QString url = clip.parent().get("resource");
1565         url.append("?" + QString::number(speed));
1566         Mlt::Producer *slowprod = m_slowmotionProducers.value(url);
1567         if (!slowprod || slowprod->get_producer() == NULL) {
1568             char *tmp = decodedString(url);
1569             slowprod = new Mlt::Producer(*m_mltProfile, "framebuffer", tmp);
1570             delete[] tmp;
1571             QString producerid = "slowmotion:" + id + ":" + QString::number(speed);
1572             tmp = decodedString(producerid);
1573             slowprod->set("id", tmp);
1574             delete[] tmp;
1575             m_slowmotionProducers.insert(url, slowprod);
1576         }
1577         trackPlaylist.replace_with_blank(clipIndex);
1578         trackPlaylist.consolidate_blanks(0);
1579         // Check that the blank space is long enough for our new duration
1580         clipIndex = trackPlaylist.get_clip_index_at(startPos);
1581         int blankEnd = trackPlaylist.clip_start(clipIndex) + trackPlaylist.clip_length(clipIndex);
1582         Mlt::Producer *cut;
1583         if (clipIndex + 1 < trackPlaylist.count() && (startPos + clipLength / speed > blankEnd)) {
1584             GenTime maxLength = GenTime(blankEnd, m_fps) - info.startPos;
1585             cut = slowprod->cut((int)(info.cropStart.frames(m_fps) / speed), (int)(info.cropStart.frames(m_fps) / speed + maxLength.frames(m_fps) - 1));
1586         } else cut = slowprod->cut((int)(info.cropStart.frames(m_fps) / speed), (int)((info.cropStart.frames(m_fps) + clipLength) / speed - 1));
1587         trackPlaylist.insert_at(startPos, *cut, 1);
1588         clipIndex = trackPlaylist.get_clip_index_at(startPos);
1589         newLength = trackPlaylist.clip_length(clipIndex);
1590         mlt_service_unlock(service.get_service());
1591     } else if (speed == 1.0) {
1592         mlt_service_lock(service.get_service());
1593
1594         trackPlaylist.replace_with_blank(clipIndex);
1595         trackPlaylist.consolidate_blanks(0);
1596
1597         // Check that the blank space is long enough for our new duration
1598         clipIndex = trackPlaylist.get_clip_index_at(startPos);
1599         int blankEnd = trackPlaylist.clip_start(clipIndex) + trackPlaylist.clip_length(clipIndex);
1600
1601         Mlt::Producer *cut;
1602         GenTime oldDuration = GenTime(clipLength, m_fps);
1603         GenTime newDuration = oldDuration * oldspeed;
1604         if (clipIndex + 1 < trackPlaylist.count() && (info.startPos + newDuration).frames(m_fps) > blankEnd) {
1605             GenTime maxLength = GenTime(blankEnd, m_fps) - info.startPos;
1606             cut = prod->cut((int)(info.cropStart.frames(m_fps)), (int)(info.cropStart.frames(m_fps) + maxLength.frames(m_fps) - 1));
1607         } else cut = prod->cut((int)(info.cropStart.frames(m_fps)), (int)((info.cropStart + newDuration).frames(m_fps)) - 1);
1608         trackPlaylist.insert_at(startPos, *cut, 1);
1609         clipIndex = trackPlaylist.get_clip_index_at(startPos);
1610         newLength = trackPlaylist.clip_length(clipIndex);
1611         mlt_service_unlock(service.get_service());
1612
1613     } else if (serv == "framebuffer") {
1614         mlt_service_lock(service.get_service());
1615         QString url = clip.parent().get("resource");
1616         url = url.section("?", 0, 0);
1617         url.append("?" + QString::number(speed));
1618         Mlt::Producer *slowprod = m_slowmotionProducers.value(url);
1619         if (!slowprod || slowprod->get_producer() == NULL) {
1620             char *tmp = decodedString(url);
1621             slowprod = new Mlt::Producer(*m_mltProfile, "framebuffer", tmp);
1622             delete[] tmp;
1623             QString producerid = "slowmotion:" + id.section(":", 1, 1) + ":" + QString::number(speed);
1624             tmp = decodedString(producerid);
1625             slowprod->set("id", tmp);
1626             delete[] tmp;
1627             m_slowmotionProducers.insert(url, slowprod);
1628         }
1629         trackPlaylist.replace_with_blank(clipIndex);
1630         trackPlaylist.consolidate_blanks(0);
1631
1632         GenTime oldDuration = GenTime(clipLength, m_fps);
1633         GenTime newDuration = oldDuration * oldspeed / speed;
1634
1635         // Check that the blank space is long enough for our new duration
1636         clipIndex = trackPlaylist.get_clip_index_at(startPos);
1637         int blankEnd = trackPlaylist.clip_start(clipIndex) + trackPlaylist.clip_length(clipIndex);
1638
1639         Mlt::Producer *cut;
1640         if (clipIndex + 1 < trackPlaylist.count() && (info.startPos + newDuration).frames(m_fps) > blankEnd) {
1641             GenTime maxLength = GenTime(blankEnd, m_fps) - info.startPos;
1642             cut = slowprod->cut((int)(info.cropStart.frames(m_fps)), (int)(info.cropStart.frames(m_fps) + maxLength.frames(m_fps) - 1));
1643         } else cut = slowprod->cut((int)(info.cropStart.frames(m_fps) / speed), (int)((info.cropStart / speed + newDuration).frames(m_fps) - 1));
1644
1645         trackPlaylist.insert_at(startPos, *cut, 1);
1646         clipIndex = trackPlaylist.get_clip_index_at(startPos);
1647         newLength = trackPlaylist.clip_length(clipIndex);
1648
1649         mlt_service_unlock(service.get_service());
1650     }
1651     if (clipIndex + 1 == trackPlaylist.count()) mltCheckLength();
1652     m_isBlocked = false;
1653     return newLength;
1654 }
1655
1656 bool Render::mltRemoveEffect(int track, GenTime position, QString index, bool doRefresh) {
1657
1658     Mlt::Service service(m_mltProducer->parent().get_service());
1659     bool success = false;
1660     Mlt::Tractor tractor(service);
1661     Mlt::Producer trackProducer(tractor.track(track));
1662     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1663     //int clipIndex = trackPlaylist.get_clip_index_at(position.frames(m_fps));
1664     Mlt::Producer *clip = trackPlaylist.get_clip_at((int) position.frames(m_fps));
1665     if (!clip) {
1666         kDebug() << " / / / CANNOT FIND CLIP TO REMOVE EFFECT";
1667         return success;
1668     }
1669     Mlt::Service clipService(clip->get_service());
1670 //    if (tag.startsWith("ladspa")) tag = "ladspa";
1671     m_isBlocked = true;
1672     int ct = 0;
1673     Mlt::Filter *filter = clipService.filter(ct);
1674     while (filter) {
1675         if ((index == "-1" && filter->get("kdenlive_id") != "")  || filter->get("kdenlive_ix") == index) {// && filter->get("kdenlive_id") == id) {
1676             if (clipService.detach(*filter) == 0) success = true;
1677             kDebug() << " / / / DLEETED EFFECT: " << ct;
1678         } else ct++;
1679         filter = clipService.filter(ct);
1680     }
1681     m_isBlocked = false;
1682     if (doRefresh) refresh();
1683     return success;
1684 }
1685
1686
1687 bool Render::mltAddEffect(int track, GenTime position, QHash <QString, QString> args, bool doRefresh) {
1688
1689     Mlt::Service service(m_mltProducer->parent().get_service());
1690
1691     Mlt::Tractor tractor(service);
1692     Mlt::Producer trackProducer(tractor.track(track));
1693     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1694
1695     Mlt::Producer *clip = trackPlaylist.get_clip_at((int) position.frames(m_fps));
1696     if (!clip) {
1697         return false;
1698     }
1699     Mlt::Service clipService(clip->get_service());
1700     m_isBlocked = true;
1701
1702     // temporarily remove all effects after insert point
1703     QList <Mlt::Filter *> filtersList;
1704     const int filter_ix = QString(args.value("kdenlive_ix")).toInt();
1705     int ct = 0;
1706     Mlt::Filter *filter = clipService.filter(ct);
1707     while (filter) {
1708         if (QString(filter->get("kdenlive_ix")).toInt() > filter_ix) {
1709             filtersList.append(filter);
1710             clipService.detach(*filter);
1711         } else ct++;
1712         filter = clipService.filter(ct);
1713     }
1714
1715     // create filter
1716     QString tag = args.value("tag");
1717     kDebug() << " / / INSERTING EFFECT: " << tag;
1718     if (tag.startsWith("ladspa")) tag = "ladspa";
1719     char *filterTag = decodedString(tag);
1720     char *filterId = decodedString(args.value("id"));
1721     QHash<QString, QString>::Iterator it;
1722     QString kfr = args.value("keyframes");
1723
1724     if (!kfr.isEmpty()) {
1725         QStringList keyFrames = kfr.split(";", QString::SkipEmptyParts);
1726         kDebug() << "// ADDING KEYFRAME EFFECT: " << args.value("keyframes");
1727         char *starttag = decodedString(args.value("starttag", "start"));
1728         char *endtag = decodedString(args.value("endtag", "end"));
1729         kDebug() << "// ADDING KEYFRAME TAGS: " << starttag << ", " << endtag;
1730         int duration = clip->get_playtime();
1731         double max = args.value("max").toDouble();
1732         double min = args.value("min").toDouble();
1733         double factor = args.value("factor", "1").toDouble();
1734         args.remove("starttag");
1735         args.remove("endtag");
1736         args.remove("keyframes");
1737         args.remove("min");
1738         args.remove("max");
1739         args.remove("factor");
1740         int offset = 0;
1741         for (int i = 0; i < keyFrames.size() - 1; ++i) {
1742             Mlt::Filter *filter = new Mlt::Filter(*m_mltProfile, filterTag);
1743             if (filter && filter->is_valid()) {
1744                 filter->set("kdenlive_id", filterId);
1745                 int x1 = keyFrames.at(i).section(":", 0, 0).toInt() + offset;
1746                 double y1 = keyFrames.at(i).section(":", 1, 1).toDouble();
1747                 int x2 = keyFrames.at(i + 1).section(":", 0, 0).toInt();
1748                 double y2 = keyFrames.at(i + 1).section(":", 1, 1).toDouble();
1749                 if (x2 == -1) x2 = duration;
1750                 for (it = args.begin(); it != args.end(); ++it) {
1751                     char *name = decodedString(it.key());
1752                     char *value = decodedString(it.value());
1753                     filter->set(name, value);
1754                     delete[] name;
1755                     delete[] value;
1756                 }
1757
1758                 filter->set("in", x1);
1759                 filter->set("out", x2);
1760                 //kDebug() << "// ADDING KEYFRAME vals: " << min<<" / "<<max<<", "<<y1<<", factor: "<<factor;
1761                 filter->set(starttag, QString::number((min + y1) / factor).toUtf8().data());
1762                 filter->set(endtag, QString::number((min + y2) / factor).toUtf8().data());
1763                 clipService.attach(*filter);
1764                 offset = 1;
1765             }
1766         }
1767         delete[] starttag;
1768         delete[] endtag;
1769     } else {
1770         Mlt::Filter *filter = new Mlt::Filter(*m_mltProfile, filterTag);
1771         if (filter && filter->is_valid())
1772             filter->set("kdenlive_id", filterId);
1773         else {
1774             kDebug() << "filter is NULL";
1775             m_isBlocked = false;
1776             return false;
1777         }
1778
1779         for (it = args.begin(); it != args.end(); ++it) {
1780             char *name = decodedString(it.key());
1781             char *value = decodedString(it.value());
1782             filter->set(name, value);
1783             delete[] name;
1784             delete[] value;
1785         }
1786         // attach filter to the clip
1787         clipService.attach(*filter);
1788     }
1789     delete[] filterId;
1790     delete[] filterTag;
1791
1792     // re-add following filters
1793     for (int i = 0; i < filtersList.count(); i++) {
1794         clipService.attach(*(filtersList.at(i)));
1795     }
1796
1797     m_isBlocked = false;
1798     if (doRefresh) refresh();
1799     return true;
1800 }
1801
1802 bool Render::mltEditEffect(int track, GenTime position, QHash <QString, QString> args) {
1803     QString index = args.value("kdenlive_ix");
1804     QString tag =  args.value("tag");
1805     QHash<QString, QString>::Iterator it = args.begin();
1806     if (!args.value("keyframes").isEmpty() || /*it.key().startsWith("#") || */tag.startsWith("ladspa") || tag == "sox" || tag == "autotrack_rectangle") {
1807         // This is a keyframe effect, to edit it, we remove it and re-add it.
1808         mltRemoveEffect(track, position, index);
1809         bool success = mltAddEffect(track, position, args);
1810         return success;
1811     }
1812
1813     // create filter
1814     Mlt::Service service(m_mltProducer->parent().get_service());
1815
1816     Mlt::Tractor tractor(service);
1817     Mlt::Producer trackProducer(tractor.track(track));
1818     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1819     //int clipIndex = trackPlaylist.get_clip_index_at(position.frames(m_fps));
1820     Mlt::Producer *clip = trackPlaylist.get_clip_at((int) position.frames(m_fps));
1821     if (!clip) {
1822         kDebug() << "WARINIG, CANNOT FIND CLIP ON track: " << track << ", AT POS: " << position.frames(m_fps);
1823         return false;
1824     }
1825     Mlt::Service clipService(clip->get_service());
1826     m_isBlocked = true;
1827     int ct = 0;
1828     Mlt::Filter *filter = clipService.filter(ct);
1829     while (filter) {
1830         if (filter->get("kdenlive_ix") == index) {
1831             break;
1832         }
1833         ct++;
1834         filter = clipService.filter(ct);
1835     }
1836
1837     if (!filter) {
1838         kDebug() << "WARINIG, FILTER FOR EDITING NOT FOUND, ADDING IT!!!!!";
1839         // filter was not found, it was probably a disabled filter, so add it to the correct place...
1840         int ct = 0;
1841         filter = clipService.filter(ct);
1842         QList <Mlt::Filter *> filtersList;
1843         while (filter) {
1844             if (QString(filter->get("kdenlive_ix")).toInt() > index.toInt()) {
1845                 filtersList.append(filter);
1846                 clipService.detach(*filter);
1847             } else ct++;
1848             filter = clipService.filter(ct);
1849         }
1850         bool success = mltAddEffect(track, position, args);
1851
1852         for (int i = 0; i < filtersList.count(); i++) {
1853             clipService.attach(*(filtersList.at(i)));
1854         }
1855
1856         m_isBlocked = false;
1857         return success;
1858     }
1859
1860     for (it = args.begin(); it != args.end(); ++it) {
1861         kDebug() << " / / EDITING EFFECT ARGS: " << it.key() << ": " << it.value();
1862         char *name = decodedString(it.key());
1863         char *value = decodedString(it.value());
1864         filter->set(name, value);
1865         delete[] name;
1866         delete[] value;
1867     }
1868     m_isBlocked = false;
1869     refresh();
1870     return true;
1871 }
1872
1873 void Render::mltMoveEffect(int track, GenTime position, int oldPos, int newPos) {
1874
1875     kDebug() << "MOVING EFFECT FROM " << oldPos << ", TO: " << newPos;
1876     Mlt::Service service(m_mltProducer->parent().get_service());
1877
1878     Mlt::Tractor tractor(service);
1879     Mlt::Producer trackProducer(tractor.track(track));
1880     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1881     //int clipIndex = trackPlaylist.get_clip_index_at(position.frames(m_fps));
1882     Mlt::Producer *clip = trackPlaylist.get_clip_at((int) position.frames(m_fps));
1883     if (!clip) {
1884         kDebug() << "WARINIG, CANNOT FIND CLIP ON track: " << track << ", AT POS: " << position.frames(m_fps);
1885         return;
1886     }
1887     Mlt::Service clipService(clip->get_service());
1888     m_isBlocked = true;
1889     int ct = 0;
1890     QList <Mlt::Filter *> filtersList;
1891     Mlt::Filter *filter = clipService.filter(ct);
1892     bool found = false;
1893     if (newPos > oldPos) {
1894         while (filter) {
1895             if (!found && QString(filter->get("kdenlive_ix")).toInt() == oldPos) {
1896                 filter->set("kdenlive_ix", newPos);
1897                 filtersList.append(filter);
1898                 clipService.detach(*filter);
1899                 filter = clipService.filter(ct);
1900                 while (filter && QString(filter->get("kdenlive_ix")).toInt() <= newPos) {
1901                     filter->set("kdenlive_ix", QString(filter->get("kdenlive_ix")).toInt() - 1);
1902                     ct++;
1903                     filter = clipService.filter(ct);
1904                 }
1905                 found = true;
1906             }
1907             if (filter && QString(filter->get("kdenlive_ix")).toInt() > newPos) {
1908                 filtersList.append(filter);
1909                 clipService.detach(*filter);
1910             } else ct++;
1911             filter = clipService.filter(ct);
1912         }
1913     } else {
1914         while (filter) {
1915             if (QString(filter->get("kdenlive_ix")).toInt() == oldPos) {
1916                 filter->set("kdenlive_ix", newPos);
1917                 filtersList.append(filter);
1918                 clipService.detach(*filter);
1919             } else ct++;
1920             filter = clipService.filter(ct);
1921         }
1922
1923         ct = 0;
1924         filter = clipService.filter(ct);
1925         while (filter) {
1926             int pos = QString(filter->get("kdenlive_ix")).toInt();
1927             if (pos >= newPos) {
1928                 if (pos < oldPos) filter->set("kdenlive_ix", pos + 1);
1929                 filtersList.append(filter);
1930                 clipService.detach(*filter);
1931             } else ct++;
1932             filter = clipService.filter(ct);
1933         }
1934     }
1935
1936     for (int i = 0; i < filtersList.count(); i++) {
1937         clipService.attach(*(filtersList.at(i)));
1938     }
1939
1940     m_isBlocked = false;
1941     refresh();
1942 }
1943
1944 bool Render::mltResizeClipEnd(ItemInfo info, GenTime clipDuration) {
1945     m_isBlocked = true;
1946
1947     Mlt::Service service(m_mltProducer->parent().get_service());
1948
1949     Mlt::Tractor tractor(service);
1950     Mlt::Producer trackProducer(tractor.track(info.track));
1951     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
1952
1953     /* // Display playlist info
1954     kDebug()<<"////////////  BEFORE RESIZE";
1955     for (int i = 0; i < trackPlaylist.count(); i++) {
1956     int blankStart = trackPlaylist.clip_start(i);
1957     int blankDuration = trackPlaylist.clip_length(i) - 1;
1958     QString blk;
1959     if (trackPlaylist.is_blank(i)) blk = "(blank)";
1960     kDebug()<<"CLIP "<<i<<": ("<<blankStart<<"x"<<blankStart + blankDuration<<")"<<blk;
1961     }*/
1962
1963     if (trackPlaylist.is_blank_at((int) info.startPos.frames(m_fps))) {
1964         kDebug() << "////////  ERROR RSIZING BLANK CLIP!!!!!!!!!!!";
1965         m_isBlocked = false;
1966         return false;
1967     }
1968     int clipIndex = trackPlaylist.get_clip_index_at((int) info.startPos.frames(m_fps));
1969     kDebug() << "// SELECTED CLIP START: " << trackPlaylist.clip_start(clipIndex);
1970     Mlt::Producer *clip = trackPlaylist.get_clip(clipIndex);
1971     int previousStart = clip->get_in();
1972     int previousDuration = trackPlaylist.clip_length(clipIndex) - 1;
1973     int newDuration = (int) clipDuration.frames(m_fps) - 1;
1974     trackPlaylist.resize_clip(clipIndex, previousStart, newDuration + previousStart);
1975     //trackPlaylist.consolidate_blanks(0);
1976     // skip to next clip
1977     clipIndex++;
1978     int diff = newDuration - previousDuration;
1979     kDebug() << "////////  RESIZE CLIP: " << clipIndex << "( pos: " << info.startPos.frames(25) << "), DIFF: " << diff << ", CURRENT DUR: " << previousDuration << ", NEW DUR: " << newDuration;
1980     if (diff > 0) {
1981         // clip was made longer, trim next blank if there is one.
1982         if (trackPlaylist.is_blank(clipIndex)) {
1983             int blankStart = trackPlaylist.clip_start(clipIndex);
1984             int blankDuration = trackPlaylist.clip_length(clipIndex) - 1;
1985             if (diff - blankDuration == 1) {
1986                 trackPlaylist.remove(clipIndex);
1987             } else trackPlaylist.resize_clip(clipIndex, blankStart, blankStart + blankDuration - diff);
1988         } else {
1989             kDebug() << "/// RESIZE ERROR, NXT CLIP IS NOT BLK: " << clipIndex;
1990         }
1991     } else trackPlaylist.insert_blank(clipIndex, 0 - diff - 1);
1992
1993     trackPlaylist.consolidate_blanks(0);
1994
1995
1996     if (info.track != 0 && clipIndex == trackPlaylist.count()) mltCheckLength();
1997     /*if (QString(clip->parent().get("transparency")).toInt() == 1) {
1998         //mltResizeTransparency(previousStart, previousStart, previousStart + newDuration, track, QString(clip->parent().get("id")).toInt());
1999         mltDeleteTransparency(info.startPos.frames(m_fps), info.track, QString(clip->parent().get("id")).toInt());
2000         ItemInfo transpinfo;
2001         transpinfo.startPos = info.startPos;
2002         transpinfo.endPos = info.startPos + clipDuration;
2003         transpinfo.track = info.track;
2004         mltAddClipTransparency(transpinfo, info.track - 1, QString(clip->parent().get("id")).toInt());
2005     }*/
2006     m_isBlocked = false;
2007     return true;
2008 }
2009
2010 void Render::mltChangeTrackState(int track, bool mute, bool blind) {
2011     Mlt::Service service(m_mltProducer->parent().get_service());
2012     Mlt::Tractor tractor(service);
2013     Mlt::Producer trackProducer(tractor.track(track));
2014
2015     if (mute) {
2016         if (blind) trackProducer.set("hide", 3);
2017         else trackProducer.set("hide", 2);
2018     } else if (blind) {
2019         trackProducer.set("hide", 1);
2020     } else {
2021         trackProducer.set("hide", 0);
2022     }
2023     tractor.multitrack()->refresh();
2024     tractor.refresh();
2025     refresh();
2026 }
2027
2028 bool Render::mltResizeClipStart(ItemInfo info, GenTime diff) {
2029     //kDebug() << "////////  RSIZING CLIP from: "<<info.startPos.frames(25)<<" to "<<diff.frames(25);
2030     Mlt::Service service(m_mltProducer->parent().get_service());
2031     int moveFrame = (int) diff.frames(m_fps);
2032     Mlt::Tractor tractor(service);
2033     Mlt::Producer trackProducer(tractor.track(info.track));
2034     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2035     if (trackPlaylist.is_blank_at(info.startPos.frames(m_fps))) {
2036         kDebug() << "////////  ERROR RSIZING BLANK CLIP!!!!!!!!!!!";
2037         return false;
2038     }
2039     mlt_service_lock(service.get_service());
2040     int clipIndex = trackPlaylist.get_clip_index_at(info.startPos.frames(m_fps));
2041     /*int previousStart = trackPlaylist.clip_start(clipIndex);
2042     int previousDuration = trackPlaylist.clip_length(clipIndex) - 1;*/
2043     //kDebug() << " ** RESIZING CLIP START:" << clipIndex << " on track:" << track << ", mid pos: " << pos.frames(25) << ", moving: " << moveFrame << ", in: " << in.frames(25) << ", out: " << out.frames(25);
2044     Mlt::Producer *clip = trackPlaylist.get_clip(clipIndex);
2045     if (clip == NULL) {
2046         kDebug() << "////////  ERROR RSIZING NULL CLIP!!!!!!!!!!!";
2047         mlt_service_unlock(service.get_service());
2048         return false;
2049     }
2050     //m_mltConsumer->set("refresh", 0);
2051     int previousStart = clip->get_in();
2052     int previousDuration = trackPlaylist.clip_length(clipIndex) - 1;
2053     m_isBlocked = true;
2054     kDebug() << "RESIZE, old start: " << previousStart << ", PREV DUR: " << previousDuration << ", DIFF: " << moveFrame;
2055     trackPlaylist.resize_clip(clipIndex, previousStart + moveFrame, previousStart + previousDuration);
2056     if (moveFrame > 0) trackPlaylist.insert_blank(clipIndex, moveFrame - 1);
2057     else {
2058         //int midpos = info.startPos.frames(m_fps) + moveFrame - 1;
2059         int blankIndex = clipIndex - 1;
2060         int blankLength = trackPlaylist.clip_length(blankIndex);
2061         kDebug() << " + resizing blank length " <<  blankLength << ", SIZE DIFF: " << moveFrame;
2062         if (! trackPlaylist.is_blank(blankIndex)) {
2063             kDebug() << "WARNING, CLIP TO RESIZE IS NOT BLANK";
2064         }
2065         if (blankLength + moveFrame == 0) trackPlaylist.remove(blankIndex);
2066         else trackPlaylist.resize_clip(blankIndex, 0, blankLength + moveFrame - 1);
2067     }
2068     trackPlaylist.consolidate_blanks(0);
2069     /*if (QString(clip->parent().get("transparency")).toInt() == 1) {
2070         //mltResizeTransparency(previousStart, (int) moveEnd.frames(m_fps), (int) (moveEnd + out - in).frames(m_fps), track, QString(clip->parent().get("id")).toInt());
2071         mltDeleteTransparency(info.startPos.frames(m_fps), info.track, QString(clip->parent().get("id")).toInt());
2072         ItemInfo transpinfo;
2073         transpinfo.startPos = info.startPos + diff;
2074         transpinfo.endPos = info.startPos + diff + (info.endPos - info.startPos);
2075         transpinfo.track = info.track;
2076         mltAddClipTransparency(transpinfo, info.track - 1, QString(clip->parent().get("id")).toInt());
2077     }*/
2078     m_isBlocked = false;
2079     //m_mltConsumer->set("refresh", 1);
2080     mlt_service_unlock(service.get_service());
2081     return true;
2082 }
2083
2084 bool Render::mltMoveClip(int startTrack, int endTrack, GenTime moveStart, GenTime moveEnd, Mlt::Producer *prod) {
2085     return mltMoveClip(startTrack, endTrack, (int) moveStart.frames(m_fps), (int) moveEnd.frames(m_fps), prod);
2086 }
2087
2088
2089 void Render::mltUpdateClipProducer(int track, int pos, Mlt::Producer *prod) {
2090     kDebug() << "NEW PROD ID: " << prod->get("id");
2091     m_mltConsumer->set("refresh", 0);
2092     kDebug() << "// TRYING TO UPDATE CLIP at: " << pos << ", TK: " << track;
2093     mlt_service_lock(m_mltConsumer->get_service());
2094     Mlt::Service service(m_mltProducer->parent().get_service());
2095     if (service.type() != tractor_type) kWarning() << "// TRACTOR PROBLEM";
2096
2097     Mlt::Tractor tractor(service);
2098     Mlt::Producer trackProducer(tractor.track(track));
2099     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2100     int clipIndex = trackPlaylist.get_clip_index_at(pos + 1);
2101     Mlt::Producer clipProducer(trackPlaylist.replace_with_blank(clipIndex));
2102     if (clipProducer.is_blank()) {
2103         kDebug() << "// ERROR UPDATING CLIP PROD";
2104         mlt_service_unlock(m_mltConsumer->get_service());
2105         m_isBlocked = false;
2106         return;
2107     }
2108     Mlt::Producer *clip = prod->cut(clipProducer.get_in(), clipProducer.get_out());
2109
2110     // move all effects to the correct producer
2111     Mlt::Service clipService(clipProducer.get_service());
2112     Mlt::Service newClipService(clip->get_service());
2113
2114     int ct = 0;
2115     Mlt::Filter *filter = clipService.filter(ct);
2116     while (filter) {
2117         if (filter->get("kdenlive_ix") != 0) {
2118             clipService.detach(*filter);
2119             newClipService.attach(*filter);
2120         } else ct++;
2121         filter = clipService.filter(ct);
2122     }
2123
2124     trackPlaylist.insert_at(pos, clip, 1);
2125     mlt_service_unlock(m_mltConsumer->get_service());
2126     m_isBlocked = false;
2127 }
2128
2129 bool Render::mltMoveClip(int startTrack, int endTrack, int moveStart, int moveEnd, Mlt::Producer *prod) {
2130     m_isBlocked = true;
2131
2132     m_mltConsumer->set("refresh", 0);
2133     mlt_service_lock(m_mltConsumer->get_service());
2134     Mlt::Service service(m_mltProducer->parent().get_service());
2135     if (service.type() != tractor_type) kWarning() << "// TRACTOR PROBLEM";
2136
2137     Mlt::Tractor tractor(service);
2138     Mlt::Producer trackProducer(tractor.track(startTrack));
2139     Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2140     int clipIndex = trackPlaylist.get_clip_index_at(moveStart + 1);
2141     kDebug() << "//////  LOOKING FOR CLIP TO MOVE, INDEX: " << clipIndex;
2142     bool checkLength = false;
2143     if (endTrack == startTrack) {
2144         //mlt_service_lock(service.get_service());
2145         Mlt::Producer clipProducer(trackPlaylist.replace_with_blank(clipIndex));
2146         if (!trackPlaylist.is_blank_at(moveEnd) || clipProducer.is_blank()) {
2147             // error, destination is not empty
2148             //int ix = trackPlaylist.get_clip_index_at(moveEnd);
2149             kDebug() << "// ERROR MOVING CLIP TO : " << moveEnd;
2150             mlt_service_unlock(m_mltConsumer->get_service());
2151             m_isBlocked = false;
2152             return false;
2153         } else {
2154             trackPlaylist.consolidate_blanks(0);
2155             int newIndex = trackPlaylist.insert_at(moveEnd, clipProducer, 1);
2156             /*if (QString(clipProducer.parent().get("transparency")).toInt() == 1) {
2157             mltMoveTransparency(moveStart, moveEnd, startTrack, endTrack, QString(clipProducer.parent().get("id")).toInt());
2158             }*/
2159             if (newIndex + 1 == trackPlaylist.count()) checkLength = true;
2160         }
2161         //mlt_service_unlock(service.get_service());
2162     } else {
2163         Mlt::Producer destTrackProducer(tractor.track(endTrack));
2164         Mlt::Playlist destTrackPlaylist((mlt_playlist) destTrackProducer.get_service());
2165         if (!destTrackPlaylist.is_blank_at(moveEnd)) {
2166             // error, destination is not empty
2167             mlt_service_unlock(m_mltConsumer->get_service());
2168             m_isBlocked = false;
2169             return false;
2170         } else {
2171             Mlt::Producer clipProducer(trackPlaylist.replace_with_blank(clipIndex));
2172             if (clipProducer.is_blank()) {
2173                 // error, destination is not empty
2174                 //int ix = trackPlaylist.get_clip_index_at(moveEnd);
2175                 kDebug() << "// ERROR MOVING CLIP TO : " << moveEnd;
2176                 mlt_service_unlock(m_mltConsumer->get_service());
2177                 m_isBlocked = false;
2178                 return false;
2179             }
2180             trackPlaylist.consolidate_blanks(0);
2181             destTrackPlaylist.consolidate_blanks(1);
2182             Mlt::Producer *clip;
2183             // check if we are moving a slowmotion producer
2184             QString serv = clipProducer.parent().get("mlt_service");
2185             if (serv == "framebuffer") {
2186                 clip = &clipProducer;
2187             } else clip = prod->cut(clipProducer.get_in(), clipProducer.get_out());
2188
2189             // move all effects to the correct producer
2190             Mlt::Service clipService(clipProducer.get_service());
2191             Mlt::Service newClipService(clip->get_service());
2192
2193             int ct = 0;
2194             Mlt::Filter *filter = clipService.filter(ct);
2195             while (filter) {
2196                 if (filter->get("kdenlive_ix") != 0) {
2197                     clipService.detach(*filter);
2198                     newClipService.attach(*filter);
2199                 } else ct++;
2200                 filter = clipService.filter(ct);
2201             }
2202
2203             int newIndex = destTrackPlaylist.insert_at(moveEnd, clip, 1);
2204             destTrackPlaylist.consolidate_blanks(0);
2205             /*if (QString(clipProducer.parent().get("transparency")).toInt() == 1) {
2206                 kDebug() << "//////// moving clip transparency";
2207                 mltMoveTransparency(moveStart, moveEnd, startTrack, endTrack, QString(clipProducer.parent().get("id")).toInt());
2208             }*/
2209             if (clipIndex > trackPlaylist.count()) checkLength = true;
2210             else if (newIndex + 1 == destTrackPlaylist.count()) checkLength = true;
2211         }
2212     }
2213
2214     if (checkLength) mltCheckLength();
2215     mlt_service_unlock(m_mltConsumer->get_service());
2216     m_isBlocked = false;
2217     m_mltConsumer->set("refresh", 1);
2218     return true;
2219 }
2220
2221 void Render::mltMoveTransition(QString type, int startTrack, int newTrack, int newTransitionTrack, GenTime oldIn, GenTime oldOut, GenTime newIn, GenTime newOut) {
2222     Mlt::Service service(m_mltProducer->parent().get_service());
2223     Mlt::Tractor tractor(service);
2224     Mlt::Field *field = tractor.field();
2225
2226     mlt_service_lock(service.get_service());
2227     m_mltConsumer->set("refresh", 0);
2228     m_isBlocked = true;
2229
2230     mlt_service serv = m_mltProducer->parent().get_service();
2231     mlt_service nextservice = mlt_service_get_producer(serv);
2232     mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
2233     QString mlt_type = mlt_properties_get(properties, "mlt_type");
2234     QString resource = mlt_properties_get(properties, "mlt_service");
2235     int old_pos = (int)(oldIn.frames(m_fps) + oldOut.frames(m_fps)) / 2;
2236
2237     int new_in = (int)newIn.frames(m_fps);
2238     int new_out = (int)newOut.frames(m_fps) - 1;
2239
2240     while (mlt_type == "transition") {
2241         mlt_transition tr = (mlt_transition) nextservice;
2242         int currentTrack = mlt_transition_get_b_track(tr);
2243         int currentIn = (int) mlt_transition_get_in(tr);
2244         int currentOut = (int) mlt_transition_get_out(tr);
2245
2246         if (resource == type && startTrack == currentTrack && currentIn <= old_pos && currentOut >= old_pos) {
2247             mlt_transition_set_in_and_out(tr, new_in, new_out);
2248             if (newTrack - startTrack != 0) {
2249                 kDebug() << "///// TRANSITION CHANGE TRACK. CUrrent (b): " << currentTrack << "x" << mlt_transition_get_a_track(tr) << ", NEw: " << newTrack << "x" << newTransitionTrack;
2250
2251                 mlt_properties properties = MLT_TRANSITION_PROPERTIES(tr);
2252                 mlt_properties_set_int(properties, "a_track", newTransitionTrack);
2253                 mlt_properties_set_int(properties, "b_track", newTrack);
2254                 //kDebug() << "set new start & end :" << new_in << new_out<< "TR OFFSET: "<<trackOffset<<", TRACKS: "<<mlt_transition_get_a_track(tr)<<"x"<<mlt_transition_get_b_track(tr);
2255             }
2256             break;
2257         }
2258         nextservice = mlt_service_producer(nextservice);
2259         if (nextservice == NULL) break;
2260         properties = MLT_SERVICE_PROPERTIES(nextservice);
2261         mlt_type = mlt_properties_get(properties, "mlt_type");
2262         resource = mlt_properties_get(properties, "mlt_service");
2263     }
2264     m_isBlocked = false;
2265     mlt_service_unlock(service.get_service());
2266     m_mltConsumer->set("refresh", 1);
2267 }
2268
2269 void Render::mltUpdateTransition(QString oldTag, QString tag, int a_track, int b_track, GenTime in, GenTime out, QDomElement xml) {
2270     // kDebug() << "update transition"  << tag << " at pos " << in.frames(25);
2271     if (oldTag == tag) mltUpdateTransitionParams(tag, a_track, b_track, in, out, xml);
2272     else {
2273         mltDeleteTransition(oldTag, a_track, b_track, in, out, xml, false);
2274         mltAddTransition(tag, a_track, b_track, in, out, xml);
2275     }
2276     //mltSavePlaylist();
2277 }
2278
2279 void Render::mltUpdateTransitionParams(QString type, int a_track, int b_track, GenTime in, GenTime out, QDomElement xml) {
2280     m_isBlocked = true;
2281     Mlt::Service service(m_mltProducer->parent().get_service());
2282     Mlt::Tractor tractor(service);
2283     Mlt::Field *field = tractor.field();
2284
2285     //m_mltConsumer->set("refresh", 0);
2286     mlt_service serv = m_mltProducer->parent().get_service();
2287
2288     mlt_service nextservice = mlt_service_get_producer(serv);
2289     mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
2290     QString mlt_type = mlt_properties_get(properties, "mlt_type");
2291     QString resource = mlt_properties_get(properties, "mlt_service");
2292     int in_pos = (int) in.frames(m_fps);
2293     int out_pos = (int) out.frames(m_fps) - 1;
2294
2295     while (mlt_type == "transition") {
2296         mlt_transition tr = (mlt_transition) nextservice;
2297         int currentTrack = mlt_transition_get_b_track(tr);
2298         int currentBTrack = mlt_transition_get_a_track(tr);
2299         int currentIn = (int) mlt_transition_get_in(tr);
2300         int currentOut = (int) mlt_transition_get_out(tr);
2301
2302         // kDebug()<<"Looking for transition : " << currentIn <<"x"<<currentOut<< ", OLD oNE: "<<in_pos<<"x"<<out_pos;
2303
2304         if (resource == type && b_track == currentTrack && currentIn == in_pos && currentOut == out_pos) {
2305             QMap<QString, QString> map = mltGetTransitionParamsFromXml(xml);
2306             QMap<QString, QString>::Iterator it;
2307             QString key;
2308             mlt_properties transproperties = MLT_TRANSITION_PROPERTIES(tr);
2309             mlt_properties_set_int(transproperties, "force_track", xml.attribute("force_track").toInt());
2310             if (currentBTrack != a_track) {
2311                 mlt_properties_set_int(properties, "a_track", a_track);
2312             }
2313             for (it = map.begin(); it != map.end(); ++it) {
2314                 key = it.key();
2315                 char *name = decodedString(key);
2316                 char *value = decodedString(it.value());
2317                 mlt_properties_set(transproperties, name, value);
2318                 kDebug() << " ------  UPDATING TRANS PARAM: " << name << ": " << value;
2319                 //filter->set("kdenlive_id", id);
2320                 delete[] name;
2321                 delete[] value;
2322             }
2323             break;
2324         }
2325         nextservice = mlt_service_producer(nextservice);
2326         if (nextservice == NULL) break;
2327         properties = MLT_SERVICE_PROPERTIES(nextservice);
2328         mlt_type = mlt_properties_get(properties, "mlt_type");
2329         resource = mlt_properties_get(properties, "mlt_service");
2330     }
2331     m_isBlocked = false;
2332     m_mltConsumer->set("refresh", 1);
2333 }
2334
2335 void Render::mltDeleteTransition(QString tag, int a_track, int b_track, GenTime in, GenTime out, QDomElement xml, bool do_refresh) {
2336     Mlt::Service service(m_mltProducer->parent().get_service());
2337     Mlt::Tractor tractor(service);
2338     Mlt::Field *field = tractor.field();
2339
2340     //if (do_refresh) m_mltConsumer->set("refresh", 0);
2341     mlt_service serv = m_mltProducer->parent().get_service();
2342
2343     mlt_service nextservice = mlt_service_get_producer(serv);
2344     mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
2345     QString mlt_type = mlt_properties_get(properties, "mlt_type");
2346     QString resource = mlt_properties_get(properties, "mlt_service");
2347
2348     const int old_pos = (int)((in + out).frames(m_fps) / 2);
2349
2350     while (mlt_type == "transition") {
2351         mlt_transition tr = (mlt_transition) nextservice;
2352         int currentTrack = mlt_transition_get_b_track(tr);
2353         int currentIn = (int) mlt_transition_get_in(tr);
2354         int currentOut = (int) mlt_transition_get_out(tr);
2355         //kDebug() << "// FOUND EXISTING TRANS, IN: " << currentIn << ", OUT: " << currentOut << ", TRACK: " << currentTrack;
2356
2357         if (resource == tag && b_track == currentTrack && currentIn <= old_pos && currentOut >= old_pos) {
2358             mlt_field_disconnect_service(field->get_field(), nextservice);
2359             break;
2360         }
2361         nextservice = mlt_service_producer(nextservice);
2362         if (nextservice == NULL) break;
2363         properties = MLT_SERVICE_PROPERTIES(nextservice);
2364         mlt_type = mlt_properties_get(properties, "mlt_type");
2365         resource = mlt_properties_get(properties, "mlt_service");
2366     }
2367     //if (do_refresh) m_mltConsumer->set("refresh", 1);
2368 }
2369
2370 QMap<QString, QString> Render::mltGetTransitionParamsFromXml(QDomElement xml) {
2371     QDomNodeList attribs = xml.elementsByTagName("parameter");
2372     QMap<QString, QString> map;
2373     for (int i = 0;i < attribs.count();i++) {
2374         QDomElement e = attribs.item(i).toElement();
2375         QString name = e.attribute("name");
2376         //kDebug()<<"-- TRANSITION PARAM: "<<name<<" = "<< e.attribute("name")<<" / " << e.attribute("value");
2377         map[name] = e.attribute("default");
2378         if (!e.attribute("value").isEmpty()) {
2379             map[name] = e.attribute("value");
2380         }
2381         if (!e.attribute("factor").isEmpty() && e.attribute("factor").toDouble() > 0) {
2382             map[name] = QString::number(map[name].toDouble() / e.attribute("factor").toDouble());
2383             //map[name]=map[name].replace(".",","); //FIXME how to solve locale conversion of . ,
2384         }
2385
2386         if (e.attribute("namedesc").contains(";")) {
2387             QString format = e.attribute("format");
2388             QStringList separators = format.split("%d", QString::SkipEmptyParts);
2389             QStringList values = e.attribute("value").split(QRegExp("[,:;x]"));
2390             QString neu;
2391             QTextStream txtNeu(&neu);
2392             if (values.size() > 0)
2393                 txtNeu << (int)values[0].toDouble();
2394             int i = 0;
2395             for (i = 0;i < separators.size() && i + 1 < values.size();i++) {
2396                 txtNeu << separators[i];
2397                 txtNeu << (int)(values[i+1].toDouble());
2398             }
2399             if (i < separators.size())
2400                 txtNeu << separators[i];
2401             map[e.attribute("name")] = neu;
2402         }
2403
2404     }
2405     return map;
2406 }
2407
2408 void Render::mltAddClipTransparency(ItemInfo info, int transitiontrack, int id) {
2409     kDebug() << "/////////  ADDING CLIP TRANSPARENCY AT: " << info.startPos.frames(25);
2410     Mlt::Service service(m_mltProducer->parent().get_service());
2411     Mlt::Tractor tractor(service);
2412     Mlt::Field *field = tractor.field();
2413
2414     Mlt::Transition *transition = new Mlt::Transition(*m_mltProfile, "composite");
2415     transition->set_in_and_out((int) info.startPos.frames(m_fps), (int) info.endPos.frames(m_fps) - 1);
2416     transition->set("transparency", id);
2417     transition->set("fill", 1);
2418     transition->set("internal_added", 237);
2419     field->plant_transition(*transition, transitiontrack, info.track);
2420     refresh();
2421 }
2422
2423 void Render::mltDeleteTransparency(int pos, int track, int id) {
2424     Mlt::Service service(m_mltProducer->parent().get_service());
2425     Mlt::Tractor tractor(service);
2426     Mlt::Field *field = tractor.field();
2427
2428     //if (do_refresh) m_mltConsumer->set("refresh", 0);
2429     mlt_service serv = m_mltProducer->parent().get_service();
2430
2431     mlt_service nextservice = mlt_service_get_producer(serv);
2432     mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
2433     QString mlt_type = mlt_properties_get(properties, "mlt_type");
2434     QString resource = mlt_properties_get(properties, "mlt_service");
2435
2436     while (mlt_type == "transition") {
2437         mlt_transition tr = (mlt_transition) nextservice;
2438         int currentTrack = mlt_transition_get_b_track(tr);
2439         int currentIn = (int) mlt_transition_get_in(tr);
2440         int currentOut = (int) mlt_transition_get_out(tr);
2441         int transitionId = QString(mlt_properties_get(properties, "transparency")).toInt();
2442         kDebug() << "// FOUND EXISTING TRANS, IN: " << currentIn << ", OUT: " << currentOut << ", TRACK: " << currentTrack;
2443
2444         if (resource == "composite" && track == currentTrack && currentIn == pos && transitionId == id) {
2445             //kDebug() << " / / / / /DELETE TRANS DOOOMNE";
2446             mlt_field_disconnect_service(field->get_field(), nextservice);
2447             break;
2448         }
2449         nextservice = mlt_service_producer(nextservice);
2450         if (nextservice == NULL) break;
2451         properties = MLT_SERVICE_PROPERTIES(nextservice);
2452         mlt_type = mlt_properties_get(properties, "mlt_type");
2453         resource = mlt_properties_get(properties, "mlt_service");
2454     }
2455     //if (do_refresh) m_mltConsumer->set("refresh", 1);
2456 }
2457
2458 void Render::mltResizeTransparency(int oldStart, int newStart, int newEnd, int track, int id) {
2459     Mlt::Service service(m_mltProducer->parent().get_service());
2460     Mlt::Tractor tractor(service);
2461     Mlt::Field *field = tractor.field();
2462
2463     mlt_service_lock(service.get_service());
2464     m_mltConsumer->set("refresh", 0);
2465     m_isBlocked = true;
2466
2467     mlt_service serv = m_mltProducer->parent().get_service();
2468     mlt_service nextservice = mlt_service_get_producer(serv);
2469     mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
2470     QString mlt_type = mlt_properties_get(properties, "mlt_type");
2471     QString resource = mlt_properties_get(properties, "mlt_service");
2472     kDebug() << "// resize transpar from: " << oldStart << ", TO: " << newStart << "x" << newEnd << ", " << track << ", " << id;
2473     while (mlt_type == "transition") {
2474         mlt_transition tr = (mlt_transition) nextservice;
2475         int currentTrack = mlt_transition_get_b_track(tr);
2476         int currentIn = (int) mlt_transition_get_in(tr);
2477         //mlt_properties props = MLT_TRANSITION_PROPERTIES(tr);
2478         int transitionId = QString(mlt_properties_get(properties, "transparency")).toInt();
2479         kDebug() << "// resize transpar current in: " << currentIn << ", Track: " << currentTrack << ", id: " << id << "x" << transitionId ;
2480         if (resource == "composite" && track == currentTrack && currentIn == oldStart && transitionId == id) {
2481             kDebug() << " / / / / /RESIZE TRANS TO: " << newStart << "x" << newEnd;
2482             mlt_transition_set_in_and_out(tr, newStart, newEnd);
2483             break;
2484         }
2485         nextservice = mlt_service_producer(nextservice);
2486         if (nextservice == NULL) break;
2487         properties = MLT_SERVICE_PROPERTIES(nextservice);
2488         mlt_type = mlt_properties_get(properties, "mlt_type");
2489         resource = mlt_properties_get(properties, "mlt_service");
2490     }
2491     m_isBlocked = false;
2492     mlt_service_unlock(service.get_service());
2493     m_mltConsumer->set("refresh", 1);
2494
2495 }
2496
2497 void Render::mltMoveTransparency(int startTime, int endTime, int startTrack, int endTrack, int id) {
2498     Mlt::Service service(m_mltProducer->parent().get_service());
2499     Mlt::Tractor tractor(service);
2500     Mlt::Field *field = tractor.field();
2501
2502     mlt_service_lock(service.get_service());
2503     m_mltConsumer->set("refresh", 0);
2504     m_isBlocked = true;
2505
2506     mlt_service serv = m_mltProducer->parent().get_service();
2507     mlt_service nextservice = mlt_service_get_producer(serv);
2508     mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
2509     QString mlt_type = mlt_properties_get(properties, "mlt_type");
2510     QString resource = mlt_properties_get(properties, "mlt_service");
2511
2512     while (mlt_type == "transition") {
2513         mlt_transition tr = (mlt_transition) nextservice;
2514         int currentTrack = mlt_transition_get_b_track(tr);
2515         int currentaTrack = mlt_transition_get_a_track(tr);
2516         int currentIn = (int) mlt_transition_get_in(tr);
2517         int currentOut = (int) mlt_transition_get_out(tr);
2518         //mlt_properties properties = MLT_TRANSITION_PROPERTIES(tr);
2519         int transitionId = QString(mlt_properties_get(properties, "transparency")).toInt();
2520         //kDebug()<<" + TRANSITION "<<id<<" == "<<transitionId<<", START TMIE: "<<currentIn<<", LOOK FR: "<<startTime<<", TRACK: "<<currentTrack<<"x"<<startTrack;
2521         if (resource == "composite" && transitionId == id && startTime == currentIn && startTrack == currentTrack) {
2522             kDebug() << "//////MOVING";
2523             mlt_transition_set_in_and_out(tr, endTime, endTime + currentOut - currentIn);
2524             if (endTrack != startTrack) {
2525                 mlt_properties properties = MLT_TRANSITION_PROPERTIES(tr);
2526                 mlt_properties_set_int(properties, "a_track", currentaTrack + endTrack - currentTrack);
2527                 mlt_properties_set_int(properties, "b_track", endTrack);
2528             }
2529             break;
2530         }
2531         nextservice = mlt_service_producer(nextservice);
2532         if (nextservice == NULL) break;
2533         properties = MLT_SERVICE_PROPERTIES(nextservice);
2534         mlt_type = mlt_properties_get(properties, "mlt_type");
2535         resource = mlt_properties_get(properties, "mlt_service");
2536     }
2537     m_isBlocked = false;
2538     mlt_service_unlock(service.get_service());
2539     m_mltConsumer->set("refresh", 1);
2540 }
2541
2542
2543 void Render::mltAddTransition(QString tag, int a_track, int b_track, GenTime in, GenTime out, QDomElement xml, bool do_refresh) {
2544
2545     QMap<QString, QString> args = mltGetTransitionParamsFromXml(xml);
2546     Mlt::Service service(m_mltProducer->parent().get_service());
2547
2548     Mlt::Tractor tractor(service);
2549     Mlt::Field *field = tractor.field();
2550
2551     char *transId = decodedString(tag);
2552     Mlt::Transition *transition = new Mlt::Transition(*m_mltProfile, transId);
2553     if (out != GenTime())
2554         transition->set_in_and_out((int) in.frames(m_fps), (int) out.frames(m_fps) - 1);
2555     QMap<QString, QString>::Iterator it;
2556     QString key;
2557     if (xml.attribute("automatic") == "1") transition->set("automatic", 1);
2558     //kDebug() << " ------  ADDING TRANSITION PARAMs: " << args.count();
2559
2560     for (it = args.begin(); it != args.end(); ++it) {
2561         key = it.key();
2562         char *name = decodedString(key);
2563         char *value = decodedString(it.value());
2564         transition->set(name, value);
2565         kDebug() << " ------  ADDING TRANS PARAM: " << name << ": " << value;
2566         //filter->set("kdenlive_id", id);
2567         delete[] name;
2568         delete[] value;
2569     }
2570     // attach filter to the clip
2571     field->plant_transition(*transition, a_track, b_track);
2572     delete[] transId;
2573     refresh();
2574 }
2575
2576 void Render::mltSavePlaylist() {
2577     kWarning() << "// UPDATING PLAYLIST TO DISK++++++++++++++++";
2578     Mlt::Consumer fileConsumer(*m_mltProfile, "westley");
2579     fileConsumer.set("resource", "/tmp/playlist.westley");
2580
2581     Mlt::Service service(m_mltProducer->get_service());
2582
2583     fileConsumer.connect(service);
2584     fileConsumer.start();
2585 }
2586
2587 QList <Mlt::Producer *> Render::producersList() {
2588     QList <Mlt::Producer *> prods = QList <Mlt::Producer *> ();
2589     QStringList ids;
2590     Mlt::Service service(m_mltProducer->parent().get_service());
2591     Mlt::Tractor tractor(service);
2592
2593     int trackNb = tractor.count();
2594     for (int t = 1; t < trackNb; t++) {
2595         Mlt::Producer trackProducer(tractor.track(t));
2596         Mlt::Playlist trackPlaylist((mlt_playlist) trackProducer.get_service());
2597         int clipNb = trackPlaylist.count();
2598         kDebug() << "// PARSING SCENE TRACK: " << t << ", CLIPS: " << clipNb;
2599         for (int i = 0; i < clipNb; i++) {
2600             Mlt::Producer *prod = trackPlaylist.get_clip(i);
2601             Mlt::Producer *nprod = new Mlt::Producer(prod->get_parent());
2602             //kDebug()<<"PROD: "<<nprod->get("producer")<<", ID: "<<nprod->get("id")<<nprod->get("resource");
2603             if (nprod && !nprod->is_blank() && !ids.contains(nprod->get("id"))) {
2604                 ids.append(nprod->get("id"));
2605                 prods.append(nprod);
2606             }
2607         }
2608     }
2609     return prods;
2610 }
2611
2612 void Render::mltInsertTrack(int ix, bool videoTrack) {
2613     blockSignals(true);
2614     m_isBlocked = true;
2615
2616     m_mltConsumer->set("refresh", 0);
2617     mlt_service_lock(m_mltConsumer->get_service());
2618     Mlt::Service service(m_mltProducer->parent().get_service());
2619     if (service.type() != tractor_type) kWarning() << "// TRACTOR PROBLEM";
2620
2621     Mlt::Tractor tractor(service);
2622
2623     Mlt::Playlist playlist;// = new Mlt::Playlist();
2624     int ct = tractor.count();
2625     // kDebug() << "// TRACK INSERT: " << ix << ", MAX: " << ct;
2626     int pos = ix;
2627     if (pos < ct) {
2628         Mlt::Producer *prodToMove = new Mlt::Producer(tractor.track(pos));
2629         tractor.set_track(playlist, pos);
2630         Mlt::Producer newProd(tractor.track(pos));
2631         if (!videoTrack) newProd.set("hide", 1);
2632         pos++;
2633         for (; pos <= ct; pos++) {
2634             Mlt::Producer *prodToMove2 = new Mlt::Producer(tractor.track(pos));
2635             tractor.set_track(*prodToMove, pos);
2636             prodToMove = prodToMove2;
2637         }
2638     } else {
2639         tractor.set_track(playlist, ix);
2640         Mlt::Producer newProd(tractor.track(ix));
2641         if (!videoTrack) newProd.set("hide", 1);
2642     }
2643
2644     // Move transitions
2645     mlt_service serv = m_mltProducer->parent().get_service();
2646     mlt_service nextservice = mlt_service_get_producer(serv);
2647     mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
2648     QString mlt_type = mlt_properties_get(properties, "mlt_type");
2649     QString resource = mlt_properties_get(properties, "mlt_service");
2650
2651     while (mlt_type == "transition") {
2652         if (resource != "mix") {
2653             mlt_transition tr = (mlt_transition) nextservice;
2654             int currentTrack = mlt_transition_get_b_track(tr);
2655             int currentaTrack = mlt_transition_get_a_track(tr);
2656             mlt_properties properties = MLT_TRANSITION_PROPERTIES(tr);
2657
2658             if (currentTrack >= ix) {
2659                 mlt_properties_set_int(properties, "b_track", currentTrack + 1);
2660                 mlt_properties_set_int(properties, "a_track", currentaTrack + 1);
2661             }
2662         }
2663         nextservice = mlt_service_producer(nextservice);
2664         if (nextservice == NULL) break;
2665         properties = MLT_SERVICE_PROPERTIES(nextservice);
2666         mlt_type = mlt_properties_get(properties, "mlt_type");
2667         resource = mlt_properties_get(properties, "mlt_service");
2668     }
2669
2670     // Add audio mix transition to last track
2671     Mlt::Field *field = tractor.field();
2672     Mlt::Transition *transition = new Mlt::Transition(*m_mltProfile, "mix");
2673     //transition->set("mlt_service", "mix");
2674     transition->set("a_track", 1);
2675     transition->set("b_track", ct);
2676     transition->set("always_active", 1);
2677     transition->set("internal_added", 237);
2678     transition->set("combine", 1);
2679     field->plant_transition(*transition, 1, ct);
2680
2681     mlt_service_unlock(m_mltConsumer->get_service());
2682     m_isBlocked = false;
2683     blockSignals(false);
2684 }
2685
2686
2687 void Render::mltDeleteTrack(int ix) {
2688     QDomDocument doc;
2689     doc.setContent(sceneList(), false);
2690     int tracksCount = doc.elementsByTagName("track").count() - 1;
2691     QDomNode track = doc.elementsByTagName("track").at(ix);
2692     QDomNode tractor = doc.elementsByTagName("tractor").at(0);
2693     QDomNodeList transitions = doc.elementsByTagName("transition");
2694     for (int i = 0; i < transitions.count(); i++) {
2695         QDomElement e = transitions.at(i).toElement();
2696         QDomNodeList props = e.elementsByTagName("property");
2697         QMap <QString, QString> mappedProps;
2698         for (int j = 0; j < props.count(); j++) {
2699             QDomElement f = props.at(j).toElement();
2700             mappedProps.insert(f.attribute("name"), f.firstChild().nodeValue());
2701         }
2702         if (mappedProps.value("mlt_service") == "mix" && mappedProps.value("b_track").toInt() == tracksCount) {
2703             tractor.removeChild(transitions.at(i));
2704         } else if (mappedProps.value("mlt_service") != "mix" && mappedProps.value("b_track").toInt() >= ix) {
2705             // Transition needs to be moved
2706             int a_track = mappedProps.value("a_track").toInt();
2707             int b_track = mappedProps.value("b_track").toInt();
2708             if (a_track > 0) a_track --;
2709             if (b_track > 0) b_track --;
2710             for (int j = 0; j < props.count(); j++) {
2711                 QDomElement f = props.at(j).toElement();
2712                 if (f.attribute("name") == "a_track") f.firstChild().setNodeValue(QString::number(a_track));
2713                 else if (f.attribute("name") == "b_track") f.firstChild().setNodeValue(QString::number(b_track));
2714             }
2715
2716         }
2717     }
2718     tractor.removeChild(track);
2719     setSceneList(doc.toString(), m_framePosition);
2720     return;
2721
2722     blockSignals(true);
2723     m_isBlocked = true;
2724
2725     m_mltConsumer->set("refresh", 0);
2726     mlt_service_lock(m_mltConsumer->get_service());
2727     Mlt::Service service(m_mltProducer->parent().get_service());
2728     if (service.type() != tractor_type) kWarning() << "// TRACTOR PROBLEM";
2729
2730     /*Mlt::Tractor tractor(service);
2731
2732
2733     Mlt::Multitrack *multi = tractor.multitrack();
2734
2735
2736     int ct = tractor.count();
2737     kDebug() << "// TRACK REMOVE: " << ix << ", MAX: " << ct;
2738     int pos = ix;
2739     for (; pos < ct ; pos++) {
2740     Mlt::Service *lastTrack = new Mlt::Service(tractor.track(pos)->get_service());
2741     //mlt_service_close(lastTrack->get_service());
2742     delete lastTrack;
2743     Mlt::Producer *prodToMove = new Mlt::Producer(tractor.track(pos + 1));
2744     Mlt::Producer *prodToClose = new Mlt::Producer(tractor.track(pos));
2745     mlt_service_close(prodToMove->get_service());
2746     mlt_service_close(prodToClose->get_service());
2747     tractor.set_track(*prodToMove, pos);
2748     }*/
2749
2750     // Move transitions
2751     /*mlt_service serv = m_mltProducer->parent().get_service();
2752     mlt_service nextservice = mlt_service_get_producer(serv);
2753     mlt_properties properties = MLT_SERVICE_PROPERTIES(nextservice);
2754     QString mlt_type = mlt_properties_get(properties, "mlt_type");
2755     QString resource = mlt_properties_get(properties, "mlt_service");
2756
2757     while (mlt_type == "transition") {
2758         if (resource != "mix") {
2759             mlt_transition tr = (mlt_transition) nextservice;
2760             int currentTrack = mlt_transition_get_b_track(tr);
2761             int currentaTrack = mlt_transition_get_a_track(tr);
2762             mlt_properties properties = MLT_TRANSITION_PROPERTIES(tr);
2763
2764             if (currentTrack >= ix) {
2765                 mlt_properties_set_int(properties, "b_track", currentTrack + 1);
2766                 mlt_properties_set_int(properties, "a_track", currentaTrack + 1);
2767             }
2768         }
2769         nextservice = mlt_service_producer(nextservice);
2770         if (nextservice == NULL) break;
2771         properties = MLT_SERVICE_PROPERTIES(nextservice);
2772         mlt_type = mlt_properties_get(properties, "mlt_type");
2773         resource = mlt_properties_get(properties, "mlt_service");
2774     }
2775
2776     // Add audio mix transition to last track
2777     Mlt::Field *field = tractor.field();
2778     Mlt::Transition *transition = new Mlt::Transition(*m_mltProfile, "mix");
2779     //transition->set("mlt_service", "mix");
2780     transition->set("a_track", 1);
2781     transition->set("b_track", ct);
2782     transition->set("always_active", 1);
2783     transition->set("internal_added", 237);
2784     transition->set("combine", 1);
2785     field->plant_transition(*transition, 1, ct);
2786     */
2787
2788     mlt_service_unlock(m_mltConsumer->get_service());
2789     m_isBlocked = false;
2790     blockSignals(false);
2791 }
2792
2793 #include "renderer.moc"
2794