1 files changed, 61 insertions, 0 deletions
diff --git a/tex/context/base/s-fnt-01.tex b/tex/context/base/s-fnt-01.tex
new file mode 100644
index 000000000..69c8efab9
--- /dev/null
+++ b/tex/context/base/s-fnt-01.tex
@@ -0,0 +1,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