% outline.mf --- outline effect

def pattern=
	def endchar=
		cull currentpicture keeping (1, infinity);
		picture v; v := currentpicture;
		cull currentpicture keeping (1,1) withweight 3;
		addto currentpicture also v - v shifted right
			- v shifted left - v shifted up - v shifted down;
		cull currentpicture keeping (1,4);
		% rest from standard endchar
		scantokens extra_endchar;
		chardx:=w;
		shipit;
		if displaying>0: showit; fi
		endgroup
	enddef;
enddef;

% end of outline.mf