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
|
%D \module
%D [ file=type-imp-punk,
%D version=2020.01.17,
%D title=\CONTEXT\ Typescript Macros,
%D subtitle=Punk Again,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
%D Yet another look at punk.
\ifdefined\enablerandomvariants\else
\useMPlibrary[punk]
\fi
\doifelse {\truefontname{Serif}} {unknown} {
\writestatus{fonts}{you need to load a base bodyfont first}
\endinput
} {
% we're ok
}
\starttypescriptcollection[punk]
\definefontfeature [punk] [metapost={category=punk,preroll=punkpreroll}]
\definefontfeature [punkrandom] [metapost={category=punk,preroll=punkpreroll,variants=5}]
\definefontfeature [punkbold] [metapost={category=punk,preroll=punkpreroll,weight=2}]
\definefontfeature [punkslanted] [metapost={category=punk,preroll=punkpreroll,slant=.15}]
\definefontfeature [punkboldslanted] [metapost={category=punk,preroll=punkpreroll,slant=.15,weight=2}]
\definefontfeature [punkveryslanted] [metapost={category=punk,preroll=punkpreroll,slant=-.15}]
\definefontfeature [punksqueezed] [metapost={category=punk,preroll=punkpreroll,squeeze=.5}]
\definefontfeature [punkextended] [metapost={category=punk,preroll=punkpreroll,extend=1.3}]
\definefontsynonym [punkbase] [\truefontname{Serif}]
\starttypescript [\s!serif] [punk]
\definefontsynonym [\s!Serif] [punkbase] [\s!features=punk]
\definefontsynonym [\s!SerifSlanted] [punkbase] [\s!features=punkslanted]
\definefontsynonym [\s!SerifBold] [punkbase] [\s!features=punkbold]
\definefontsynonym [\s!SerifBoldSlanted][punkbase] [\s!features=punkboldslanted]
\definefontsynonym [\s!SerifItalic] [\s!SerifSlanted]
\definefontsynonym [\s!SerifBoldItalic] [\s!SerifBoldSlanted]
\stoptypescript
\starttypescript [punk]
\definetypeface [punk] [\s!rm] [\s!serif] [punk] [\s!default]
\stoptypescript
\stoptypescriptcollection
|
