/* 
** This ARexx program converts <length> images to a charcoal look starting with
** file source.xxx.  Saves each frame to dest.xxx
*/

PARSE ARG source dest start length

say 'START'
say source dest start length

OPTIONS RESULTS

ADDRESS "ADPro"

frame=start
do length
 	frame=RIGHT(frame,3,'0')
	Say 'Loading Frame #'frame
	
	framestr=source||frame'.iff'
	LOAD framestr

	OPERATOR 'COLOR_TO_GRAY'

	OPERATOR 'LINE_ART'
	EXECUTE

	SAY 'Saving  Frame #'frame

	framestr=dest||frame'.iff'
	SAVE framestr IMAGE


	frame=frame+1
end