/*
** Roll.fred
**
** $VER: Roll.fred 1.1.0 (23.10.93)
**
** This program can be run from an InvokeADPro list to roll the image in a specific
** direction.
**
** Clips Imported:
**	FREDRollPixels		-	Number of pixels to roll
**	FREDRollDirection	-	Direction to roll pixels
**	FREDRollWrap		-	How to wrap the image
**
** 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 Elastic Reality, Inc.
** 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.
*/

RollPixels = GETCLIP( "FREDRollPixels" )
IF (RollPixels = "") THEN DO
	ADPRO_TO_FRONT
	OKAY1 "Required clip, FREDRollPixels," || NL ||,
		"is not specified."
	SCREEN_TO_FRONT "FRED"
	EXIT 10
END

RollDirection = GETCLIP( "FREDRollDirection" )
IF (RollDirection = "") THEN DO
	ADPRO_TO_FRONT
	OKAY1 "Required clip, FREDRollDirection," || NL ||,
		"is not specified."
	SCREEN_TO_FRONT "FRED"
	EXIT 10
END

RollWrap = GETCLIP( "FREDRollWrap" )
IF (RollWrap = "") THEN DO
	ADPRO_TO_FRONT
	OKAY1 "Required clip, FREDRollWrap," || NL ||,
		"is not specified."
	SCREEN_TO_FRONT "FRED"
	EXIT 10
END


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

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


/*
** Roll the image.
*/

OPERATOR "ROLL" RollDirection RollPixels RollWrap
IF (RC ~= 0) THEN DO
	ADPRO_TO_FRONT
	OKAY1 "Could not roll image." || NL || NL ||,
		"Arguments:" || NL ||,
		"Direction =" RollDirection || NL ||,
		"Pixels =" RollPixels || NL ||,
		"Wrap =" RollWrap
	SCREEN_TO_FRONT "FRED"
	EXIT 10
END

EXIT 0