]> git.donarmstrong.com Git - lilypond.git/blob - mf/feta-ital-p.mf
*** empty log message ***
[lilypond.git] / mf / feta-ital-p.mf
1 % ital-p.mf
2 % from itall.mf
3 %
4 % Computer Modern Italic lower case:
5 % This lowercase italic alphabet was prepared by D. E. Knuth in December, 1979,
6 % inspired by the Monotype faces used in {\sl The Art of Computer Programming}.
7 % The programs were revised for the new \MF\ conventions in 1985.
8
9 % Character codes \0141 through \0172 are generated.
10 % not
11
12 % cmchar "Italic letter p";
13 % beginchar("p",9u#,x_height#,desc_depth#);
14 "Dynamic letter p";
15 beginchar(112, 9u#,x_height#,desc_depth#);
16 italcorr .7x_height#*slant+.5curve#-u# if math_fitting:-.5u# fi;
17 adjust_fit(0,0); pickup fine.nib;
18 x0=0; x2-.5stem=hround(2.5u-.5stem); hook_in(0,1,2);  % opening hook
19 pos4(hair,-180); pos5(vair,-90); pos6(curve,0); pos7(vair,90);
20 x4=x2; rt x6r=hround(w-1.5u+.5curve); x5=x7=.5[x4,x6];
21 bot y5r=-oo; top y7r=h+oo; y4=y6=.5[y5,y7];
22 filldraw stroke super_arc.e(4,5) & pulled_arc.e(5,6)
23  & pulled_arc.e(6,7) & super_arc.e(7,4);  % bowl
24 pickup tiny.nib; pos2'(stem,0); pos3(stem,0);
25 z2=z2'; x3=x2; bot y3=-d; filldraw stroke z2'e--z3e;  % stem
26 dish_serif(3,2',a,1/3,.75jut,b,1/3,jut);  % serif
27 math_fit(-min(2/3x_height#*slant-.5hair#-.5u#,
28  2u#-.5stem#-desc_depth#*slant),ic#);
29 penlabels(0,1,2,3,4,5,6,7); endchar;