1
2
3
4
5
6
7
8
9
10
11
12
13
14\def\MacScale {.7}
15\def\MacRule {.05}
16\def\MacDistance {.05}
17\def\MacKern {0}
18
19\protected\def\Mac
20 {\dontleavehmode
21 \begingroup
22 \scratchwidth \scaledfontcharwd\fontM\relax
23 \scratchdistance\MacScale\scaledfontcharwd\fontc\relax
24 \scratchoffset \dimexpr\scaledfontcharht\fontM \MacScale\scaledfontcharht\fontc\relax
25 \scratchdepth \MacRule\exheight
26 \kern\scratchwidth
27 \vrule
28 width \scratchdistance
29 height \dimexpr \scratchoffset \scratchdepth\MacDistance\exheight\relax
30 depth \dimexpr\scratchoffset2\scratchdepth\MacDistance\exheight\relax
31 \relax
32 \kern\dimexpr\scratchwidth\scratchdistance\relax
33 M
34 \glyphscale\numexpr\numericscale\MacScale*\glyphyscale\plusthousand\relax
35 \glyph
36 yoffset \scratchoffset c
37 \kern\MacKern\emwidth
38 \endgroup}
39
40\continueifinputfile{mgimmicks.mkxl}
41
42
43
44\chardef\MacAnulty = \privatecharactercode{MacAnulty}
45
46\startsetups [box:mcanulty:\number\MacAnulty]
47 \Mac Anulty
48\stopsetups
49
50\registerboxglyph category {mcanulty} unicode \MacAnulty \relax
51
52\startluacode
53 fonts.handlers.otf.addfeature {
54 name = "mcanulty",
55 type = "ligature",
56 nocheck = true,
57 data = {
58
59
60 [fonts.helpers.privateslot("MacAnulty")] = {
61 "M", "c", "A", "n", "u", "l", "t", "y",
62 },
63 }
64 }
65\stopluacode
66
67\definefontfeature[whatever][default][box=mcanulty,mcanulty=yes]
68\definefontfeature[default][default][box=mcanulty,mcanulty=yes]
69
70\startTEXpage [offset=10dk]
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90{\definedfont[Serif*whatever] McAnulty\quad \MacAnulty\par}
91{\definedfont[SerifBold*whatever] McAnulty\quad \MacAnulty\par}
92
93{\tf McAnulty\quad \MacAnulty\par}
94{\bf McAnulty\quad \MacAnulty\par}
95
96\stopTEXpage
97 |