summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/montex/cyrmorei.mf
blob: dea899d7dcfe7a45ed29bde0da77ab27bdda7165 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
%        File: cyrmorei.mf
%    Based on: jkbashi.mf
% Modified by: Oliver Corff
%        Date: October 1997, Ulaanbaatar
%
  % jkbashi.mf by Joerg Knappen, Bitnet: knappen@dmznat51
  % Version 14. June 1990
  % Bashkirian special letters, lowercase italics
  % Additional information at the end of this file

% cmchar "Italic Bashkirian letter ghe-barred";
% beginchar(oct"210",7u#,x_height#,0);
% italcorr max(1/3x_height#*slant+.5hair#+.5u#,h#*slant+.5flare#-2u#);
% adjust_fit(if monospace:u#,u# else: 0,0 fi); pickup fine.nib;
% x0=0; x5=w; x2=.5w+1.5u; x3=.5w-1.5u;
% hook_in(0,1,2)(skewed); hook_out(3,4,5)(skewed);  % hooks
% filldraw stroke z2e{down}...{down}z3e;  % stem
% pickup crisp.nib;
% top y6r=top y7r=bar_height;lft x6=lft x0;rt x7=rt x5;
% pos6(bar,90); pos7(bar,90);
% filldraw stroke z6e--z7e;    % bar
% penlabels(0,1,2,3,4,5,6,7); endchar;
%    
% cmchar "Italic Bashkirian letter variant ka";
% beginchar(oct"211",8u#,x_height#,0);
% italcorr x_height#*slant-.5u#;
% adjust_fit(u#,.25u#);
% pickup tiny.nib; pos1(fudged.stem,0); pos2(fudged.stem,0);
% lft x1l=lft x2l=hround max(1.3u,2u-.5fudged.stem); top y1=h; bot y2=0;
% filldraw stroke z1e--z2e; % stem
% if serifs:  dish_serif(1,2,a,1/3,jut,b,1/3,jut); % upper stem serif
%  dish_serif(2,1,c,1/3,jut,d,1/3,jut);  % lower stem serif
%  pickup fine.nib; pos3(vair,90); x3=x1; y3=.55h; z3'=z3; pos3'(varwid,90);
%  pos4(varwid,90); x4=w-.75flare-.08u; top y4r=h+oo; %original x4=w-2u
%  x41=x4; y41=y3'; x42=x4-2u; y42=y4;
%  filldraw stroke z3'e..controls z41 and z42..z4e;  % upper diagonal
%  pos5(hair,0); pos6(flare,0);
% rt x5r=hround(w-.08u); y5+.5flare=vround(top y4r-hair)+1;%original bot y4l-.03h
%  top y4'r=top y4r; x4'=x4; pos4'(hair,90);
%  bulb(4',5,6); % bulb
%  pos7(stem,0); pos8(varwid,90); pos9(hair,180);
%  x9+.5hair=hround(w+.5hair-eps); y9=1/3x_height;
%  lft x7l=hround(w-1.8u-.5stem); y7=1/2y3; x8=w-.8u; bot y8l=-oo;
%  filldraw stroke z3e{right}...z7e{down}
%  ...z8e{right}...{up}z9e;  % lower diagonal
% else:
%  numeric right_jut,stem[],alpha[];
%  right_jut=.4tiny;
%  pickup tiny.nib;
%  stem2=max(tiny.breadth,fudged.stem-3stem_corr);
%  stem1=max(tiny.breadth,fudged.hair if hefty:-3stem_corr fi);
%  top y3=h; rt x3r=hround(r-letter_fit-.67u-right_jut);
%  bot y6=0; rt x6r=hround(r-letter_fit-.5u-right_jut);
%  x4=x1; y4=1/3h;
%  alpha1=diag_ratio(1,.5(stem1-tiny),y3-y4,x3r-x4);
%  penpos3(alpha1*(stem1-tiny),0); penpos4(whatever,-90);
%  alpha2=diag_ratio(1,.5(stem2-tiny),y1-y6,x6r-x1);
%  penpos6(alpha2*(stem2-tiny),0);
%  forsuffixes $=l,r: y3'$=h; y6'$=0; z4$=z3'$+whatever*(z3-z4);
%   z5$=z6'$+whatever*(z1-z6)=whatever[z3,z4]; endfor
%  z5=.5[z5l,z5r];
%  z3'r=z3r+penoffset z3-z4 of currentpen+whatever*(z3-z4);
%  z6'r=z6r+penoffset z1-z6 of currentpen+whatever*(z1-z6);
%  z6'l=z6l+penoffset z6-z1 of currentpen+whatever*(z1-z6);
%  fill z4r--diag_end(4r,3'r,1,.5,3'l,4l)--z4l--cycle;  % upper diagonal
%  fill z5l--diag_end(5l,6'l,.5,1,6'r,5r)--z5r--cycle;  % lower diagonal
% fi
% pickup crisp.nib;
% top y55r=h; x55=x1; pos55(slab,90); pos56(hair,180); 
%   x56=x1-if serifs: 4 else: 2 fi u;
% y56=good.y(y55l-beak)-eps;
% arm(55,56,q,beak_darkness**.8,-.4beak_jut);
% math_fit(0,.5ic#); penlabels(1,2,3,4,5,6); endchar;
% 
% 
% cmchar "Italic Bashkirian letter variant en";
% beginchar(oct"212",10u#,x_height#,desc_depth#);
% italcorr 1/3x_height#*slant+.5hair#+.5u#;
% adjust_fit(0,.25u#); pickup fine.nib;
% x0=0; x2=x3; pos3(stem,-180); lft x3r=hround(2.5u-.5stem);
% hook_in(0,1,2);  % opening hook
%   y3-.5stem=-oo; z2'=z2; pos2'(stem,-180); 
%   filldraw circ_stroke z3e--z2'e;  %left stem
% x10=x3l; y10=y11=.55h; pos10(hair,90); pos11(hair,90);
% pos6(stem,0); rt x6r=hround(w-2.5u+.5stem); y6+.5stem=h;
% x7=x6; x9=w; hook_out(7,8,9);  %closing hook
%    z7'=z7; pos7'(stem,0);
% filldraw circ_stroke z6e--z7'e; x11=x6l; % right stem
%   filldraw stroke z10e{1,1}...{1,1}z11e; % bar
% pickup crisp.nib;
% y30=0; x30=x8-.1u; y32=-d; x32=x8-.75u; z31=.5[z30,z32];
% pos30(hair,90); pos31(1.25stem,135);
% filldraw stroke z8{down}...z30e...z31e--z32;  % descender
% endchar;
% 
cmchar "Italic Bashkirian letter o-umlaut";
beginchar(cyrotld,9u#,x_height#,0);
italcorr .7x_height#*slant+.5curve#-u# if math_fitting:-.5u# fi;
adjust_fit(0,0); pickup fine.nib;
pos1(vair,90); pos2(curve,180); pos3(vair,270); pos4(curve,360);
x1=x3=.5w; lft x2r=hround(1.5u-.5curve); x4=w-x2;
top y1r=h+oo; y2=y4=.5[y1,y3]; bot y3r=-oo;
filldraw stroke pulled_arc.e(1,2) & pulled_arc.e(2,3)
 & pulled_arc.e(3,4) & pulled_arc.e(4,1); % bowl
z90=z2l; x91=x4l; y91=y90; pos90(bar,90); pos91(bar,90);
if serifs: z92=.5[z90,z91]; pos92(if serifs: 2.5 fi bar,90);
  filldraw stroke z90e{1,1}..{1,-1}z92e..{1,1}z91e; % tilde-like bar
else: filldraw stroke z90e--z91e; fi  % bar
math_fit(-.3x_height#*slant+.5curve#-u#,ic#); penlabels(1,2,3,4); endchar;

%
% Sorry, the gamma is not acceptable in this context! OC, UB 1997
%
% cmchar "The italic Bashkirian letter u-umlaut"; % I put the gamma in here
% beginchar(cyry,10u#,x_height#,desc_depth#);
% italcorr x_height#*slant-.5u#;
% adjust_fit(0,0); pickup fine.nib;
% pos1(hair,180); pos2(vstem+dw,90);
% pos4(hair,0); pos5(vair,-90); pos6(hair,-180); pos7(hair,-180);
% bot y1=.5772156649h; top y2r=h+oo; y4=y6=-.5d;
% bot y5r=-d-o; top y7=h;
% lft x1r=hround(.5u-.5hair); x2=3u; rt x4r=hround(w-2u); x5=.5[x4,x6];
% rt x4r-lft x6r=hround 1/3[hair,stem]+eps; rt x7l=hround(w-u);
% if x4l<x6l: x4l:=x6l:=x5; fi
% pos3(hair,angle(z4-z2)+90); x3=superness[x2,x4]; y3=superness[y4,y2];
% filldraw stroke z1e{up}...z2e{right}...z3e{z4-z2}
%  ...z4e{down}...{left}z5e; % arc
% filldraw stroke z5e{left}...z6e{up}..{2(x7-x6),y7-y6}z7e;  % stem
% math_fit(-.5772156649x_height#*slant,ic#-u#);
% penlabels(1,2,3,4,5,6,7); endchar;

cmchar "The italic Bashkirian letter u-umlaut"; %
beginchar(cyry,8.5u#,x_height#,desc_depth#);
italcorr x_height#*slant+.5stem#-u#;
adjust_fit(0,0); pickup fine.nib; interim superness:=more_super;
x0=0; x2=x3+.25u; pos3(stem,-180); lft x3r=hround(2.5u-.5stem);
hook_in(0,1,2)(skewed);  % opening hook
pos2'(stem,-180); z2'=z2;
pos4(vair,-90); pos5(hair,0); x4=.5[x3,x5];
pos6(stem,0); rt x6r=hround(w-1.5u+.5stem);
pos7(stem,0); pos8(vair,-90);
y3=.7[y4,y5]; bot y4r=-oo; y5=.37h; y6+.5stem=h;
bot y7=-d; bot y8r=-d-oo; x5=x6=x7; x8=.5w;
filldraw stroke z2'e{-u,-x_height}
 ...super_arc.e(3,4)...{up}z5e; % left stem and arc
filldraw circ_stroke z6e---z7e;  % right stem and link
sloped_serif.r(7,2,a,1/3,jut,serif_drop);  % serif
math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#-1/3x_height#*slant);
penlabels(0,1,2,3,4,5,6,7,8,9,10);
endchar;

cmchar "Italic Bashkirian letter ha";
beginchar(cyrshha,9u#,asc_height#,0);
italcorr 1/3x_height#*slant+.5hair#+.5u#;
adjust_fit(1.5u#,0); pickup tiny.nib;
pos1(stem,0); pos2(stem,0); x1=x2;
lft x1l=hround(1.5u-.5stem); top y1=h; y2-.5stem=-oo;
filldraw circ_stroke z2e--z1e;  % left stem
sloped_serif.l(1,2,a,1/3,jut,serif_drop);  % serif
pickup fine.nib; x4+.5stem=hround(w-2.5u+.5stem);
x5=x4-.25u; ital_arch(2,3,4);  % arch
x7=w; hook_out(5,6,7)(skewed);  % closing hook
filldraw stroke z4e{down}..{-u,-x_height}z5e;  % right stem
math_fit(0,ic#); penlabels(1,2,3,4,5,6,7); endchar;

%    
% cmchar "Italic Bashkirian letter flipped e";
% beginchar(oct"216",8u#,x_height#,0);
% italcorr max(1/3x_height#*slant,x_height#*slant+.5(.2[hair#,stem#])-u#);
% adjust_fit(0,0); pickup fine.nib;
% numeric heavy_hair; heavy_hair=hround .2[hair,stem];
% pos0(vair,-90); pos1(heavy_hair,0); pos2(vair,90);
% pos3(curve,180); pos4(vair,270); pos5(hair,320);
% x0=rt x3l; rt x1r=hround(w-1.5u+.5heavy_hair); x2=x4=.5(w+u);
% lft x3r=hround(1.5u-.5curve); x5r=good.x(w-eps); x6=x5;
% y0=y3=y6=bar_height; y1=.5[y0,y2]; top y2r=h+oo; bot y4r=-oo;
% top y5l=vround .5bar_height; path p; p=z4{right}..z5..z6;
% filldraw stroke z0e{right}...z1e{up}...pulled_arc.e(2,3)
%  & pulled_arc.e(3,4)...{direction 1 of p}z5e;  % arc
% x10=.5w; y10=.5h; % center point
% flip(10);         % and flip
% math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
% penlabels(0,1,2,3,4,5,6); endchar;
% 
  \endinput

"These letters aren't perfect. Especially, the variant k is not an italic 
but a slanted letter. The variant n's descender is not precisely 
positioned. This should be changed in a later version." JK.

%-------------- end ------------------------------------------------------
The now famous character code reference:

Upper case letters:                        ABCDEFGHIJKLMNOPQRSTUVWXYZ
Lower case letters:                        abcdefghijklmnopqrstuvwxyz
Digits:                                    0123456789
Square, curly, angle braces, parentheses:  [] {} <> ()
Backslash, slash, vertical bar:            \ / |
Punctuation:                               . ? ! , : ;
Underscore, hyphen, equals sign:           _ - =
Quotes--right left double:                 ' ` "
"at", "number" "dollar", "percent", "and": @ # $ % &
"hat", "star", "plus", "tilde":            ^ * + ~