/*
** LineArt.fred
**
** $VER: LineArt.fred 1.1.0 (23.10.93)
**
** This script will perform the line art operator on the current image.
** It is best that the image have a high contrast to look good so you
** may have to run a adjustbalancing script on the image prior to this
** script.
**
** 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 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/CheckForImageData" TRUE
IF (RESULT ~= 0) THEN
	EXIT 10


/*
** Apply the Line_Art operator.
*/

OPERATOR "LINE_ART"
IF (RC ~= 0) THEN DO
	ADPRO_TO_FRONT
	OKAY1 "There is no gray data" || NL ||,
		"to operate on."
	SCREEN_TO_FRONT "FRED"
	EXIT 10
END

EXIT 0