/*
 *		Animbrush To Gif - 1996 Tom Atkinson
 *		toma@funk.co.nz
 *		http://funk.co.nz/~toma/
 *
 *		This script requires MainActor and ImageFX to be running, 
 *		with the default Arexx ports of "MAINACTOR", and "ImageFX.1"
 *		NOTE: Remember to set-up the ImageFX Rendering settings before
 *		executing script.
 *		The script will create a directory called "AnimToGif" in your root
 *		directory.
 *		It is a fairly messy script.
 *		
*/

address command 'makedir sys:AnimToGif'

OPTIONS RESULTS

ADDRESS MAINACTOR




ScreenToFront                              /* flip screen to front */ 

                                           /* print message */


PrintAndStoreTXT "Requesting Animbrush" 

Requestfile "Select AnimBrush - NO SPACES!!!"
ABRUSH = result
LoadProject ABRUSH

PrintAndStoreTXT "SaveIFF V1.1 saving pictures in IFF Format ..."

GetSPName

IF rc = 0 THEN DO                          /* check if project loaded */

	PARSE VAR RESULT firstname secondname .  /* store name of the animation */
	                                         /* or the names of the picture list */

	GetSPSaver                    
	PARSE VAR RESULT savertype savername .   /* store saver module */


	SetSPSaver PIC IFF                       /* Set saver module to IFF */

                                           /* Ask for Picture BaseName */

/*   RequestSaveFile "Select Picture Base Name" 

	IF RC = 10 THEN DO
		PrintTXT "Aborting ..."
		EXIT
	END        

newname = RESULT   */
newname = "sys:AnimToGif/iff"
SelectAll                                /* select all frames/pictures */

	Save newname                             /* save em as IFF pics */

	SetSPSaver savertype savername           /* restore old saver module */

end

/*
 * $VER: BATCH ILBM TO GIF 1.00.00 (24.9.92)
 *
 * Arexx program for the ImageFX image processing system.
 * Written by Thomas Krehbiel
 *
 * Convert a series of 24-bit images to GIF files.
 *NOT OPERATIONAL AT PRESENT
 */

OPTIONS RESULTS
address ImageFX.1


/*   RequestFile '"Input Basename..."'
IF rc ~= 0 THEN EXIT
input = result    */
input = "sys:AnimToGif/iff.00"

/* RequestFile '"Output Basename..."'
IF rc ~= 0 THEN EXIT
output = result */
output = "sys:AnimToGif/gif"

DO i = 1 TO 100

   num = RIGHT(i,3,'0')
   Message 'Frame' num

   LoadBuffer input||num
   IF rc ~= 0 THEN LEAVE

  Render Go

   SaveRenderedAs gif87a output||num 

   END

/*
 * Optionally archive the results and delete.
 *
 * ADDRESS COMMAND 'lha a ram:JP' output||'#?'
 * ADDRESS COMMAND 'c:delete' output||'#?'
 *
 */

EXIT