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
|
% Copyright (C) 1997, 1998, 1999 Claudio Beccari
% v.2.0d 1999/11/07
% Ligature for monospaced fonts; accent-spirit ligatures added 1997/11/03
% Thanks to Andreas Schwab for spotting some bugs and suggesting
% the corrections
% Ligatures with void char corrected 1999/04/07
% Ligatures with iota adscript added 1999/10/25
%
diaer=oct"042"; % double quote
ligtable "-": "-" =: oct"000"; % en-dash
ligtable oct"000": "-" =: oct"177"; % em-dash
ligtable "(": "(" =: oct"173"; % open quotes
ligtable ")": ")" =: oct"175"; % close quotes
ligtable "<":
"~" =: oct"100", "'" =: oct"126", "`" =: oct"103",
"a" =: oct"201", "e" =: oct"341", "h" =: oct"231", "r" =: oct"373",
"o" =: oct"345", "w" =: oct"261", "i" =: oct"311", "u" =: oct"315";
ligtable ">":
"~" =: oct"134", "'" =: oct"136", "`" =: oct"137",
"a" =: oct"202", "e" =: oct"342", "h" =: oct"232", "r" =: oct"374",
"o" =: oct"346", "w" =: oct"262", "i" =: oct"312", "u" =: oct"316";
ligtable diaer: "~" =: oct"040", "'" =: oct"043", "`" =: oct"044",
oct"375" =:| oct"035", % diaeresis at end of word becomes apostrophe
"i" =: oct"360", "u" =: oct"364",
"I" =: oct"333", "U" =: oct"337";
ligtable oct"044": % diaeresis and grave
"i" =: oct"361", "u" =: oct"365";
ligtable oct"043": % diaeresis and acute
"i" =: oct"362", "u" =: oct"366";
ligtable oct"040": % diaeresis and circumflex
"i" =: oct"363", "u" =: oct"367";
ligtable "`":
diaer =: oct"044", "`" =: oct"034", "<"=: oct"103", ">"=: oct"137",
"a" =: oct"200", "h" =: oct"230", "w" =: oct"260",
"e" =: oct"340", "o" =: oct"344", "i" =: oct"310", "u" =: oct"314";
ligtable "'": diaer =: oct"043", "'" =: oct"035", "<"=: oct"126", ">"=: oct"136",
"a" =: oct"210", "h" =: oct"240", "w" =: oct"270",
"e" =: oct"350", "o" =: oct"354", "i" =: oct"320", "u" =: oct"324";
ligtable oct"126": % rough breathing and acute
"a" =: oct"211", "h" =: oct"241", "w" =: oct"271",
"e" =: oct"351", "o" =: oct"355", "i" =: oct"321", "u" =: oct"325";
ligtable oct"136": % smooth breathing and acute
"a" =: oct"212", "h" =: oct"242", "w" =: oct"272",
"e" =: oct"352", "o" =: oct"356", "i" =: oct"322", "u" =: oct"326";
ligtable "~": diaer =: oct"040", "<"=: oct"100", ">"=: oct"134",
"a" =: oct"220", "h" =: oct"250", "w" =: oct"300",
"i" =: oct"330", "u" =: oct"334";
ligtable oct"137": % smooth breathing and grave
"a" =: oct"213", "h" =: oct"253", "w" =: oct"273",
"e" =: oct"353", "o" =: oct"357", "i" =: oct"323", "u" =: oct"327",
"A" kern-1.5u#, "O" kern-.5u#;
ligtable oct"103": % rough breathing and grave
"a" =: oct"203", "h" =: oct"243", "w" =: oct"263",
"e" =: oct"343", "o" =: oct"347", "i" =: oct"313", "u" =: oct"317",
"A" kern-1.5u#, "O" kern-.5u#;
ligtable oct"100": % rough breathing and circumflex
"a" =: oct"221", "h" =: oct"251", "w" =: oct"301",
"i" =: oct"331", "u" =: oct"335";
ligtable oct"134": % smooth breathing and circumflex
"a" =: oct"222", "h" =: oct"252", "w" =: oct"302",
"i" =: oct"332", "u" =: oct"336";
% iota subscripts
ligtable "a": "|" =: oct"370";
ligtable "h": "|" =: oct"371";
ligtable "w": "|" =: oct"372";
ligtable oct"200": "|" =: oct"204";
ligtable oct"201": "|" =: oct"205";
ligtable oct"202": "|" =: oct"206";
ligtable oct"203": "|" =: oct"207";
ligtable oct"210": "|" =: oct"214";
ligtable oct"211": "|" =: oct"215";
ligtable oct"212": "|" =: oct"216";
ligtable oct"213": "|" =: oct"217";
ligtable oct"220": "|" =: oct"224";
ligtable oct"221": "|" =: oct"225";
ligtable oct"222": "|" =: oct"226";
ligtable oct"230": "|" =: oct"234";
ligtable oct"231": "|" =: oct"235";
ligtable oct"232": "|" =: oct"236";
ligtable oct"240": "|" =: oct"244";
ligtable oct"241": "|" =: oct"245";
ligtable oct"242": "|" =: oct"246";
ligtable oct"243": "|" =: oct"247";
ligtable oct"250": "|" =: oct"254";
ligtable oct"251": "|" =: oct"255";
ligtable oct"252": "|" =: oct"256";
ligtable oct"253": "|" =: oct"257";
ligtable oct"260": "|" =: oct"264";
ligtable oct"261": "|" =: oct"265";
ligtable oct"262": "|" =: oct"266";
ligtable oct"263": "|" =: oct"267";
ligtable oct"270": "|" =: oct"274";
ligtable oct"271": "|" =: oct"275";
ligtable oct"272": "|" =: oct"276";
ligtable oct"273": "|" =: oct"277";
ligtable oct"300": "|" =: oct"304";
ligtable oct"301": "|" =: oct"305";
ligtable oct"302": "|" =: oct"306";
% sigma ligatures
% left sigma is replaced with final sigma, while right character is preserved
ligtable "s":"." =:| "c", "," =:| "c", ";" =:| "c",
":" =:| "c", "?" =:| "c", "!" =:| "c",
")" =:| "c", "/" =:| "c", "]" =:| "c",
oct"375" =:| "c", oct"052" =:| "c", oct"035" =:| "c";
ligtable "v": "v"=: "v", "A"=: "A", "B"=: "B", "G"=: "G", "D"=: "D",
"E"=: "E", "Z"=: "Z", "H"=: "H", "J"=: "J", "I"=: "I",
"K"=: "K", "L"=: "L", "M"=: "M", "N"=: "N", "X"=: "X",
"O"=: "O", "P"=: "P", "R"=: "R", "S"=: "S", "T"=: "T",
"U"=: "U", "F"=: "F", "Q"=: "Q", "Y"=: "Y", "W"=: "W";
ligtable "A": "|"=: oct"011";
ligtable "H": "|"=: oct"012";
ligtable "W": "|"=: oct"013";
endinput;
|