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
204
205
206
207
208
209
210
211
212
213
|
%This file contains some code from Computer Modern's accent.mf.
%It defines all Greek diacritic marks.
gen_acc:=1;
def separator=max(1,vround(1/20x_height)) enddef;
def grave(expr center) =
if serifs: x22-x21=1/4w; x21-.5stem=hround(center-2/3(x22-x21)-.5stem);
else: lft x21l=hround (1/4w-.5stem); rt x22r=hround(center+.25u+.5vair); fi
generate_grave; penlabels(21,22);
enddef;
def acute(expr center) =
if serifs: x21-x22=1/4w; x21+.5stem=hround(center+2/3(x21-x22)+.5stem);
else: rt x21r=hround (3/4w+.5stem); lft x22l=hround(center-.25u-.5vair); fi
generate_grave; penlabels(21,22);
enddef;
vardef search(expr xyzzy) =
pair p;ypart(p)=y22l;p-(x22,xyzzy)=whatever*((z21-(x22,xyzzy))rotated 90);
length(p-(x22,xyzzy))>.5(hair-currentbreadth) enddef;
vardef generate_grave=
if serifs: pickup crisp.nib;
y21+.5stem=h+eps; bot y22l=max(.8[h,x_height],x_height+o+separator);
y22=solve search(y21,y22l); x22l=xpart(p); z22r=2z22-z22l;
pos21(stem,angle(z22r-z22l));
filldraw circ_stroke z21e--z22e; % diagonal
else: pickup fine.nib; pos21(stem,0); pos22(vair,0);
top y21=h; bot y22=vround .8[h,x_height];
filldraw stroke z21e--z22e; % diagonal
fi
enddef;
def circumflex(expr center)=
generate_circumflex(center,false); %variable `squeeze'
enddef;
def generate_circumflex(expr center,squeeze)=
numeric mid_width; mid_width=if squeeze:.1 else: .5 fi [vair,stem];
if serifs:
pickup fine.nib; pos21(hround(mid_width-eps),180); pos22(vair,90);
pos23(mid_width,90); pos24(vair,90); pos25(hround(mid_width-eps),180);
lft x21r=w-rt x25l=hround (center-w/3); x22-x21=x23-x22=x24-x23=x25-x24;
bot y21=bot y24l=vround(.75[x_height,h]-vair);
top y22r=top y25=h; y23=.5[y22,y24];
filldraw stroke z21e{up}...z22e{right}..z23e..{right}z24e...{up}z25e; % stroke
else:
pos21(vair,-180); pos23(vair,0); y21=y23;
lft x21r=hround(center-w/3); rt x23r=hround(center+w/3);
bot y23=vround max(x_height+o+separator,
if squeeze: 2/3 else: 1/3 fi [x_height,h]-.5mid_width);
x22=center; pos22(mid_width,90); top y22r=h;
filldraw stroke z21e{up}...z22e...{down}z23e;
fi
enddef;
vardef diaeresis(expr center)=
generate_diaeresis(center,dot_size,dot_size+1/8w,h,x_height+separator);
enddef;
vardef diaeresis_acute(expr center)=
if serifs: x21-x22=1/4w; x21+.5stem=hround(center+5/6(x21-x22)+.5stem);
else: rt x21r=hround (3/4w+.5stem); lft x22l=hround(center-.5vair); fi
generate_grave; penlabels(21,22);
generate_diaeresis(center,.9dot_size,-1,.5[h,x_height],x_height+separator);
enddef;
vardef diaeresis_grave(expr center)=
if serifs: x22-x21=1/4w; x21-.5stem=hround(center-5/6(x22-x21)-.5stem);
else: lft x21l=hround (1/4w-.5stem); rt x22r=hround(center+.5vair); fi
generate_grave; penlabels(21,22);
generate_diaeresis(center,.9dot_size,-1,.5[h,x_height],x_height+separator);
enddef;
vardef diaeresis_circumflex(expr center)=
generate_circumflex(center,true);
numeric sp_bottom, sp_top;
sp_top=vround(.15[bot y21l,x_height]); sp_top+sp_bottom=bot y21l+x_height;
generate_diaeresis(center,5/8dot_size,5/8dot_size+1/4w,sp_top,sp_bottom);
enddef;
vardef generate_diaeresis(expr center,target_dot_diam,sep,eff_h,base)=
pickup tiny.nib; numeric dot_diam;
dot_diam:=max(tiny.breadth,hround(target_dot_diam));
pos31(dot_diam,0); pos32(dot_diam,90); x31=x32; top y32r=vround(eff_h);
if bot y32l<base: y32l:=min(y32r-eps,base+.5currentbreadth); fi
y31=.5[y32l,y32r];
pos33(dot_diam,0); penpos34(y32r-y32l,90); y33=y34=y31; x33=x34;
if sep>0 : center=.5[x31,x33]; x33-x31=sep;
else:
y35l=y35r=.5[y31,y32]; z35l=whatever[z21l,z22l]; z35r=whatever[z21r,z22r];
rt x31r=hround((min(x35l,x35r)-.5currentbreadth)-.05w);
lft x33l=hround((max(x35l,x35r)+.5currentbreadth)+.05w);
fi
dot(31,32); dot(33,34);
penlabels(31,32,33,34,35);
enddef;
def rough(suffix $,@)(expr dot_size,depth,shear) =
pickup fine.nib; pos$(dot_size,90);
if square_dots: pos$'(dot_size,180); z$'=z$; dot($',$); % squarish dot
comma_join_:=max(fine.breadth,floor .7dot_size);
comma_bot_:=max(fine.breadth,floor .5dot_size);
pos@0(comma_join_,180); pos@1(comma_join_,180);
pos@2(comma_bot_,180); y@0=y$; y@1=y$l; y@2=y@1+dot_size-depth;
x@0r=x@1r=x$'r; lft x@2r=good.x(x$-eps);
filldraw stroke z@0e--z@1e..z@2e; % tail
else: pos@1(vair,90); pos@2(vair,180); pos@3(vair,-90);
z@1r=z$r; lft x@2r=hround(x$-.5depth+.5shear);
x@3+.5vair=x$+.5dot_size+shear;
y@2=.5[y@1,y@3]; bot y@3r=vround(top y@1r-depth);
y_:=ypart((z@1{left}...z@2{down}...z@3)
intersectiontimes (z$l{left}..{right}z$r)); if y_<0: y_:=1; fi
filldraw z$r{right}..subpath (0,y_) of (z$l{left}..{right}z$r)--cycle; % dot
filldraw stroke z@1e{left}...z@2e{down}...{right}z@3e; fi % tail
penlabels(@1,@2,@3); enddef;
def smooth(suffix $,@)(expr dot_size,depth,shear) =
pickup fine.nib; pos$(dot_size,90);
if square_dots: pos$'(dot_size,0); z$'=z$; dot($',$); % squarish dot
comma_join_:=max(fine.breadth,floor .7dot_size);
comma_bot_:=max(fine.breadth,floor .5dot_size);
pos@0(comma_join_,0); pos@1(comma_join_,0);
pos@2(comma_bot_,0); y@0=y$; y@1=y$l; y@2=y@1+dot_size-depth;
x@0r=x@1r=x$'r; rt x@2r=good.x(x$-eps);
filldraw stroke z@0e--z@1e..z@2e; % tail
else: pos@1(vair,90); pos@2(vair,0); pos@3(vair,-90);
z@1r=z$r; rt x@2r=hround(x$+.5depth+.5shear);
x@3-.5vair=hround(x$-.5dot_size+shear);
y@2=.5[y@1,y@3]; bot y@3r=vround(top y@1r-depth);
y_:=ypart((z@1{right}...z@2{down}...z@3)
intersectiontimes (z$l{right}..{left}z$r)); if y_<0: y_:=1; fi
filldraw z$r{left}..subpath (0,y_) of (z$l{right}..{left}z$r)--cycle; % dot
filldraw stroke z@1e{right}...z@2e{down}...{left}z@3e; fi % tail
penlabels(@1,@2,@3); enddef;
vardef spirit(expr center) text type=
numeric sp_bottom, sp_height;
sp_bottom=h-sp_height=max(.8[h,x_height],x_height+o+separator);
numeric dot_diam#; dot_diam# = 3/4dot_size#;
define_whole_blacker_pixels(dot_diam);
dot_diam:=max(fine.breadth,min(dot_diam,floor(2/3sp_height)));
x31 if1type0:-else:+fi.5dot_diam=hround(center if1type0:-else:+fi.5dot_diam);
y31+.5dot_diam=h;
if1type0:smooth else:rough fi (31,a,dot_diam,sp_height,0);
penlabels(31);
enddef;
vardef spirit_acute(expr center) text type =
numeric sp_bottom, sp_height;
sp_bottom=h-sp_height=max(.8[h,x_height],x_height+o+separator);
numeric dot_diam#; dot_diam# = 3/4dot_size#;
define_whole_blacker_pixels(dot_diam);
dot_diam:=max(fine.breadth,min(dot_diam,floor(2/3sp_height)));
if serifs: x21-x22=1/6w;
x21+.5stem=hround(center+.25u+.5vair+(x21-x22)+.5stem); %lft x22r ~ center+.25u
else: rt x21r=hround (4/5w+.5stem); lft x22l=hround(center+.25u); fi
generate_grave; penlabels(21,22);
if 1type0: %spirit and accent separated by .5u (rough) or .25u (smooth)
x31=hround(lft x22 if serifs:r-.5sp_height else:l-.5dot_diam fi -.25u);
else: x31+.5dot_diam=hround(lft x22 if serifs:r else: l fi -.5u); fi
y31+.5dot_diam=h;
if1type0:smooth else:rough fi (31,a,dot_diam,sp_height,0);
enddef;
vardef spirit_grave(expr center) text type =
numeric sp_bottom, sp_height;
sp_bottom=h-sp_height=max(.8[h,x_height],x_height+o+separator);
numeric dot_diam#; dot_diam# = 3/4dot_size#;
define_whole_blacker_pixels(dot_diam);
dot_diam:=max(fine.breadth,min(dot_diam,floor(2/3sp_height)));
if serifs: x22-x21=1/6w; x21-.5stem=hround(center+.25u);
else: rt x22r=hround (4/5w+.5stem); lft x21l=hround(center+.25u); fi
generate_grave; penlabels(21,22);
if 1type0: %spirit and accent separated by .5u (rough) or .25u (smooth)
x31=hround(lft x21l-.5 if serifs:sp_height else:dot_diam fi -.25u);
else: x31+.5dot_diam=hround(lft x21l-.5u); fi
y31+.5dot_diam=h;
if1type0:smooth else:rough fi (31,a,dot_diam,sp_height,0);
enddef;
vardef spirit_circumflex(expr center) text type=
generate_circumflex(center,true); %variable `squeeze'
numeric sp_bottom, sp_height, sp_top, box_top;
box_top=bot if serifs: y21l else: y22l fi;
sp_top=sp_bottom+sp_height=vround(.15[box_top,x_height]);
sp_top+sp_bottom=box_top+x_height;
numeric dot_diam#; dot_diam# = 5/8dot_size#;
define_whole_blacker_pixels(dot_diam);
pickup fine.nib;
dot_diam:=max(fine.breadth,min(dot_diam,floor(2/3sp_height-eps)));
x31 if1type0:-else:+fi.5dot_diam=hround(center if1type0:-else:+fi.5dot_diam);
y31+.5dot_diam=vround(sp_top);
if1type0:smooth else:rough fi (31,a,dot_diam,sp_height,0);
penlabels(31);
enddef;
def iota_sub(expr pos_stem) =
if known pic.iota:
addto currentpicture also pic.iota shifted (hround(pos_stem),0);
else:
picture temp_picture; temp_picture=currentpicture; clearit;
pickup fine.nib;
x51=0; pos51(stem,180); top y51=vround(-o-2separator);
x52=x51; pos52(stem,180); bot y52=-iota_dp;
filldraw circ_stroke z52e--z51e;
if not working_hard : picture pic.iota; pic.iota=currentpicture; fi
currentpicture:=currentpicture shifted (hround(pos_stem),0);
addto currentpicture also temp_picture;
fi;
enddef;
|
