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, 0 insertions, 329 deletions
diff --git a/Master/texmf-dist/tex/plain/kdgreek/greektex.tex b/Master/texmf-dist/tex/plain/kdgreek/greektex.tex deleted file mode 100644 index 1a801c26926..00000000000 --- a/Master/texmf-dist/tex/plain/kdgreek/greektex.tex +++ /dev/null @@ -1,329 +0,0 @@ -% -% 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 - - |