/* Box arexx test */

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

	pp_UpdateUndoBox x1-1 y1-1 x2+1 y2+1

	pp_ComposeReqOff
	pp_PicttoSpare
	pp_EffectOn
	pp_Displace 30
	pp_BoxF x1 y1 x2 y2

	pp_Compose 1 100 0
	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	

	pp_Compose 0 100 0
	pp_BoxF x1 y1 x2 y2

	pp_Spare
	pp_Compose 4 100 0
	pp_BoxF x1 y1 x2 y2

	pp_EffectOff
	pp_ComposeReqOn