/* 	arexx Script 
	Scale Anim
*/

	options results
	parse ARG Port Width Height Mode b
	
	ADDRESS value Port
	pp_AvoidRefresh

	pp_GetWidth
	W=result
	pp_GetHeight
	H=result

	pp_GetWidthB
	Wb=result
	IsBrush=0
	IF Wb>0 then DO
		IsBrush=1
		pp_Bsave "perfectpaint:Temp/brush" 0 3
	END

	X2=Width/2
	Y2=Height/2	

	pp_CountFrames
	nb=result
	IsAnim=0
	if nb>1 then do
		pp_SavePrefs 0 1 100 0 0
		IsAnim=1
		Do i=1 to nb
			pp_GotoFrame i
			pp_Save 'PerfectPaint:Temp/Anim'||i 0
		END
		pp_New Width Height
		pp_MakeAnim nb 0
		do i=1 to nb
			pp_Bload 'PerfectPaint:Temp/Anim'||i
			pp_ScaleBrush Width Height
			pp_Plot X2 Y2		
			pp_NextFrame
		END
		pp_FreeBrush
		IF IsBrush=1 then DO
			pp_Bload "perfectpaint:Temp/brush"
		END		
		pp_PermitRefresh
		ADDRESS COMMAND	'delete >nil: PerfectPaint:Temp/?#.*'
		EXIT
	END