1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
%D \module
%D [ file=font-heb,
%D version=1999.11.06,
%D title=\CONTEXT\ Font Macros,
%D subtitle=Hebrew,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
\input font-arb.tex
\writestatus{loading}{Context Font Macros / Hebrew (ArabTeX) support}
% NOT YET ADAPTED TO THE NEW FONT MACROS
%D This module is build on top of \ARABTEX\ and arabic
%D support. I dedicate this module to my father Hein Hagen,
%D who did not live long enough to become a user. His huge
%D library contains math, science, history, english literature,
%D philisophy and theology books, but his most favoured ones
%D were those traditional hebrew printings. I must admit
%D that some of those make clear that traditonal typesetting
%D can still beat \TEX. Those nested multicolumn documents with
%D complicated can give even the experienced macro writer a
%D rather persistent headache.
\unprotect
%D A few fonts.
\unexpanded\def\sethebrewfont#1% strange font dimensions / scale
{\scratchdimen=10\bodyfontsize
\font\hebfont=\truefontname{Hebrew#1} at \currentfontscale\scratchdimen
\fontdimen5\hebfont=.8\fontdimen2\hebfont
\fontdimen6\hebfont=3\fontdimen5\hebfont
\hebfont}
\let \setheb \sethebrew
\unexpanded\def\pheb {\sethebrewfont\s!Regular}
\unexpanded\def\phebbf{\sethebrewfont\s!Bold}
\startloadingARABTEX
\input hebtex.sty
\input apatch.sty
\input hepatch.sty
\stoploadingARABTEX
%D The main definition is:
\definefontsynonym [HebrewRegular] [hclassic]
\definefontsynonym [HebrewBold] [hcaption]
\defineARABTEXalternative
[hebrew]
[\c!inner=\sethebrew,
\c!style=\sethebrewfont{\fontstylesuffix}]
\protect \endinput
|