summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/kdgreek/greektex.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/plain/kdgreek/greektex.tex')
-rw-r--r--Master/texmf-dist/tex/plain/kdgreek/greektex.tex329
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
-
-