blob: 4afba8cc891b48ff5cc411981f286709d6da70db (
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
|
% The file chelvet.tex (C) Petr Olsak, 1996, 1999, 2012
% Use "\input chelvet" to set the Helvetica fonts family in text mode
\message{FONT: Helvetica -
\string\rm, \string\it, \string\bf, \string\bi, \string\tt,
\string\cond\string\rm, ..., \string\cond\string\bi, \string\narrow.}
\ifx\font\unicoded \message{WARNING: This font family is unavailable in UNICODE.}
\endinput\fi
\ifx\sizespec\undefined \def\sizespec{}\fi
\ifx\font\corkencoded
\def\tmp{8t \sizespec}\def\tmpa{8t \sizespec}
\else \def\tmp{8z \sizespec}\def\tmpa{8u \sizespec}
\fi
\font\tenrm=phvr\tmp
\font\tenbf=phvb\tmp
\font\tenit=phvro\tmp
\font\tenbi=phvbo\tmp
\font\tentt=pcrr\tmpa
\let\tensl=\tenit
\tenrm
\ifx\font\corkencoded % Narrow variants
\font\tenrmn=phvr8tn
\font\tenbfn=phvb8tn
\font\tenitn=phvro8tn
\font\tenbin=phvbo8tn
\else
\font\tenrmn=phvrn8z
\font\tenbfn=phvbn8z
\font\tenitn=phvron8z
\font\tenbin=phvbon8z
\fi
\ifx\regfont\undefined \else
\regfont\tenrmn \regfont\tenitn
\regfont\tenbfn \regfont\tenbin
\fi
\def\narrow{% Switches to Narrow variants
\let\tenrm=\tenrmn \let\tenbf=\tenbfn
\let\tenit=\tenitn \let\tenbi=\tenbin \tenrm}
\def\cond#1{{\escapechar=-1 \expandafter}%
\expandafter\csname\expandafter\tenonlytext\string#1n\endcsname}
\def\tenonlytext{ten}
\ifx\font\corkencoded \else \input chars-8z \fi
\ifx\mathpreloaded X\else \input tx-math \fi
\let\setsimplemath=\relax % this command is obsolete
% The \TeX logo corrected by Ivo Jancik for Helvetica fonts family
\def\hvTeX{T\kern-.12em\lower.4ex\hbox{E}\kern-0.09emX}
\ifx\origTeX\undefined \let\origTeX=\TeX \fi
\let\TeX=\hvTeX
% end of chelvet.tex
|