/* 	arexx Script 
	Fade in Black
*/

	options results
	parse ARG Port b
	
	ADDRESS value Port

	pp_CountFrames
	nb=result
	if nb<2 then do
		pp_Warn 'Make*an*Anim*first.'
		EXIT
	end

	pp_GetWidth
	w=result
	pp_GetHeight
	h=result

	pp_DialogInit 250 100 "*Fade*in*black*" 3
		pp_Slider 0 100 5 100 16 "Start*Frame*#" 1 1 nb 1
		pp_Slider 1 100 25 100 16 "End*Frame*#" 1 1 nb nb
		pp_Cycle 2 100 45 100 16 "Mode" 1 "Fade*Out|Fade*In" 0
	pp_Dialog
	rc=result
	if rc=0 then
		do
			EXIT
		end		
		
	pp_GetDialog 0
	s0=result

	pp_GetDialog 1
	s1=result

	pp_GetDialog 2
	fade=result

	sp=100/(s1-s0+1)
	pp_EffectOn

	pp_GotoFrame s0

	if fade=1 then
	DO
	do i=sp to 100 by sp
		pp_Shade i
		pp_BoxF 0 0 w h
		pp_NextFrame
	end 
	END
	ELSE
	sp2=sp*-1
	DO
	do i=100 to sp by sp2
		pp_Shade i
		pp_BoxF 0 0 w h
		pp_NextFrame
	end 
	END