/*
** ReDisplay.fred
**
** $VER: ReDisplay.fred 1.1.0 (24.10.93)
**
** This program can be run from an InvokeADPro list to redisplay the
** rendered image data.  A previous script must have already created
** rendered data.
**
** Clips Imported:
**	FREDDisplayDuration	-	Length of time to display image
**					in seconds
** 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 © 1993 ASDG, Incorporated
** All Rights Reserved
*/


ADDRESS "ADPro"
OPTIONS RESULTS

PARSE ARG FrameNum FrameFName Length LoadFlag FirstCallSeq FirstCallCell

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


/*
** Get the required clips.  Error if any are missing.
*/

Duration = GETCLIP( "FREDDisplayDuration" )
IF (Duration = "") THEN
	Duration = "-1"


/*
** See what type of data is loaded in ADPro/MorphPlus.
*/

CALL "FREDSCRIPTS:FREDFunctions/CheckForRenderedImageData" TRUE
IF (RESULT ~= 0) THEN
	EXIT 10


/*
** Display the rendered image.
*/

ADPRO_DISPLAY
PAUSE (50*Duration)
ADPRO_UNDISPLAY

EXIT 0