diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /language/greek/misc |
Initial commit
Diffstat (limited to 'language/greek/misc')
-rw-r--r-- | language/greek/misc/README.1ST | 21 | ||||
-rw-r--r-- | language/greek/misc/cblstded.tex | 423 | ||||
-rw-r--r-- | language/greek/misc/cbstdedt.tex | 470 | ||||
-rwxr-xr-x | language/greek/misc/gendrv | 51 | ||||
-rw-r--r-- | language/greek/misc/special.map | 64 |
5 files changed, 1029 insertions, 0 deletions
diff --git a/language/greek/misc/README.1ST b/language/greek/misc/README.1ST new file mode 100644 index 0000000000..f7b409f6c1 --- /dev/null +++ b/language/greek/misc/README.1ST @@ -0,0 +1,21 @@ +In this directory you can find auxiliary stuff regarding the cb fonts. + + File ``cblstded.tex'' can be used to generate all the driver files for +big (slide-size) cb fonts. As a side effect this program generates either +a batch file (Unix ``sh'' file or DOS ``bat'' file), which can be used +to automatically generate all the TFM files. + + File ``cbstdedt.tex'' has the same functionality as cblstded.tex except +that it is for the normal-size cb fonts. + + File ``gendrv'' is a simple Perl script which can produce a driver +file and from it the corresponding TFM and PK files. + + The contents of file ``special.map'' should be appended to file +teTeX/texmf/fontname/special.map of the standard teTeX distribution. + + Apostolos Syropoulos + apostolo@platon.ee.duth.gr or + apostolo@obelix.ee.duth.gr + + April 8, 1999. diff --git a/language/greek/misc/cblstded.tex b/language/greek/misc/cblstded.tex new file mode 100644 index 0000000000..821121df37 --- /dev/null +++ b/language/greek/misc/cblstded.tex @@ -0,0 +1,423 @@ +**************************************************************** +% cblstded.tex +% +% (c) Copyright 1997, 1998 Apostolos Syropoulos +% +% The above copyright notice applies *only* to changes and enhancements +% made to the original files ecstded.tex, to which the following +% copyright notices apply: +% +% (c) Copyright 1995, 1996, 1997 J"org Knappen +% (c) Copyright 1990, 1992 Norbert Schwarz +% +% This file is part of cbgreek fonts version 2.0 +% +% Generating MF-files for the cbgreek fonts +% +% Running TeX with this file as an input results in a lot of +% Metafont font driver files (grmn0500.mf, grmn0600.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 a 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 ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + + \makefont glic ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glin ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glio ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glii ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont gliu ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont gljc ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont gljn ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont gljo ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glji ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glju ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glmc ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glmn ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glmo ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glmi ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glmu ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont gltc ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont gltn ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glto ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glti ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont gltu ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glwc ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glwn ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glwo ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glwi ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glwu ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glxc ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glxn ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glxo ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glxi ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) + \makefont glxu ( 7[0700] 8[0800] 10[1000] 12[1200] 13.82[1382] + 16.59[1659] 19.91[1991] 23.89[2389] 28.66[2866] + 34.40[3440] 41.28[4128]) +} +% 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 - "grmn0750.mf" and an entry of "gensize:=7.5;" +% Although, cb fonts do not need the gensize information, some METAFONT +% installations seem to have trouble if this information is not preset. +% (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 .... +% +{\endlinechar=-1 +\message{Configuration phase.} +\message{--------------------} +\message{ } +\message{What kind of operating system do you use? W(in32)/U(nix)} +\read16 to\opsystem +\global\let\OS=\opsystem +\message{By specifying the default resolution the} +\message{generated Unix shell/Win32 batch file will} +\message{be able to produce both the TFM and the PK files.} +\message{(The default resolution for EmTeX is 300dpi, and} +\message{ MikTeX and Web2c 600dpi.)} +\message{Do you want to specify the default resolution} +\message{of your system? y/n} +\read16 to\answer +\if\answer y + \message{Enter default resolution} + \read16 to\RESOLUTION + \global\let\resolution=\RESOLUTION +\fi +\if\opsystem U +\if\answer y +\gdef\BatchOutput#1{ + \BatchLine{mf '\string\mode=localfont; scrollmode; input #1'} + \BatchLine{gftopk #1.\resolution gf} + \BatchLine{rm #1.\resolution gf} + \BatchLine{rm *.log}} +\else +\gdef\BatchOutput#1{ + \BatchLine{mf '\string\mode=localfont; scrollmode; input #1'} + \BatchLine{rm *gf} + \BatchLine{rm *.log}} +\fi +\else %You have choosen Win32 +\message{Which TeX installation do you use:} +\message{M(ikTeX), E(mTeX), or W(eb2c)?} +\read16 to\wininst +\if\wininst E % User has selected EmTeX +\if\answer y +\gdef\BatchOutput#1{ + \BatchLine{mf \string\mode=localfont; scrollmode; input #1} + \BatchLine{gftopk #1.\resolution} + \BatchLine{del *.\resolution} + \BatchLine{del *.log}} +\else +\gdef\BatchOutput#1{ + \BatchLine{mf \string\mode=localfont; scrollmode; input #1} + \BatchLine{gftopk #1.300} + \BatchLine{del *.300} + \BatchLine{del *.log}} +\fi +\else\if\wininst M % User has selected MikTeX +\if\answer y +\gdef\BatchOutput#1{ + \BatchLine{maketfm #1} + \BatchLine{makepk #1 \resolution\space \resolution\space localfont} +\else +\gdef\BatchOutput#1{ + \BatchLine{maketfm #1} + \BatchLine{makepk #1 600 \space 600 \space localfont} +\fi +\else % User has selected Web2c +\if\answer y +\gdef\BatchOutput#1{ + \BatchLine{mf \string\mode=localfont; scrollmode; input #1} + \BatchLine{gftopk #1.\resolution gf} + \BatchLine{del #1.\resolution gf} + \BatchLine{del *.log}} +\else +\gdef\BatchOutput#1{ + \BatchLine{mf \string\mode=localfont; scrollmode; input #1} + \BatchLine{gftopk #1.600gf} + \BatchLine{del #1.600gf} + \BatchLine{del *.log}} +\fi %\if\answer y +\fi\fi +\fi +} +% +% File naming conventions: +% +\if\OS U +\def\BatchFileName{cblstded.sh} +\else +\def\BatchFileName{cblstded.bat} +\fi +% +% +\def\MetafontFileExtension{.mf} +% +\def\modedef{} %e.g. \def\modedef{\string\mode:=ljfour;} +%%CB What about really using this variable, instead of calling localfont? +% +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% 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 {}| + \immediate\write \fontoutput {\modedef}| +\immediate\write \fontoutput {gensize:=\fontsize;}| + \immediate\write \fontoutput {input \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 CB - Font Set for Slides} +\medskip +\hrule +\bigskip +\noindent The following table describes the generated {*.mf} files which +are needed for the setup of the slides cb-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 diff --git a/language/greek/misc/cbstdedt.tex b/language/greek/misc/cbstdedt.tex new file mode 100644 index 0000000000..64e2dc2bb3 --- /dev/null +++ b/language/greek/misc/cbstdedt.tex @@ -0,0 +1,470 @@ +% cbstdedt.tex +% +% (c) Copyright 1997, 1998 Apostolos Syropoulos +% +% The above copyright notice applies *only* to changes and enhancements +% made to the original files ecstded.tex, to which the following +% copyright notices apply: +% +% (c) Copyright 1995, 1996, 1997 J"org Knappen +% (c) Copyright 1990, 1992 Norbert Schwarz +% +% This file is part of cbgreek fonts version 1.0 +% +% Generating MF-files for the cb fonts +% +% Running TeX with this file as an input results in a lot of +% Metafont font driver files (grmn0500.mf, grmn0600.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]) + + \makefont grmc ( 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]) + + \makefont grmi ( 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]) + + \makefont grmu ( 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]) + + \makefont grmn ( 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]) + + \makefont grmo ( 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]) + + \makefont grxc ( 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]) + + \makefont grxi ( 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]) + + \makefont grxu ( 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]) + + \makefont grxn ( 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]) + + \makefont grxo ( 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]) + + \makefont gsmc ( 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]) + + \makefont gsmi ( 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]) + + \makefont gsmu ( 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]) + + \makefont gsmn ( 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]) + + \makefont gsmo ( 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]) + + \makefont gsxc ( 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]) + + \makefont gsxi ( 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]) + + \makefont gsxu ( 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]) + + \makefont gsxn ( 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]) + + \makefont gsxo ( 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]) + + \makefont gttc ( 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]) + + \makefont gtti ( 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]) + + \makefont gttu ( 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]) + + \makefont gttn ( 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]) + + \makefont gtto ( 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]) + + \makefont gomc ( 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]) + + \makefont gomi ( 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]) + + \makefont gomu ( 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]) + + \makefont gomn ( 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]) + + \makefont gomo ( 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]) + + \makefont goxc ( 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]) + + \makefont goxn ( 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]) + + \makefont goxo ( 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]) + + \makefont goxi ( 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]) + + \makefont goxu ( 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]) +} +% 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 - "grmn0750.mf" and an entry of "gensize:=7.5;" +% Although, cb fonts do not need the gensize information, some METAFONT +% installations seem to have trouble if this information is not preset. +% (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 .... +% +{\endlinechar=-1 +\message{Configuration phase.} +\message{--------------------} +\message{ } +\message{What kind of operating system do you use? W(in32)/U(nix)} +\read16 to\opsystem +\global\let\OS=\opsystem +\message{By specifying the default resolution the} +\message{generated Unix shell/Win32 batch file will} +\message{be able to produce both the TFM and the PK files.} +\message{(The default resolution for EmTeX is 300dpi, and} +\message{ MikTeX and Web2c 600dpi.)} +\message{Do you want to specify the default resolution} +\message{of your system? y/n} +\read16 to\answer +\if\answer y + \message{Enter default resolution} + \read16 to\RESOLUTION + \global\let\resolution=\RESOLUTION +\fi +\if\opsystem U +\if\answer y +\gdef\BatchOutput#1{ + \BatchLine{mf '\string\mode=localfont; scrollmode; input #1'} + \BatchLine{gftopk #1.\resolution gf} + \BatchLine{rm #1.\resolution gf} + \BatchLine{rm *.log}} +\else +\gdef\BatchOutput#1{ + \BatchLine{mf '\string\mode=localfont; scrollmode; input #1'} + \BatchLine{rm *gf} + \BatchLine{rm *.log}} +\fi +\else %You have choosen Win32 +\message{Which TeX installation do you use:} +\message{M(ikTeX), E(mTeX), or W(eb2c)?} +\read16 to\wininst +\if\wininst E % User has selected EmTeX +\if\answer y +\gdef\BatchOutput#1{ + \BatchLine{mf \string\mode=localfont; scrollmode; input #1} + \BatchLine{gftopk #1.\resolution} + \BatchLine{del *.\resolution} + \BatchLine{del *.log}} +\else +\gdef\BatchOutput#1{ + \BatchLine{mf \string\mode=localfont; scrollmode; input #1} + \BatchLine{gftopk #1.300} + \BatchLine{del *.300} + \BatchLine{del *.log}} +\fi +\else\if\wininst M % User has selected MikTeX +\if\answer y +\gdef\BatchOutput#1{ + \BatchLine{maketfm #1} + \BatchLine{makepk #1 \resolution\space \resolution\space localfont} +\else +\gdef\BatchOutput#1{ + \BatchLine{maketfm #1} + \BatchLine{makepk #1 600 \space 600 \space localfont} +\fi +\else % User has selected Web2c +\if\answer y +\gdef\BatchOutput#1{ + \BatchLine{mf \string\mode=localfont; scrollmode; input #1} + \BatchLine{gftopk #1.\resolution gf} + \BatchLine{del #1.\resolution gf} + \BatchLine{del *.log}} +\else +\gdef\BatchOutput#1{ + \BatchLine{mf \string\mode=localfont; scrollmode; input #1} + \BatchLine{gftopk #1.600gf} + \BatchLine{del #1.600gf} + \BatchLine{del *.log}} +\fi %\if\answer y +\fi\fi +\fi +} +% +% File naming conventions: +% +\if\OS U +\def\BatchFileName{cbstdedt.sh} +\else +\def\BatchFileName{cbstdedt.bat} +\fi +% +% +\def\MetafontFileExtension{.mf} +% +\def\modedef{} %e.g. \def\modedef{\string\mode:=ljfour;} +% +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% 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 {}| + \immediate\write \fontoutput {\modedef}| +\immediate\write \fontoutput {gensize:=\fontsize;}| + \immediate\write \fontoutput {input \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 CB - Standard font set} +\medskip +\hrule +\bigskip +\noindent The following table describes the generated {*.mf} files which +are needed for the setup of the standard cb-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 diff --git a/language/greek/misc/gendrv b/language/greek/misc/gendrv new file mode 100755 index 0000000000..eeb8feba74 --- /dev/null +++ b/language/greek/misc/gendrv @@ -0,0 +1,51 @@ +#!/usr/bin/perl +# (c) 1997, Apostolos Syropoulos +# This simple perl script generates a driver file for the +# cb font bundle. From this file it generates the TFM and a PK file +# +die "Usage: gendrv driver-name [resolution]\n" if(!@ARGV); +$driver=$ARGV[0]; +shift @ARGV; +if(!@ARGV && $ARGV[0] =~ /(\d)+/) +{ + $resolution=$ARGV[0]; +} +else +{ + $resolution=600; +} +$font_family=substr($driver,0,4); +$font_size=substr($driver,4); +$date=`date`; +open(DRV,">$driver.mf")||die "Can't create file $driver\n"; +print DRV "%This is file $driver created on $date"; +print DRV "%\n"; +print DRV "gensize:=$font_size\n"; +print DRV "input $font_family;"; +close DRV; +$gf="$driver." . "$resolution" . "gf"; +$pk="$driver." . "$resolution" . "pk"; +print "Now we try to generate the TFM and the PK file.\n"; +`mf '\\scrollmode; mode:=localfont; mag:=1; input $driver'`; +if(-e $gf) +{ + print "TFM file has been generated!\n"; + `rm $driver.log`; +} +else +{ + print "File $gf hasn't been generated!\n"; + print "Maybe there is no $font_family font family.\n"; + exit(0); +} +`gftopk $gf`; +if (-e $pk) +{ + print "PK file has been generated!\n"; + `rm $gf`; +} +else +{ + print "File $pk hasn't been generated!\n"; + print "Perhaps your system does not support the gftopk command\n"; +} diff --git a/language/greek/misc/special.map b/language/greek/misc/special.map new file mode 100644 index 0000000000..6e6ab57f07 --- /dev/null +++ b/language/greek/misc/special.map @@ -0,0 +1,64 @@ +@c %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +@c Original author Thomas Ziegler (zie@LTE.E-TECHNIK.uni-erlangen.de) %%%%%%% +@c enhancement and corrections by %%%%%%% +@c Apostolos Syropoulos (apostolo@platon.ee.duth.gr) %%%%%%% +@c The new Greek cb fonts %%%%%%% +@c %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +glic public cbgreek +glin public cbgreek +glio public cbgreek +gljc public cbgreek +gljn public cbgreek +gljo public cbgreek +glmc public cbgreek +glmn public cbgreek +glmo public cbgreek +gltc public cbgreek +gltn public cbgreek +glto public cbgreek +glwc public cbgreek +glwn public cbgreek +glwo public cbgreek +glxc public cbgreek +glxn public cbgreek +glxo public cbgreek +gomc public cbgreek +gomn public cbgreek +gomo public cbgreek +goxc public cbgreek +goxn public cbgreek +goxo public cbgreek +grmc public cbgreek +grmn public cbgreek +grmo public cbgreek +grxc public cbgreek +grxn public cbgreek +grxo public cbgreek +gsmc public cbgreek +gsmn public cbgreek +gsmo public cbgreek +gsxc public cbgreek +gsxn public cbgreek +gsxo public cbgreek +gttc public cbgreek +gttn public cbgreek +gtto public cbgreek +glii public cbgreek +glji public cbgreek +glmi public cbgreek +glti public cbgreek +glwi public cbgreek +glxi public cbgreek +gomi public cbgreek +goxi public cbgreek +grmi public cbgreek +grxi public cbgreek +gsmi public cbgreek +gsxi public cbgreek +gtti public cbgreek + + + + + + |