From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining 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