]> git.donarmstrong.com Git - lilypond.git/blob - mf/feta-ital-r.mf
partial: 1.0.1.jcn
[lilypond.git] / mf / feta-ital-r.mf
1 % ital-r.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 r";
13 % beginchar("r",5.5u#+max(1.75u#,flare#),x_height#,0);
14 \"Dynamic letter r";
15 beginchar(incr num,5.5u#+max(1.75u#,flare#),x_height#,0);
16 italcorr x_height#*slant;
17 adjust_fit(if monospace:.25u#,.5u# else: 0,0 fi); pickup fine.nib;
18 x0=0; x2=x3; pos3(stem,0); lft x3l=hround(2.5u-.5stem); y3-.5stem=-oo;
19 hook_in(0,1,2);  % opening hook
20 filldraw circ_stroke z3e--z2e;  % left stem
21 pos3'(hair,180); z3'=z3; pos4(vair,90); pos5(hair,0); pos6(flare,0);
22 x4=w-.5u-max(1.75u,flare); rt x5r=hround(r-.5u); top y4r=h+oo;
23 filldraw stroke z3'e{up}...z4e{right};  % link
24 y6+.5flare=vround(bot y4l-.03x_height); bulb(4,5,6);  % bulb
25 math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#-.5u#);
26 penlabels(0,1,2,3,4,5,6); endchar;