% tcstdedt.mf % % (c) Copyright 1995 J"org Knappen % (c) Copyright 1990, 1992 Norbert Schwarz % % This file is part of dcfonts version 1.2 % % 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 Version 1.2 / 1-SEP-1995 % % Running TeX with this file as an input results in a lot of % Metafont font driver files (tcr5.mf, tcr6.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 6 7 8 9 10 10.95[11] 12 14.4[14] 17.28[17] 20.74[20] 24.88[25] 35.83[36]) \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] 35.83[3583]) \makefont tcr ( 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] 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] 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] 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] 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] 35.83[3583]) \makefont tcb ( 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] 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] 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] 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] 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] 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] 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] 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] 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] 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] 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] 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] 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] 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] 35.83[3583]) \makefont tcu ( 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] 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] 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{$ @300 #1 ln3} % \BatchLine{mf/batch "&dxbase \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 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\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