/*
	Arexx Text Script
*/

	options results
  parse ARG Port x y b

	SX=-2
	SY=-2
	F=5
	ADDRESS COMMAND
	if EXISTS('PerfectPaint:Prefs/Rexx_Prefs/Shadow') THEN DO
		IF OPEN('lfile','PerfectPaint:Prefs/Rexx_Prefs/Shadow', "R") then DO
			SX = READLN('lfile')
			SY = READLN('lfile')			
			F = READLN('lfile')	
			CALL CLOSE('lfile')
		END
	END

	ADDRESS value Port
	pp_AvoidRefresh

	pp_DialogInit 150 95 "*Shadow*" 3
		pp_Integer 0 60 5 50 16 "Shift*X" 1 SX
		pp_Integer 1 60 25 50 16 "Shift*Y" 1 SY
		pp_Integer 2 60 45 50 16 "Flow" 1 F
	pp_Dialog
	rc=result
	if rc=0 then
		do
			pp_PermitRefresh
			EXIT
		end	

	pp_UpdateUndo	
		
	pp_GetDialog 0
	SX=result

	pp_GetDialog 1
	SY=result

	pp_GetDialog 2
	F=result
	
	CALL SavePrefs('Shadow',SX,SY,F)
	ADDRESS value Port

	pp_GetApen
	clr=result

	pp_ClosestColor 0 0 0
	black=result

	pp_SetApen black

	pp_EffectOn
	pp_Airbrush 90 F

	pp_TextDraw x+SX y+SY
	pp_EffectOff

	pp_SetApen clr

	pp_TextDraw x y

	pp_PermitRefresh


EXIT

SavePrefs: PROCEDURE
	
	Prefname='PerfectPaint:Prefs/Rexx_Prefs/'||ARG(1)

	if EXISTS(Prefname) THEN DO
		ADDRESS COMMAND
		'delete >nil: '||Prefname
	END

	IF OPEN('pfile',PrefName,'W') THEN DO

	do i=2 to ARG()
		CALL WRITELN('pfile',ARG(i))
	end

	CALL CLOSE('pfile')

RETURN