/* Box arexx test */

	options results
  parse ARG Port x1 y1 x2 y2 b
	ADDRESS value Port

	pp_Compose 0 100 0
	pp_EffectOn
	do i=1 to 2
		pp_Displace 2
		pp_BoxF x1 y1 x2 y2

	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 x1 y1 x2 y2
	

	END

		pp_Displace 2
		pp_BoxF x1 y1 x2 y2

		C=-2
		pp_ConvInit 0 1 0
		pp_Conv 0 0 0 0 0 0
		pp_Conv 1 0 C 0 0 0
		pp_Conv 2 0 0 5 0 0
		pp_Conv 3 0 0 0 C 0
		pp_Conv 4 0 0 0 0 0
		pp_BoxF x1 y1 x2 y2