/*
	Arexx Text Script
*/

	options results
  parse ARG Port x y b

	ADDRESS value Port
	pp_AvoidRefresh

	F=10
	ADDRESS COMMAND
	if EXISTS('PerfectPaint:Prefs/Rexx_Prefs/Shine') THEN DO
		IF OPEN('lfile','PerfectPaint:Prefs/Rexx_Prefs/Shine', "R") then DO
			F = READLN('lfile')	
			CALL CLOSE('lfile')
		END
	END

	ADDRESS value Port
	pp_DialogInit 150 55 "*Shine*" 1
		pp_Integer 0 60 5 50 16 "Flow" 1 F
	pp_Dialog
	rc=result
	if rc=0 then
		do
			pp_PermitRefresh
			EXIT
		end	

	pp_UpdateUndo	
		
	pp_GetDialog 0
	F=result

	CALL SavePrefs('Shine',F)
	ADDRESS value Port

	pp_GetApen
	clr=result

	pp_ClosestColor 255 255 255
	black=result

	pp_SetApen black

	pp_EffectOn
	pp_Airbrush 90 F

	pp_TextDraw x y
	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