/*
** Line_Art.adpro
**
** $VER: Line_Art.adpro 1.0.0 (19.06.94)
**
** This ARexx script is for use with Hollywood FX.  
** It processes each rendered image through the Line_Art operator,
** saving each image in its rendered format again.
**
** This script requires ADPro v2.5.0 (or higher).
**
** Copyright © 1994 Synergy International, Incorporated
** All Rights Reserved
** 
** The following copyright notice applies to the Locate-ADPro
** code included in this script:
**
** Copyright © 1991-1993 ASDG, Incorporated
** All Rights Reserved
*/

OPTIONS RESULTS

/******************************************************/
/* Definitions                                        */
/******************************************************/


/******************************************************/
/* User Settings                                      */
/******************************************************/

/******************************************************/
/* Start of Script                                    */
/******************************************************/

/*** Parse arguments sent from Hollywood FX ***/

PARSE ARG InName ',' frame ',' first ',' last ',' total ',' format ',' resolution ',' alpha


/*** Check if ADPro is loaded, if not try to load ***/

CALL Locate_ADPro

/*** Could not load ADPro, exit script ***/

IF (RESULT = 0) THEN
  EXIT 10

ADDRESS "ADPro"

/*** Load the image to be processed ***/

LOADER "UNIVERSAL" InName

OPERATOR "LINE_ART"

IF (format = 0) THEN
  SAVER "IFF" InName "RAW"

IF (format = 1) THEN
  SAVER "FRAMESTORE" InName

IF (frame = last) THEN
  ADPRO_EXIT
    
EXIT 0
  
/*** Locate_ADPro function provided by ASDG, Inc. ***/

Locate_ADPro:
	Max_Seconds_To_Load = 60
	Flag = 0
	LibName = 'rexxsupport.library'

	IF (POS( LibName, SHOW( 'Libraries' ) ) = 0) THEN
		ADDLIB( LibName, 0, -30, 0 )
	IF (POS( LibName, SHOW( 'Libraries' ) ) = 0) THEN
		RETURN 0

	IF (STATEF( 'ADPRO:' ) = "") THEN
		RETURN 0

	TIME( 'R' )
	DO WHILE (TIME( 'E' ) < Max_Seconds_To_Load) & (POS( 'ADPro', SHOW( 'Ports' ) ) = 0)
		IF (Flag = 0) THEN DO
			/* Set whatever command line arguments you want. */
			ADDRESS COMMAND 'Run < NIL: > NIL: ADPRO:ADPro MINIMIZED'
			Flag = 1
		END
		ADDRESS COMMAND 'Wait 1'
	END
	IF (POS( 'ADPro', SHOW( 'Ports' ) ) = 0) THEN
		RETURN 0
	ELSE
		RETURN 1