From ceb93ecb2a3619e7e7ac0bb06016821e27bf4171 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 5 Feb 2008 19:05:39 +0000 Subject: ibygrk use doc/fonts, tex/generic, and ibycus4.map is both tex&mf source (rk 2 Feb 2008 21:17:59 et al.) git-svn-id: svn://tug.org/texlive/trunk@6507 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/generic/ibygrk/Uibycus.fd | 34 ++++ Master/texmf-dist/tex/generic/ibygrk/Uibycus4.fd | 28 +++ Master/texmf-dist/tex/generic/ibygrk/ibycus4.map | 222 ++++++++++++++++++++++ Master/texmf-dist/tex/generic/ibygrk/ibycus4.sty | 36 ++++ Master/texmf-dist/tex/generic/ibygrk/psibycus.sty | 36 ++++ 5 files changed, 356 insertions(+) create mode 100644 Master/texmf-dist/tex/generic/ibygrk/Uibycus.fd create mode 100644 Master/texmf-dist/tex/generic/ibygrk/Uibycus4.fd create mode 100644 Master/texmf-dist/tex/generic/ibygrk/ibycus4.map create mode 100644 Master/texmf-dist/tex/generic/ibygrk/ibycus4.sty create mode 100644 Master/texmf-dist/tex/generic/ibygrk/psibycus.sty (limited to 'Master/texmf-dist/tex/generic') diff --git a/Master/texmf-dist/tex/generic/ibygrk/Uibycus.fd b/Master/texmf-dist/tex/generic/ibygrk/Uibycus.fd new file mode 100644 index 00000000000..38990c3a9bc --- /dev/null +++ b/Master/texmf-dist/tex/generic/ibygrk/Uibycus.fd @@ -0,0 +1,34 @@ +% Uibycus.fd -- WaS 2004-10-18: +% - bold type1 font is used, too +% - definitions work also with VTeX/Free +% - fonts are declared as scalable +% +% Uibycus.fd-- P. A. MacKay --July 7, 2000 +% A more confident version in which all sizes of +% upright and obliqued, regular weight, are +% taken from the type1 font. Suggested by +% Peter.Heslin@ucd.ie. +% +% Uibycus.fd-- P.A. MacKay -- July 15.1999 +% Pierre A. MacKay, Dept. of Classics, University of Washington +% mackay@cs.washington.edu +% ------------------------ +% for use with nfss2. +% +\ProvidesFile{Uibycus.fd}[2004/10/18 v4.5 font definitions for Ibycus/Type1 (WaS)] +% +\ifx\aliasfont\@undefined\else\ifx\aliasfont\relax\else + \begingroup + \catcode32=10 % + \aliasfont fibo84 = fibr84 slant 167 % + \endgroup +\fi\fi +% OT1 is rather a lie... +\DeclareFontFamily{OT1}{ibycus}{} +\DeclareFontShape{OT1}{ibycus}{m}{n}{<-> fibr84}{} +\DeclareFontShape{OT1}{ibycus}{m}{sl}{<-> fibo84}{} +\DeclareFontShape{OT1}{ibycus}{m}{it}{<-> ssub * ibycus/m/sl}{} +\DeclareFontShape{OT1}{ibycus}{b}{n}{<-> fibb84}{} +\DeclareFontShape{OT1}{ibycus}{bx}{n}{<-> ssub * ibycus/b/n}{} + +\endinput diff --git a/Master/texmf-dist/tex/generic/ibygrk/Uibycus4.fd b/Master/texmf-dist/tex/generic/ibygrk/Uibycus4.fd new file mode 100644 index 00000000000..b42b859e305 --- /dev/null +++ b/Master/texmf-dist/tex/generic/ibygrk/Uibycus4.fd @@ -0,0 +1,28 @@ +% Uibycus4.fd-- P.A. MacKay -- July 12.1997 +% Pierre A. MacKay, Dept. of Classics, University of Washington +% mackay@cs.washington.edu +% ------------------------ +% for use with nfss2 +% +\ProvidesFile{Uibycus4.fd}[1997/07/12 (P.A. MacKay)] +% +% OT1 is rather a lie, but it works for all directly addressed +% glyphs. Apparently it is not possible to use the U designation +% outside of math mode. I still think it unwise to call this an +% OT1 fd. It isn't. +% +\DeclareFontFamily{OT1}{ibycus}{} +\DeclareFontShape{OT1}{ibycus}{m}{n}{% + <5> <6> <7> <8> fibr848 + <9> fibr849 + <10> <10.95> <12> <14.40> <17.28> <20.74> <24.88> fibr84}{} +\DeclareFontShape{OT1}{ibycus}{m}{sl}{% + <5> <6> <7> <8> fibo848 + <9> fibo849 + <10> <10.95> <12> <14.40> <17.28> <20.74> <24.88> fibo84}{} +\DeclareFontShape{OT1}{ibycus}{m}{it}{<->ssub * ibycus/m/sl}{} +\DeclareFontShape{OT1}{ibycus}{b}{n}{% + <5> <6> <7> <8> fibb848 + <9> fibb849 + <10> <10.95> <12> <14.40> <17.28> <20.74> <24.88> fibb84}{} +\endinput diff --git a/Master/texmf-dist/tex/generic/ibygrk/ibycus4.map b/Master/texmf-dist/tex/generic/ibygrk/ibycus4.map new file mode 100644 index 00000000000..0efb0e0a2fe --- /dev/null +++ b/Master/texmf-dist/tex/generic/ibygrk/ibycus4.map @@ -0,0 +1,222 @@ +% +% These macros make it possible to read *.map files as either +% \TeX{} or METAFONT input +% See the $TEXMFROOT/tex/languages/greek/ibygrk directory for +% use of this file as TeX input +% +% A well-known conditional test in METAFONT; +% It creates mismatch of character tokens 'k' and 'n' in TeX +\if known cmbase: % Interpret as a METAFONT file + let re_catcode=relax; let let_=gobble; let no_let=gobble; + else: + message "Must have cmbase loaded for this, or else some macros from it" ; +% +% END OF METAFONT INTERPRETATION---TeX INTERPRETATION FOLLOWS +% + \else % Interpret as a TeX file + \catcode`\_11 % allow underscore in csnames as in METAFONT + \def\re_catcode{\catcode`\=12 \catcode`\;12 \catcode`\_8}% + \def\ignore_to_comment#1#2{}% +% Now activate all the characters from ^^80 to ^^ff + \count255=`\^^80 + \loop \ifnum\count255 < `\^^ff + \catcode\count255\active \advance\count255 by 1 \repeat + % \catcode`\^^ff\active % If you want it, I don't in this case. + \expandafter\input\the\digraphs % Filename in a \toks register + \catcode`\;0 % treat the first ; (required by METAFONT) as an escape + \catcode`\=14 % treat the = in the METAFONT part as a comment character + \let\let_\let \let\no_let\ignore_to_comment + \fi +% +% This is a rather specialized version of the map file, +% developed for Greek only. There are certain restrictions +% in this case, because we do not want to alter Silvio Levy's +% source code---only the mappings. +% The upper level codes (^^80---^^ff) are based on a version of +% Greek Keys (a word-processor package for Macintosh, distributed +% through the American Philological Association), but the mapping +% is worked out by experience not from any documentation, and +% local customization often alters even this mapping. +% Consistency is provided by the ASCII digraphs +% and trigraphs to which all word-processor codes are remapped +% before they are used in TeX. These digraphs and trigraphs +% (even tetragraphs in the case of iota subscript) are very close +% to Ibycus/TLG betacode, except for the unfortunate uppercasing +% of betacode. +% +% a known set of word-processor Some "hidden" characters +% equivalents is "let_" for TeX Only METAFONT needs to know +% \no_let is used where there what is in this column +% seems to be no certain mapping +% +\let_ ^^80;quotesnglright = ASCII"'"; endash = oct"046"; +\let_ ^^81;quotesnglleft = ASCII"`"; emdash = oct"177"; +\let_ ^^82;peri_spomenon = ASCII"="; null_space = ASCII" "; +\let_ ^^83;sp_lenis = ASCII")"; dieresis = oct"053"; % use plus sign +\let_ ^^84;sp_asper = ASCII"("; minute = ASCII"&"; % prime for numbers +\let_ ^^85;lenis_oxy = oct"136"; asper_glyph = oct"303"; +\let_ ^^86;lenis_bary = oct"137"; lenis_glyph = oct"307"; +\let_ ^^87;lenis_peri = oct"134"; guillemotleft = ASCII"{"; %two small +\let_ ^^88;asper_oxy = oct"207"; guillemotright = ASCII"}"; % awks +\let_ ^^89;asper_bary = oct"203"; iotasubscript = ASCII"|"; +\let_ ^^8a;asper_peri = oct"100"; dubious = ASCII"!"; +\no_let \dmy;bary_tone = oct"275"; quotedblleft = oct"253"; +\no_let \dmy;oxy_tone = oct"276"; quotedblright = oct"257"; +\no_let \dmy;diaeroxy = oct"043"; bracketleftbt = oct"363"; +\no_let \dmy;diaerbary = oct"044"; bracketrightbt = oct"367"; +% +% alpha with accents +% +\let_ ^^8b;a_oxy = oct"210"; Digamma = ASCII"V"; +\let_ ^^8c;a_bary = oct"200"; digamma = ASCII"v"; +\let_ ^^8d;a_peri = oct"220"; boundarychar := oct"377"; % N.B. := +\let_ ^^8e;a_len = oct"202"; +\let_ ^^8f;a_aspr = oct"201"; +\let_ ^^90;a_lenoxy = oct"212"; +\let_ ^^91;a_asproxy = oct"211"; cigmalunate=ASCII"J"; +\let_ ^^92;a_lenbary = oct"223"; % "J" is all that's available +\let_ ^^93;a_asprbary = oct"213"; sigmafinal=ASCII"j"; +\let_ ^^94;a_lenperi = oct"222"; r_aspr = oct"373"; % GreekKeys "="!! +\let_ ^^95;a_asprperi = oct"221"; r_len = oct"374"; +% +% alpha with accents and iota subscript +% +\let_ ^^fb;a_isub = oct"370"; % Kerned back iotasubscript only +\let_ ^^96;a_oxyisub = oct"214"; e_peri = oct"214"; +\let_ ^^97;a_baryisub = oct"204"; e_asprperi = oct"204"; +\let_ ^^98;a_periisub = oct"224"; e_lenperi = oct"224"; +\let_ ^^99;a_lenisub = oct"206"; Koppa = oct"206"; +\let_ ^^9a;a_asprisub = oct"205"; o_asprperi = oct"205"; +\let_ ^^9b;a_lenoxyisub = oct"216"; koppa = oct"216"; +\let_ ^^9c;a_asproxyisub = oct"215"; o_peri = oct"215"; +\let_ ^^9d;a_lenbaryisub = oct"227"; +\let_ ^^9e;a_asprbaryisub = oct"217"; sampi = oct"217"; +\let_ ^^9f;a_lenperiisub = oct"226"; Cigmalunate=oct"226"; +\let_ ^^a0;a_asprperiisub = oct"225"; o_lenperi = oct"225"; +% +% epsilon with accents +% +\let_ ^^a1;e_oxy = oct"350"; angleleft = ASCII"<"; +\let_ ^^a2;e_bary = oct"340"; angleright = ASCII">"; +\let_ ^^a4;e_len = oct"342"; braceleft = oct"333"; +\let_ ^^a5;e_aspr = oct"341"; braceright = oct"337"; +\let_ ^^a6;e_lenoxy = oct"352"; dagger = oct"375"; +\let_ ^^a7;e_asproxy = oct"351"; daggerdbl = oct"376"; +\let_ ^^a8;e_lenbary = oct"343"; aspirate = oct"377"; +\let_ ^^a9;e_asprbary = oct"353"; +% +% eta with accents +% +\let_ ^^ae;h_oxy = oct"240"; +\let_ ^^af;h_bary = oct"230"; +\let_ ^^b0;h_peri = oct"250"; +\let_ ^^b1;h_len = oct"232"; +\let_ ^^b2;h_aspr = oct"231"; +\let_ ^^b3;h_lenoxy = oct"242"; +\let_ ^^b4;h_asproxy = oct"241"; +\let_ ^^b5;h_lenbary = oct"243"; +\let_ ^^b6;h_asprbary = oct"233"; +\let_ ^^b7;h_lenperi = oct"252"; +\let_ ^^b8;h_asprperi = oct"251"; +% +% eta with accents and iota subscript +% +% In this section and in the "omega with accents and iota subscript" +% section at the end, the octal values are assigned twice. The coding +% originally followed the pattern of GreekKeys fonts in giving a map +% position to every iota subscript composite. But this is wasteful, since +% there are only three correct positions for iota subscript. Current +% coding follows the practice seen in the Linotype Times Ten Greek of +% kerning one of three iotasubscripts under the appropriate a, h, or w. +% This does, unfortunately mean that the current mapping cannot be used +% directly with GreekKeys input, but nobody seems ever to do that +% anyway. +% +\let_ ^^fa;h_isub = oct"371"; % The redundancy below here is +\let_ ^^b9;h_oxyisub = oct"244"; doti = oct"244"; % unavoidable +\let_ ^^ba;h_baryisub = oct"234"; dotI = oct"234" % It derives in +\let_ ^^bb;h_periisub = oct"254"; dote = oct"254"; % part from the +\let_ ^^bc;h_lenisub = oct"236"; dotbt = oct"236"; % older coding +\let_ ^^bd;h_asprisub = oct"235"; dotJdlmnpqu = oct"235"; % Now the +\let_ ^^be;h_lenoxyisub = oct"246"; dotkos = oct"246"; % only +\let_ ^^bf;h_asproxyisub = oct"245"; dotGZ = oct"245"; % isub +\let_ ^^c0;h_lenbaryisub = oct"247"; dotCEVaw = oct"247"; % code +\let_ ^^c1;h_asprbaryisub = oct"237"; dotchjz = oct"237"; % in MF +\let_ ^^c2;h_lenperiisub = oct"256"; dotBFLNPRSTW = oct"256"; % is the +\let_ ^^c3;h_asprperiisub = oct"255"; dotH = oct"255"; % first +% +%iota with accents +% +\let_ ^^db;i_oxy = oct"320"; +\let_ ^^dc;i_bary = oct"310"; +\let_ ^^dd;i_peri = oct"330"; +\let_ ^^de;i_len = oct"312"; +\let_ ^^df;i_aspr = oct"311"; +\let_ ^^e0;i_lenoxy = oct"322"; +\let_ ^^e1;i_asproxy = oct"321"; +\let_ ^^e2;i_lenbary = oct"323"; +\let_ ^^e3;i_asprbary = oct"313"; +\let_ ^^e4;i_lenperi = oct"332"; +\let_ ^^e5;i_asprperi = oct"331"; +\let_ ^^f3;i_diaer = oct"360"; +\let_ ^^fd;i_diaeroxy = oct"362"; +\let_ ^^fe;i_diaerbary = oct"361"; +% +% omicron with accents +% +\let_ ^^f1;o_oxy = oct"354"; +\let_ ^^f2;o_bary = oct"344"; +\let_ ^^f4;o_len = oct"346"; +\let_ ^^f5;o_aspr = oct"345"; +\let_ ^^f6;o_lenoxy = oct"356"; +\let_ ^^f7;o_asproxy = oct"355"; +\let_ ^^f8;o_lenbary = oct"357"; +\let_ ^^f9;o_asprbary = oct"347"; +% +% upsilon with accents +% +\let_ ^^e6;u_oxy = oct"324"; +\let_ ^^e7;u_bary = oct"314"; +\let_ ^^e8;u_peri = oct"334"; +\let_ ^^e9;u_len = oct"316"; +\let_ ^^ea;u_aspr = oct"315"; +\let_ ^^eb;u_lenoxy = oct"326"; +\let_ ^^ec;u_asproxy = oct"325"; +\let_ ^^ed;u_lenbary = oct"327"; +\let_ ^^ee;u_asprbary = oct"317"; +\let_ ^^ef;u_lenperi = oct"336"; +\let_ ^^f0;u_asprperi = oct"335"; +\no_let \dmy;u_diaer = oct"364"; % ^^23, but it's not worth the effort +\no_let \dmy;u_diaeroxy = oct"366"; % ^^40, ditto +\let_ ^^a3;u_diaerbary = oct"365"; +% +% omega with accents +% +\let_ ^^c5;w_oxy = oct"270"; +\let_ ^^c6;w_bary = oct"260"; +\let_ ^^c7;w_peri = oct"300"; +\let_ ^^c8;w_len = oct"262"; +\let_ ^^c9;w_aspr = oct"261"; +\let_ ^^ca;w_lenoxy = oct"272"; +\let_ ^^cb;w_asproxy = oct"271"; +\let_ ^^cc;w_lenbary = oct"273"; +\let_ ^^cd;w_asprbary = oct"263"; +\let_ ^^ce;w_lenperi = oct"302"; +\let_ ^^cf;w_asprperi = oct"301"; +% +% omega with accents and iota subscript +% +\let_ ^^c4;w_isub = oct"372"; % Kerned back iotasubscript only +\let_ ^^d0;w_oxyisub = oct"274"; dotAOQUXY = oct"274"; +\let_ ^^d1;w_baryisub = oct"264"; dotDK = oct"264"; +\let_ ^^d2;w_periisub = oct"304"; dotM = oct"304"; +\let_ ^^d3;w_lenisub = oct"266"; dotgx = oct"266"; +\let_ ^^d4;w_asprisub = oct"265"; dotfy = oct"265"; +\let_ ^^d5;w_lenoxyisub = oct"276"; % oxy_tone +\let_ ^^d6;w_asproxyisub = oct"275"; % bary_tone +\let_ ^^d7;w_lenbaryisub = oct"277"; dotr = oct"277" +\let_ ^^d8;w_asprbaryisub = oct"267"; dotkoppa = oct"267"; +\let_ ^^d9;w_lenperiisub = oct"306"; longum = oct"306"; +\let_ ^^da;w_asprperiisub = oct"305"; breve = oct"305"; + +\re_catcode diff --git a/Master/texmf-dist/tex/generic/ibygrk/ibycus4.sty b/Master/texmf-dist/tex/generic/ibygrk/ibycus4.sty new file mode 100644 index 00000000000..ec072fbec71 --- /dev/null +++ b/Master/texmf-dist/tex/generic/ibygrk/ibycus4.sty @@ -0,0 +1,36 @@ +% Pierre A. MacKay, Dept. of Classics, University of Washington +% mackay@cs.washington.edu +% Walter Schmidt +% w.a.schmidt@gmx.net +% ------------------------ +% 2004-10-18 added proper identification (\ProvidesPackage) +% 2003-05-28 patched wrt/ T1 encoding, added \textgreek +% 12/7/97 Convert to ibycus4 +% 4/12/95 Test for isolatin package and suppress ibycus3.map if it's there +% 31/10/95 Added \input{iby3extr} for editor symbols +% 25/1/95 Created. +% +% For use with LaTeX2e +% Replaces iby4text.tex; does not call setiby4.tex +% Use "\fontsize{14}{17pt}\selectfont" instead of "\setgreek14/17" +% and "{\greek{}...}" instead of "\GK{}...\RM{}" +% The fd file is named as it should be, for ``Unknown'' encoding +% even though I have to use OT1 in the actual file + +\ProvidesPackage{ibycus4}[2004/10/18 v4.5 Ibycus4 (P.A.MacKay/WaS)] +\newtoks\digraphs +\digraphs={tlgsqq} +\chardef \atcode = \the \catcode `\@ +\def\unletterat{\catcode`\@ = \the \atcode} +\catcode`\@ = 11 +\ifx\@grave@A@grave@\undefined\input{ibycus4.map} +\else\@latex@warning@no@line{% +No GreekKeys upper ASCII. Post-positive ASCII sequences only}\fi +% Don't use the GreekKeys equivalents if isolatin is in use. +\unletterat +\input{Uibycus4.fd} +\def\greek{\fontencoding{OT1}\fontfamily{ibycus}\selectfont} +\input{iby4extr} +\DeclareTextFontCommand{\textgreek}{\greek} + +\endinput diff --git a/Master/texmf-dist/tex/generic/ibygrk/psibycus.sty b/Master/texmf-dist/tex/generic/ibygrk/psibycus.sty new file mode 100644 index 00000000000..31374ec84b2 --- /dev/null +++ b/Master/texmf-dist/tex/generic/ibygrk/psibycus.sty @@ -0,0 +1,36 @@ +% Pierre A. MacKay, Dept. of Classics, University of Washington +% mackay@cs.washington.edu +% Walter Schmidt +% w.a.schmidt@gmx.net +% ------------------------ +% 2004-10-18 Version 4.5: font definitions moved to separate fd file, again +% 2003-05-28 Version 4.2: virtual fonts are no longer used +% 2003-04-29 Version 4.1 for VTeX +% 15/7/99 Version for type1 font IbycusHTG-Regular +% 12/7/97 Convert to ibycus4 +% 4/12/95 Test for isolatin package and suppress ibycus3.map if it's there +% 31/10/95 Added \input{iby3extr} for editor symbols +% 25/1/95 Created. +% +% For use with LaTeX2e +% Replaces iby4text.tex; does not call setiby4.tex +% Use "\fontsize{14}{17pt}\selectfont" instead of "\setgreek14/17" +% and "{\greek{}...}" instead of "\GK{}...\RM{}" + +\ProvidesPackage{psibycus}[2004/10/18 v4.5 Ibycus4 using Type1 fonts (P.A.MacKay/WaS)] +\newtoks\digraphs +\digraphs={tlgsqq} +\chardef \atcode = \the \catcode `\@ +\def\unletterat{\catcode`\@ = \the \atcode} +\catcode`\@ = 11 +\ifx\@grave@A@grave@\undefined\input{ibycus4.map} +\else\@latex@warning@no@line{% +No GreekKeys upper ASCII. Post-positive ASCII sequences only}\fi +% Don't use the GreekKeys equivalents if isolatin is in use. +\unletterat +\input{Uibycus.fd} +\def\greek{\fontencoding{OT1}\fontfamily{ibycus}\selectfont} +\input{iby4extr} +\DeclareTextFontCommand{\textgreek}{\greek} + +\endinput -- cgit v1.2.3