TransitionThe following Rivl procedure connects two sequences with a transition:
proc Transition {transition movieA movieB duration} {
set lengthA [seq_length $movieA]
set lengthB [seq_length $movieB]
# Untouched parts of first and second movie
set begin [seq_crop $movieA 0.0 [expr $lengthA-$duration]]
set end [seq_crop $movieB $duration $lengthB]
# Apply timed effect to end of first movie; overlay with
# beginning of second movie
set mid1 [seq_crop $movieA [expr $lengthA-$duration] $lengthA]
set mid2 [seq_crop $movieB 0.0 $duration]
set middle [seq_overlay [seq_map $mid $transition1] $mid2]
seq_concat $begin $middle $end
}
The first parameter, transition, is a script passed to seq_map. MovieA and movieB are the two sequences to be joined, and duration is the time (in seconds) to apply the transition effect. For example, Transition fadeOut jack jill 5 connects two sequences jack and jill with a five second fade.
Transition {im_fade %1 [expr 1-%p]} indy_seq t2_seq 10
