gardener, Interface administrators, Administrators
3,893
edits
Changes
Jump to navigation
Jump to search
\startMPpage
%------------------------------------------------------------------------------
picture tt ;
tt := lmt_outline [
kind = "fillup",
text = "\definedfont[name:texgyrepagellabold*default]%
\framed[frame=off,offset=3mm,align=middle,strut=none]
{MetaPost\\is Fun !\\Aujourd'hui\\Today\\*§ 2020 §*}",
] xsized 12cm ;
path bb ; bb := boundingbox tt;
%------------------------------------------------------------------------------
path pp ; pp := bb enlarged 2cm ;
fill pp
withshademethod "linear"
withshadedirection (2.,0.)
withshadecolors (\MPcolor{ColorHighA}, \MPcolor{ColorHighB});
%------------------------------------------------------------------------------
picture Paddmissing; Paddmissing := nullpicture;
picture Pwoletters; Pwoletters := nullpicture;
numeric testwithin ;
%------------------------------------------------------------------------------
for i within tt :
if stroked i or filled i :
testwithin :=0;
for j within tt :
if stroked j or filled j:
if (((xpart llcorner i) > (xpart llcorner j)) and
((ypart llcorner i) > (ypart llcorner j)) and
((xpart urcorner i) < (xpart urcorner j)) and
((ypart urcorner i) < (ypart urcorner j))) :
testwithin :=1;
fi;
fi;
endfor;
if testwithin == 1:
addto Paddmissing contour
(pathpart i)
withcolor \MPcolor{ColorLow};
else:
addto Pwoletters contour
(pathpart i)
withpostscript "collect";
fi;
fi ;
endfor ;
%------------------------------------------------------------------------------
addto Pwoletters contour
bb
withpostscript "evenodd"
withcolor \MPcolor{ColorLow};
draw Pwoletters ;
draw Paddmissing ;
\stopMPpage
simplified thanks to Hans' feedback
\definecolor [ColorHighB] [h=602217]
\definecolor [ColorLow] [0.8(white)]
\startMPpage
