doc/figures/mptextmp.mpx

   1 % Written by metapost version 1.999
   2 begingroup save _p,_r,_s,_n; picture _p; _p=nullpicture;
   3 string _n[];
   4 vardef _s(expr _t,_f,_m,_x,_y)(text _c)=
   5   addto _p also _t infont _f scaled _m shifted (_x,_y) _c; enddef;
   6 _n1="futr8r";
   7 _s("_",_n1,1.10400,0.0000,-0.4981, withcolor white*(1)
   8 );
   9 _s("_",_n1,1.10400,4.3304,-0.4981, withcolor white*(1)
  10 );
  11 _n4="fourier-ms";
  12 _s(char34,_n4,1.10400,7.1997,0.0000, withcolor white*(1)
  13 );
  14 setbounds _p to (0,-1.8909)--(12.6991,-1.8909)--
  15  (12.6991,8.0219)--(0,8.0219)--cycle;
  16 _p endgroup
  17 mpxbreak