style cleanup: format 'for' loop macros the same as for loops, some renaming to BLI_a...
[blender.git] / source / blender / editors / space_sequencer / sequencer_edit.c
1 /*
2  * ***** BEGIN GPL LICENSE BLOCK *****
3  *
4  * This program is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU General Public License
6  * as published by the Free Software Foundation; either version 2
7  * of the License, or (at your option) any later version.
8  *
9  * This program is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12  * GNU General Public License for more details.
13  *
14  * You should have received a copy of the GNU General Public License
15  * along with this program; if not, write to the Free Software Foundation,
16  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
17  *
18  * The Original Code is Copyright (C) 2001-2002 by NaN Holding BV.
19  * All rights reserved.
20  *
21  * Contributor(s): Blender Foundation, 2003-2009
22  *
23  * ***** END GPL LICENSE BLOCK *****
24  */
25
26 /** \file blender/editors/space_sequencer/sequencer_edit.c
27  *  \ingroup spseq
28  */
29
30
31 #include <stdlib.h>
32 #include <math.h>
33 #include <string.h>
34
35 #ifndef WIN32
36 #include <unistd.h>
37 #else
38 #include <io.h>
39 #endif
40 #include <sys/types.h>
41
42 #include "MEM_guardedalloc.h"
43
44 #include "BLI_blenlib.h"
45 #include "BLI_math.h"
46 #include "BLI_utildefines.h"
47 #include "BLI_threads.h"
48
49 #include "DNA_scene_types.h"
50 #include "DNA_userdef_types.h"
51
52 #include "BKE_context.h"
53 #include "BKE_global.h"
54 #include "BKE_main.h"
55 #include "BKE_sequencer.h"
56 #include "BKE_report.h"
57 #include "BKE_sound.h"
58 #include "BKE_movieclip.h"
59
60 #include "IMB_imbuf.h"
61
62 #include "WM_api.h"
63 #include "WM_types.h"
64
65 #include "RNA_define.h"
66 #include "RNA_enum_types.h"
67
68 /* for menu/popup icons etc etc*/
69
70 #include "ED_screen.h"
71 #include "ED_transform.h"
72 #include "ED_sequencer.h"
73
74 #include "UI_view2d.h"
75
76 /* own include */
77 #include "sequencer_intern.h"
78
79 /* XXX */
80 /* RNA Enums, used in multiple files */
81 EnumPropertyItem sequencer_prop_effect_types[] = {
82         {SEQ_CROSS, "CROSS", 0, "Crossfade", "Crossfade effect strip type"},
83         {SEQ_ADD, "ADD", 0, "Add", "Add effect strip type"},
84         {SEQ_SUB, "SUBTRACT", 0, "Subtract", "Subtract effect strip type"},
85         {SEQ_ALPHAOVER, "ALPHA_OVER", 0, "Alpha Over", "Alpha Over effect strip type"},
86         {SEQ_ALPHAUNDER, "ALPHA_UNDER", 0, "Alpha Under", "Alpha Under effect strip type"},
87         {SEQ_GAMCROSS, "GAMMA_CROSS", 0, "Gamma Cross", "Gamma Cross effect strip type"},
88         {SEQ_MUL, "MULTIPLY", 0, "Multiply", "Multiply effect strip type"},
89         {SEQ_OVERDROP, "OVER_DROP", 0, "Alpha Over Drop", "Alpha Over Drop effect strip type"},
90         {SEQ_WIPE, "WIPE", 0, "Wipe", "Wipe effect strip type"},
91         {SEQ_GLOW, "GLOW", 0, "Glow", "Glow effect strip type"},
92         {SEQ_TRANSFORM, "TRANSFORM", 0, "Transform", "Transform effect strip type"},
93         {SEQ_COLOR, "COLOR", 0, "Color", "Color effect strip type"},
94         {SEQ_SPEED, "SPEED", 0, "Speed", "Color effect strip type"},
95         {SEQ_MULTICAM, "MULTICAM", 0, "Multicam Selector", ""},
96         {SEQ_ADJUSTMENT, "ADJUSTMENT", 0, "Adjustment Layer", ""},
97         {0, NULL, 0, NULL, NULL}
98 };
99
100 /* mute operator */
101
102 EnumPropertyItem prop_side_types[] = {
103         {SEQ_SIDE_LEFT, "LEFT", 0, "Left", ""},
104         {SEQ_SIDE_RIGHT, "RIGHT", 0, "Right", ""},
105         {SEQ_SIDE_BOTH, "BOTH", 0, "Both", ""},
106         {0, NULL, 0, NULL, NULL}
107 };
108
109 static EnumPropertyItem prop_side_lr_types[] = {
110         {SEQ_SIDE_LEFT, "LEFT", 0, "Left", ""},
111         {SEQ_SIDE_RIGHT, "RIGHT", 0, "Right", ""},
112         {0, NULL, 0, NULL, NULL}
113 };
114
115 typedef struct TransSeq {
116         int start, machine;
117         int startstill, endstill;
118         int startdisp, enddisp;
119         int startofs, endofs;
120         int anim_startofs, anim_endofs;
121         /* int final_left, final_right; */ /* UNUSED */
122         int len;
123 } TransSeq;
124
125 /* ********************************************************************** */
126
127 /* ***************** proxy job manager ********************** */
128
129 typedef struct ProxyBuildJob {
130         Scene *scene; 
131         struct Main *main;
132         ListBase queue;
133         int stop;
134 } ProxyJob;
135
136 static void proxy_freejob(void *pjv)
137 {
138         ProxyJob *pj = pjv;
139
140         BLI_freelistN(&pj->queue);
141
142         MEM_freeN(pj);
143 }
144
145 /* only this runs inside thread */
146 static void proxy_startjob(void *pjv, short *stop, short *do_update, float *progress)
147 {
148         ProxyJob *pj = pjv;
149         LinkData *link;
150
151         for (link = pj->queue.first; link; link = link->next) {
152                 struct SeqIndexBuildContext *context = link->data;
153
154                 seq_proxy_rebuild(context, stop, do_update, progress);
155         }
156
157         if (*stop) {
158                 pj->stop = 1;
159                 fprintf(stderr,  "Canceling proxy rebuild on users request...\n");
160         }
161 }
162
163 static void proxy_endjob(void *pjv)
164 {
165         ProxyJob *pj = pjv;
166         Editing *ed = seq_give_editing(pj->scene, FALSE);
167         LinkData *link;
168
169         for (link = pj->queue.first; link; link = link->next) {
170                 seq_proxy_rebuild_finish(link->data, pj->stop);
171         }
172
173         free_imbuf_seq(pj->scene, &ed->seqbase, FALSE, FALSE);
174
175         WM_main_add_notifier(NC_SCENE | ND_SEQUENCER, pj->scene);
176 }
177
178 static void seq_proxy_build_job(const bContext *C)
179 {
180         wmJob *steve;
181         ProxyJob *pj;
182         Scene *scene = CTX_data_scene(C);
183         Editing *ed = seq_give_editing(scene, FALSE);
184         ScrArea *sa = CTX_wm_area(C);
185         struct SeqIndexBuildContext *context;
186         LinkData *link;
187         Sequence *seq;
188
189         steve = WM_jobs_get(CTX_wm_manager(C), CTX_wm_window(C), sa, "Building Proxies", WM_JOB_PROGRESS);
190
191         pj = WM_jobs_get_customdata(steve);
192
193         if (!pj) {
194                 pj = MEM_callocN(sizeof(ProxyJob), "proxy rebuild job");
195         
196                 pj->scene = scene;
197                 pj->main = CTX_data_main(C);
198
199                 WM_jobs_customdata(steve, pj, proxy_freejob);
200                 WM_jobs_timer(steve, 0.1, NC_SCENE | ND_SEQUENCER, NC_SCENE | ND_SEQUENCER);
201                 WM_jobs_callbacks(steve, proxy_startjob, NULL, NULL, proxy_endjob);
202         }
203
204         SEQP_BEGIN (ed, seq) {
205                 if ((seq->flag & SELECT)) {
206                         context = seq_proxy_rebuild_context(pj->main, pj->scene, seq);
207                         link = BLI_genericNodeN(context);
208                         BLI_addtail(&pj->queue, link);
209                 }
210         }
211         SEQ_END
212
213         if (!WM_jobs_is_running(steve)) {
214                 G.afbreek = 0;
215                 WM_jobs_start(CTX_wm_manager(C), steve);
216         }
217
218         ED_area_tag_redraw(CTX_wm_area(C));
219 }
220
221 /* ********************************************************************** */
222
223 void seq_rectf(Sequence *seq, rctf *rectf)
224 {
225         if (seq->startstill) rectf->xmin = seq->start;
226         else rectf->xmin = seq->startdisp;
227         rectf->ymin = seq->machine + SEQ_STRIP_OFSBOTTOM;
228         if (seq->endstill) rectf->xmax = seq->start + seq->len;
229         else rectf->xmax = seq->enddisp;
230         rectf->ymax = seq->machine + SEQ_STRIP_OFSTOP;
231 }
232
233 static void UNUSED_FUNCTION(change_plugin_seq) (Scene * scene, char *str) /* called from fileselect */
234 {
235         Editing *ed = seq_give_editing(scene, FALSE);
236         struct SeqEffectHandle sh;
237         Sequence *last_seq = seq_active_get(scene);
238
239         if (last_seq == NULL || last_seq->type != SEQ_PLUGIN) return;
240
241         sh = get_sequence_effect(last_seq);
242         sh.free(last_seq);
243         sh.init_plugin(last_seq, str);
244
245         last_seq->machine = MAX3(last_seq->seq1->machine,
246                                  last_seq->seq2->machine,
247                                  last_seq->seq3->machine);
248
249         if (seq_test_overlap(ed->seqbasep, last_seq) ) shuffle_seq(ed->seqbasep, last_seq, scene);
250         
251 }
252
253
254 void boundbox_seq(Scene *scene, rctf *rect)
255 {
256         Sequence *seq;
257         Editing *ed = seq_give_editing(scene, FALSE);
258         float min[2], max[2];
259
260         
261         if (ed == NULL) return;
262
263         min[0] = 0.0;
264         max[0] = EFRA + 1;
265         min[1] = 0.0;
266         max[1] = 8.0;
267
268         seq = ed->seqbasep->first;
269         while (seq) {
270
271                 if (min[0] > seq->startdisp - 1) min[0] = seq->startdisp - 1;
272                 if (max[0] < seq->enddisp + 1) max[0] = seq->enddisp + 1;
273                 if (max[1] < seq->machine + 2) max[1] = seq->machine + 2;
274
275                 seq = seq->next;
276         }
277
278         rect->xmin = min[0];
279         rect->xmax = max[0];
280         rect->ymin = min[1];
281         rect->ymax = max[1];
282
283 }
284
285 static int mouse_frame_side(View2D *v2d, short mouse_x, int frame)
286 {
287         int mval[2];
288         float mouseloc[2];
289         
290         mval[0] = mouse_x;
291         mval[1] = 0;
292         
293         /* choose the side based on which side of the playhead the mouse is on */
294         UI_view2d_region_to_view(v2d, mval[0], mval[1], &mouseloc[0], &mouseloc[1]);
295         
296         return mouseloc[0] > frame ? SEQ_SIDE_RIGHT : SEQ_SIDE_LEFT;
297 }
298
299
300 Sequence *find_neighboring_sequence(Scene *scene, Sequence *test, int lr, int sel) 
301 {
302         /* sel - 0==unselected, 1==selected, -1==done care*/
303         Sequence *seq;
304         Editing *ed = seq_give_editing(scene, FALSE);
305
306         if (ed == NULL) return NULL;
307
308         if (sel > 0) sel = SELECT;
309         
310         for (seq = ed->seqbasep->first; seq; seq = seq->next) {
311                 if ((seq != test) &&
312                     (test->machine == seq->machine) &&
313                     ((sel == -1) || (sel && (seq->flag & SELECT)) || (sel == 0 && (seq->flag & SELECT) == 0)  ))
314                 {
315                         switch (lr) {
316                                 case SEQ_SIDE_LEFT:
317                                         if (test->startdisp == (seq->enddisp)) {
318                                                 return seq;
319                                         }
320                                         break;
321                                 case SEQ_SIDE_RIGHT:
322                                         if (test->enddisp == (seq->startdisp)) {
323                                                 return seq;
324                                         }
325                                         break;
326                         }
327                 }
328         }
329         return NULL;
330 }
331
332 static Sequence *find_next_prev_sequence(Scene *scene, Sequence *test, int lr, int sel) 
333 {
334         /* sel - 0==unselected, 1==selected, -1==done care*/
335         Sequence *seq, *best_seq = NULL;
336         Editing *ed = seq_give_editing(scene, FALSE);
337         
338         int dist, best_dist;
339         best_dist = MAXFRAME * 2;
340
341         
342         if (ed == NULL) return NULL;
343
344         seq = ed->seqbasep->first;
345         while (seq) {
346                 if ((seq != test) &&
347                     (test->machine == seq->machine) &&
348                     (test->depth == seq->depth) &&
349                     ((sel == -1) || (sel == (seq->flag & SELECT))))
350                 {
351                         dist = MAXFRAME * 2;
352                         
353                         switch (lr) {
354                                 case SEQ_SIDE_LEFT:
355                                         if (seq->enddisp <= test->startdisp) {
356                                                 dist = test->enddisp - seq->startdisp;
357                                         }
358                                         break;
359                                 case SEQ_SIDE_RIGHT:
360                                         if (seq->startdisp >= test->enddisp) {
361                                                 dist = seq->startdisp - test->enddisp;
362                                         }
363                                         break;
364                         }
365                         
366                         if (dist == 0) {
367                                 best_seq = seq;
368                                 break;
369                         }
370                         else if (dist < best_dist) {
371                                 best_dist = dist;
372                                 best_seq = seq;
373                         }
374                 }
375                 seq = seq->next;
376         }
377         return best_seq; /* can be null */
378 }
379
380
381 Sequence *find_nearest_seq(Scene *scene, View2D *v2d, int *hand, const int mval[2])
382 {
383         Sequence *seq;
384         Editing *ed = seq_give_editing(scene, FALSE);
385         float x, y;
386         float pixelx;
387         float handsize;
388         float displen;
389         *hand = SEQ_SIDE_NONE;
390
391         
392         if (ed == NULL) return NULL;
393         
394         pixelx = (v2d->cur.xmax - v2d->cur.xmin) / (v2d->mask.xmax - v2d->mask.xmin);
395
396         UI_view2d_region_to_view(v2d, mval[0], mval[1], &x, &y);
397         
398         seq = ed->seqbasep->first;
399         
400         while (seq) {
401                 if (seq->machine == (int)y) {
402                         /* check for both normal strips, and strips that have been flipped horizontally */
403                         if ( ((seq->startdisp < seq->enddisp) && (seq->startdisp <= x && seq->enddisp >= x)) ||
404                              ((seq->startdisp > seq->enddisp) && (seq->startdisp >= x && seq->enddisp <= x)) )
405                         {
406                                 if (seq_tx_test(seq)) {
407                                         
408                                         /* clamp handles to defined size in pixel space */
409                                         
410                                         handsize = seq->handsize;
411                                         displen = (float)abs(seq->startdisp - seq->enddisp);
412                                         
413                                         if (displen / pixelx > 16) { /* don't even try to grab the handles of small strips */
414                                                 /* Set the max value to handle to 1/3 of the total len when its less then 28.
415                                                  * This is important because otherwise selecting handles happens even when you click in the middle */
416                                                 
417                                                 if ((displen / 3) < 30 * pixelx) {
418                                                         handsize = displen / 3;
419                                                 }
420                                                 else {
421                                                         CLAMP(handsize, 7 * pixelx, 30 * pixelx);
422                                                 }
423                                                 
424                                                 if (handsize + seq->startdisp >= x)
425                                                         *hand = SEQ_SIDE_LEFT;
426                                                 else if (-handsize + seq->enddisp <= x)
427                                                         *hand = SEQ_SIDE_RIGHT;
428                                         }
429                                 }
430                                 return seq;
431                         }
432                 }
433                 seq = seq->next;
434         }
435         return NULL;
436 }
437
438
439 static int seq_is_parent(Sequence *par, Sequence *seq)
440 {
441         return ((par->seq1 == seq) || (par->seq2 == seq) || (par->seq3 == seq));
442 }
443
444 static int seq_is_predecessor(Sequence *pred, Sequence *seq)
445 {
446         if (!pred) return 0;
447         if (pred == seq) return 0;
448         else if (seq_is_parent(pred, seq)) return 1;
449         else if (pred->seq1 && seq_is_predecessor(pred->seq1, seq)) return 1;
450         else if (pred->seq2 && seq_is_predecessor(pred->seq2, seq)) return 1;
451         else if (pred->seq3 && seq_is_predecessor(pred->seq3, seq)) return 1;
452
453         return 0;
454 }
455
456 void deselect_all_seq(Scene *scene)
457 {
458         Sequence *seq;
459         Editing *ed = seq_give_editing(scene, FALSE);
460
461         
462         if (ed == NULL) return;
463
464         SEQP_BEGIN (ed, seq) {
465                 seq->flag &= ~SEQ_ALLSEL;
466         }
467         SEQ_END
468                 
469 }
470
471 void recurs_sel_seq(Sequence *seqm)
472 {
473         Sequence *seq;
474
475         seq = seqm->seqbase.first;
476         while (seq) {
477
478                 if (seqm->flag & (SEQ_LEFTSEL + SEQ_RIGHTSEL)) seq->flag &= ~SEQ_ALLSEL;
479                 else if (seqm->flag & SELECT) seq->flag |= SELECT;
480                 else seq->flag &= ~SEQ_ALLSEL;
481
482                 if (seq->seqbase.first) recurs_sel_seq(seq);
483
484                 seq = seq->next;
485         }
486 }
487
488 int seq_effect_find_selected(Scene *scene, Sequence *activeseq, int type, Sequence **selseq1, Sequence **selseq2, Sequence **selseq3, const char **error_str)
489 {
490         Editing *ed = seq_give_editing(scene, FALSE);
491         Sequence *seq1 = NULL, *seq2 = NULL, *seq3 = NULL, *seq;
492         
493         *error_str = NULL;
494
495         if (!activeseq)
496                 seq2 = seq_active_get(scene);
497
498         for (seq = ed->seqbasep->first; seq; seq = seq->next) {
499                 if (seq->flag & SELECT) {
500                         if (seq->type == SEQ_SOUND && get_sequence_effect_num_inputs(type) != 0) {
501                                 *error_str = "Can't apply effects to audio sequence strips";
502                                 return 0;
503                         }
504                         if ((seq != activeseq) && (seq != seq2)) {
505                                 if (seq2 == NULL) seq2 = seq;
506                                 else if (seq1 == NULL) seq1 = seq;
507                                 else if (seq3 == NULL) seq3 = seq;
508                                 else {
509                                         *error_str = "Can't apply effect to more than 3 sequence strips";
510                                         return 0;
511                                 }
512                         }
513                 }
514         }
515
516         /* make sequence selection a little bit more intuitive
517          * for 3 strips: the last-strip should be sequence3 */
518         if (seq3 != NULL && seq2 != NULL) {
519                 Sequence *tmp = seq2;
520                 seq2 = seq3;
521                 seq3 = tmp;
522         }
523         
524
525         switch (get_sequence_effect_num_inputs(type)) {
526                 case 0:
527                         *selseq1 = *selseq2 = *selseq3 = NULL;
528                         return 1; /* succsess */
529                 case 1:
530                         if (seq2 == NULL) {
531                                 *error_str = "Need at least one selected sequence strip";
532                                 return 0;
533                         }
534                         if (seq1 == NULL) seq1 = seq2;
535                         if (seq3 == NULL) seq3 = seq2;
536                 case 2:
537                         if (seq1 == NULL || seq2 == NULL) {
538                                 *error_str = "Need 2 selected sequence strips";
539                                 return 0;
540                         }
541                         if (seq3 == NULL) seq3 = seq2;
542         }
543         
544         if (seq1 == NULL && seq2 == NULL && seq3 == NULL) {
545                 *error_str = "TODO: in what cases does this happen?";
546                 return 0;
547         }
548         
549         *selseq1 = seq1;
550         *selseq2 = seq2;
551         *selseq3 = seq3;
552
553         return 1;
554 }
555
556 static Sequence *del_seq_find_replace_recurs(Scene *scene, Sequence *seq)
557 {
558         Sequence *seq1, *seq2, *seq3;
559
560         /* try to find a replacement input sequence, and flag for later deletion if
561          * no replacement can be found */
562
563         if (!seq)
564                 return NULL;
565         else if (!(seq->type & SEQ_EFFECT))
566                 return ((seq->flag & SELECT) ? NULL : seq);
567         else if (!(seq->flag & SELECT)) {
568                 /* try to find replacement for effect inputs */
569                 seq1 = del_seq_find_replace_recurs(scene, seq->seq1);
570                 seq2 = del_seq_find_replace_recurs(scene, seq->seq2);
571                 seq3 = del_seq_find_replace_recurs(scene, seq->seq3);
572
573                 if (seq1 == seq->seq1 && seq2 == seq->seq2 && seq3 == seq->seq3) ;
574                 else if (seq1 || seq2 || seq3) {
575                         seq->seq1 = (seq1) ? seq1 : (seq2) ? seq2 : seq3;
576                         seq->seq2 = (seq2) ? seq2 : (seq1) ? seq1 : seq3;
577                         seq->seq3 = (seq3) ? seq3 : (seq1) ? seq1 : seq2;
578
579                         update_changed_seq_and_deps(scene, seq, 1, 1);
580                 }
581                 else
582                         seq->flag |= SELECT;  /* mark for delete */
583         }
584
585         if (seq->flag & SELECT) {
586                 if ((seq1 = del_seq_find_replace_recurs(scene, seq->seq1))) return seq1;
587                 if ((seq2 = del_seq_find_replace_recurs(scene, seq->seq2))) return seq2;
588                 if ((seq3 = del_seq_find_replace_recurs(scene, seq->seq3))) return seq3;
589                 else return NULL;
590         }
591         else
592                 return seq;
593 }
594
595 static void recurs_del_seq_flag(Scene *scene, ListBase *lb, short flag, short deleteall)
596 {
597         Sequence *seq, *seqn;
598         Sequence *last_seq = seq_active_get(scene);
599
600         seq = lb->first;
601         while (seq) {
602                 seqn = seq->next;
603                 if ((seq->flag & flag) || deleteall) {
604                         BLI_remlink(lb, seq);
605                         if (seq == last_seq) seq_active_set(scene, NULL);
606                         if (seq->type == SEQ_META) recurs_del_seq_flag(scene, &seq->seqbase, flag, 1);
607                         seq_free_sequence(scene, seq);
608                 }
609                 seq = seqn;
610         }
611 }
612
613
614 static Sequence *cut_seq_hard(Scene *scene, Sequence *seq, int cutframe)
615 {
616         TransSeq ts;
617         Sequence *seqn = NULL;
618         int skip_dup = FALSE;
619
620         /* backup values */
621         ts.start = seq->start;
622         ts.machine = seq->machine;
623         ts.startstill = seq->startstill;
624         ts.endstill = seq->endstill;
625         ts.startdisp = seq->startdisp;
626         ts.enddisp = seq->enddisp;
627         ts.startofs = seq->startofs;
628         ts.endofs = seq->endofs;
629         ts.anim_startofs = seq->anim_startofs;
630         ts.anim_endofs = seq->anim_endofs;
631         ts.len = seq->len;
632         
633         /* First Strip! */
634         /* strips with extended stillfames before */
635         
636         if ((seq->startstill) && (cutframe < seq->start)) {
637                 /* don't do funny things with METAs ... */
638                 if (seq->type == SEQ_META) {
639                         skip_dup = TRUE;
640                         seq->startstill = seq->start - cutframe;
641                 }
642                 else {
643                         seq->start = cutframe - 1;
644                         seq->startstill = cutframe - seq->startdisp - 1;
645                         seq->anim_endofs += seq->len - 1;
646                         seq->endstill = 0;
647                 }
648         }
649         /* normal strip */
650         else if ((cutframe >= seq->start) && (cutframe <= (seq->start + seq->len))) {
651                 seq->endofs = 0;
652                 seq->endstill = 0;
653                 seq->anim_endofs += (seq->start + seq->len) - cutframe;
654         }
655         /* strips with extended stillframes after */
656         else if (((seq->start + seq->len) < cutframe) && (seq->endstill)) {
657                 seq->endstill -= seq->enddisp - cutframe;
658                 /* don't do funny things with METAs ... */
659                 if (seq->type == SEQ_META) {
660                         skip_dup = TRUE;
661                 }
662         }
663         
664         reload_sequence_new_file(scene, seq, FALSE);
665         calc_sequence(scene, seq);
666
667         if (!skip_dup) {
668                 /* Duplicate AFTER the first change */
669                 seqn = seq_dupli_recursive(scene, NULL, seq, SEQ_DUPE_UNIQUE_NAME | SEQ_DUPE_ANIM);
670         }
671         
672         if (seqn) { 
673                 seqn->flag |= SELECT;
674                         
675                 /* Second Strip! */
676                 /* strips with extended stillframes before */
677                 if ((seqn->startstill) && (cutframe == seqn->start + 1)) {
678                         seqn->start = ts.start;
679                         seqn->startstill = ts.start - cutframe;
680                         seqn->anim_endofs = ts.anim_endofs;
681                         seqn->endstill = ts.endstill;
682                 }
683                 
684                 /* normal strip */
685                 else if ((cutframe >= seqn->start) && (cutframe <= (seqn->start + seqn->len))) {
686                         seqn->start = cutframe;
687                         seqn->startstill = 0;
688                         seqn->startofs = 0;
689                         seqn->endofs = ts.endofs;
690                         seqn->anim_startofs += cutframe - ts.start;
691                         seqn->anim_endofs = ts.anim_endofs;
692                         seqn->endstill = ts.endstill;
693                 }                               
694                 
695                 /* strips with extended stillframes after */
696                 else if (((seqn->start + seqn->len) < cutframe) && (seqn->endstill)) {
697                         seqn->start = cutframe;
698                         seqn->startofs = 0;
699                         seqn->anim_startofs += ts.len - 1;
700                         seqn->endstill = ts.enddisp - cutframe - 1;
701                         seqn->startstill = 0;
702                 }
703                 
704                 reload_sequence_new_file(scene, seqn, FALSE);
705                 calc_sequence(scene, seqn);
706         }
707         return seqn;
708 }
709
710 static Sequence *cut_seq_soft(Scene *scene, Sequence *seq, int cutframe)
711 {
712         TransSeq ts;
713         Sequence *seqn = NULL;
714         int skip_dup = FALSE;
715
716         /* backup values */
717         ts.start = seq->start;
718         ts.machine = seq->machine;
719         ts.startstill = seq->startstill;
720         ts.endstill = seq->endstill;
721         ts.startdisp = seq->startdisp;
722         ts.enddisp = seq->enddisp;
723         ts.startofs = seq->startofs;
724         ts.endofs = seq->endofs;
725         ts.anim_startofs = seq->anim_startofs;
726         ts.anim_endofs = seq->anim_endofs;
727         ts.len = seq->len;
728         
729         /* First Strip! */
730         /* strips with extended stillfames before */
731         
732         if ((seq->startstill) && (cutframe < seq->start)) {
733                 /* don't do funny things with METAs ... */
734                 if (seq->type == SEQ_META) {
735                         skip_dup = TRUE;
736                         seq->startstill = seq->start - cutframe;
737                 }
738                 else {
739                         seq->start = cutframe - 1;
740                         seq->startstill = cutframe - seq->startdisp - 1;
741                         seq->endofs = seq->len - 1;
742                         seq->endstill = 0;
743                 }
744         }
745         /* normal strip */
746         else if ((cutframe >= seq->start) && (cutframe <= (seq->start + seq->len))) {
747                 seq->endofs = (seq->start + seq->len) - cutframe;
748         }
749         /* strips with extended stillframes after */
750         else if (((seq->start + seq->len) < cutframe) && (seq->endstill)) {
751                 seq->endstill -= seq->enddisp - cutframe;
752                 /* don't do funny things with METAs ... */
753                 if (seq->type == SEQ_META) {
754                         skip_dup = TRUE;
755                 }
756         }
757         
758         calc_sequence(scene, seq);
759
760         if (!skip_dup) {
761                 /* Duplicate AFTER the first change */
762                 seqn = seq_dupli_recursive(scene, NULL, seq, SEQ_DUPE_UNIQUE_NAME | SEQ_DUPE_ANIM);
763         }
764         
765         if (seqn) { 
766                 seqn->flag |= SELECT;
767                         
768                 /* Second Strip! */
769                 /* strips with extended stillframes before */
770                 if ((seqn->startstill) && (cutframe == seqn->start + 1)) {
771                         seqn->start = ts.start;
772                         seqn->startstill = ts.start - cutframe;
773                         seqn->endofs = ts.endofs;
774                         seqn->endstill = ts.endstill;
775                 }
776                 
777                 /* normal strip */
778                 else if ((cutframe >= seqn->start) && (cutframe <= (seqn->start + seqn->len))) {
779                         seqn->startstill = 0;
780                         seqn->startofs = cutframe - ts.start;
781                         seqn->endofs = ts.endofs;
782                         seqn->endstill = ts.endstill;
783                 }                               
784                 
785                 /* strips with extended stillframes after */
786                 else if (((seqn->start + seqn->len) < cutframe) && (seqn->endstill)) {
787                         seqn->start = cutframe - ts.len + 1;
788                         seqn->startofs = ts.len - 1;
789                         seqn->endstill = ts.enddisp - cutframe - 1;
790                         seqn->startstill = 0;
791                 }
792                 
793                 calc_sequence(scene, seqn);
794         }
795         return seqn;
796 }
797
798
799 /* like duplicate, but only duplicate and cut overlapping strips,
800  * strips to the left of the cutframe are ignored and strips to the right are moved into the new list */
801 static int cut_seq_list(Scene *scene, ListBase *old, ListBase *new, int cutframe,
802                         Sequence * (*cut_seq)(Scene *, Sequence *, int))
803 {
804         int did_something = FALSE;
805         Sequence *seq, *seq_next_iter;
806         
807         seq = old->first;
808         
809         while (seq) {
810                 seq_next_iter = seq->next; /* we need this because we may remove seq */
811                 
812                 seq->tmp = NULL;
813                 if (seq->flag & SELECT) {
814                         if (cutframe > seq->startdisp && 
815                             cutframe < seq->enddisp)
816                         {
817                                 Sequence *seqn = cut_seq(scene, seq, cutframe);
818                                 if (seqn) {
819                                         BLI_addtail(new, seqn);
820                                 }
821                                 did_something = TRUE;
822                         }
823                         else if (seq->enddisp <= cutframe) {
824                                 /* do nothing */
825                         }
826                         else if (seq->startdisp >= cutframe) {
827                                 /* move into new list */
828                                 BLI_remlink(old, seq);
829                                 BLI_addtail(new, seq);
830                         }
831                 }
832                 seq = seq_next_iter;
833         }
834         return did_something;
835 }
836
837 static int insert_gap(Scene *scene, int gap, int cfra)
838 {
839         Sequence *seq;
840         Editing *ed = seq_give_editing(scene, FALSE);
841         int done = 0;
842
843         /* all strips >= cfra are shifted */
844         
845         if (ed == NULL) return 0;
846
847         SEQP_BEGIN (ed, seq) {
848                 if (seq->startdisp >= cfra) {
849                         seq->start += gap;
850                         calc_sequence(scene, seq);
851                         done = 1;
852                 }
853         }
854         SEQ_END
855
856         return done;
857 }
858
859 static void UNUSED_FUNCTION(touch_seq_files) (Scene * scene)
860 {
861         Sequence *seq;
862         Editing *ed = seq_give_editing(scene, FALSE);
863         char str[256];
864
865         /* touch all strips with movies */
866         
867         if (ed == NULL) return;
868
869         // XXX25 if (okee("Touch and print selected movies")==0) return;
870
871         WM_cursor_wait(1);
872
873         SEQP_BEGIN (ed, seq) {
874                 if (seq->flag & SELECT) {
875                         if (seq->type == SEQ_MOVIE) {
876                                 if (seq->strip && seq->strip->stripdata) {
877                                         BLI_make_file_string(G.main->name, str, seq->strip->dir, seq->strip->stripdata->name);
878                                         BLI_file_touch(seq->name);
879                                 }
880                         }
881
882                 }
883         }
884         SEQ_END
885
886         WM_cursor_wait(0);
887 }
888
889 #if 0
890 static void set_filter_seq(Scene *scene)
891 {
892         Sequence *seq;
893         Editing *ed = seq_give_editing(scene, FALSE);
894
895         
896         if (ed == NULL) return;
897
898         if (okee("Set Deinterlace") == 0) return;
899
900         SEQP_BEGIN (ed, seq) {
901                 if (seq->flag & SELECT) {
902                         if (seq->type == SEQ_MOVIE) {
903                                 seq->flag |= SEQ_FILTERY;
904                                 reload_sequence_new_file(scene, seq, FALSE);
905                                 calc_sequence(scene, seq);
906                         }
907
908                 }
909         }
910         SEQ_END
911 }
912 #endif
913
914 static void UNUSED_FUNCTION(seq_remap_paths) (Scene * scene)
915 {
916         Sequence *seq, *last_seq = seq_active_get(scene);
917         Editing *ed = seq_give_editing(scene, FALSE);
918         char from[FILE_MAX], to[FILE_MAX], stripped[FILE_MAX];
919         
920         
921         if (last_seq == NULL)
922                 return;
923         
924         BLI_strncpy(from, last_seq->strip->dir, sizeof(from));
925 // XXX  if (0==sbutton(from, 0, sizeof(from)-1, "From: "))
926 //              return;
927         
928         BLI_strncpy(to, from, sizeof(to));
929 // XXX  if (0==sbutton(to, 0, sizeof(to)-1, "To: "))
930 //              return;
931         
932         if (strcmp(to, from) == 0)
933                 return;
934         
935         SEQP_BEGIN (ed, seq) {
936                 if (seq->flag & SELECT) {
937                         if (strncmp(seq->strip->dir, from, strlen(from)) == 0) {
938                                 printf("found %s\n", seq->strip->dir);
939                                 
940                                 /* strip off the beginning */
941                                 stripped[0] = 0;
942                                 BLI_strncpy(stripped, seq->strip->dir + strlen(from), FILE_MAX);
943                                 
944                                 /* new path */
945                                 BLI_snprintf(seq->strip->dir, sizeof(seq->strip->dir), "%s%s", to, stripped);
946                                 printf("new %s\n", seq->strip->dir);
947                         }
948                 }
949         }
950         SEQ_END
951                 
952 }
953
954
955 static void UNUSED_FUNCTION(no_gaps) (Scene * scene)
956 {
957         Editing *ed = seq_give_editing(scene, FALSE);
958         int cfra, first = 0, done;
959
960         
961         if (ed == NULL) return;
962
963         for (cfra = CFRA; cfra <= EFRA; cfra++) {
964                 if (first == 0) {
965                         if (evaluate_seq_frame(scene, cfra) ) first = 1;
966                 }
967                 else {
968                         done = 1;
969                         while (evaluate_seq_frame(scene, cfra) == 0) {
970                                 done = insert_gap(scene, -1, cfra);
971                                 if (done == 0) break;
972                         }
973                         if (done == 0) break;
974                 }
975         }
976
977 }
978
979 #if 0
980 static int seq_get_snaplimit(View2D *v2d)
981 {
982         /* fake mouse coords to get the snap value
983          * a bit lazy but its only done once pre transform */
984         float xmouse, ymouse, x;
985         int mval[2] = {24, 0}; /* 24 screen px snap */
986         
987         UI_view2d_region_to_view(v2d, mval[0], mval[1], &xmouse, &ymouse);
988         x = xmouse;
989         mval[0] = 0;
990         UI_view2d_region_to_view(v2d, mval[0], mval[1], &xmouse, &ymouse);
991         return (int)(x - xmouse);
992 }
993 #endif
994
995 /* Operator functions */
996 int sequencer_edit_poll(bContext *C)
997 {
998         return (seq_give_editing(CTX_data_scene(C), FALSE) != NULL);
999 }
1000
1001 #if 0 /* UNUSED */
1002 int sequencer_strip_poll(bContext *C)
1003 {
1004         Editing *ed;
1005         return (((ed = seq_give_editing(CTX_data_scene(C), FALSE)) != NULL) && (ed->act_seq != NULL));
1006 }
1007 #endif
1008
1009 int sequencer_strip_has_path_poll(bContext *C)
1010 {
1011         Editing *ed;
1012         Sequence *seq;
1013         return (((ed = seq_give_editing(CTX_data_scene(C), FALSE)) != NULL) && ((seq = ed->act_seq) != NULL) && (SEQ_HAS_PATH(seq)));
1014 }
1015
1016 int sequencer_view_poll(bContext *C)
1017 {
1018         SpaceSeq *sseq = CTX_wm_space_seq(C);
1019         Editing *ed = seq_give_editing(CTX_data_scene(C), FALSE);
1020         if (ed && sseq && (sseq->mainb == SEQ_DRAW_IMG_IMBUF))
1021                 return 1;
1022
1023         return 0;
1024 }
1025
1026 /* snap operator*/
1027 static int sequencer_snap_exec(bContext *C, wmOperator *op)
1028 {
1029         Scene *scene = CTX_data_scene(C);
1030         
1031         Editing *ed = seq_give_editing(scene, FALSE);
1032         Sequence *seq;
1033         int snap_frame;
1034
1035         snap_frame = RNA_int_get(op->ptr, "frame");
1036
1037         /* also check metas */
1038         for (seq = ed->seqbasep->first; seq; seq = seq->next) {
1039                 if (seq->flag & SELECT && !(seq->depth == 0 && seq->flag & SEQ_LOCK) &&
1040                     seq_tx_test(seq))
1041                 {
1042                         if ((seq->flag & (SEQ_LEFTSEL + SEQ_RIGHTSEL)) == 0) {
1043                                 /* simple but no anim update */
1044                                 /* seq->start= snap_frame-seq->startofs+seq->startstill; */
1045
1046                                 seq_translate(scene, seq, (snap_frame - seq->startofs + seq->startstill) - seq->start);
1047                         }
1048                         else {
1049                                 if (seq->flag & SEQ_LEFTSEL) {
1050                                         seq_tx_set_final_left(seq, snap_frame);
1051                                 }
1052                                 else { /* SEQ_RIGHTSEL */
1053                                         seq_tx_set_final_right(seq, snap_frame);
1054                                 }
1055                                 seq_tx_handle_xlimits(seq, seq->flag & SEQ_LEFTSEL, seq->flag & SEQ_RIGHTSEL);
1056                         }
1057                         calc_sequence(scene, seq);
1058                 }
1059         }
1060
1061         /* test for effects and overlap
1062          * don't use SEQP_BEGIN since that would be recursive */
1063         for (seq = ed->seqbasep->first; seq; seq = seq->next) {
1064                 if (seq->flag & SELECT && !(seq->depth == 0 && seq->flag & SEQ_LOCK)) {
1065                         seq->flag &= ~SEQ_OVERLAP;
1066                         if (seq_test_overlap(ed->seqbasep, seq) ) {
1067                                 shuffle_seq(ed->seqbasep, seq, scene);
1068                         }
1069                 }
1070                 else if (seq->type & SEQ_EFFECT) {
1071                         if (seq->seq1 && (seq->seq1->flag & SELECT)) 
1072                                 calc_sequence(scene, seq);
1073                         else if (seq->seq2 && (seq->seq2->flag & SELECT)) 
1074                                 calc_sequence(scene, seq);
1075                         else if (seq->seq3 && (seq->seq3->flag & SELECT)) 
1076                                 calc_sequence(scene, seq);
1077                 }
1078         }
1079
1080         /* as last: */
1081         sort_seq(scene);
1082         
1083         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
1084         
1085         return OPERATOR_FINISHED;
1086 }
1087
1088 static int sequencer_snap_invoke(bContext *C, wmOperator *op, wmEvent *UNUSED(event))
1089 {
1090         Scene *scene = CTX_data_scene(C);
1091         
1092         int snap_frame;
1093         
1094         snap_frame = CFRA;
1095         
1096         RNA_int_set(op->ptr, "frame", snap_frame);
1097         return sequencer_snap_exec(C, op);
1098 }
1099
1100 void SEQUENCER_OT_snap(struct wmOperatorType *ot)
1101 {
1102         /* identifiers */
1103         ot->name = "Snap strips";
1104         ot->idname = "SEQUENCER_OT_snap";
1105         ot->description = "Frame where selected strips will be snapped";
1106         
1107         /* api callbacks */
1108         ot->invoke = sequencer_snap_invoke;
1109         ot->exec = sequencer_snap_exec;
1110         ot->poll = sequencer_edit_poll;
1111         
1112         /* flags */
1113         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1114         
1115         RNA_def_int(ot->srna, "frame", 0, INT_MIN, INT_MAX, "Frame", "Frame where selected strips will be snapped", INT_MIN, INT_MAX);
1116 }
1117
1118 /* mute operator */
1119 static int sequencer_mute_exec(bContext *C, wmOperator *op)
1120 {
1121         Scene *scene = CTX_data_scene(C);
1122         Editing *ed = seq_give_editing(scene, FALSE);
1123         Sequence *seq;
1124         int selected;
1125
1126         selected = !RNA_boolean_get(op->ptr, "unselected");
1127         
1128         for (seq = ed->seqbasep->first; seq; seq = seq->next) {
1129                 if ((seq->flag & SEQ_LOCK) == 0) {
1130                         if (selected) { /* mute unselected */
1131                                 if (seq->flag & SELECT)
1132                                         seq->flag |= SEQ_MUTE;
1133                         }
1134                         else {
1135                                 if ((seq->flag & SELECT) == 0)
1136                                         seq->flag |= SEQ_MUTE;
1137                         }
1138                 }
1139         }
1140         
1141         seq_update_muting(ed);
1142         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
1143         
1144         return OPERATOR_FINISHED;
1145 }
1146
1147 void SEQUENCER_OT_mute(struct wmOperatorType *ot)
1148 {
1149         /* identifiers */
1150         ot->name = "Mute Strips";
1151         ot->idname = "SEQUENCER_OT_mute";
1152         ot->description = "Mute selected strips";
1153         
1154         /* api callbacks */
1155         ot->exec = sequencer_mute_exec;
1156         ot->poll = sequencer_edit_poll;
1157         
1158         /* flags */
1159         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1160         
1161         RNA_def_boolean(ot->srna, "unselected", 0, "Unselected", "Mute unselected rather than selected strips");
1162 }
1163
1164
1165 /* unmute operator */
1166 static int sequencer_unmute_exec(bContext *C, wmOperator *op)
1167 {
1168         Scene *scene = CTX_data_scene(C);
1169         Editing *ed = seq_give_editing(scene, FALSE);
1170         Sequence *seq;
1171         int selected;
1172
1173         selected = !RNA_boolean_get(op->ptr, "unselected");
1174         
1175         for (seq = ed->seqbasep->first; seq; seq = seq->next) {
1176                 if ((seq->flag & SEQ_LOCK) == 0) {
1177                         if (selected) { /* unmute unselected */
1178                                 if (seq->flag & SELECT)
1179                                         seq->flag &= ~SEQ_MUTE;
1180                         }
1181                         else {
1182                                 if ((seq->flag & SELECT) == 0)
1183                                         seq->flag &= ~SEQ_MUTE;
1184                         }
1185                 }
1186         }
1187         
1188         seq_update_muting(ed);
1189         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
1190         
1191         return OPERATOR_FINISHED;
1192 }
1193
1194 void SEQUENCER_OT_unmute(struct wmOperatorType *ot)
1195 {
1196         /* identifiers */
1197         ot->name = "Un-Mute Strips";
1198         ot->idname = "SEQUENCER_OT_unmute";
1199         ot->description = "Un-Mute unselected rather than selected strips";
1200         
1201         /* api callbacks */
1202         ot->exec = sequencer_unmute_exec;
1203         ot->poll = sequencer_edit_poll;
1204         
1205         /* flags */
1206         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1207         
1208         RNA_def_boolean(ot->srna, "unselected", 0, "Unselected", "UnMute unselected rather than selected strips");
1209 }
1210
1211
1212 /* lock operator */
1213 static int sequencer_lock_exec(bContext *C, wmOperator *UNUSED(op))
1214 {
1215         Scene *scene = CTX_data_scene(C);
1216         Editing *ed = seq_give_editing(scene, FALSE);
1217         Sequence *seq;
1218
1219         for (seq = ed->seqbasep->first; seq; seq = seq->next) {
1220                 if (seq->flag & SELECT) {
1221                         seq->flag |= SEQ_LOCK;
1222                 }
1223         }
1224
1225         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
1226
1227         return OPERATOR_FINISHED;
1228 }
1229
1230 void SEQUENCER_OT_lock(struct wmOperatorType *ot)
1231 {
1232         /* identifiers */
1233         ot->name = "Lock Strips";
1234         ot->idname = "SEQUENCER_OT_lock";
1235         ot->description = "Lock the active strip so that it can't be transformed";
1236         
1237         /* api callbacks */
1238         ot->exec = sequencer_lock_exec;
1239         ot->poll = sequencer_edit_poll;
1240         
1241         /* flags */
1242         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1243 }
1244
1245 /* unlock operator */
1246 static int sequencer_unlock_exec(bContext *C, wmOperator *UNUSED(op))
1247 {
1248         Scene *scene = CTX_data_scene(C);
1249         Editing *ed = seq_give_editing(scene, FALSE);
1250         Sequence *seq;
1251
1252         for (seq = ed->seqbasep->first; seq; seq = seq->next) {
1253                 if (seq->flag & SELECT) {
1254                         seq->flag &= ~SEQ_LOCK;
1255                 }
1256         }
1257
1258         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
1259
1260         return OPERATOR_FINISHED;
1261 }
1262
1263 void SEQUENCER_OT_unlock(struct wmOperatorType *ot)
1264 {
1265         /* identifiers */
1266         ot->name = "UnLock Strips";
1267         ot->idname = "SEQUENCER_OT_unlock";
1268         ot->description = "Unlock the active strip so that it can't be transformed";
1269         
1270         /* api callbacks */
1271         ot->exec = sequencer_unlock_exec;
1272         ot->poll = sequencer_edit_poll;
1273         
1274         /* flags */
1275         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1276 }
1277
1278 /* reload operator */
1279 static int sequencer_reload_exec(bContext *C, wmOperator *op)
1280 {
1281         Scene *scene = CTX_data_scene(C);
1282         Editing *ed = seq_give_editing(scene, FALSE);
1283         Sequence *seq;
1284         int adjust_length = RNA_boolean_get(op->ptr, "adjust_length");
1285
1286         for (seq = ed->seqbasep->first; seq; seq = seq->next) {
1287                 if (seq->flag & SELECT) {
1288                         update_changed_seq_and_deps(scene, seq, 0, 1);
1289                         reload_sequence_new_file(scene, seq, !adjust_length);
1290
1291                         if (adjust_length) {
1292                                 if (seq_test_overlap(ed->seqbasep, seq))
1293                                         shuffle_seq(ed->seqbasep, seq, scene);
1294                         }
1295                 }
1296         }
1297
1298         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
1299
1300         return OPERATOR_FINISHED;
1301 }
1302
1303 void SEQUENCER_OT_reload(struct wmOperatorType *ot)
1304 {
1305         PropertyRNA *prop;
1306
1307         /* identifiers */
1308         ot->name = "Reload Strips";
1309         ot->idname = "SEQUENCER_OT_reload";
1310         ot->description = "Reload strips in the sequencer";
1311         
1312         /* api callbacks */
1313         ot->exec = sequencer_reload_exec;
1314         ot->poll = sequencer_edit_poll;
1315         
1316         /* flags */
1317         ot->flag = OPTYPE_REGISTER; /* no undo, the data changed is stored outside 'main' */
1318
1319         prop = RNA_def_boolean(ot->srna, "adjust_length", 0, "Adjust Length",
1320                                "Adjust lenght of strips to their data lenght");
1321         RNA_def_property_flag(prop, PROP_SKIP_SAVE);
1322 }
1323
1324 /* reload operator */
1325 static int sequencer_refresh_all_exec(bContext *C, wmOperator *UNUSED(op))
1326 {
1327         Scene *scene = CTX_data_scene(C);
1328         Editing *ed = seq_give_editing(scene, FALSE);
1329
1330         free_imbuf_seq(scene, &ed->seqbase, FALSE, FALSE);
1331
1332         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
1333
1334         return OPERATOR_FINISHED;
1335 }
1336
1337 void SEQUENCER_OT_refresh_all(struct wmOperatorType *ot)
1338 {
1339         /* identifiers */
1340         ot->name = "Refresh Sequencer";
1341         ot->idname = "SEQUENCER_OT_refresh_all";
1342         ot->description = "Refresh the sequencer editor";
1343         
1344         /* api callbacks */
1345         ot->exec = sequencer_refresh_all_exec;
1346         ot->poll = sequencer_edit_poll;
1347 }
1348
1349 static int sequencer_reassign_inputs_exec(bContext *C, wmOperator *op)
1350 {
1351         Scene *scene = CTX_data_scene(C);
1352         Sequence *seq1, *seq2, *seq3, *last_seq = seq_active_get(scene);
1353         const char *error_msg;
1354
1355         if (!seq_effect_find_selected(scene, last_seq, last_seq->type, &seq1, &seq2, &seq3, &error_msg)) {
1356                 BKE_report(op->reports, RPT_ERROR, error_msg);
1357                 return OPERATOR_CANCELLED;
1358         }
1359         /* see reassigning would create a cycle */
1360         if (seq_is_predecessor(seq1, last_seq) ||
1361             seq_is_predecessor(seq2, last_seq) ||
1362             seq_is_predecessor(seq3, last_seq)
1363             ) {
1364                 BKE_report(op->reports, RPT_ERROR, "Can't reassign inputs: no cycles allowed");
1365                 return OPERATOR_CANCELLED;
1366         }
1367
1368         last_seq->seq1 = seq1;
1369         last_seq->seq2 = seq2;
1370         last_seq->seq3 = seq3;
1371
1372         update_changed_seq_and_deps(scene, last_seq, 1, 1);
1373
1374         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
1375
1376         return OPERATOR_FINISHED;
1377 }
1378
1379 static int sequencer_effect_poll(bContext *C)
1380 {
1381         Scene *scene = CTX_data_scene(C);
1382         Editing *ed = seq_give_editing(scene, FALSE);
1383
1384         if (ed) {
1385                 Sequence *last_seq = seq_active_get(scene);
1386                 if (last_seq && (last_seq->type & SEQ_EFFECT)) {
1387                         return 1;
1388                 }
1389         }
1390
1391         return 0;
1392 }
1393
1394 void SEQUENCER_OT_reassign_inputs(struct wmOperatorType *ot)
1395 {
1396         /* identifiers */
1397         ot->name = "Reassign Inputs";
1398         ot->idname = "SEQUENCER_OT_reassign_inputs";
1399         ot->description = "Reassign the inputs for the effect strip";
1400
1401         /* api callbacks */
1402         ot->exec = sequencer_reassign_inputs_exec;
1403         ot->poll = sequencer_effect_poll;
1404
1405         /* flags */
1406         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1407 }
1408
1409
1410 static int sequencer_swap_inputs_exec(bContext *C, wmOperator *op)
1411 {
1412         Scene *scene = CTX_data_scene(C);
1413         Sequence *seq, *last_seq = seq_active_get(scene);
1414
1415         if (last_seq->seq1 == NULL || last_seq->seq2 == NULL) {
1416                 BKE_report(op->reports, RPT_ERROR, "No valid inputs to swap");
1417                 return OPERATOR_CANCELLED;
1418         }
1419
1420         seq = last_seq->seq1;
1421         last_seq->seq1 = last_seq->seq2;
1422         last_seq->seq2 = seq;
1423
1424         update_changed_seq_and_deps(scene, last_seq, 1, 1);
1425
1426         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
1427
1428         return OPERATOR_FINISHED;
1429 }
1430 void SEQUENCER_OT_swap_inputs(struct wmOperatorType *ot)
1431 {
1432         /* identifiers */
1433         ot->name = "Swap Inputs";
1434         ot->idname = "SEQUENCER_OT_swap_inputs";
1435         ot->description = "Swap the first two inputs for the effect strip";
1436
1437         /* api callbacks */
1438         ot->exec = sequencer_swap_inputs_exec;
1439         ot->poll = sequencer_effect_poll;
1440
1441         /* flags */
1442         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1443 }
1444
1445
1446 /* cut operator */
1447 static EnumPropertyItem prop_cut_types[] = {
1448         {SEQ_CUT_SOFT, "SOFT", 0, "Soft", ""},
1449         {SEQ_CUT_HARD, "HARD", 0, "Hard", ""},
1450         {0, NULL, 0, NULL, NULL}
1451 };
1452
1453 static int sequencer_cut_exec(bContext *C, wmOperator *op)
1454 {
1455         Scene *scene = CTX_data_scene(C);
1456         Editing *ed = seq_give_editing(scene, FALSE);
1457         int cut_side, cut_hard, cut_frame;
1458
1459         ListBase newlist;
1460         int changed;
1461
1462         cut_frame = RNA_int_get(op->ptr, "frame");
1463         cut_hard = RNA_enum_get(op->ptr, "type");
1464         cut_side = RNA_enum_get(op->ptr, "side");
1465         
1466         newlist.first = newlist.last = NULL;
1467
1468         if (cut_hard == SEQ_CUT_HARD) {
1469                 changed = cut_seq_list(scene, ed->seqbasep, &newlist, cut_frame, cut_seq_hard);
1470         }
1471         else {
1472                 changed = cut_seq_list(scene, ed->seqbasep, &newlist, cut_frame, cut_seq_soft);
1473         }
1474         
1475         if (newlist.first) { /* got new strips ? */
1476                 Sequence *seq;
1477                 BLI_movelisttolist(ed->seqbasep, &newlist);
1478
1479                 if (cut_side != SEQ_SIDE_BOTH) {
1480                         SEQP_BEGIN (ed, seq) {
1481                                 if (cut_side == SEQ_SIDE_LEFT) {
1482                                         if (seq->startdisp >= cut_frame) {
1483                                                 seq->flag &= ~SEQ_ALLSEL;
1484                                         }
1485                                 }
1486                                 else {
1487                                         if (seq->enddisp <= cut_frame) {
1488                                                 seq->flag &= ~SEQ_ALLSEL;
1489                                         }
1490                                 }
1491                         }
1492                         SEQ_END;
1493                 }
1494                 /* as last: */
1495                 sort_seq(scene);
1496         }
1497
1498         if (changed) {
1499                 WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
1500                 return OPERATOR_FINISHED;
1501         }
1502         else {
1503                 return OPERATOR_CANCELLED;
1504         }
1505 }
1506
1507
1508 static int sequencer_cut_invoke(bContext *C, wmOperator *op, wmEvent *event)
1509 {
1510         Scene *scene = CTX_data_scene(C);
1511         View2D *v2d = UI_view2d_fromcontext(C);
1512
1513         int cut_side = SEQ_SIDE_BOTH;
1514         int cut_frame = CFRA;
1515
1516         if (ED_operator_sequencer_active(C) && v2d)
1517                 cut_side = mouse_frame_side(v2d, event->mval[0], cut_frame);
1518         
1519         RNA_int_set(op->ptr, "frame", cut_frame);
1520         RNA_enum_set(op->ptr, "side", cut_side);
1521         /*RNA_enum_set(op->ptr, "type", cut_hard); */ /*This type is set from the key shortcut */
1522
1523         return sequencer_cut_exec(C, op);
1524 }
1525
1526
1527 void SEQUENCER_OT_cut(struct wmOperatorType *ot)
1528 {
1529         /* identifiers */
1530         ot->name = "Cut Strips";
1531         ot->idname = "SEQUENCER_OT_cut";
1532         ot->description = "Cut the selected strips";
1533         
1534         /* api callbacks */
1535         ot->invoke = sequencer_cut_invoke;
1536         ot->exec = sequencer_cut_exec;
1537         ot->poll = sequencer_edit_poll;
1538         
1539         /* flags */
1540         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1541         
1542         RNA_def_int(ot->srna, "frame", 0, INT_MIN, INT_MAX, "Frame", "Frame where selected strips will be cut", INT_MIN, INT_MAX);
1543         RNA_def_enum(ot->srna, "type", prop_cut_types, SEQ_CUT_SOFT, "Type", "The type of cut operation to perform on strips");
1544         RNA_def_enum(ot->srna, "side", prop_side_types, SEQ_SIDE_BOTH, "Side", "The side that remains selected after cutting");
1545 }
1546
1547 /* duplicate operator */
1548 static int apply_unique_name_cb(Sequence *seq, void *arg_pt)
1549 {
1550         Scene *scene = (Scene *)arg_pt;
1551         char name[sizeof(seq->name) - 2];
1552
1553         strcpy(name, seq->name + 2);
1554         seqbase_unique_name_recursive(&scene->ed->seqbase, seq);
1555         seq_dupe_animdata(scene, name, seq->name + 2);
1556         return 1;
1557
1558 }
1559
1560 static int sequencer_add_duplicate_exec(bContext *C, wmOperator *UNUSED(op))
1561 {
1562         Scene *scene = CTX_data_scene(C);
1563         Editing *ed = seq_give_editing(scene, FALSE);
1564
1565         ListBase nseqbase = {NULL, NULL};
1566
1567         if (ed == NULL)
1568                 return OPERATOR_CANCELLED;
1569
1570         seqbase_dupli_recursive(scene, NULL, &nseqbase, ed->seqbasep, SEQ_DUPE_CONTEXT);
1571
1572         if (nseqbase.first) {
1573                 Sequence *seq = nseqbase.first;
1574                 /* rely on the nseqbase list being added at the end */
1575                 BLI_movelisttolist(ed->seqbasep, &nseqbase);
1576
1577                 for (; seq; seq = seq->next)
1578                         seq_recursive_apply(seq, apply_unique_name_cb, scene);
1579
1580                 WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
1581                 return OPERATOR_FINISHED;
1582         }
1583
1584         return OPERATOR_CANCELLED;
1585 }
1586
1587 static int sequencer_add_duplicate_invoke(bContext *C, wmOperator *op, wmEvent *UNUSED(event))
1588 {
1589         sequencer_add_duplicate_exec(C, op);
1590
1591         RNA_enum_set(op->ptr, "mode", TFM_TRANSLATION);
1592         WM_operator_name_call(C, "TRANSFORM_OT_transform", WM_OP_INVOKE_REGION_WIN, op->ptr);
1593
1594         return OPERATOR_FINISHED;
1595 }
1596
1597 void SEQUENCER_OT_duplicate(wmOperatorType *ot)
1598 {
1599         /* identifiers */
1600         ot->name = "Duplicate Strips";
1601         ot->idname = "SEQUENCER_OT_duplicate";
1602         ot->description = "Duplicate the selected strips";
1603         
1604         /* api callbacks */
1605         ot->invoke = sequencer_add_duplicate_invoke;
1606         ot->exec = sequencer_add_duplicate_exec;
1607         ot->poll = ED_operator_sequencer_active;
1608         
1609         /* flags */
1610         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1611         
1612         /* to give to transform */
1613         RNA_def_enum(ot->srna, "mode", transform_mode_types, TFM_TRANSLATION, "Mode", "");
1614 }
1615
1616 /* delete operator */
1617 static int sequencer_delete_exec(bContext *C, wmOperator *UNUSED(op))
1618 {
1619         Scene *scene = CTX_data_scene(C);
1620         Editing *ed = seq_give_editing(scene, FALSE);
1621         Sequence *seq;
1622         MetaStack *ms;
1623         int nothingSelected = TRUE;
1624
1625         seq = seq_active_get(scene);
1626         if (seq && seq->flag & SELECT) { /* avoid a loop since this is likely to be selected */
1627                 nothingSelected = FALSE;
1628         }
1629         else {
1630                 for (seq = ed->seqbasep->first; seq; seq = seq->next) {
1631                         if (seq->flag & SELECT) {
1632                                 nothingSelected = FALSE;
1633                                 break;
1634                         }
1635                 }
1636         }
1637
1638         if (nothingSelected)
1639                 return OPERATOR_FINISHED;
1640
1641         /* for effects, try to find a replacement input */
1642         for (seq = ed->seqbasep->first; seq; seq = seq->next)
1643                 if ((seq->type & SEQ_EFFECT) && !(seq->flag & SELECT))
1644                         del_seq_find_replace_recurs(scene, seq);
1645
1646         /* delete all selected strips */
1647         recurs_del_seq_flag(scene, ed->seqbasep, SELECT, 0);
1648
1649         /* updates lengths etc */
1650         seq = ed->seqbasep->first;
1651         while (seq) {
1652                 calc_sequence(scene, seq);
1653                 seq = seq->next;
1654         }
1655
1656         /* free parent metas */
1657         ms = ed->metastack.last;
1658         while (ms) {
1659                 calc_sequence(scene, ms->parseq);
1660                 ms = ms->prev;
1661         }
1662
1663         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
1664         
1665         return OPERATOR_FINISHED;
1666 }
1667
1668
1669 void SEQUENCER_OT_delete(wmOperatorType *ot)
1670 {
1671
1672         /* identifiers */
1673         ot->name = "Erase Strips";
1674         ot->idname = "SEQUENCER_OT_delete";
1675         ot->description = "Erase selected strips from the sequencer";
1676         
1677         /* api callbacks */
1678         ot->invoke = WM_operator_confirm;
1679         ot->exec = sequencer_delete_exec;
1680         ot->poll = sequencer_edit_poll;
1681         
1682         /* flags */
1683         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1684 }
1685
1686
1687 /* offset clear operator */
1688 static int sequencer_offset_clear_exec(bContext *C, wmOperator *UNUSED(op))
1689 {
1690         Scene *scene = CTX_data_scene(C);
1691         Editing *ed = seq_give_editing(scene, FALSE);
1692         Sequence *seq;
1693
1694         /* for effects, try to find a replacement input */
1695         for (seq = ed->seqbasep->first; seq; seq = seq->next) {
1696                 if ((seq->type & SEQ_EFFECT) == 0 && (seq->flag & SELECT)) {
1697                         seq->startofs = seq->endofs = seq->startstill = seq->endstill = 0;
1698                 }
1699         }
1700
1701         /* updates lengths etc */
1702         seq = ed->seqbasep->first;
1703         while (seq) {
1704                 calc_sequence(scene, seq);
1705                 seq = seq->next;
1706         }
1707
1708         for (seq = ed->seqbasep->first; seq; seq = seq->next) {
1709                 if ((seq->type & SEQ_EFFECT) == 0 && (seq->flag & SELECT)) {
1710                         if (seq_test_overlap(ed->seqbasep, seq)) {
1711                                 shuffle_seq(ed->seqbasep, seq, scene);
1712                         }
1713                 }
1714         }
1715
1716         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
1717
1718         return OPERATOR_FINISHED;
1719 }
1720
1721
1722 void SEQUENCER_OT_offset_clear(wmOperatorType *ot)
1723 {
1724
1725         /* identifiers */
1726         ot->name = "Clear Strip Offset";
1727         ot->idname = "SEQUENCER_OT_offset_clear";
1728         ot->description = "Clear strip offsets from the start and end frames";
1729
1730         /* api callbacks */
1731         ot->exec = sequencer_offset_clear_exec;
1732         ot->poll = sequencer_edit_poll;
1733
1734         /* flags */
1735         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1736 }
1737
1738
1739 /* separate_images operator */
1740 static int sequencer_separate_images_exec(bContext *C, wmOperator *op)
1741 {
1742         Scene *scene = CTX_data_scene(C);
1743         Editing *ed = seq_give_editing(scene, FALSE);
1744         
1745         Sequence *seq, *seq_new;
1746         Strip *strip_new;
1747         StripElem *se, *se_new;
1748         int start_ofs, cfra, frame_end;
1749         int step = RNA_int_get(op->ptr, "length");
1750
1751         seq = ed->seqbasep->first; /* poll checks this is valid */
1752
1753         while (seq) {
1754                 if ((seq->flag & SELECT) && (seq->type == SEQ_IMAGE) && (seq->len > 1)) {
1755                         /* remove seq so overlap tests don't conflict,
1756                          * see seq_free_sequence below for the real free'ing */
1757                         BLI_remlink(ed->seqbasep, seq);
1758                         /* if (seq->ipo) seq->ipo->id.us--; */
1759                         /* XXX, remove fcurve and assign to split image strips */
1760
1761                         start_ofs = cfra = seq_tx_get_final_left(seq, 0);
1762                         frame_end = seq_tx_get_final_right(seq, 0);
1763
1764                         while (cfra < frame_end) {
1765                                 /* new seq */
1766                                 se = give_stripelem(seq, cfra);
1767
1768                                 seq_new = seq_dupli_recursive(scene, scene, seq, SEQ_DUPE_UNIQUE_NAME);
1769                                 BLI_addtail(ed->seqbasep, seq_new);
1770
1771                                 seq_new->start = start_ofs;
1772                                 seq_new->type = SEQ_IMAGE;
1773                                 seq_new->len = 1;
1774                                 seq_new->endstill = step - 1;
1775
1776                                 /* new strip */
1777                                 strip_new = seq_new->strip;
1778                                 strip_new->us = 1;
1779
1780                                 /* new stripdata */
1781                                 se_new = strip_new->stripdata;
1782                                 BLI_strncpy(se_new->name, se->name, sizeof(se_new->name));
1783                                 calc_sequence(scene, seq_new);
1784
1785                                 if (step > 1) {
1786                                         seq_new->flag &= ~SEQ_OVERLAP;
1787                                         if (seq_test_overlap(ed->seqbasep, seq_new)) {
1788                                                 shuffle_seq(ed->seqbasep, seq_new, scene);
1789                                         }
1790                                 }
1791
1792                                 /* XXX, COPY FCURVES */
1793
1794                                 cfra++;
1795                                 start_ofs += step;
1796                         }
1797
1798                         seq_free_sequence(scene, seq);
1799                         seq = seq->next;
1800                 }
1801                 else {
1802                         seq = seq->next;
1803                 }
1804         }
1805
1806         /* as last: */
1807         sort_seq(scene);
1808         
1809         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
1810
1811         return OPERATOR_FINISHED;
1812 }
1813
1814
1815 void SEQUENCER_OT_images_separate(wmOperatorType *ot)
1816 {
1817         /* identifiers */
1818         ot->name = "Separate Images";
1819         ot->idname = "SEQUENCER_OT_images_separate";
1820         ot->description = "On image sequence strips, it returns a strip for each image";
1821         
1822         /* api callbacks */
1823         ot->exec = sequencer_separate_images_exec;
1824         ot->poll = sequencer_edit_poll;
1825         
1826         /* flags */
1827         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1828
1829         RNA_def_int(ot->srna, "length", 1, 1, 1000, "Length", "Length of each frame", 1, INT_MAX);
1830 }
1831
1832
1833 /* META Operators */
1834
1835 /* separate_meta_toggle operator */
1836 static int sequencer_meta_toggle_exec(bContext *C, wmOperator *UNUSED(op))
1837 {
1838         Scene *scene = CTX_data_scene(C);
1839         Editing *ed = seq_give_editing(scene, FALSE);
1840         Sequence *last_seq = seq_active_get(scene);
1841         MetaStack *ms;
1842
1843         if (last_seq && last_seq->type == SEQ_META && last_seq->flag & SELECT) {
1844                 /* Enter Metastrip */
1845                 ms = MEM_mallocN(sizeof(MetaStack), "metastack");
1846                 BLI_addtail(&ed->metastack, ms);
1847                 ms->parseq = last_seq;
1848                 ms->oldbasep = ed->seqbasep;
1849
1850                 ed->seqbasep = &last_seq->seqbase;
1851
1852                 seq_active_set(scene, NULL);
1853
1854         }
1855         else {
1856                 /* Exit Metastrip (if possible) */
1857
1858                 Sequence *seq;
1859
1860                 if (ed->metastack.first == NULL)
1861                         return OPERATOR_CANCELLED;
1862
1863                 ms = ed->metastack.last;
1864                 BLI_remlink(&ed->metastack, ms);
1865
1866                 ed->seqbasep = ms->oldbasep;
1867
1868                 /* recalc all: the meta can have effects connected to it */
1869                 for (seq = ed->seqbasep->first; seq; seq = seq->next)
1870                         calc_sequence(scene, seq);
1871
1872                 seq_active_set(scene, ms->parseq);
1873
1874                 ms->parseq->flag |= SELECT;
1875                 recurs_sel_seq(ms->parseq);
1876
1877                 MEM_freeN(ms);
1878
1879         }
1880
1881         seq_update_muting(ed);
1882         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
1883
1884         return OPERATOR_FINISHED;
1885 }
1886
1887 void SEQUENCER_OT_meta_toggle(wmOperatorType *ot)
1888 {
1889         /* identifiers */
1890         ot->name = "Toggle Meta Strip";
1891         ot->idname = "SEQUENCER_OT_meta_toggle";
1892         ot->description = "Toggle a metastrip (to edit enclosed strips)";
1893         
1894         /* api callbacks */
1895         ot->exec = sequencer_meta_toggle_exec;
1896         ot->poll = sequencer_edit_poll;
1897         
1898         /* flags */
1899         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1900 }
1901
1902
1903 /* separate_meta_make operator */
1904 static int sequencer_meta_make_exec(bContext *C, wmOperator *op)
1905 {
1906         Scene *scene = CTX_data_scene(C);
1907         Editing *ed = seq_give_editing(scene, FALSE);
1908         
1909         Sequence *seq, *seqm, *next, *last_seq = seq_active_get(scene);
1910         int channel_max = 1;
1911
1912         if (seqbase_isolated_sel_check(ed->seqbasep) == FALSE) {
1913                 BKE_report(op->reports, RPT_ERROR, "Please select all related strips");
1914                 return OPERATOR_CANCELLED;
1915         }
1916
1917         /* remove all selected from main list, and put in meta */
1918
1919         seqm = alloc_sequence(ed->seqbasep, 1, 1); /* channel number set later */
1920         strcpy(seqm->name + 2, "MetaStrip");
1921         seqm->type = SEQ_META;
1922         seqm->flag = SELECT;
1923
1924         seq = ed->seqbasep->first;
1925         while (seq) {
1926                 next = seq->next;
1927                 if (seq != seqm && (seq->flag & SELECT)) {
1928                         channel_max = MAX2(seq->machine, channel_max);
1929                         BLI_remlink(ed->seqbasep, seq);
1930                         BLI_addtail(&seqm->seqbase, seq);
1931                 }
1932                 seq = next;
1933         }
1934         seqm->machine = last_seq ? last_seq->machine : channel_max;
1935         calc_sequence(scene, seqm);
1936
1937         seqm->strip = MEM_callocN(sizeof(Strip), "metastrip");
1938         seqm->strip->us = 1;
1939         
1940         seq_active_set(scene, seqm);
1941
1942         if (seq_test_overlap(ed->seqbasep, seqm) ) shuffle_seq(ed->seqbasep, seqm, scene);
1943
1944         seq_update_muting(ed);
1945
1946         seqbase_unique_name_recursive(&scene->ed->seqbase, seqm);
1947
1948         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
1949
1950         return OPERATOR_FINISHED;
1951 }
1952
1953 void SEQUENCER_OT_meta_make(wmOperatorType *ot)
1954 {
1955         /* identifiers */
1956         ot->name = "Make Meta Strip";
1957         ot->idname = "SEQUENCER_OT_meta_make";
1958         ot->description = "Group selected strips into a metastrip";
1959         
1960         /* api callbacks */
1961         ot->invoke = WM_operator_confirm;
1962         ot->exec = sequencer_meta_make_exec;
1963         ot->poll = sequencer_edit_poll;
1964         
1965         /* flags */
1966         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1967 }
1968
1969
1970 static int seq_depends_on_meta(Sequence *seq, Sequence *seqm)
1971 {
1972         if (seq == seqm) return 1;
1973         else if (seq->seq1 && seq_depends_on_meta(seq->seq1, seqm)) return 1;
1974         else if (seq->seq2 && seq_depends_on_meta(seq->seq2, seqm)) return 1;
1975         else if (seq->seq3 && seq_depends_on_meta(seq->seq3, seqm)) return 1;
1976         else return 0;
1977 }
1978
1979 /* separate_meta_make operator */
1980 static int sequencer_meta_separate_exec(bContext *C, wmOperator *UNUSED(op))
1981 {
1982         Scene *scene = CTX_data_scene(C);
1983         Editing *ed = seq_give_editing(scene, FALSE);
1984
1985         Sequence *seq, *last_seq = seq_active_get(scene); /* last_seq checks ed==NULL */
1986
1987         if (last_seq == NULL || last_seq->type != SEQ_META)
1988                 return OPERATOR_CANCELLED;
1989
1990         BLI_movelisttolist(ed->seqbasep, &last_seq->seqbase);
1991
1992         last_seq->seqbase.first = NULL;
1993         last_seq->seqbase.last = NULL;
1994
1995         BLI_remlink(ed->seqbasep, last_seq);
1996         seq_free_sequence(scene, last_seq);
1997
1998         /* emtpy meta strip, delete all effects depending on it */
1999         for (seq = ed->seqbasep->first; seq; seq = seq->next)
2000                 if ((seq->type & SEQ_EFFECT) && seq_depends_on_meta(seq, last_seq))
2001                         seq->flag |= SEQ_FLAG_DELETE;
2002
2003         recurs_del_seq_flag(scene, ed->seqbasep, SEQ_FLAG_DELETE, 0);
2004
2005         /* test for effects and overlap
2006          * don't use SEQP_BEGIN since that would be recursive */
2007         for (seq = ed->seqbasep->first; seq; seq = seq->next) {
2008                 if (seq->flag & SELECT) {
2009                         seq->flag &= ~SEQ_OVERLAP;
2010                         if (seq_test_overlap(ed->seqbasep, seq)) {
2011                                 shuffle_seq(ed->seqbasep, seq, scene);
2012                         }
2013                 }
2014         }
2015
2016         sort_seq(scene);
2017         seq_update_muting(ed);
2018
2019         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
2020
2021         return OPERATOR_FINISHED;
2022 }
2023
2024 void SEQUENCER_OT_meta_separate(wmOperatorType *ot)
2025 {
2026         /* identifiers */
2027         ot->name = "UnMeta Strip";
2028         ot->idname = "SEQUENCER_OT_meta_separate";
2029         ot->description = "Put the contents of a metastrip back in the sequencer";
2030         
2031         /* api callbacks */
2032         ot->invoke = WM_operator_confirm;
2033         ot->exec = sequencer_meta_separate_exec;
2034         ot->poll = sequencer_edit_poll;
2035         
2036         /* flags */
2037         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
2038 }
2039
2040 /* view_all operator */
2041 static int sequencer_view_all_exec(bContext *C, wmOperator *UNUSED(op))
2042 {
2043         //Scene *scene= CTX_data_scene(C);
2044         bScreen *sc = CTX_wm_screen(C);
2045         ScrArea *area = CTX_wm_area(C);
2046         //ARegion *ar= CTX_wm_region(C);
2047         View2D *v2d = UI_view2d_fromcontext(C);
2048
2049         v2d->cur = v2d->tot;
2050         UI_view2d_curRect_validate(v2d);
2051         UI_view2d_sync(sc, area, v2d, V2D_LOCK_COPY);
2052         
2053         ED_area_tag_redraw(CTX_wm_area(C));
2054         return OPERATOR_FINISHED;
2055 }
2056
2057 void SEQUENCER_OT_view_all(wmOperatorType *ot)
2058 {
2059         /* identifiers */
2060         ot->name = "View All";
2061         ot->idname = "SEQUENCER_OT_view_all";
2062         ot->description = "View all the strips in the sequencer";
2063         
2064         /* api callbacks */
2065         ot->exec = sequencer_view_all_exec;
2066         ot->poll = ED_operator_sequencer_active;
2067         
2068         /* flags */
2069         ot->flag = OPTYPE_REGISTER;
2070 }
2071
2072 /* view_all operator */
2073 static int sequencer_view_all_preview_exec(bContext *C, wmOperator *UNUSED(op))
2074 {
2075         bScreen *sc = CTX_wm_screen(C);
2076         ScrArea *area = CTX_wm_area(C);
2077 #if 0
2078         ARegion *ar = CTX_wm_region(C);
2079         SpaceSeq *sseq = area->spacedata.first;
2080         Scene *scene = CTX_data_scene(C);
2081 #endif
2082         View2D *v2d = UI_view2d_fromcontext(C);
2083
2084         v2d->cur = v2d->tot;
2085         UI_view2d_curRect_validate(v2d);
2086         UI_view2d_sync(sc, area, v2d, V2D_LOCK_COPY);
2087         
2088 #if 0
2089         /* Like zooming on an image view */
2090         float zoomX, zoomY;
2091         int width, height, imgwidth, imgheight;
2092
2093         width = ar->winx;
2094         height = ar->winy;
2095
2096         seq_reset_imageofs(sseq);
2097
2098         imgwidth = (scene->r.size * scene->r.xsch) / 100;
2099         imgheight = (scene->r.size * scene->r.ysch) / 100;
2100
2101         /* Apply aspect, dosnt need to be that accurate */
2102         imgwidth = (int)(imgwidth * (scene->r.xasp / scene->r.yasp));
2103
2104         if (((imgwidth >= width) || (imgheight >= height)) &&
2105             ((width > 0) && (height > 0))) {
2106
2107                 /* Find the zoom value that will fit the image in the image space */
2108                 zoomX = ((float)width) / ((float)imgwidth);
2109                 zoomY = ((float)height) / ((float)imgheight);
2110                 sseq->zoom = (zoomX < zoomY) ? zoomX : zoomY;
2111
2112                 sseq->zoom = 1.0f / power_of_2(1 / MIN2(zoomX, zoomY) );
2113         }
2114         else {
2115                 sseq->zoom = 1.0f;
2116         }
2117 #endif
2118
2119         ED_area_tag_redraw(CTX_wm_area(C));
2120         return OPERATOR_FINISHED;
2121 }
2122
2123 void SEQUENCER_OT_view_all_preview(wmOperatorType *ot)
2124 {
2125         /* identifiers */
2126         ot->name = "View All";
2127         ot->idname = "SEQUENCER_OT_view_all_preview";
2128         ot->description = "Zoom preview to fit in the area";
2129         
2130         /* api callbacks */
2131         ot->exec = sequencer_view_all_preview_exec;
2132         ot->poll = ED_operator_sequencer_active;
2133         
2134         /* flags */
2135         ot->flag = OPTYPE_REGISTER;
2136 }
2137
2138
2139 static int sequencer_view_zoom_ratio_exec(bContext *C, wmOperator *op)
2140 {
2141         RenderData *r = &CTX_data_scene(C)->r;
2142         View2D *v2d = UI_view2d_fromcontext(C);
2143
2144         float ratio = RNA_float_get(op->ptr, "ratio");
2145
2146         float winx = (int)(r->size * r->xsch) / 100;
2147         float winy = (int)(r->size * r->ysch) / 100;
2148
2149         float facx = (v2d->mask.xmax - v2d->mask.xmin) / winx;
2150         float facy = (v2d->mask.ymax - v2d->mask.ymin) / winy;
2151
2152         BLI_resize_rctf(&v2d->cur, (int)(winx * facx * ratio) + 1, (int)(winy * facy * ratio) + 1);
2153
2154         ED_region_tag_redraw(CTX_wm_region(C));
2155
2156         return OPERATOR_FINISHED;
2157 }
2158
2159 void SEQUENCER_OT_view_zoom_ratio(wmOperatorType *ot)
2160 {
2161         /* identifiers */
2162         ot->name = "Sequencer View Zoom Ratio";
2163         ot->idname = "SEQUENCER_OT_view_zoom_ratio";
2164         ot->description = "Change zoom ratio of sequencer preview";
2165
2166         /* api callbacks */
2167         ot->exec = sequencer_view_zoom_ratio_exec;
2168         ot->poll = ED_operator_sequencer_active;
2169
2170         /* properties */
2171         RNA_def_float(ot->srna, "ratio", 1.0f, 0.0f, FLT_MAX,
2172                       "Ratio", "Zoom ratio, 1.0 is 1:1, higher is zoomed in, lower is zoomed out", -FLT_MAX, FLT_MAX);
2173 }
2174
2175
2176 #if 0
2177 static EnumPropertyItem view_type_items[] = {
2178         {SEQ_VIEW_SEQUENCE, "SEQUENCER", ICON_SEQ_SEQUENCER, "Sequencer", ""},
2179         {SEQ_VIEW_PREVIEW,  "PREVIEW", ICON_SEQ_PREVIEW, "Image Preview", ""},
2180         {SEQ_VIEW_SEQUENCE_PREVIEW,  "SEQUENCER_PREVIEW", ICON_SEQ_SEQUENCER, "Sequencer and Image Preview", ""},
2181         {0, NULL, 0, NULL, NULL}
2182 };
2183 #endif
2184
2185 /* view_all operator */
2186 static int sequencer_view_toggle_exec(bContext *C, wmOperator *UNUSED(op))
2187 {
2188         SpaceSeq *sseq = (SpaceSeq *)CTX_wm_space_data(C);
2189
2190         sseq->view++;
2191         if (sseq->view > SEQ_VIEW_SEQUENCE_PREVIEW) sseq->view = SEQ_VIEW_SEQUENCE;
2192
2193         ED_area_tag_refresh(CTX_wm_area(C));
2194
2195         return OPERATOR_FINISHED;
2196 }
2197
2198 void SEQUENCER_OT_view_toggle(wmOperatorType *ot)
2199 {
2200         /* identifiers */
2201         ot->name = "View Toggle";
2202         ot->idname = "SEQUENCER_OT_view_toggle";
2203         ot->description = "Toggle between sequencer views (sequence, preview, both)";
2204         
2205         /* api callbacks */
2206         ot->exec = sequencer_view_toggle_exec;
2207         ot->poll = ED_operator_sequencer_active;
2208         
2209         /* flags */
2210         ot->flag = OPTYPE_REGISTER;
2211 }
2212
2213
2214 /* view_selected operator */
2215 static int sequencer_view_selected_exec(bContext *C, wmOperator *UNUSED(op))
2216 {
2217         Scene *scene = CTX_data_scene(C);
2218         View2D *v2d = UI_view2d_fromcontext(C);
2219         ScrArea *area = CTX_wm_area(C);
2220         bScreen *sc = CTX_wm_screen(C);
2221         Editing *ed = seq_give_editing(scene, FALSE);
2222         Sequence *seq;
2223
2224         int xmin =  MAXFRAME * 2;
2225         int xmax = -MAXFRAME * 2;
2226         int ymin =  MAXSEQ + 1;
2227         int ymax = 0;
2228         int orig_height;
2229         int ymid;
2230         int ymargin = 1;
2231         int xmargin = FPS;
2232
2233         if (ed == NULL)
2234                 return OPERATOR_CANCELLED;
2235
2236         for (seq = ed->seqbasep->first; seq; seq = seq->next) {
2237                 if (seq->flag & SELECT) {
2238                         xmin = MIN2(xmin, seq->startdisp);
2239                         xmax = MAX2(xmax, seq->enddisp);
2240
2241                         ymin = MIN2(ymin, seq->machine);
2242                         ymax = MAX2(ymax, seq->machine);
2243                 }
2244         }
2245
2246         if (ymax != 0) {
2247                 
2248                 xmax += xmargin;
2249                 xmin -= xmargin;
2250                 ymax += ymargin;
2251                 ymin -= ymargin;
2252
2253                 orig_height = v2d->cur.ymax - v2d->cur.ymin;
2254
2255                 v2d->cur.xmin = xmin;
2256                 v2d->cur.xmax = xmax;
2257
2258                 v2d->cur.ymin = ymin;
2259                 v2d->cur.ymax = ymax;
2260
2261                 /* only zoom out vertically */
2262                 if (orig_height > v2d->cur.ymax - v2d->cur.ymin) {
2263                         ymid = (v2d->cur.ymax + v2d->cur.ymin) / 2;
2264
2265                         v2d->cur.ymin = ymid - (orig_height / 2);
2266                         v2d->cur.ymax = ymid + (orig_height / 2);
2267                 }
2268
2269                 UI_view2d_curRect_validate(v2d);
2270                 UI_view2d_sync(sc, area, v2d, V2D_LOCK_COPY);
2271
2272                 ED_area_tag_redraw(CTX_wm_area(C));
2273         }
2274         
2275         return OPERATOR_FINISHED;
2276 }
2277
2278 void SEQUENCER_OT_view_selected(wmOperatorType *ot)
2279 {
2280         /* identifiers */
2281         ot->name = "View Selected";
2282         ot->idname = "SEQUENCER_OT_view_selected";
2283         ot->description = "Zoom the sequencer on the selected strips";
2284         
2285         /* api callbacks */
2286         ot->exec = sequencer_view_selected_exec;
2287         ot->poll = ED_operator_sequencer_active;
2288         
2289         /* flags */
2290         ot->flag = OPTYPE_REGISTER;
2291 }
2292
2293
2294 static int find_next_prev_edit(Scene *scene, int cfra, int side)
2295 {
2296         Editing *ed = seq_give_editing(scene, FALSE);
2297         Sequence *seq, *best_seq = NULL, *frame_seq = NULL;
2298         
2299         int dist, best_dist;
2300         best_dist = MAXFRAME * 2;
2301
2302         if (ed == NULL) return cfra;
2303         
2304         for (seq = ed->seqbasep->first; seq; seq = seq->next) {
2305                 dist = MAXFRAME * 2;
2306                         
2307                 switch (side) {
2308                         case SEQ_SIDE_LEFT:
2309                                 if (seq->startdisp < cfra) {
2310                                         dist = cfra - seq->startdisp;
2311                                 }
2312                                 break;
2313                         case SEQ_SIDE_RIGHT:
2314                                 if (seq->startdisp > cfra) {
2315                                         dist = seq->startdisp - cfra;
2316                                 }
2317                                 else if (seq->startdisp == cfra) {
2318                                         frame_seq = seq;
2319                                 }
2320                                 break;
2321                 }
2322
2323                 if (dist < best_dist) {
2324                         best_dist = dist;
2325                         best_seq = seq;
2326                 }
2327         }
2328
2329         /* if no sequence to the right is found and the
2330          * frame is on the start of the last sequence,
2331          * move to the end of the last sequence */
2332         if (frame_seq) cfra = frame_seq->enddisp;
2333
2334         return best_seq ? best_seq->startdisp : cfra;
2335 }
2336
2337 static int next_prev_edit_internal(Scene *scene, int side)
2338 {
2339         int change = 0;
2340         int cfra = CFRA;
2341         int nfra = find_next_prev_edit(scene, cfra, side);
2342         
2343         if (nfra != cfra) {
2344                 CFRA = nfra;
2345                 change = 1;
2346         }
2347
2348         return change;
2349 }
2350
2351 /* move frame to next edit point operator */
2352 static int sequencer_next_edit_exec(bContext *C, wmOperator *UNUSED(op))
2353 {
2354         Scene *scene = CTX_data_scene(C);
2355         
2356         if (!next_prev_edit_internal(scene, SEQ_SIDE_RIGHT))
2357                 return OPERATOR_CANCELLED;
2358
2359         WM_event_add_notifier(C, NC_SCENE | ND_FRAME, scene);
2360
2361         return OPERATOR_FINISHED;
2362 }
2363
2364 void SEQUENCER_OT_next_edit(wmOperatorType *ot)
2365 {
2366         /* identifiers */
2367         ot->name = "Next Edit";
2368         ot->idname = "SEQUENCER_OT_next_edit";
2369         ot->description = "Move frame to next edit point";
2370         
2371         /* api callbacks */
2372         ot->exec = sequencer_next_edit_exec;
2373         ot->poll = sequencer_edit_poll;
2374         
2375         /* flags */
2376         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
2377         
2378         /* properties */
2379 }
2380
2381 /* move frame to previous edit point operator */
2382 static int sequencer_previous_edit_exec(bContext *C, wmOperator *UNUSED(op))
2383 {
2384         Scene *scene = CTX_data_scene(C);
2385         
2386         if (!next_prev_edit_internal(scene, SEQ_SIDE_LEFT))
2387                 return OPERATOR_CANCELLED;
2388
2389         WM_event_add_notifier(C, NC_SCENE | ND_FRAME, scene);
2390         
2391         return OPERATOR_FINISHED;
2392 }
2393
2394 void SEQUENCER_OT_previous_edit(wmOperatorType *ot)
2395 {
2396         /* identifiers */
2397         ot->name = "Previous Edit";
2398         ot->idname = "SEQUENCER_OT_previous_edit";
2399         ot->description = "Move frame to previous edit point";
2400         
2401         /* api callbacks */
2402         ot->exec = sequencer_previous_edit_exec;
2403         ot->poll = sequencer_edit_poll;
2404         
2405         /* flags */
2406         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
2407         
2408         /* properties */
2409 }
2410
2411 static void swap_sequence(Scene *scene, Sequence *seqa, Sequence *seqb)
2412 {
2413         int gap = seqb->startdisp - seqa->enddisp;
2414         seqb->start = (seqb->start - seqb->startdisp) + seqa->startdisp;
2415         calc_sequence(scene, seqb);
2416         seqa->start = (seqa->start - seqa->startdisp) + seqb->enddisp + gap;
2417         calc_sequence(scene, seqa);
2418 }
2419
2420 #if 0
2421 static Sequence *sequence_find_parent(Scene *scene, Sequence *child)
2422 {
2423         Editing *ed = seq_give_editing(scene, FALSE);
2424         Sequence *parent = NULL;
2425         Sequence *seq;
2426
2427         if (ed == NULL) return NULL;
2428
2429         for (seq = ed->seqbasep->first; seq; seq = seq->next) {
2430                 if ( (seq != child) && seq_is_parent(seq, child) ) {
2431                         parent = seq;
2432                         break;
2433                 }
2434         }
2435
2436         return parent;
2437 }
2438 #endif
2439
2440 static int sequencer_swap_exec(bContext *C, wmOperator *op)
2441 {
2442         Scene *scene = CTX_data_scene(C);
2443         Editing *ed = seq_give_editing(scene, FALSE);
2444         Sequence *active_seq = seq_active_get(scene);
2445         Sequence *seq, *iseq;
2446         int side = RNA_enum_get(op->ptr, "side");
2447
2448         if (active_seq == NULL) return OPERATOR_CANCELLED;
2449
2450         seq = find_next_prev_sequence(scene, active_seq, side, -1);
2451         
2452         if (seq) {
2453                 
2454                 /* disallow effect strips */
2455                 if (get_sequence_effect_num_inputs(seq->type) >= 1 && (seq->effectdata || seq->seq1 || seq->seq2 || seq->seq3))
2456                         return OPERATOR_CANCELLED;
2457                 if ((get_sequence_effect_num_inputs(active_seq->type) >= 1) && (active_seq->effectdata || active_seq->seq1 || active_seq->seq2 || active_seq->seq3))
2458                         return OPERATOR_CANCELLED;
2459
2460                 switch (side) {
2461                         case SEQ_SIDE_LEFT: 
2462                                 swap_sequence(scene, seq, active_seq);
2463                                 break;
2464                         case SEQ_SIDE_RIGHT: 
2465                                 swap_sequence(scene, active_seq, seq);
2466                                 break;
2467                 }
2468
2469                 // XXX - should be a generic function
2470                 for (iseq = scene->ed->seqbasep->first; iseq; iseq = iseq->next) {
2471                         if ((iseq->type & SEQ_EFFECT) && (seq_is_parent(iseq, active_seq) || seq_is_parent(iseq, seq))) {
2472                                 calc_sequence(scene, iseq);
2473                         }
2474                 }
2475
2476                 /* do this in a new loop since both effects need to be calculated first */
2477                 for (iseq = scene->ed->seqbasep->first; iseq; iseq = iseq->next) {
2478                         if ((iseq->type & SEQ_EFFECT) && (seq_is_parent(iseq, active_seq) || seq_is_parent(iseq, seq))) {
2479                                 /* this may now overlap */
2480                                 if (seq_test_overlap(ed->seqbasep, iseq) ) {
2481                                         shuffle_seq(ed->seqbasep, iseq, scene);
2482                                 }
2483                         }
2484                 }
2485
2486
2487
2488                 sort_seq(scene);
2489
2490                 WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
2491
2492                 return OPERATOR_FINISHED;
2493         }
2494
2495         return OPERATOR_CANCELLED;
2496 }
2497
2498 void SEQUENCER_OT_swap(wmOperatorType *ot)
2499 {
2500         /* identifiers */
2501         ot->name = "Swap Strip";
2502         ot->idname = "SEQUENCER_OT_swap";
2503         ot->description = "Swap active strip with strip to the right or left";
2504         
2505         /* api callbacks */
2506         ot->exec = sequencer_swap_exec;
2507         ot->poll = sequencer_edit_poll;
2508         
2509         /* flags */
2510         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
2511         
2512         /* properties */
2513         RNA_def_enum(ot->srna, "side", prop_side_lr_types, SEQ_SIDE_RIGHT, "Side", "Side of the strip to swap");
2514 }
2515
2516 static int sequencer_rendersize_exec(bContext *C, wmOperator *UNUSED(op))
2517 {
2518         int retval = OPERATOR_CANCELLED;
2519         Scene *scene = CTX_data_scene(C);
2520         Sequence *active_seq = seq_active_get(scene);
2521         StripElem *se = NULL;
2522
2523         if (active_seq == NULL)
2524                 return OPERATOR_CANCELLED;
2525
2526
2527         if (active_seq->strip) {
2528                 switch (active_seq->type) {
2529                         case SEQ_IMAGE:
2530                                 se = give_stripelem(active_seq, scene->r.cfra);
2531                                 break;
2532                         case SEQ_MOVIE:
2533                                 se = active_seq->strip->stripdata;
2534                                 break;
2535                         case SEQ_SCENE:
2536                         case SEQ_META:
2537                         case SEQ_RAM_SOUND:
2538                         case SEQ_HD_SOUND:
2539                         default:
2540                                 break;
2541                 }
2542         }
2543
2544         if (se) {
2545                 // prevent setting the render size if sequence values aren't initialized
2546                 if ( (se->orig_width > 0) && (se->orig_height > 0) ) {
2547                         scene->r.xsch = se->orig_width;
2548                         scene->r.ysch = se->orig_height;
2549                         WM_event_add_notifier(C, NC_SCENE | ND_RENDER_OPTIONS, scene);
2550                         retval = OPERATOR_FINISHED;
2551                 }
2552         }
2553
2554         return retval;
2555 }
2556
2557 void SEQUENCER_OT_rendersize(wmOperatorType *ot)
2558 {
2559         /* identifiers */
2560         ot->name = "Set Render Size";
2561         ot->idname = "SEQUENCER_OT_rendersize";
2562         ot->description = "Set render size and aspect from active sequence";
2563         
2564         /* api callbacks */
2565         ot->exec = sequencer_rendersize_exec;
2566         ot->poll = sequencer_edit_poll;
2567         
2568         /* flags */
2569         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
2570         
2571         /* properties */
2572 }
2573
2574 static void seq_copy_del_sound(Scene *scene, Sequence *seq)
2575 {
2576         if (seq->type == SEQ_META) {
2577                 Sequence *iseq;
2578                 for (iseq = seq->seqbase.first; iseq; iseq = iseq->next) {
2579                         seq_copy_del_sound(scene, iseq);
2580                 }
2581         }
2582         else if (seq->scene_sound) {
2583                 sound_remove_scene_sound(scene, seq->scene_sound);
2584                 seq->scene_sound = NULL;
2585         }
2586 }
2587
2588 /* TODO, validate scenes */
2589 static int sequencer_copy_exec(bContext *C, wmOperator *op)
2590 {
2591         Scene *scene = CTX_data_scene(C);
2592         Editing *ed = seq_give_editing(scene, FALSE);
2593         Sequence *seq;
2594
2595         ListBase nseqbase = {NULL, NULL};
2596
2597         seq_free_clipboard();
2598
2599         if (seqbase_isolated_sel_check(ed->seqbasep) == FALSE) {
2600                 BKE_report(op->reports, RPT_ERROR, "Please select all related strips");
2601                 return OPERATOR_CANCELLED;
2602         }
2603
2604         seqbase_dupli_recursive(scene, NULL, &nseqbase, ed->seqbasep, SEQ_DUPE_UNIQUE_NAME);
2605
2606         /* To make sure the copied strips have unique names between each other add
2607          * them temporarily to the end of the original seqbase. (bug 25932)
2608          */
2609         if (nseqbase.first) {
2610                 Sequence *seq, *first_seq = nseqbase.first;
2611                 BLI_movelisttolist(ed->seqbasep, &nseqbase);
2612
2613                 for (seq = first_seq; seq; seq = seq->next)
2614                         seq_recursive_apply(seq, apply_unique_name_cb, scene);
2615
2616                 seqbase_clipboard.first = first_seq;
2617                 seqbase_clipboard.last = ed->seqbasep->last;
2618
2619                 if (first_seq->prev) {
2620                         first_seq->prev->next = NULL;
2621                         ed->seqbasep->last = first_seq->prev;
2622                         first_seq->prev = NULL;
2623                 }
2624         }
2625
2626         seqbase_clipboard_frame = scene->r.cfra;
2627
2628         /* Need to remove anything that references the current scene */
2629         for (seq = seqbase_clipboard.first; seq; seq = seq->next) {
2630                 seq_copy_del_sound(scene, seq);
2631         }
2632
2633         return OPERATOR_FINISHED;
2634 }
2635
2636 void SEQUENCER_OT_copy(wmOperatorType *ot)
2637 {
2638         /* identifiers */
2639         ot->name = "Copy";
2640         ot->idname = "SEQUENCER_OT_copy";
2641         ot->description = "";
2642
2643         /* api callbacks */
2644         ot->exec = sequencer_copy_exec;
2645         ot->poll = sequencer_edit_poll;
2646
2647         /* flags */
2648         ot->flag = OPTYPE_REGISTER;
2649
2650         /* properties */
2651 }
2652
2653 static void seq_paste_add_sound(Scene *scene, Sequence *seq)
2654 {
2655         if (seq->type == SEQ_META) {
2656                 Sequence *iseq;
2657                 for (iseq = seq->seqbase.first; iseq; iseq = iseq->next) {
2658                         seq_paste_add_sound(scene, iseq);
2659                 }
2660         }
2661         else if (seq->type == SEQ_SOUND) {
2662                 seq->scene_sound = sound_add_scene_sound_defaults(scene, seq);
2663         }
2664 }
2665
2666 static int sequencer_paste_exec(bContext *C, wmOperator *UNUSED(op))
2667 {
2668         Scene *scene = CTX_data_scene(C);
2669         Editing *ed = seq_give_editing(scene, TRUE); /* create if needed */
2670         ListBase nseqbase = {NULL, NULL};
2671         int ofs;
2672         Sequence *iseq;
2673
2674         deselect_all_seq(scene);
2675         ofs = scene->r.cfra - seqbase_clipboard_frame;
2676
2677         seqbase_dupli_recursive(scene, NULL, &nseqbase, &seqbase_clipboard, SEQ_DUPE_UNIQUE_NAME);
2678
2679         /* transform pasted strips before adding */
2680         if (ofs) {
2681                 for (iseq = nseqbase.first; iseq; iseq = iseq->next) {
2682                         seq_translate(scene, iseq, ofs);
2683                         seq_sound_init(scene, iseq);
2684                 }
2685         }
2686
2687         iseq = nseqbase.first;
2688
2689         BLI_movelisttolist(ed->seqbasep, &nseqbase);
2690
2691         /* make sure the pasted strips have unique names between them */
2692         for (; iseq; iseq = iseq->next) {
2693                 seq_recursive_apply(iseq, apply_unique_name_cb, scene);
2694
2695                 /* restore valid sound_scene for newly added strips */
2696                 seq_paste_add_sound(scene, iseq);
2697         }
2698
2699         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
2700
2701         return OPERATOR_FINISHED;
2702 }
2703
2704 void SEQUENCER_OT_paste(wmOperatorType *ot)
2705 {
2706         /* identifiers */
2707         ot->name = "Paste";
2708         ot->idname = "SEQUENCER_OT_paste";
2709         ot->description = "";
2710
2711         /* api callbacks */
2712         ot->exec = sequencer_paste_exec;
2713         ot->poll = ED_operator_sequencer_active;
2714
2715         /* flags */
2716         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
2717
2718         /* properties */
2719 }
2720
2721 static int sequencer_swap_data_exec(bContext *C, wmOperator *op)
2722 {
2723         Scene *scene = CTX_data_scene(C);
2724         Sequence *seq_act;
2725         Sequence *seq_other;
2726         const char *error_msg;
2727
2728         if (seq_active_pair_get(scene, &seq_act, &seq_other) == 0) {
2729                 BKE_report(op->reports, RPT_ERROR, "Must select 2 strips");
2730                 return OPERATOR_CANCELLED;
2731         }
2732
2733         if (seq_swap(seq_act, seq_other, &error_msg) == 0) {
2734                 BKE_report(op->reports, RPT_ERROR, error_msg);
2735                 return OPERATOR_CANCELLED;
2736         }
2737
2738         sound_remove_scene_sound(scene, seq_act->scene_sound);
2739         sound_remove_scene_sound(scene, seq_other->scene_sound);
2740
2741         seq_act->scene_sound = NULL;
2742         seq_other->scene_sound = NULL;
2743
2744         calc_sequence(scene, seq_act);
2745         calc_sequence(scene, seq_other);
2746
2747         if (seq_act->sound) sound_add_scene_sound_defaults(scene, seq_act);
2748         if (seq_other->sound) sound_add_scene_sound_defaults(scene, seq_other);
2749
2750         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
2751
2752         return OPERATOR_FINISHED;
2753 }
2754
2755 void SEQUENCER_OT_swap_data(wmOperatorType *ot)
2756 {
2757         /* identifiers */
2758         ot->name = "Sequencer Swap Data";
2759         ot->idname = "SEQUENCER_OT_swap_data";
2760         ot->description = "Swap 2 sequencer strips";
2761
2762         /* api callbacks */
2763         ot->exec = sequencer_swap_data_exec;
2764         ot->poll = ED_operator_sequencer_active;
2765
2766         /* flags */
2767         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
2768
2769         /* properties */
2770 }
2771
2772 /* borderselect operator */
2773 static int view_ghost_border_exec(bContext *C, wmOperator *op)
2774 {
2775         Scene *scene = CTX_data_scene(C);
2776         Editing *ed = seq_give_editing(scene, FALSE);
2777         View2D *v2d = UI_view2d_fromcontext(C);
2778
2779         rctf rect;
2780
2781         /* convert coordinates of rect to 'tot' rect coordinates */
2782         UI_view2d_region_to_view(v2d, RNA_int_get(op->ptr, "xmin"), RNA_int_get(op->ptr, "ymin"), &rect.xmin, &rect.ymin);
2783         UI_view2d_region_to_view(v2d, RNA_int_get(op->ptr, "xmax"), RNA_int_get(op->ptr, "ymax"), &rect.xmax, &rect.ymax);
2784
2785         if (ed == NULL)
2786                 return OPERATOR_CANCELLED;
2787
2788         rect.xmin /=  (float)(ABS(v2d->tot.xmax - v2d->tot.xmin));
2789         rect.ymin /=  (float)(ABS(v2d->tot.ymax - v2d->tot.ymin));
2790
2791         rect.xmax /=  (float)(ABS(v2d->tot.xmax - v2d->tot.xmin));
2792         rect.ymax /=  (float)(ABS(v2d->tot.ymax - v2d->tot.ymin));
2793
2794         rect.xmin += 0.5f;
2795         rect.xmax += 0.5f;
2796         rect.ymin += 0.5f;
2797         rect.ymax += 0.5f;
2798
2799         CLAMP(rect.xmin, 0.0f, 1.0f);
2800         CLAMP(rect.ymin, 0.0f, 1.0f);
2801         CLAMP(rect.xmax, 0.0f, 1.0f);
2802         CLAMP(rect.ymax, 0.0f, 1.0f);
2803
2804         scene->ed->over_border = rect;
2805
2806         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
2807
2808         return OPERATOR_FINISHED;
2809 }
2810
2811 /* ****** Border Select ****** */
2812 void SEQUENCER_OT_view_ghost_border(wmOperatorType *ot)
2813 {
2814         /* identifiers */
2815         ot->name = "Border Offset View";
2816         ot->idname = "SEQUENCER_OT_view_ghost_border";
2817         ot->description = "Enable border select mode";
2818
2819         /* api callbacks */
2820         ot->invoke = WM_border_select_invoke;
2821         ot->exec = view_ghost_border_exec;
2822         ot->modal = WM_border_select_modal;
2823         ot->poll = sequencer_view_poll;
2824         ot->cancel = WM_border_select_cancel;
2825
2826         /* flags */
2827         ot->flag = 0;
2828
2829         /* rna */
2830         WM_operator_properties_gesture_border(ot, FALSE);
2831 }
2832
2833 /* rebuild_proxy operator */
2834 static int sequencer_rebuild_proxy_exec(bContext *C, wmOperator *UNUSED(op))
2835 {
2836         seq_proxy_build_job(C);
2837
2838         return OPERATOR_FINISHED;
2839 }
2840
2841 void SEQUENCER_OT_rebuild_proxy(wmOperatorType *ot)
2842 {
2843         /* identifiers */
2844         ot->name = "Rebuild Proxy and Timecode Indices";
2845         ot->idname = "SEQUENCER_OT_rebuild_proxy";
2846         ot->description = "Rebuild all selected proxies and timecode indeces using the job system";
2847         
2848         /* api callbacks */
2849         ot->exec = sequencer_rebuild_proxy_exec;
2850         ot->poll = ED_operator_sequencer_active;
2851         
2852         /* flags */
2853         ot->flag = OPTYPE_REGISTER;
2854 }
2855
2856 /* change ops */
2857
2858 static EnumPropertyItem prop_change_effect_input_types[] = {
2859         {0, "A_B", 0, "A -> B", ""},
2860         {1, "B_C", 0, "B -> C", ""},
2861         {2, "A_C", 0, "A -> C", ""},
2862         {0, NULL, 0, NULL, NULL}
2863 };
2864
2865 static int sequencer_change_effect_input_exec(bContext *C, wmOperator *op)
2866 {
2867         Scene *scene = CTX_data_scene(C);
2868         Editing *ed = seq_give_editing(scene, FALSE);
2869         Sequence *seq = seq_active_get(scene);
2870
2871         Sequence **seq_1, **seq_2;
2872
2873         switch (RNA_enum_get(op->ptr, "swap")) {
2874                 case 0:
2875                         seq_1 = &seq->seq1;
2876                         seq_2 = &seq->seq2;
2877                         break;
2878                 case 1:
2879                         seq_1 = &seq->seq2;
2880                         seq_2 = &seq->seq3;
2881                         break;
2882                 default: /* 2 */
2883                         seq_1 = &seq->seq1;
2884                         seq_2 = &seq->seq3;
2885                         break;
2886         }
2887
2888         if (*seq_1 == NULL || *seq_2 == NULL) {
2889                 BKE_report(op->reports, RPT_ERROR, "One of the effect inputs is unset, can't swap");
2890                 return OPERATOR_CANCELLED;
2891         }
2892         else {
2893                 SWAP(Sequence *, *seq_1, *seq_2);
2894         }
2895
2896         update_changed_seq_and_deps(scene, seq, 0, 1);
2897
2898         /* important else we don't get the imbuf cache flushed */
2899         free_imbuf_seq(scene, &ed->seqbase, FALSE, FALSE);
2900
2901         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
2902
2903         return OPERATOR_FINISHED;
2904 }
2905
2906 void SEQUENCER_OT_change_effect_input(struct wmOperatorType *ot)
2907 {
2908         /* identifiers */
2909         ot->name = "Change Effect Input";
2910         ot->idname = "SEQUENCER_OT_change_effect_input";
2911         ot->description = "";
2912
2913         /* api callbacks */
2914         ot->exec = sequencer_change_effect_input_exec;
2915         ot->poll = sequencer_effect_poll;
2916
2917         /* flags */
2918         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
2919
2920         ot->prop = RNA_def_enum(ot->srna, "swap", prop_change_effect_input_types, 0, "Swap", "The effect inputs to swap");
2921 }
2922
2923 static int sequencer_change_effect_type_exec(bContext *C, wmOperator *op)
2924 {
2925         Scene *scene = CTX_data_scene(C);
2926         Editing *ed = seq_give_editing(scene, FALSE);
2927         Sequence *seq = seq_active_get(scene);
2928         const int new_type = RNA_enum_get(op->ptr, "type");
2929
2930         /* free previous effect and init new effect */
2931         struct SeqEffectHandle sh;
2932
2933         if ((seq->type & SEQ_EFFECT) == 0) {
2934                 return OPERATOR_CANCELLED;
2935         }
2936
2937         /* can someone explain the logic behind only allowing to increase this,
2938          * copied from 2.4x - campbell */
2939         if (get_sequence_effect_num_inputs(seq->type) <
2940             get_sequence_effect_num_inputs(new_type))
2941         {
2942                 BKE_report(op->reports, RPT_ERROR, "New effect needs more input strips");
2943                 return OPERATOR_CANCELLED;
2944         }
2945         else {
2946                 sh = get_sequence_effect(seq);
2947                 sh.free(seq);
2948
2949                 seq->type = new_type;
2950
2951                 sh = get_sequence_effect(seq);
2952                 sh.init(seq);
2953         }
2954
2955         /* update */
2956         update_changed_seq_and_deps(scene, seq, 0, 1);
2957
2958         /* important else we don't get the imbuf cache flushed */
2959         free_imbuf_seq(scene, &ed->seqbase, FALSE, FALSE);
2960
2961         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
2962
2963         return OPERATOR_FINISHED;
2964 }
2965
2966 void SEQUENCER_OT_change_effect_type(struct wmOperatorType *ot)
2967 {
2968         /* identifiers */
2969         ot->name = "Change Effect Type";
2970         ot->idname = "SEQUENCER_OT_change_effect_type";
2971         ot->description = "";
2972
2973         /* api callbacks */
2974         ot->exec = sequencer_change_effect_type_exec;
2975         ot->poll = sequencer_effect_poll;
2976
2977         /* flags */
2978         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
2979
2980         ot->prop = RNA_def_enum(ot->srna, "type", sequencer_prop_effect_types, SEQ_CROSS, "Type", "Sequencer effect type");
2981 }
2982
2983 static int sequencer_change_path_exec(bContext *C, wmOperator *op)
2984 {
2985         Main *bmain = CTX_data_main(C);
2986         Scene *scene = CTX_data_scene(C);
2987         Editing *ed = seq_give_editing(scene, FALSE);
2988         Sequence *seq = seq_active_get(scene);
2989         const int is_relative_path = RNA_boolean_get(op->ptr, "relative_path");
2990
2991         if (seq->type == SEQ_IMAGE) {
2992                 char directory[FILE_MAX];
2993                 const int len = RNA_property_collection_length(op->ptr, RNA_struct_find_property(op->ptr, "files"));
2994                 StripElem *se;
2995
2996                 if (len == 0)
2997                         return OPERATOR_CANCELLED;
2998
2999                 RNA_string_get(op->ptr, "directory", directory);
3000                 if (is_relative_path) {
3001                         /* TODO, shouldn't this already be relative from the filesel?
3002                          * (as the 'filepath' is) for now just make relative here,
3003                          * but look into changing after 2.60 - campbell */
3004                         BLI_path_rel(directory, bmain->name);
3005                 }
3006                 BLI_strncpy(seq->strip->dir, directory, sizeof(seq->strip->dir));
3007
3008                 if (seq->strip->stripdata) {
3009                         MEM_freeN(seq->strip->stripdata);
3010                 }
3011                 seq->strip->stripdata = se = MEM_callocN(len * sizeof(StripElem), "stripelem");
3012
3013                 RNA_BEGIN (op->ptr, itemptr, "files") {
3014                         char *filename = RNA_string_get_alloc(&itemptr, "name", NULL, 0);
3015                         BLI_strncpy(se->name, filename, sizeof(se->name));
3016                         MEM_freeN(filename);
3017                         se++;
3018                 }
3019                 RNA_END;
3020
3021                 /* reset these else we wont see all the images */
3022                 seq->anim_startofs = seq->anim_endofs = 0;
3023
3024                 /* correct start/end frames so we don't move
3025                  * important not to set seq->len= len; allow the function to handle it */
3026                 reload_sequence_new_file(scene, seq, TRUE);
3027
3028                 calc_sequence(scene, seq);
3029
3030                 /* important else we don't get the imbuf cache flushed */
3031                 free_imbuf_seq(scene, &ed->seqbase, FALSE, FALSE);
3032         }
3033         else {
3034                 /* lame, set rna filepath */
3035                 PointerRNA seq_ptr;
3036                 PropertyRNA *prop;
3037                 char filepath[FILE_MAX];
3038
3039                 RNA_pointer_create(&scene->id, &RNA_Sequence, seq, &seq_ptr);
3040
3041                 RNA_string_get(op->ptr, "filepath", filepath);
3042                 prop = RNA_struct_find_property(&seq_ptr, "filepath");
3043                 RNA_property_string_set(&seq_ptr, prop, filepath);
3044                 RNA_property_update(C, &seq_ptr, prop);
3045         }
3046
3047         WM_event_add_notifier(C, NC_SCENE | ND_SEQUENCER, scene);
3048
3049         return OPERATOR_FINISHED;
3050 }
3051
3052 static int sequencer_change_path_invoke(bContext *C, wmOperator *op, wmEvent *UNUSED(event))
3053 {
3054         Scene *scene = CTX_data_scene(C);
3055         Sequence *seq = seq_active_get(scene);
3056
3057         RNA_string_set(op->ptr, "directory", seq->strip->dir);
3058
3059         /* set default display depending on seq type */
3060         if (seq->type == SEQ_IMAGE) {
3061                 RNA_boolean_set(op->ptr, "filter_movie", FALSE);
3062         }
3063         else {
3064                 RNA_boolean_set(op->ptr, "filter_image", FALSE);
3065         }
3066
3067         WM_event_add_fileselect(C, op);
3068
3069         return OPERATOR_RUNNING_MODAL;
3070 }
3071
3072 void SEQUENCER_OT_change_path(struct wmOperatorType *ot)
3073 {
3074         /* identifiers */
3075         ot->name = "Change Data/Files";
3076         ot->idname = "SEQUENCER_OT_change_path";
3077         ot->description = "";
3078
3079         /* api callbacks */
3080         ot->exec = sequencer_change_path_exec;
3081         ot->invoke = sequencer_change_path_invoke;
3082         ot->poll = sequencer_strip_has_path_poll;
3083
3084         /* flags */
3085         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
3086
3087         WM_operator_properties_filesel(ot, FOLDERFILE | IMAGEFILE | MOVIEFILE, FILE_SPECIAL, FILE_OPENFILE, WM_FILESEL_DIRECTORY | WM_FILESEL_RELPATH | WM_FILESEL_FILEPATH | WM_FILESEL_FILES, FILE_DEFAULTDISPLAY);
3088 }
3089