/*
	Arexx Text Script
*/

	options results
  parse ARG Port x y b
	ADDRESS value Port

	pp_GetDepth
	depth=result
	IF depth<24 then DO	
		pp_Warn 'Only*for*24Bits*version.'
		EXIT
	END

	pp_AvoidRefresh

	pp_GetHeightT
	H=result

	pp_GetWidthT
	W=result

	xx=x-W/2
	yy=y-H/2

	pp_SpareOnOff

	pp_ClosestColor 0 0 0
	Black=result

	pp_ClosestColor 255 255 255
	White=result

	pp_SetApen White
	pp_SetBpen Black

	pp_Compose 0 100 0

	pp_EffectOn
	pp_Spray 1 100
	pp_BoxF xx-2 yy-2 xx+W+3 yy+H+3


	pp_ConvInit 1 159 0
	pp_Conv 0 2 4 5 4 2
	pp_Conv 1 4 9 12 9 4
	pp_Conv 2 5 12 15 12 5
	pp_Conv 3 4 9 12 9 4
	pp_Conv 4 2 4 5 4 2

	pp_BoxF xx-2 yy-2 xx+W+3 yy+H+3
	pp_BoxF xx-2 yy-2 xx+W+3 yy+H+3

	A=-1
	B=-2
	pp_ConvInit 1 1 128
	pp_Conv 0 1 1 1 0 0
	pp_Conv 1 1 2 2 0 0
	pp_Conv 2 1 2 0 B A
	pp_Conv 3 0 0 B B A
	pp_Conv 4 0 0 A A A

	pp_BoxF xx-2 yy-2 xx+W+3 yy+H+3

	pp_SpareOnOff
	pp_UpdateUndoBox xx-2 yy-2 xx+W+3 yy+H+3

	pp_SetApen Black
	pp_Airbrush 100 5
	pp_TextDraw x y

	pp_Spare
	pp_TextDraw x y
	
	pp_PermitRefresh

	pp_EffectOff
	
EXIT