/* 	arexx Script 
	Make anim with pictures
*/

	options results
	parse ARG Port b
	
	ADDRESS value Port
	pp_AvoidRefresh

	Preview=0
	pp_DialogInit 250 60 "*Preview*Size*" 1
		pp_Cycle 0 100 8 100 16 "Size" 1 "96x96|144x144|192x192" Preview
	pp_Dialog
	rc=result
	if rc=0 then
		do
			EXIT
		end		

	pp_GetDialog 0
	Preview=result

	pp_AskMultiFile 'Load*Pictures'
	count=result

	file="Ram:MultiFile"
	IF OPEN("g",file,"read") then DO
		file=READLN("g")
		pp_Load file
		pp_MakeAnim count Preview
		pp_CountFrames
		count=result
		Do i=1 to count-1
			pp_FastNextFrame
			file=READLN("g")
			pp_Bload file
			pp_GetWidthB
			w=result
			IF w=0 then DO
				EXIT
			END
			pp_GetHeightB
			h=result
			x=w/2
			y=h/2
			pp_Plot x y
		END
		CALL close(file)		
		pp_GotoFrame 1
	END
	pp_FreeBrush
	pp_PermitRefresh