summaryrefslogtreecommitdiff
path: root/macros/texinfo/texinfo/contrib/txipsfonts-gildea.diff
blob: 47aae3b2ab6c52db5afd78ad4109837d8a59d9e3 (plain)
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
Date: Sun, 09 Jun 2002 00:40:14 -0400
From: Stephen Gildea
To: karl@freefriends.org (Karl Berry)
cc: jgay@gnu.org
Subject: Re: Texinfo fonts 

I used to like to use Adobe Times, Helvetica, and Courier because a
major output format for us is PDF, and bitmapped fonts in a PDF file
look ugly with acroread.  I don't use this as much as I used to now that
I can get Type 1 CM fonts.

There are parts of this patch that look ugly, but it works for me.
It would be great to see something like this support in the Texinfo
distribution.

 < Stephen

*** texinfo.tex	Mon Apr 19 17:13:00 1999
--- ps_texinfo.tex	Mon Apr 19 17:17:50 1999
***************
*** 58,69 ****
  % It is possible to adapt texinfo.tex for other languages.  You can get
  % the existing language-specific files from ftp://ftp.gnu.org/gnu/texinfo/.
  
! \message{Loading texinfo [version \texinfoversion]:}
  
  % If in a .fmt file, print the version number
  % and turn on active characters that we couldn't do earlier because
  % they might have appeared in the input file name.
! \everyjob{\message{[Texinfo version \texinfoversion]}%
    \catcode`+=\active \catcode`\_=\active}
  
  % Save some parts of plain tex whose names we will redefine.
--- 58,69 ----
  % It is possible to adapt texinfo.tex for other languages.  You can get
  % the existing language-specific files from ftp://ftp.gnu.org/gnu/texinfo/.
  
! \message{Loading texinfo [version \texinfoversion ps]:}
  
  % If in a .fmt file, print the version number
  % and turn on active characters that we couldn't do earlier because
  % they might have appeared in the input file name.
! \everyjob{\message{[Texinfo version \texinfoversion ps]}%
    \catcode`+=\active \catcode`\_=\active}
  
  % Save some parts of plain tex whose names we will redefine.
***************
*** 858,890 ****
  \newcount\mainmagstep
  \mainmagstep=\magstephalf
  
  % Set the font macro #1 to the font named #2, adding on the
  % specified font prefix (normally `cm').
  % #3 is the font's design size, #4 is a scale factor
! \def\setfont#1#2#3#4{\font#1=\fontprefix#2#3 scaled #4}
  
  % Use cm as the default font prefix.
  % To specify the font prefix, you must define \fontprefix
  % before you read in texinfo.tex.
  \ifx\fontprefix\undefined
! \def\fontprefix{cm}
  \fi
  % Support font families that don't use the same naming scheme as CM.
! \def\rmshape{r}
! \def\rmbshape{bx}               %where the normal face is bold
! \def\bfshape{b}
! \def\bxshape{bx}
! \def\ttshape{tt}
! \def\ttbshape{tt}
! \def\ttslshape{sltt}
! \def\itshape{ti}
! \def\itbshape{bxti}
! \def\slshape{sl}
! \def\slbshape{bxsl}
! \def\sfshape{ss}
! \def\sfbshape{ss}
! \def\scshape{csc}
! \def\scbshape{csc}
  
  \ifx\bigger\relax
  \let\mainmagstep=\magstep1
--- 858,916 ----
  \newcount\mainmagstep
  \mainmagstep=\magstephalf
  
+ % expand #1, a control sequence, without the leading escape char
+ \def\csstringname#1{\expandafter\csstrcdr\string#1;}
+ \def\csstrcdr#1#2;{#2}
+ 		
+ 
  % Set the font macro #1 to the font named #2, adding on the
  % specified font prefix (normally `cm').
  % #3 is the font's design size, #4 is a scale factor
! \def\setfont#1#2#3#4{\dimen255=#3pt\divide\dimen255by1000
!    \multiply\dimen255by#4%
!    \global\expandafter\font\csname f/\csstringname#1\endcsname=\fontprefix#2\fontencoding\space at\dimen255
!    \global\def#1{\csname f/\csstringname#1\endcsname
! 		\def\fcurshape{#2}%
! 		\def\fcursize{#3}%
! 		\def\fcurscale{#4}}}
! 
  
  % Use cm as the default font prefix.
  % To specify the font prefix, you must define \fontprefix
  % before you read in texinfo.tex.
  \ifx\fontprefix\undefined
! \def\fontprefix{p}
  \fi
  % Support font families that don't use the same naming scheme as CM.
! \def\fontencoding{7t}
! \def\rmshape{tmr}
! \def\rmbshape{tmb}            %where the normal face is bold
! \def\bfshape{tmb}
! \def\bxshape{tmb}
! \def\ttshape{crr}
! \def\ttbshape{crb}
! \def\ttslshape{crro}
! \def\itshape{tmri}
! \def\itbshape{tmbi}
! \def\slshape{tmro}
! \def\slbshape{tmbo}
! \def\sfshape{hvr}
! \def\sfbshape{hvb}
! \def\scshape{tmrc}
! \def\scbshape{tmbc}
! 
! % the reason we save all the \fcur* stuff in \setfont
! % is so we can do some nice symbols:
! 
! \def\setcurtextsymbolfont{\def\fontencoding{8r}%
!        \expandafter\setfont
!           \csname\fontname\font/\fontencoding\endcsname
! 	  \fcurshape\fcursize\fcurscale
!        \csname\fontname\font/\fontencoding\endcsname}
! 
! \def\copyright{{\setcurtextsymbolfont\char'251}}
! \def\bullet{{\setcurtextsymbolfont\char'225}}
! 
  
  \ifx\bigger\relax
  \let\mainmagstep=\magstep1
***************
*** 1052,1059 ****
  \textfonts
  
  % Define these so they can be easily changed for other fonts.
! \def\angleleft{$\langle$}
! \def\angleright{$\rangle$}
  
  % Count depth in font-changes, for error checks
  \newcount\fontdepth \fontdepth=0
--- 1078,1092 ----
  \textfonts
  
  % Define these so they can be easily changed for other fonts.
! 
! \def\setcursymbolfont{\def\fontencoding{}%
!        \expandafter\setfont
!           \csname\fontname\font/syr\endcsname
! 	  {syr}\fcursize\fcurscale
!        \csname\fontname\font/syr\endcsname}
! 
! \def\angleleft{{\setcursymbolfont\char'341}}
! \def\angleright{{\setcursymbolfont\char'361}}
  
  % Count depth in font-changes, for error checks
  \newcount\fontdepth \fontdepth=0