/*
** OilPaint.fred
**
** $VER: OilPaint.fred 1.1.0 (23.10.93)
**
** This program can be run from an InvokeADPro list to give the current
** frame of a FRED sequence an oil paint look.
**
** This script requires FRED v1.4.0 (or higher) to run.  Also required is
** ADPro v2.5.0 (or higher).
**
** Copyright © 1992-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


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

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


/*
** Oil Paint the image.
*/

DO loop=1 TO 3
	IF (loop < 3) THEN
		OPERATOR "DISPLACE_PIXEL" 1 100 0
	ELSE
		OPERATOR "DISPLACE_PIXEL" 2 100 0

	IF (RC ~= 0) THEN DO
		ADPRO_TO_FRONT
		OKAY1 "The operator DISPLACE_PIXEL" || NL ||,
			"failed to execute."
		SCREEN_TO_FRONT "FRED"
		EXIT 10
	END

	OPERATOR "MEDIAN_FILTER" 0
	IF (RC ~= 0) THEN DO
		ADPRO_TO_FRONT
		OKAY1 "The operator MEDIAN_FILTER" || NL ||,
			"failed to execute."
		SCREEN_TO_FRONT "FRED"
		EXIT 10
	END
END

EXIT 0