Difference between revisions of "Talk:Cover Pages"

From Wiki
Jump to navigation Jump to search
Line 11: Line 11:
 
         text = "\definedfont[name:texgyrepagellabold*default]%
 
         text = "\definedfont[name:texgyrepagellabold*default]%
 
                 \framed[frame=off,offset=3mm,align=normal,strut=none]
 
                 \framed[frame=off,offset=3mm,align=normal,strut=none]
                 {MetaPost is Fun ! @\\ Aujourd'hui\\Today}",
+
                 {MetaPost is Fun !\\Aujourd'hui\\Today\\&@}",
 
     ] xsized 15cm ;
 
     ] xsized 15cm ;
  

Revision as of 16:49, 24 December 2020

A test

\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