/* 2:3 pull up.  Uses currently selected file */

Address DDR

if (~show('L','rexxsupport.library')) then
	if ~addlib('rexxsupport.library',0,-30,0) then do
		req 'rexxsupport.library fialed to open.'
		exit
	end

Emulate OFF	/* turn on file emulation */
Exporter YUV	/* file emulation is YUV */

Mode ANIM	/* Import as anim	*/
Filter OFF	/* no filter		*/

Options Results

/* Figure out full path of currently selected anim */
if index(showlist(v),'DDR')=0 then do
	Unit
	r=Result
	path='DD'r':'
end
else path='DDR:'
Project
path=path||result
File
name=result
fname=path'/'name

/* Do it */

Frames
fr=result
i=1
n=1
out=1
do while exists(fname'.'n)
	Emulate OFF
	EMode FRAME
	address command 'copy' fname'.'n fname'_film.'out 		/* 1,2 */
	out=out+1
	Emulate ON
	EMode BOTH

	address command 'YUVF2F' fname'.'i fname'.'i+3 fname'_film.'out	/* 1,4 */
	out=out+1
	address command 'YUVF2F' fname'.'i+2 fname'.'i+5 fname'_film.'out	/* 3,6 */
	out=out+1

	Emulate OFF
	EMode FRAME

	address command 'Copy' fname'.'n+2 fname'_film.'out	/* 5,6 */
	out=out+1
	address command 'Copy' fname'.'n+3 fname'_film.'out	/* 7,8 */
	out=out+1
	i=i+8;n=n+4
end
Done name'_film'