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