|
|
(2 intermediate revisions by the same user not shown) |
Line 1: |
Line 1: |
− | A test | + | A test |
− | | |
− | <context source="yes">
| |
− | \definecolor [ColorHighA] [h=c4a000]
| |
− | \definecolor [ColorHighB] [h=602217]
| |
− | \definecolor [ColorLow] [0.8(white)]
| |
− | | |
− | \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 20cm ;
| |
− | | |
− | 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
| |
− | </context>
| |