|
|
| (4 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 15cm ;
| |
| − | | |
| − | path bb ; bb := boundingbox tt;
| |
| − | | |
| − | %------------------------------------------------------------------------------
| |
| − | | |
| − | path pp ; pp := bb enlarged 0.5cm ;
| |
| − | 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>
| |
