/*
** Convolve.fred.pre
**
** $VER: Convolve.fred.pre 1.1.0 (23.10.93)
**
** If the Convolve.fred script appears in the InvokeADPro list,
** this program will ask the user for the name of the convolution
** matrix to apply to the images.
**
** Clips Exported:
**	FREDConvolveMatrixFName	-	Full pathname of the matrix.
**	FREDConvolveMix		-	Mix value.
**	FREDConvolveThresh	-	Threshold value.
**
** 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 NumberOfCells NumberOfFrames

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


/*
** Ask the user which convolution matrix should be used.
*/

CALL "FREDSCRIPTS:FREDFunctions/GetAFile" '"Select a convolution"' '"ADPRO:Convolutions"' '""""' TRUE
IF (RESULT = DQ||DQ) THEN
	EXIT 10
ELSE
	SETCLIP( "FREDConvolveMatrixFName", RESULT )


/*
** Ask for the mix percentage and threshold level.
*/

CALL "FREDSCRIPTS:FREDFunctions/GetANumber" '"Mix Percentage"' 100 1 100 TRUE
IF (RESULT = (1-1)) THEN
	EXIT 10
ELSE
	SETCLIP( "FREDConvolveMix", RESULT )

CALL "FREDSCRIPTS:FREDFunctions/GetANumber" '"Threshold Level"' 64 0 255 TRUE
IF (RESULT = (0-1)) THEN
	EXIT 10
ELSE
	SETCLIP( "FREDConvolveThresh", RESULT )

EXIT 0