summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/bookhands/sqrctitle.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/bookhands/sqrctitle.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/bookhands/sqrctitle.mf710
1 files changed, 0 insertions, 710 deletions
diff --git a/Master/texmf-dist/fonts/source/public/bookhands/sqrctitle.mf b/Master/texmf-dist/fonts/source/public/bookhands/sqrctitle.mf
deleted file mode 100644
index f9563229ad7..00000000000
--- a/Master/texmf-dist/fonts/source/public/bookhands/sqrctitle.mf
+++ /dev/null
@@ -1,710 +0,0 @@
-%%
-%% This is file `sqrctitle.mf',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% sqrcaps.dtx (with options: `mfd')
-%%
-%% Copyright 1999 Peter R. Wilson
-%%
-%% This program is provided under the terms of the
-%% LaTeX Project Public License distributed from CTAN
-%% archives in directory macros/latex/base/lppl.txt.
-%%
-%% Author: Peter Wilson (CUA)
-%% now at: peter.r.wilson@boeing.com
-%%
-def makebox(text rule) =
- for y=0,half_height,cap_height,body_height,x_height,-desc_depth,-body_depth:
- rule((l,y)t_,(r,y)t_); endfor % horizontals
- for x=l,r: rule((x,-body_depth)t_,(x,body_height)t_); endfor % verticals
- for x=u*(1+floor(1/u)) step u until r-1:
- rule((x,-body_depth)t_,(x,body_height)t_); endfor % more verticals
- if charic<>0:
- rule((r+charic*pt,h.o_),(r+charic*pt,.5h.o_)); fi % italic correction
-enddef;
-
-
-def proofpcbb(suffix $)(expr xoff, yoff) =
-if proofing > 0:
- x$bl = x$ - xoff; y$bl = y$ - yoff; % Bottom Left Hand Corner
- z$br = (x$bl+side, y$bl); % BRHC
- z$tr = (x$bl+side, y$bl+side); % TRHC
- z$tl = (x$bl, y$bl+side); % TLHC
- z$bc = 1/2[z$bl,z$br]; z$tc = 1/2[z$tl,z$tr]; % horizontal mid points
- pair hc, vc;
- hc = (2u,0); vc = (0,2u);
- pickup pensquare scaled 2;
- for s = z$bl, z$br, z$tr, z$tl, z$bc, z$tc:
- draw s-hc--s+hc;
- draw s-vc--s+vc;
- endfor
-fi
-enddef;
-
-
-def sqrcaps_font_setup= % contains special stuff for sqrcaps fonts
- define_pixels(side,half_height,carol_height,comma_width);
- define_pixels(u,dot_size,letter_size,cap_height,width_adj,serif_fit,
- cap_serif_fit,jut,clubjut,cap_jut,trijut);
- define_pixels(fig_width);
- define_whole_pixels(letter_fit,sb);
- define_whole_vertical_pixels(body_height,asc_height,cap_height,x_height,
- desc_depth,body_depth,fig_height);
- define_corrected_pixels(o);
- define_blacker_pixels(thick,thin);
- define_pixels(sqrcjut);
- let adjust_fit = normal_adjust_fit;
- pickup pencircle scaled thin;
- stylus:=savepen;
- pickup pencircle scaled (1.5thin);
- thickstylus:=savepen;
- pickup pencircle xscaled thick yscaled thin rotated pangle;
- quill:=savepen;
-
- pickup pencircle xscaled 3/4thick yscaled thin rotated pangle;
- threequarterquill := savepen;
-
- pickup pencircle xscaled 1/2thick yscaled thin rotated pangle;
- halfquill := savepen;
-
- pickup pencircle xscaled 1/4thick yscaled thin rotated pangle;
- quarterquill := savepen;
-
- pickup pencircle xscaled 3/8thick yscaled thin rotated pangle; %% 1/4 too small
- thinquill := savepen;
-
- numeric pcshiftx#; % x value of LHS of box wrt origin of char box
- define_pixels(pcshiftx);
- numeric sqxside#; % x size of the square
- numeric sqyside#; % y size of the square
- define_pixels(sqxside,sqyside);
-
-enddef; % end of sqrcaps_font_setup
-
-boolean ductus;
-ductus:=false;
-numeric qhor, qvert;
-qhor:=cosd(pangle); qvert:=sind(pangle);
-pair pdir; pdir=dir(pangle);
-pair ppdir; ppdir=dir(pangle+90);
-
-def draw_serif(suffix $, $$)(expr fr)=
- numeric beta, ajut, bjut;
- beta=1-fr;
- ajut=fr*jut; bjut=beta*jut;
- pair vec[]; vec1=unitvector(z$$-z$);
- vec2=ajut*vec1;
- z$a=z$ shifted vec2;
- z$b=z$a rotatedaround (z$,-90);
- boolean top_serif;
- if y$>y$$:
- top_serif := true;
- z$c=z$b shifted (-bjut*pdir);
- else:
- top_serif:=false;
- z$c=z$b shifted (bjut*pdir);
- fi
- if top_serif:
- draw z$c--z$b{pdir}..{z$$-z$}z$a; % the serif
- else:
- draw z$c--z$b{-pdir}..{z$$-z$}z$a;
- fi
- labels($a,$b,$c);
-enddef; % end of draw_serif
-
-
-def draw_roundserif(suffix $, $$)(expr fr)=
- draw_serif($, $$, fr);
- undraw z$--z$a;
-enddef; % end of draw_roundserif
-
-
-def draw_flatserif(suffix $, $$)(expr fr)=
- numeric beta, ajut, bjut;
- beta=1-fr;
- ajut=fr*jut; bjut=beta*jut;
- pair vec[]; vec1=unitvector(z$$-z$);
- vec2=ajut*vec1;
- z$a=z$ shifted vec2;
-%%% z$b=z$a rotatedaround (z$,-90);
- boolean top_serif;
- if y$>y$$:
- top_serif := true;
- z$c=z$ shifted (-jut*pdir);
- else:
- top_serif:=false;
- z$c=z$ shifted (jut*pdir);
- fi
- z$b = fr[z$,z$c];
- draw z$a--z$;
- if top_serif:
- draw z$c--z$b{pdir}..{z$$-z$}z$a; % the serif
- else:
- draw z$c--z$b{-pdir}..{z$$-z$}z$a;
- fi
- labels($a,$b,$c);
-enddef; % end of draw_flatserif
-
-
-def draw_clubserif(suffix $, $$)(expr fr)=
- numeric beta, ajut, bjut;
-%% beta=1-fr;
- ajut=clubjut; bjut=beta*jut;
- pair vec[]; vec1=unitvector(z$$-z$);
-%% vec2=ajut*vec1;
-%% z$a=z$ shifted vec2;
- boolean top_serif;
- if y$>y$$:
- top_serif := true;
- z$c=z$ shifted (-clubjut*pdir);
- else:
- top_serif:=false;
- z$c=z$ shifted (clubjut*pdir);
- fi
- z$a = fr[z$,z$$];
- draw z$c..z$a{vec1};
- labels($a,$b,$c);
-enddef; % end of draw_clubserif
-
-
-def draw_triserif(suffix $)(expr tj)=
- pen oldpen; oldpen:=currentpen;
- pickup quill;
- x$ts1'=lft x$; y$ts1'=bot y$;
- pickup stylus;
- lft x$ts1=x$ts1'; bot y$ts1=y$ts1';
- x$ts2=x$ts1-tj; z$ts2=whatever[z$,z$ts1];
- x$ts3=x$ts1; y$ts3=y$ts2-tj;
- pickup stylus;
-%% filldraw z$ts1--z$ts2--z$ts3--cycle;
- filldraw z$--z$ts2--z$ts3--cycle;
- pickup oldpen;
- labels($ts1,$ts2,$ts3);
-enddef; % end of draw_triserif
-
-
-def draw_istem(suffix $, $$)(expr fr)=
- draw_serif($, $$, fr); % top serif
- draw_serif($$, $, fr); % bottom serif
- draw z$a--z$$a; % the stem
-enddef; % end of draw_istem
-
-
-def draw_tstem(suffix $, $$)(expr fr)=
-%% draw_serif($$, $, fr); % the serif
-%% draw z$--z$$a; % the stem
- draw z$--z$$;
-enddef; % end of draw_tstem
-
-
-def draw_tlserif(suffix $, $$)(expr fr)=
- draw_serif($, $$, fr); % the serif
- draw z$a--z$$; % the stem
-enddef; % end of draw_tlserif
-
-
-def draw_flick(suffix $)(expr rise, fall, fjut)=
- rt x$b = x1+fjut; top y$b=y$-fall;
- x$a=0.5[x$,x$b]; top y$a=y$+rise;
- draw z$..z$a..z$b;
- labels($a,$b);
-enddef; % end of draw_flick
-
-
-def draw_wave(suffix $,$$)(expr f)=
- x$wl=x$; y$wl=y$-f;
- x$wr=x$$; y$wr=y$$+f;
- z$wc=0.5[z$wl,z$wr];
- draw z$wl{pdir}..z$wc{right}..{pdir}z$wr;
- labels($wl,$wc,$wr);
-enddef; % end of draw_wave
-
-def draw_tail(suffix $)(expr fj)=
- pen oldpen; oldpen:=currentpen;
- pickup quill;
- x$tl' = lft x$; y$tl=bot y$;
- pickup stylus;
- lft x$tl=x$tl';
- x$tb=x$tl-fj; bot y$tb=y$tl-1/2desc_depth;
- filldraw z${down}..{-pdir}z$tb & z$tb{pdir}..{up}z$tl--cycle;
- pickup oldpen;
- labels($tb,$tl);
-enddef; % end of draw_tail
-
-def draw_triangle(suffix $)(expr sz)=
- pen oldpen; oldpen:=currentpen;
- pickup stylus;
- x$t1=x$-sz/2; x$t3=x$+sz/2;
- y$t1=y$t3=y$;
- x$t2=x$; y$t2=y$-0.9sz; % approx sqrt(3)/2
- filldraw z$t1--z$t2--z$t3--cycle;
- pickup oldpen;
- labels($t1,$t2,$t3);
-enddef; % end of draw_triangle
-
-def draw_utriangle(suffix $)(expr sz)=
- pen oldpen; oldpen:=currentpen;
- pickup stylus;
- x$t1=x$-sz/2; x$t3=x$+sz/2;
- y$t1=y$t3=y$;
- x$t2=x$; y$t2=y$+0.9sz; % approx sqrt(3)/2
- filldraw z$t1--z$t2--z$t3--cycle;
- pickup oldpen;
- labels($t1,$t2,$t3);
-enddef; % end of draw_utriangle
-
-def draw_rtriangle(suffix $)(expr sz)=
- pen oldpen; oldpen:=currentpen;
- pickup stylus;
- x$t1=x$-sz; rt x$t3=x$;
- y$t1=y$t3=y$;
- x$t2=x$t3; y$t2=y$-sz;
- filldraw z$t1--z$t2--z$t3--cycle;
- pickup oldpen;
- labels($t1,$t2,$t3);
-enddef; % end of draw_rtriangle
-
-def draw_rutriangle(suffix $)(expr sz)=
- pen oldpen; oldpen:=currentpen;
- pickup stylus;
- x$t1=x$-sz; rt x$t3=x$;
- y$t1=y$t3=y$;
- x$t2=x$t3; y$t2=y$+sz;
- filldraw z$t1--z$t2--z$t3--cycle;
- pickup oldpen;
- labels($t1,$t2,$t3);
-enddef; % end of draw_rutriangle
-
-def draw_fork(suffix $, $$)(expr sz)=
- pen oldpen; oldpen:=currentpen;
- pickup quill;
- x$f1'=lft x$; y$f1'=bot y$;
- x$f3'=rt x$; y$f3'=top y$;
- pickup stylus;
- lft x$f1=x$f1'; bot y$f1=y$f1';
- rt x$f3=x$f3'; y$f3-y$=2*(y$-y$f1);
- rt x$f2=x$$-sz; bot y$f2=y$$;
- rt x$f4= rt x$f5=x$$;
- bot y$f5=y$$-sz; top y$f4=y$$+1/2sz;
- filldraw z$f1--z$f2--z$f3--cycle; % the line
- draw z$f2{right}..z$f4; % upper fork
- draw z$f2{right}..z$f5; % lower fork
- pickup oldpen;
- labels($f1,$f2,$f3,$f4,$f5);
-enddef; % end of draw_fork
-
-def draw_urswish(suffix $, $$)=
- pen oldpen; oldpen:=currentpen;
- pickup quill;
- rt x$$s1=x$$-thick; top y$$s1=y$$;
- rt x$$s2=x$$;
-%% x$$s3=x$$-thick;
- lft x$$s3=x$$s1;
- bot y$$s3=y$$-thick; y$$s2=0.5[y$$s1,y$$s3];
-%% draw z$---z$$s1{right}..z$$s2{down}..{-pdir}z$$s3;
- draw z$..z$$s1{pdir}..z$$s2{down};
- labels($$s1,$$s2,$$s3);
-enddef; % end of draw_urswish
-
-def bowl_stem(suffix $, $$)=
- x$'=0.5[x$,x$$]; y$'=y$; % the mid-point
- z$''=z$' shifted (thick*pdir);
- x$i=x$$; z$i=whatever[z$',z$''];
- labels($',$i);
-enddef; % end of bowl_stem
-
-def draw_clubbase(suffix $, $$)(expr st, lft, rt)=
- z$$l = z$$ shifted (lft*thick*(-pdir));
- z$$r = z$$ shifted (rt*thick*(pdir));
- z$$t = st[z$$,z$];
- draw z$$t{z$$-z$}..z$$l--z$$r..{z$-z$$}z$$t;
- labels($$t,$$l,$$r);
-enddef; % end of draw_clubbase
-
-
-def draw_pdot(suffix $)(expr sz)=
- z$s = z$ shifted (0.5sz*left);
- z$t = z$ shifted (0.5sz*up);
- z$u = z$s shifted (sz*right);
- z$v = z$t shifted (sz*down);
- pickup stylus;
- filldraw z$s--z$t--z$u--z$v--cycle;
- labels($s,$t,$u,$v);
-enddef; % end of draw_pdot
-
-
-def draw_pcomma(suffix $)(expr sz, ar)=
- z$s = z$ shifted (0.5sz*left);
- z$t = z$s shifted (sz*right);
- x$v=x$s-ar; y$v=y$s-2ar;
- z$u = z$v shifted (sz*right);
- z$sv = (x$s, 1/3[y$s,y$v]);
- z$tu = (x$t, y$sv);
- z$uv = 1/3[z$u,z$v];
- z$vu = 1/3[z$v,z$u];
- pickup stylus;
-%% filldraw z$s--z$t--z$u--z$v--cycle;
- filldraw z$s--z$t--z$tu{down}..{left}z$uv--z$vu{right}..{up}z$sv--cycle;
- labels($s,$t,$u,$v);
-enddef; % end of draw_pcomma
-
-
-def draw_plq(suffix $)(expr sz, ar)=
- z$s = z$ shifted (0.5sz*left);
- z$t = z$s shifted (sz*right);
- x$v=x$s+ar; y$v=y$s-2ar;
- z$u = z$v shifted (sz*right);
- z$sv = (x$s, 1/3[y$s,y$v]);
- z$tu = (x$t, y$sv);
- z$uv = 1/3[z$u,z$v];
- z$vu = 1/3[z$v,z$u];
- pickup stylus;
-%% filldraw z$s--z$t--z$u--z$v--cycle;
- filldraw z$s--z$t--z$tu{down}..{right}z$uv--z$vu{left}..{up}z$sv--cycle;
- labels($s,$t,$u,$v);
-enddef; % end of draw_plq
-
-
-path obouter, obinner, obfirst, obsecond;
-def offsetbowl(suffix $)(expr sx, sy, fx, fy)=
- numeric inx, iny, cx, cy;
- pair pt[];
- path pth[];
- inx := 1/2thick*cosd(pangle); iny := 1/2thick*sind(pangle);
- cx := x$+fx*sx; cy := y$+fy*sy;
- z$obc = (cx,cy);
- if pangle = 90:
- z$wt=(x$+1/2thin, cy);
- z$et=(x$+sx-1/2thin, cy);
- else:
- z$wt=(x$+inx, cy);
- z$et=(x$+sx-inx, cy);
- penpos$wt(thick,pangle);
- penpos$et(thick,pangle);
- fi
- if pangle = 0:
- z$nh=(cx, y$+sy-1/2thin);
- z$sh=(cx, y$+1/2thin);
- else:
- z$nh=(cx, y$+sy-iny);
- z$sh=(cx, y$+iny);
- penpos$nh(thick,pangle);
- penpos$sh(thick,pangle);
- fi
- obfirst := z$nh{right}..z$et{down}..z$sh{left}..z$wt{up}..cycle;
- if pangle = 90:
- z$minl = z$wt; z$maxr = z$nh; z$minr = z$et; z$maxl = z$sh;
- else:
- if pangle = 0:
- z$minl = z$nh; z$maxr = z$et; z$minr = z$sh; z$maxl = z$wt;
- else:
- z$minl = directionpoint dir(pangle) of obfirst;
- z$minr = directionpoint -dir(pangle) of obfirst;
- pt1 := z$minr - z$minl; % direction
- pt2 := (- ypart pt1, xpart pt1); % perpendicular
- pt3 := 1/2[z$minl, z$minr];
- pt4 := pt3 shifted pt2;
- pt5 := pt3 shifted -pt2;
- pth1 := pt3--pt4;
- pth2 := pt3--pt5;
- z$maxr = pth1 intersectionpoint obfirst;
- z$maxl = pth2 intersectionpoint obfirst;
- \fi
- \fi
- penpos$minl(thin,pangle+90);
- penpos$maxr(thick,pangle);
- penpos$minr(thin,pangle+90);
- penpos$maxl(thick,pangle);
- obsecond := z$minl..z$maxr..z$minr..z$maxl..cycle;
- z$minlo = z$minl.r; z$maxro = z$maxr.r;
- z$minro = z$minr.l; z$maxlo = z$maxl.l;
- obouter := z$minlo{dir(pangle)}...z$maxro...z$minro{-dir(pangle)}...z$maxlo...cycle;
- z$minli = z$minl.l; z$maxri = z$maxr.l;
- z$minri = z$minr.r; z$maxli = z$maxl.r;
- obinner := z$minli...z$maxri...z$minri...z$maxli...cycle;
- labels($obc, $nh, $et, $sh, $wt);
- labels($minl, $maxr, $minr, $maxl);
- labels($minlo, $maxro, $minro, $maxlo);
- labels($minli, $maxri, $minri, $maxli);
-enddef;
-
-
-def obowl(suffix $)(expr sx, sy)=
- offsetbowl($, sx, sy, 1/2, 1/2);
-enddef;
-
-
-primarydef v scalarprod w =
- (xpart v * ypart w - ypart v * xpart w)
-enddef;
-
-
-def tangentpoint(suffix $)(expr pth)=
- pair vecll, veclr, veclm; % "tangent" line directions
- numeric pl, pr, pm; % path parameter values
- pair vecpl, vecpr, vecpm; % path directions
- pair ptl, ptr, ptm; % path points
- numeric sl, sr, sm; % scalar products of path/line directions
- numeric stpsize; % size of current binary step
- numeric tantol; % tolerance
- boolean wtest; % a boolean
-
- tantol := eps;
- pl:=0; pr:=length pth; pm:=0.5(pl+pr); stpsize:=pr-pl;
- ptl := point pl of pth;
- ptm := point pm of pth;
- ptr := point pr of pth;
- vecll := unitvector (z$-ptl);
- veclm := unitvector (z$-ptm);
- veclr := unitvector (z$-ptr);
- vecpl := unitvector (direction pl of pth);
- vecpm := unitvector (direction pm of pth);
- vecpr := unitvector (direction pr of pth);
- sl := vecll scalarprod vecpl;
- sm := veclm scalarprod vecpm;
- sr := veclr scalarprod vecpr;
- wtest := (stpsize < tantol) or (sl*sr > 0) or
- (abs sl < tantol) or (abs sm < tantol) or (abs sr < tantol);
- if wtest:
- if (stpsize < tantol):
- z$tan=(0,0);
- errmessage("No tangent; path too short");
- else:
- if (sl*sr > 0):
- z$tan=(0,0);
- errmessage("No tangent; end products have the same sign");
- else:
- if (abs sl < tantol):
- z$tan=ptl;
- else:
- if (abs sm < tantol):
- z$tan=ptm;
- else:
- z$tan=ptr;
- fi
- fi
- fi
- fi
- else:
- forever:
- if (sl*sm < 0): % opposite signs, look between pl & pm
- pr:=pm; pm:=0.5(pr+pl);
- vecpr := vecpm; veclr := veclm; sr:=sm;
- else:
- pl:=pm; pm:=0.5(pr+pl);
- vecpl:=vecpm; vecll:=veclm; sl:=sm;
- fi
- stpsize:=pr-pl;
- ptm := point pm of pth;
- veclm := unitvector (z$-ptm);
- vecpm := unitvector (direction pm of pth);
- sm := veclm scalarprod vecpm;
- wtest := (stpsize < tantol) or (abs sm < tantol);
- if wtest:
- if (abs sm < tantol):
- z$tan = ptm;
- else:
- z$tan = ptm;
-%%%%%% errmessage("Warning: tangent approximated");
- fi
- fi
- exitif wtest;
- endfor
- fi
-enddef;
-
-
-font_coding_scheme:="ASCII minuscules and punctuation";
-mode_setup;
-sqrcaps_font_setup;
-
-
-input sqrcl; % lower case
-input sqrcu; % capitals
-input sqrcpunct; % punctuation
-input sqrclig; % the several dashes
-input sqrcdig; % arabic digits
-
-
-font_slant slant; font_x_height x_height#;
-if monospace:
- font_normal_space vstretch*9u#; % no stretching or shrinking
- font_quad vstretch*18u#;
- font_extra_space vstretch*9u#;
-else:
- font_normal_space vstretch*6u#+2letter_fit#;
- font_normal_stretch vstretch*3u#; font_normal_shrink vstretch*2u#;
- font_quad vstretch*18u#+4letter_fit#;
- font_extra_space vstretch*2u#;
-
-
-fi
-
-bye.
-
- k#:=-.5u#; kk#:=-1.5u#; kkk#:=-2u#; % three degrees of kerning
- kks#:=-4u#; kkx#:=-1.5u#; kkj#:=-2u#; kkr#:=-5u#; kkrs#:=-2u#; kkrl#:=-8u#;
- ligtable "s":
- "a" kern kks#, "A" kern kks#,
- "c" kern kks#, "C" kern kks#,
- "d" kern kks#, "D" kern kks#,
- "e" kern kks#, "E" kern kks#,
- "f" kern kks#, "F" kern kks#,
- "g" kern kks#, "G" kern kks#,
- "i" kern kks#, "I" kern kks#,
- "j" kern kks#, "J" kern kks#,
- "k" kern kks#, "K" kern kks#,
- "m" kern kks#, "M" kern kks#,
- "n" kern kks#, "N" kern kks#,
- "o" kern kks#, "O" kern kks#,
- "p" kern kks#, "P" kern kks#,
- "q" kern kks#, "Q" kern kks#,
- "r" kern kks#, "R" kern kks#,
- "t" kern kks#, "T" kern kks#,
- "u" kern kks#, "U" kern kks#,
- "v" kern kks#, "V" kern kks#,
- "w" kern kks#, "W" kern kks#,
- "x" kern kks#, "X" kern kks#,
- "y" kern kks#, "Y" kern kks#,
- "z" kern kks#, "Z" kern kks#;
-
- ligtable "S":
- "a" kern kks#, "A" kern kks#,
- "c" kern kks#, "C" kern kks#,
- "d" kern kks#, "D" kern kks#,
- "e" kern kks#, "E" kern kks#,
- "f" kern kks#, "F" kern kks#,
- "g" kern kks#, "G" kern kks#,
- "i" kern kks#, "I" kern kks#,
- "j" kern kks#, "J" kern kks#,
- "k" kern kks#, "K" kern kks#,
- "m" kern kks#, "M" kern kks#,
- "n" kern kks#, "N" kern kks#,
- "o" kern kks#, "O" kern kks#,
- "p" kern kks#, "P" kern kks#,
- "q" kern kks#, "Q" kern kks#,
- "r" kern kks#, "R" kern kks#,
- "t" kern kks#, "T" kern kks#,
- "u" kern kks#, "U" kern kks#,
- "v" kern kks#, "V" kern kks#,
- "w" kern kks#, "W" kern kks#,
- "x" kern kks#, "X" kern kks#,
- "y" kern kks#, "Y" kern kks#,
- "z" kern kks#, "Z" kern kks#;
-
- ligtable "x":
- "a" kern kkx#, "A" kern kkx#,
- "b" kern kkx#, "B" kern kkx#,
- "c" kern kkx#, "C" kern kkx#,
- "d" kern kkx#, "D" kern kkx#,
- "e" kern kkx#, "E" kern kkx#,
- "g" kern kkx#, "G" kern kkx#,
- "j" kern kkx#, "J" kern kkx#,
- "l" kern kkx#, "L" kern kkx#,
- "o" kern kkx#, "O" kern kkx#,
- "q" kern kkx#, "Q" kern kkx#,
- "t" kern kkx#, "T" kern kkx#,
- "u" kern kkx#, "U" kern kkx#,
- "v" kern kkx#, "V" kern kkx#,
- "w" kern kkx#, "W" kern kkx#,
- "y" kern kkx#, "Y" kern kkx#;
-
- ligtable "X":
- "a" kern kkx#, "A" kern kkx#,
- "b" kern kkx#, "B" kern kkx#,
- "c" kern kkx#, "C" kern kkx#,
- "d" kern kkx#, "D" kern kkx#,
- "e" kern kkx#, "E" kern kkx#,
- "g" kern kkx#, "G" kern kkx#,
- "j" kern kkx#, "J" kern kkx#,
- "l" kern kkx#, "L" kern kkx#,
- "o" kern kkx#, "O" kern kkx#,
- "q" kern kkx#, "Q" kern kkx#,
- "t" kern kkx#, "T" kern kkx#,
- "u" kern kkx#, "U" kern kkx#,
- "v" kern kkx#, "V" kern kkx#,
- "w" kern kkx#, "W" kern kkx#,
- "y" kern kkx#, "Y" kern kkx#;
-
- ligtable "a": "A":
- "b": "B":
- "c": "C":
- "d": "D":
- "e": "E":
- "h": "H":
- "i": "I":
- "k": "K":
- "l": "L":
- "m": "M":
- "n": "N":
- "o": "O":
- "p": "P":
- "t": "T":
- "u": "U":
- "v": "V":
- "w": "W":
- "z": "Z":
- "j" kern kkj#, "J" kern kkj#;
-
- ligtable "r":
- "a" kern kkr#, "A" kern kkr#,
- "b" kern kkr#, "B" kern kkr#,
- "c" kern kkr#, "C" kern kkr#,
- "d" kern kkr#, "D" kern kkr#,
- "e" kern kkr#, "E" kern kkr#,
- "f" kern kkrs#, "F" kern kkrs#,
- "g" kern kkrs#, "G" kern kkrs#,
- "h" kern kkr#, "H" kern kkr#,
- "i" kern kkr#, "I" kern kkr#,
- "j" kern kkj#, "J" kern kkj#,
- "k" kern kkrs#, "K" kern kkrs#,
- "l" kern kkr#, "L" kern kkr#,
- "m" kern kkr#, "M" kern kkr#,
- "n" kern kkrs#, "N" kern kkrs#,
- "o" kern kkr#, "O" kern kkr#,
- "p" kern kkrs#, "P" kern kkrs#,
- "q" kern kkr#, "Q" kern kkr#,
- "r" kern kkrs#, "R" kern kkrs#,
- "s" kern kkr#, "S" kern kkr#,
- "t" kern kkr#, "T" kern kkr#,
- "u" kern kkr#, "U" kern kkr#,
- "v" kern kkr#, "V" kern kkr#,
- "w" kern kkr#, "W" kern kkr#,
- "x" kern kkx#, "X" kern kkx#,
- "y" kern kkr#, "Y" kern kkr#,
- "z" kern kkr#, "Z" kern kkr#;
-
- ligtable "R":
- "a" kern kkr#, "A" kern kkr#,
- "b" kern kkr#, "B" kern kkr#,
- "c" kern kkr#, "C" kern kkr#,
- "d" kern kkr#, "D" kern kkr#,
- "e" kern kkr#, "E" kern kkr#,
- "f" kern kkrs#, "F" kern kkrs#,
- "g" kern kkrs#, "G" kern kkrs#,
- "h" kern kkr#, "H" kern kkr#,
- "i" kern kkr#, "I" kern kkr#,
- "j" kern kkj#, "J" kern kkj#,
- "k" kern kkrs#, "K" kern kkrs#,
- "l" kern kkr#, "L" kern kkr#,
- "m" kern kkr#, "M" kern kkr#,
- "n" kern kkrs#, "N" kern kkrs#,
- "o" kern kkr#, "O" kern kkr#,
- "p" kern kkrs#, "P" kern kkrs#,
- "q" kern kkr#, "Q" kern kkr#,
- "r" kern kkrs#, "R" kern kkrs#,
- "s" kern kkr#, "S" kern kkr#,
- "t" kern kkr#, "T" kern kkr#,
- "u" kern kkr#, "U" kern kkr#,
- "v" kern kkr#, "V" kern kkr#,
- "w" kern kkr#, "W" kern kkr#,
- "x" kern kkx#, "X" kern kkx#,
- "y" kern kkr#, "Y" kern kkr#,
- "z" kern kkr#, "Z" kern kkr#;
-
-fi
-
-bye.
-