From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Mon, 2 Sep 2019 13:46:59 +0900
Subject: Initial commit

---
 fonts/ec/src/tcstdedt.tex | 345 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 345 insertions(+)
 create mode 100644 fonts/ec/src/tcstdedt.tex

(limited to 'fonts/ec/src/tcstdedt.tex')

diff --git a/fonts/ec/src/tcstdedt.tex b/fonts/ec/src/tcstdedt.tex
new file mode 100644
index 0000000000..de20eb8ea9
--- /dev/null
+++ b/fonts/ec/src/tcstdedt.tex
@@ -0,0 +1,345 @@
+% tcstdedt.mf
+%
+% (c) Copyright 1995, 1996, 1997 J"org Knappen
+% (c) Copyright 1990, 1992 Norbert Schwarz
+%
+% This file is part of ecfonts version 1.0
+%
+% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and
+% copyrite.txt for further information
+%
+% You find some documentation in dcdoc.tex (needs LaTeX2e)
+%
+% Generating MF-files for TC fonts           EC Version 1.0 / 1-JAN-1997
+%
+%  Running TeX with this file as an input results in a lot of
+%  Metafont font driver files (tcrm5.mf, tcrm6.mf, ..). The files
+%  which should be generated are marked in the following macro
+%  \FontsToBeGenerated. For each font there has to be an entry
+%  with the pt sizes the font should be generate with. Additionally
+%  in the heading \tablevalues all used pt sizes have to be mentioned,
+%  just to get an fine printout.
+%
+%  Furthermore there is a batch file which can be customized for the
+%  Metafont batch run.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%  please change only here:
+%
+\long\def\FontsToBeGenerated{
+
+     \tablevalues     ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+                          35.83[3583])
+
+     \makefont tcrm   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986] 
+                          35.83[3583])
+     \makefont tcsl   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986] 
+                          35.83[3583])
+     \makefont tcbx   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986] 
+                          35.83[3583])
+     \makefont tcbl   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986] 
+                          35.83[3583])
+%     \makefont tcfb   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+%                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+%                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986] 
+%                          35.83[3583])
+     \makefont tcrb   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986] 
+                          35.83[3583])
+%     \makefont tcdh   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+%                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+%                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+%                          35.83[3583])
+     \makefont tctt   (% 5[0500] 6[0600] 7[0700] 
+                          8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+                          35.83[3583])
+     \makefont tcvt   (% 5[0500] 6[0600] 7[0700] 
+                          8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+                          35.83[3583])
+     \makefont tcvi   (% 5[0500] 6[0600] 7[0700] 
+                          8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+                          35.83[3583])
+     \makefont tcst   (% 5[0500] 6[0600] 7[0700]
+                          8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+                           35.83[3583])
+     \makefont tcit   (% 5[0500] 6[0600] 7[0700]
+                          8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+                          35.83[3583])
+     \makefont tcss   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+                          35.83[3583])
+     \makefont tcsi   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+                          35.83[3583])
+     \makefont tcsx   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+                          35.83[3583])
+     \makefont tcso   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+                          35.83[3583])
+%     \makefont tcff   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+%                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+%                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+%                          35.83[3583])
+%     \makefont tcfi   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+%                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+%                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+%                          35.83[3583])
+     \makefont tcbi   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+                          35.83[3583])
+     \makefont tcti   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+                          35.83[3583])
+     \makefont tcui   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+                          35.83[3583])
+     \makefont tcci   ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] 
+                          10[1000] 10.95[1095] 12[1200] 14.4[1440] 
+                          17.28[1728] 20.74[2074] 24.88[2488] 29.86[2986]
+                          35.83[3583])
+}
+% If a font with a fraction, e.g. "7.5", should be generated
+% and the file name is not allowed to contain a period, an
+% optional file name part can be specified.
+%
+%      7.5[0750]
+%
+%      result in - may be - "tcr0750.mf" and an entry of "gensize:=7.5;"
+%      (The new value has to be specified in the \tablevalues-line too!
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%  The Batch file entries   ( #1 contains the fontname )
+%
+%   should be of the following form:
+%
+%    \def\BatchOutput{\BatchLine{...}%
+%                          ...
+%                     \BatchLine{...}}
+%
+%
+%  preset value, change \BatchOutput if you like ....
+%
+\def\BatchOutput#1{
+      \BatchLine{$ MF "\string\mode=localfont; input #1"}
+%     \BatchLine{mf/batch "&exbase \string\mode:=imagen; input #1"}
+}
+%
+%   File naming conventions:
+%
+\def\BatchFileName{tcfonts.com}
+%
+%
+\def\MetafontFileExtension{.mf}
+%
+\def\modedef{} % e.g.  \def\modedef{\string\mode:=hplaser;}
+%
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% please  n o  changes from here, thanks !
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%
+% (Avoiding inspecting the macros (sigh!)
+%
+%   Norbert Schwarz, Dezember 1990
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\magnification\magstep1
+\overfullrule=0pt
+%\tracingonline1
+%\tracingcommands=1
+%\tracingmacros=1
+% some token handling
+\let\EA\expandafter
+\def\JoinToks#1=(#2+#3){#1=\EA\EA\EA{\EA\the\EA#2\the#3}}
+\def\UpToHere{\relax}
+\def\IgnoreRest#1#2\UpToHere{#1}
+\def\IgnoreFirst#1#2\relax\UpToHere{#2}
+\def\First#1{\EA\IgnoreRest\the#1{}\UpToHere}
+\def\FirstOf#1{\EA\EA\EA{\EA\IgnoreRest\the#1{}\UpToHere}}
+\def\MoveFirst(#1to#2){#2\FirstOf#1}
+\def\Rest#1{\EA\IgnoreFirst\the#1\relax\UpToHere}
+\def\RestOf#1{\EA\EA\EA{\EA\IgnoreFirst\the#1\relax\UpToHere}}
+\def\MoveRest(#1to#2){#2=\RestOf{#1}}
+% borrowed from p. 132 in N.Schwarz, Introduction to TeX (some advertising ..)
+
+\newtoks\Basis
+\newtoks\Table
+\def\storetoks#1{\toks0={#1}\JoinToks\Table=(\Table+\toks0)}
+\Table={}
+%
+\def\hash{##}
+\newwrite \batchoutput
+\newwrite \fontoutput
+\def\today{\ifcase\month\or
+    January\or Februar\or March\or April\or May\or June\or
+    July\or August\or September\or October\or November\or December\fi,
+    \number\day,
+    \space\number\year}
+
+\def\BatchLine#1{\immediate\write\batchoutput{#1}}
+\immediate\openout\batchoutput=\BatchFileName
+
+\def\empty{}
+\def\minus{-}
+\def\blank{ }
+\def\singlefont#1 {%
+        \def\fontsize{#1}%\message{<#1>}%
+        \ifx\fontsize\minus\let\next\relax
+        \else
+            \ifx\fontsize\empty\let\next\singlefont
+            \else
+                \ifx\fontsize\blank\let\next\singlefont
+                \else
+                    \let\next\dofont
+          \fi\fi\fi
+        \next}
+
+\def\doentry{\MoveFirst(\Workbase to\Htok)%
+             \Workbase=\RestOf\Workbase
+             \edef\doou{\the\Htok}%
+             \ifx\doou\fontsize
+                 \def\dooU{\storetoks{\hfill $\bullet$\hfill&}}%
+                 \let\weiter\dooU
+             \else
+                 \def\weiter{\storetoks{~\hfill&}\doentry}%
+             \fi\weiter}
+
+
+\def\singletablevalue#1 {%
+        \def\fontsize{#1}%
+        \ifx\fontsize\blank\let\next\singletablevalue
+        \else
+                \ifx\minus\fontsize\let\next\relax
+                \else\let\next\dotablevalue\fi
+        \fi
+        \next}
+
+\newtoks\Htok
+\newtoks\Workbase
+\def\dotablevalue{\edef\dooo{\Htok={{\fontsize}}}%
+        \dooo
+        \EA\storetoks\EA{\fontsize&}%
+        \JoinToks\Basis=(\Basis+\Htok)\singletablevalue}
+
+\def\tablevalues(#1){\storetoks{\bf Fonts &}\singletablevalue#1 -
+        \storetoks{\cr}}
+
+\def\makefont #1 (#2){\JoinToks\Workbase=(\Basis+\Basis)%
+        \myc=0\immediate\write15{}%
+        \edef\fontnamebody{#1}%
+        \def\dostoretoks{\storetoks{#1 &}}\dostoretoks
+         \singlefont #2 - \storetoks{\cr}}
+
+\def~{\ifdim\dimen0>0pt
+        \message{\number\dimen0}%
+        \global\advance\dimen0 by -5.25pt
+        \message{ }\fi}
+
+\newcount\myc
+\def\extraspaces{\setbox0=\hbox{\tt\fontname}%
+\dimen0=78.75pt
+\advance\dimen0 by -\wd0\relax
+        \advance\myc by 1
+        \ifnum \myc=5
+        \immediate\write15{}%
+        \myc=0 \fi}
+
+
+\def\dofonttest#1[#2]#3\nothing{%
+\def\fontsize{#2}%
+\ifx\fontsize\empty
+        \def\fontsizename{#1}%
+        \def\fontsize{#1}%
+\else
+        \def\fontsize{#1}%
+        \def\fontsizename{#2}%
+\fi}
+\def\dofont{\doentry\expandafter\dofonttest\fontsize[]\nothing\Dofont}
+
+{\catcode`\%=11
+\catcode`\|=14
+\gdef\Dofont{|
+  \edef\fontname{\fontnamebody\fontsizename\MetafontFileExtension}|
+  \edef\dowrite{|
+  \immediate\openout \fontoutput = \fontname|
+  \immediate\write
+     \fontoutput {% This is \fontname\space
+     in text format as of \today}|
+  \immediate\write \fontoutput {if unknown exbase: input exbase fi;}|
+  \immediate\write \fontoutput {}|
+  \immediate\write \fontoutput {\modedef}|
+  \immediate\write \fontoutput {gensize:=\fontsize;}|
+  \immediate\write \fontoutput {generate \fontnamebody}|
+  \immediate\closeout \fontoutput|
+  \BatchOutput{\fontnamebody\fontsizename}
+  \message{\fontname\blank}|\extraspaces~~~~~~~~~~~|
+}\dowrite\singlefont}}
+\immediate\write15{generated mf-files:}
+\immediate\write15{-------------------}
+
+\nopagenumbers
+
+\def\minimumbox#1{\setbox0=\hbox{#1}%
+        \ifdim\wd0>15pt \box0\else \hbox to 15pt{\hfil
+        \box0\hfil}\fi}
+\storetoks{\hrule
+\medskip
+\centerline{Overview TC - Standard font set}
+\medskip
+\hrule
+\bigskip
+\noindent The following table describes the generated {*.mf} files which
+are needed for the setup of the standard TC-font set.
+\bigskip
+\bigskip
+$$\vbox\bgroup\nointerlineskip\halign\bgroup\hash\hfil\quad&&\strut
+        \quad\minimumbox{\hash}\cr
+\noalign{\medskip}}
+
+
+
+%\tracingonline1
+%\tracingmacros2
+%\tracingcommands1
+
+\FontsToBeGenerated
+
+\storetoks{\egroup\egroup$$}
+
+\let\hash=#
+\the\Table
+\end
-- 
cgit v1.2.3

