/*
** DisplacePixel.fred.pre
**
** $VER: DisplacePixel.fred.pre 1.1.0 (23.10.93)
**
** If the DisplacePixel.fred script appears in the InvokeADPro list,
** this program will set up some variables.
**
** Clips Exported:
**	FREDDispFrameNum	-	Current frame number (starting @ 1)
**	FREDDispNumberOfFrames	-	Number of frames
**
** NOTE: Clip names are case sensitive.
**
** This script requires FRED v1.4.0 (or higher) to run.  Also required is
** ADPro v2.5.0 (or higher).
**
** Copyright © 1992-1993 ASDG, Incorporated
** All Rights Reserved
*/


ADDRESS "ADPro"
OPTIONS RESULTS

PARSE ARG NumberOfCells NumberOfFrames

NL = '0A'X
SQ = '27'X
DQ = '22'X
TRUE  = 1
FALSE = 0


/*
** Ensure that at least two frames are to be processed.
*/

IF (NumberOfFrames < 2) THEN DO
	ADPRO_TO_FRONT
	OKAY1 "Frame count must be more than 2"
	SCREEN_TO_FRONT "FRED"
	EXIT 10
END


/*
** Update the clips.
*/

SETCLIP( "FREDDispFrameNum", 1 )
SETCLIP( "FREDDispNumberOfFrames", NumberOfFrames )

EXIT 0