DataMuseum.dk

top - metrics - download

    Length: 1005 (0x3ed)
    Types: TextFile
    Names: »p.mf«

└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
    └─⟦this⟧ »./babel/greek/src/p.mf« 
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦23cd347d5⟧ »unix3.0/babel.tar.Z« 
        └─⟦2fb9f645a⟧ 
            └─⟦this⟧ »babel/greek/src/p.mf« 

TextFile

if unknown gen_sigma : readfrom("gen_sigma") fi

def dims = 9.5u#,x_height#,0 enddef;
def ital = 0 enddef;
def fit_params = -.25,0 enddef;

def gen_letter =
  pickup fine.nib;
  pi_bar;							%bar
  pos4(hair,0); pos7(hair,0); y4=y7=y2;				%attachments
  lft x4l-(x1-.5hair)=lft x7l-rt x4r=rt x3-rt x7r;
  pos5(hair,0); pos8(hair,0); y5=y8=.5x_height; x5=x4; x8=x7;	%midstems
  x6+.5stem=hround(rt x4r if not straight:-.25u fi); y6-.5stem=-oo; %left stem
  numeric slope; slope=angle((z5-z6)xscaled2); pos6(stem,slope-90);
  filldraw circ_stroke z6e...z5e---z4e;
  x9=x7+1.5u; bot y9l=-oo; pos9(stem,90); alpha_tail(9,10);	%right stem
  filldraw stroke z10e...z9e{left}...z8e---z7e;
enddef;

cmchar "Lowercase pi";
beginchar("p",dims);
this_letter; penlabels(1,2,3,4,5,6,7,8,9,10); endchar;

if boolean barebones: picture savedpicture; endinput; fi

cmchar "Lowercase sigma followed by pi";
begindoublechar(oct"020",dim_sigma);
mid_sigma; middoublechar(dims); this_letter; endchar;

picture savedpicture;