fadeOut

By using seq_map we apply seq_map on each image in a sequence with paramater that decreases over time. This operation cause the sequence to fade to black.

proc fadeOut {clip} {
	seq_map $clip {im_fade %1 [expr 1-%p]}
	}