|
|
(5 intermediate revisions by the same user not shown) |
Line 1: |
Line 1: |
− | A test | + | A test |
− | | |
− | <context source="yes">
| |
− | \startMPpage
| |
− | | |
− | %------------------------------------------------------------------------------
| |
− | | |
− | picture tt ;
| |
− | tt := lmt_outline [
| |
− | kind = "fillup",
| |
− | text = "\definedfont[name:texgyrepagellabold*default]%
| |
− | \framed[frame=off,offset=3mm,align=normal,strut=none]
| |
− | {MetaPost is Fun ! @\\ Aujourd'hui\\Today}",
| |
− | ] xsized 10cm ;
| |
− | | |
− | path bb ; bb := boundingbox tt;
| |
− | | |
− | %------------------------------------------------------------------------------
| |
− | | |
− | path pp ; pp := bb enlarged 1cm ;
| |
− | fill pp
| |
− | withshademethod "linear"
| |
− | withshadedirection right
| |
− | withshadecolors (red, blue);
| |
− | | |
− | %------------------------------------------------------------------------------
| |
− | | |
− | picture Paddmissing; Paddmissing := nullpicture;
| |
− | picture Pwoletters; Pwoletters := nullpicture;
| |
− | color colorframe; colorframe := 0.15white;
| |
− | 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 colorframe;
| |
− | else:
| |
− | addto Pwoletters contour
| |
− | (pathpart i)
| |
− | withpostscript "collect";
| |
− | fi;
| |
− | | |
− | fi ;
| |
− | endfor ;
| |
− | | |
− | %------------------------------------------------------------------------------
| |
− |
| |
− | addto Pwoletters contour
| |
− | bb
| |
− | withpostscript "evenodd"
| |
− | withcolor colorframe;
| |
− | draw Pwoletters ;
| |
− | draw Paddmissing ;
| |
− |
| |
− | \stopMPpage
| |
− | </context>
| |