summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/s-fnt-01.tex
blob: 69c8efab9666f624bd305e342a55adaddd0343a3 (plain)
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
%D \module
%D   [      file=s-fnt-01,
%D        version=2001.08.22,
%D          title=\CONTEXT\ Style File,
%D       subtitle=Font Environment 1,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%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 This file is used by the \type {texfont.pl} installation
%D script. It is of no use for \MKIV.

%D Modes: compact

\dontcomplain

\setupbodyfont
  [10pt]

\setuplayout
  [backspace=30pt,
   topspace=30pt,
   footer=0pt,
   header=36pt,
   width=middle,
   height=middle]

\setupcolors
  [state=start]

\def\ShowFont
  {\dotripleempty\doShowFont}

\def\doShowFont[#1][#2][#3]%
  {\doifsomething{#1}
     {\bgroup
      \ifthirdargument
        \definefontsynonym[WhateverName][#2][encoding=#3]
        \definefont[WhateverFont][WhateverName]
        \setupheadertexts[\tttf#2\quad#1\quad#3]
        \WhateverFont
        \setupinterlinespace
        \showfont[WhateverName]
        \showligatures[WhateverName]
        \doifnotmode{compact}{\showaccents\showcharacters}
      \else
        \definefontsynonym[WhateverName][#2]
        \definefont[WhateverFont][WhateverName]
        \setupheadertexts[\tttf#2\quad#1\quad(special font)]
        \WhateverFont
        \setupinterlinespace
        \showfont[WhateverName]
      \fi
      \page
      \egroup}}

\endinput