summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/tpcmfont/dcxtedt.tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/tpcmfont/dcxtedt.tex
Initial commit
Diffstat (limited to 'macros/latex/contrib/tpcmfont/dcxtedt.tex')
-rw-r--r--macros/latex/contrib/tpcmfont/dcxtedt.tex276
1 files changed, 276 insertions, 0 deletions
diff --git a/macros/latex/contrib/tpcmfont/dcxtedt.tex b/macros/latex/contrib/tpcmfont/dcxtedt.tex
new file mode 100644
index 0000000000..0eb98788cf
--- /dev/null
+++ b/macros/latex/contrib/tpcmfont/dcxtedt.tex
@@ -0,0 +1,276 @@
+%
+% Modified 21.8.1995 from Norbert Schwartz's original dcstdedt.tex and
+% dccrstd.tex (produced by LaTeX3 project).
+%
+% Timo Knuutila
+% knuutila@cs.utu.fi
+%
+% Original header follows:
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Generating MF-files for DC/EC fonts Version 1.1 / 22.3.1992
+%
+% Running TeX with this file as an input results in a lot of
+% Metafont font driver files (dcr5.mf, dcr6.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:
+%
+\def\oneline#1{\makefont #1 ( 5 6 7 8 9 10 10.95[11] 12 14.4[14] 17.28[17] 20.74[20] 24.88[25])}
+\long\def\FontsToBeGenerated{
+\tablevalues ( 5 6 7 8 9 10 10.95[11] 12 14.4[14] 17.28[17] 20.74[20] 24.88[25])
+ \oneline{dcr}
+ \oneline{dcsl}
+ \oneline{dcti}
+ \oneline{dcbx}
+ \oneline{dcb}
+ \oneline{dcu}
+ \oneline{dcbx}
+ \oneline{dcbxsl}
+ \oneline{dcbxti}
+%
+ \oneline{dctt}
+ \oneline{dcsltt}
+ \oneline{dcitt}
+ \oneline{dcvtt}
+%
+ \oneline{dcss}
+ \oneline{dcssi}
+ \oneline{dcssbx}
+ \oneline{dcssdc}
+ \oneline{dcssq}
+ \oneline{dcssqi}
+%
+ \oneline{dccsc}
+ \oneline{dctcsc}
+%
+ \oneline{dcfib}
+ \oneline{dcdunh}
+ \oneline{dcff}
+ \oneline{dcfi}
+%
+ \oneline{dccr}
+}
+% 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[7h]
+%
+% result in - may be - "dcr7h.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 "&plain \string\mode:=localfont; input #1"}
+}
+%
+% File naming conventions:
+%
+\def\BatchFileName{mfbatch.bat}
+%
+%
+\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={}
+%
+\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\write16{}%
+ \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\write16{}%
+ \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 dxbase: input dxbase 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\write16{generated mf-files:}
+\immediate\write16{-------------------}
+
+\nopagenumbers
+
+\def\minimumbox#1{\setbox0=\hbox{#1}%
+ \ifdim\wd0>15pt \box0\else \hbox to 15pt{\hfil
+ \box0\hfil}\fi}
+\storetoks{\hrule
+\medskip
+\centerline{Overview DC/EC - Standard font set}
+\medskip
+\hrule
+\bigskip
+\noindent The following table describes the generated {*.mf} files which
+are needed for the setup of the standard DC/EC-font set.
+\bigskip
+\bigskip
+$$\vbox\bgroup\nointerlineskip\halign\bgroup#\hfil\quad&&\strut
+ \quad\minimumbox{#}\cr
+\noalign{\medskip}}
+
+
+
+%\tracingonline1
+%\tracingmacros2
+%\tracingcommands1
+
+\FontsToBeGenerated
+
+\storetoks{\egroup\egroup$$}
+
+\the\Table
+\end
+ \ No newline at end of file