diff options
Diffstat (limited to 'Master/texmf-dist/tex/plain/kdgreek/greektex.tex')
| -rw-r--r-- | Master/texmf-dist/tex/plain/kdgreek/greektex.tex | 329 |
1 files changed, 329 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/plain/kdgreek/greektex.tex b/Master/texmf-dist/tex/plain/kdgreek/greektex.tex new file mode 100644 index 00000000000..1a801c26926 --- /dev/null +++ b/Master/texmf-dist/tex/plain/kdgreek/greektex.tex @@ -0,0 +1,329 @@ +% +% GREEKTEX.TEX +% --------- +% +% K J Dryllerakis +% +% Dec 7, 1992 +% +% VERSION: 3.1 +% +% This is the macro file for GreekTeX. If this file is used +% and not the greek.tex (FMT) no hyphenation patterns for greek +% are loaded. IT can be used for short greek text inside english text. +% Note that PLAIN must be preloaded and bare a fmtversion 3.0 or +% higher (to ensure existence of language definitions). +% Greek is defined to be language 1 or actually last_language+1. +% +% Pleaaaaaaaaase don't modify this file +% +% Note: Used in conjunction with KD Fonts +% +\catcode`\@=11 % We will access TeX private macros +\newwrite\@screen % Define a screen ouput +\def\showstring#1{\immediate\write\@screen{#1}} +\def\sp@{ }\def\sp@s{\sp@\sp@\sp@\sp@\sp@\sp@\sp@\sp@\sp@} +\def\c@p{\showstring{}\showstring{\sp@s\sp@s\sp@s GreekTeX -- Version 3.1}% +\showstring{\sp@s\sp@s\sp@s ---------------------------} +\showstring{\sp@s GreekTeX is a macro package for typesetting greek texts.} +\showstring{\sp@s It is maily compatible with the haralambous package,} +\showstring{\sp@s from which it inherits the top level macros.} +\showstring{\sp@s GreekTeX includes easy access to font families, a choise} +\showstring{\sp@s of delimiters, and makes typesetting scientific papers} +\showstring{\sp@s in greek as easy as in TeX itself.} +\showstring{\sp@s} +\showstring{\sp@s\sp@s\sp@s Copyright K J Dryllerakis 1991-1992} +\showstring{\sp@s\sp@s\sp@s ------------------------------}% +} +\c@p +% +% A List of Reserved Keywords that should not be redefined +% ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ +% +% a. accesible from the document +% +% \| The character | +% \begingreek Begin a group of greek text +% \endgreek End a group of greek text +% \greek A new language definition +% \gr switch to classical greek font +% \gbf switch to classical boldface font +% \git switch to classical italics font +% \gsl switch to classical slanted font +% \gtt switch to classical typewritter font +% \gt Greater than > symbol +% \lt Less than < symbol +% \math If we are using $ as del. it is equiv to $ +% \setgreek Select greek mode to be the primary mode +% \setlatin Restore standard mode (at any stage) +% \showstring Log a string on the terminal +% +% b. Internal Control Sequences +% +% \gr@@kdelimsbar Use | as begin- and end-greek +% \gr@@kdelimsdol Use $ as begin- and end-greek +% \@ldend A copy of plain TeX's \end +% \@screen Screen Output for messages +% \t@f@nt Remembers greek font used last +% \t@f@m Remembers greek family used last +% \t@size Remembers greek point size used last +% \c@p Product Copyright Notice +% \grfam Greek classic font family register +% \grslfam Greek slanted font family register +% \grttfam Greek typewriter font family register +% \grbffam Greek boldface font family register +% \grifam Greek italics font family register +% \l@tinm@de Definition to restore plain TeX's mode +% +% Start Up Definitions +% -------------------- +% +\ifx\gr@@kformatloaded\relax\catcode`\@=\active + \endinput\else\let\gr@@kformatloaded\relax\fi +\newif\ifdelimsbar\delimsbarfalse % Check for | as delimiter +\chardef\|=`\| % A way to access | +\gdef\t@f@nt{\tengr} % Remember font used last +\gdef\t@size{\grtenpoint} % Remember size used last +\gdef\t@f@m{\fam\grfam} % Remember family used last +% ^ THESE ARE INITIAL VALUES. DO NOT ALTER! +\newlanguage\greek % Define Greek as a new language +\def\lt{<} % Remember Less than +\def\gt{>} % and greater than signs +\language0 % Switch to default language +% +% Greek Font Bits +% _______________ +% +% First we load the greek fonts and declare the families +% Then we define point sizes for typesetting greek texts +% +% Classic Greek Family +% ^^^^^^^^^^^^^^^^^^^^ +\newfam\grfam +\font\tengr=kdgr10 % 10 point Classic Greek Font +\font\ninegr=kdgr9 % 9 point Classic Greek Font +\font\eightgr=kdgr8 % 8 point Classic Greek Font +\font\sixgr=kdgr8 at 6truept % 6 point simulated Classic Greek (x.75) +\def\gr{\tengr\fam\grfam} +% +% Slanted Greek Family +% ^^^^^^^^^^^^^^^^^^^^ +\newfam\grslfam +\font\tengrsl=kdsl10 % 10 Point Slanted Greek Font +\font\ninegrsl=kdsl10 at 9truept% 9 point (sim.) Slanted Greek +\font\eightgrsl=kdsl10 at 8truept%8 point (sim.) Slanted Greek +\def\gsl{\tengrsl\fam\grslfam} +% +% Boldface Greek Family +% ^^^^^^^^^^^^^^^^^^^^^ +\newfam\grbffam +\font\tengrbf=kdbf10 % 10 Point Boldface Greek Font +\font\ninegrbf=kdbf9 % 9 Point Boldface Greek +\font\eightgrbf=kdbf8 % 8 Point Boldface Greek +\def\gbf{\tengrbf\fam\grbffam} +% +% Italic Greek Family +% ^^^^^^^^^^^^^^^^^^^ +\newfam\grifam +\font\tengri=kdti10 % 10 Point Italic Greek Font +\font\ninegri=kdti10 at 9truept % 9 Point (sim.) Italic Greek +\font\eightgri=kdti10 at 8truept% 8 Point (sim.) Italic Greek +\def\git{\tengri\fam\grifam} +% +% Typerwriter Greek Family +% ^^^^^^^^^^^^^^^^^^^^^^^^ +\newfam\grttfam +\font\tengrtt=kdtt10 % 10 Point Typewritter Greek Font +\font\ninegrtt=kdtt10 at 9truept% 9 Point (sim.) Typewritter Greek +\font\eightgrtt=kdtt10 at 8truept% 8 Point (sim.) Typewritter Greek +\hyphenchar\eightgrtt=-1 \hyphenchar\tengrtt=-1 +\hyphenchar\ninegrtt=-1 % Supress Hyphenation +\def\gtt{\tengrtt\fam\grttfam} +% +% Greek Point Size Conventions +% ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ +% +\def\grtenpoint{% GREEK TENPOINT +\gdef\t@size{\grtenpoint}% Make a note of the font size +\textfont\grfam=\tengr\scriptfont\grfam=\eightgr\scriptscriptfont\grfam=\sixgr% +\textfont\grbffam=\tengrbf\scriptfont\grbffam=\ninegrbf% +\textfont\grifam=\tengri\scriptfont\grbffam=\ninegri% +\textfont\grttfam=\tengrtt% +\textfont\grslfam=\tengrsl% +\def\gr{\fam\grfam\tengr}% Switch for classic greek +\let\rg\gr% Also rg for compatibility +\def\it{\fam\grifam\tengri}% Switch for Greek Italics +\def\sl{\fam\grslfam\tengrsl}% Switch for Greek Slanted +\def\tt{\fam\grttfam\tengrtt}% Switch for Greek Typerwriter +\def\bf{\fam\grbffam\tengrbf}% Switch for Greek Boldface +\let\git\it\let\gsl\sl% +\let\gbf\bf\let\gtt\tt% Retain LaTeX compatibility +\def\rm{\fam0\tenrm}% Switch For latin roman +\def\lit{\fam\itfam\tenit}% Switch for latin italics +\def\lsl{\fam\slfam\tensl}% Switch for latin slanted +\def\ltt{\fam\ttfam\tentt}% Switch for latin typewriter +\def\lbf{\fam\bffam\tenbf}% Switch for latin boldface +\normalbaselineskip=.6cm% Normal Base Line distance +\setbox\strutbox=\hbox{\vrule height8.5pt width0pt depth4.5pt}% +\normalbaselines\gr% +} +\def\grninepoint{% GREEK NINEPOINT +\gdef\t@size{\grninepoint}% Make a note of the font size +\textfont\grfam=\ninegr\scriptfont\grfam=\eightgr\scriptscriptfont\grfam=\sixgr% +\textfont\grbffam=\ninegrbf\scriptfont\grbffam=\eightgrbf% +\textfont\grifam=\ninegri\scriptfont\grbffam=\eightgri% +\textfont\grttfam=\ninegrtt% +\textfont\grslfam=\ninegrsl% +\def\gr{\fam\grfam\ninegr}% Switch for classic greek +\let\rg\gr% Also rg for compatibility +\def\it{\fam\grifam\ninegri}% Switch for Greek Italics +\def\sl{\fam\grslfam\ninegrsl}% Switch for Greek Slanted +\def\tt{\fam\grttfam\ninegrtt}% Switch for Greek Typerwriter +\def\bf{\fam\grbffam\ninegrbf}% Switch for Greek Boldface +\let\git\it\let\gsl\sl% +\let\gbf\bf\let\gtt\tt% Retain LaTeX compatibility +\def\rm{\fam0\tenrm}% Switch For latin roman +\def\lit{\fam\itfam\nineit}% Switch for latin italics +\def\lsl{\fam\slfam\ninesl}% Switch for latin slanted +\def\ltt{\fam\ttfam\ninett}% Switch for latin typewriter +\def\lbf{\fam\bffam\ninebf}% Switch for latin boldface +\normalbaselineskip=.52cm% Normal Base Line distance +\setbox\strutbox=\hbox{\vrule height8pt width0pt depth3pt}% +\normalbaselines\gr% +} +\def\greightpoint{% GREEK EIGHTPOINT +\gdef\t@size{\greightpoint}% Make a note of the font size +\textfont\grfam=\eightgr\scriptfont\grfam=\sixgr\scriptscriptfont\grfam=\sixgr% +\textfont\grbffam=\eightgrbf\scriptfont\grbffam=\eightgrbf% +\textfont\grifam=\eightgri\scriptfont\grbffam=\eightgri% +\textfont\grttfam=\eightgrtt% +\textfont\grslfam=\eightgrsl% +\def\gr{\fam\grfam\eightgr}% Switch for classic greek +\let\rg\gr% Also rg for compatibility +\def\it{\fam\grifam\eightgri}% Switch for Greek Italics +\def\sl{\fam\grslfam\eightgrsl}% Switch for Greek Slanted +\def\tt{\fam\grttfam\eightgrtt}% Switch for Greek Typerwriter +\def\bf{\fam\grbffam\eightgrbf}% Switch for Greek Boldface +\let\git\it\let\gsl\sl% +\let\gbf\bf\let\gtt\tt% Retain LaTeX compatibility +\def\rm{\fam0\eightrm}% Switch For latin roman +\def\lit{\fam\itfam\eightit}% Switch for latin italics +\def\lsl{\fam\slfam\eightsl}% Switch for latin slanted +\def\ltt{\fam\ttfam\eighttt}% Switch for latin typewriter +\def\lbf{\fam\bffam\eightbf}% Switch for latin boldface +\normalbaselineskip=.35cm% Normal Base Line distance +\setbox\strutbox=\hbox{\vrule height7pt width0pt depth2pt}% +\normalbaselines\gr% +} +% +% Macros For entering greek mode, +% and delimiter preferences. +% ------------------------------- +% +% \begingreek : Begin a group of Greek Text. +% ^^^^^^^^^^^^ Everything is enclosed in a group to keep +% changes local. Then we switch to greek hyphenation +% and iniciate the greekmode. This assigns the correct +% \catcode values to punctuation and accentuation marks. +% We then reload the information of the point +% size used last and switch to the family needed. +% The \t@f@nt and \t@f@m macro is used to ensure that +% or fonts and families are remembered. +% +% \endgreek : Ends a group of Greek Text. +% ^^^^^^^^^^ Before ending the group we save information +% about the current font, to be used when we re-enter +% greek mode. +% +% \gr@@km@de : Switches to greek interpretation of ascii characters +% ^^^^^^^^^^^ Normally changes are kept local but can be used +% as a general macro to obtain a global greek mode. +% Note the different use of | if this is chosen +% to be a delimiter. +% +\def\begingreek{\bgroup\language\greek\gr@@km@de% +\t@size\t@f@m\t@f@nt\ignorespaces} +% +\def\endgreek{\xdef\t@f@nt{\the\font}\xdef\t@f@m{\noexpand\fam\the\fam}\egroup} +% +\def\gr@@km@de{% +\ifdelimsbar\else\catcode`\|=11\fi% +\catcode`\<=11% Turn Everything to letters! +\catcode`\>=11% All accents are done through ligatures +\catcode`\'=11% +\catcode`\`=11% +\catcode`\~=11% +\catcode`\"=11% +\lccode`\<=`\<% +\lccode`\>=`\>% +\lccode`\'=`\'% +\lccode`\~=`\~% +\lccode`\"=`\"% +} +% +\def\l@tinm@de{% +\catcode`\|=12% +\catcode`\<=12% Turn Everything to what plain tex has +\catcode`\>=12% +\catcode`\'=12% +\catcode`\`=12% +\catcode`\~=13% +\catcode`\"=12% +\catcode`\$=3% % Restore the math symbol! +} +% +% Switch Permenantly do greek mode +% +\def\setgreek{\delimsbarfalse\gr@@km@de\language\greek} +% +% and to latin as well +% +\def\setlatin{\l@tinm@de\language0} +% +% It is very frequent that the user will ask to \end the document +% before a greek group was closed. In order to prevent this we +% redefine the \end command after saving the old one in \@ldend. +% The new \end checks for un-ended greek groups and if it is found +% a warning message is issued and the group is automatically closed. +% +\let\@ldend=\end +\gdef\end{\ifnum\language=\greek\endgreek% +\showstring{GreekTeX Warning: A group of greek text was automatically closed}% +\fi\@ldend} +% +% Since it is possible that switching from one language to +% the other is very frequent, a special way to avoid \begingreek +% and \endgreek is defined. This is done through the definition of +% delimiters; available delims are | and $. If \greekdelims{bar} +% is chosen then a greek block is marked as | ..greek text.. | +% In order to access |, use \|. +% If $ is used, use \math for math mode and \math\math for +% display mode. +% +\gdef\greekdelims#1{\edef\c@mp@re{#1}\def\t@st@a{bar}\def\t@st@b{dollar}% +\ifx\c@mp@re\t@st@a\gr@@kdelimsbar\else% +\ifx\c@mp@re\t@st@b\gr@@kdelimsdol\fi\fi} +% +% Bar as delimeter +% +{\catcode`\|=13\gdef\gr@@kdelimsbar{\catcode`\|=13\delimsbartrue% +\def|{\ifnum\language=\greek\endgreek\else\begingreek\fi}} +} +% +% Dollar as delimiter +% +\let\m@thm@de=$ +{\catcode`\$=13% +\gdef\gr@@kdelimsdol{\catcode`\$=13% +\def${\ifnum\language=\greek\endgreek\else\begingreek\fi}% +\global\let\math=\m@thm@de% +\gdef\display{\math\math}\gdef\enddisplay{\math\math}}% +} +% +\catcode`\@=12 % at signs are no longer letters +% +\def\fmtname{greek}\def\fmtversion{3.1} % identifies the current format + +\endinput + + |