summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/csplain/fonts/chelvet.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-05-07 22:17:55 +0000
committerKarl Berry <karl@freefriends.org>2016-05-07 22:17:55 +0000
commitb5d9cb0ff373d2eb1a99192dcef729faf6e2dd07 (patch)
tree24a13389f4c7c91e4ad7e914331e6635ef781387 /Master/texmf-dist/tex/csplain/fonts/chelvet.tex
parent3057e4132188d2e2d9423f1a88c854087d0e44e7 (diff)
csplain (7may16)
git-svn-id: svn://tug.org/texlive/trunk@40932 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/csplain/fonts/chelvet.tex')
-rw-r--r--Master/texmf-dist/tex/csplain/fonts/chelvet.tex95
1 files changed, 45 insertions, 50 deletions
diff --git a/Master/texmf-dist/tex/csplain/fonts/chelvet.tex b/Master/texmf-dist/tex/csplain/fonts/chelvet.tex
index 85a5cb7c1e9..7e7ec27c385 100644
--- a/Master/texmf-dist/tex/csplain/fonts/chelvet.tex
+++ b/Master/texmf-dist/tex/csplain/fonts/chelvet.tex
@@ -1,56 +1,50 @@
-% 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}
+% The file chelvet.tex (C) Petr Olsak, 1996, 1999, 2012, 2016
+% Use "\input chelvet" to set the Helvetica fonts family
+
+\ifx\ffdecl\undefined \input ff-mac \fi
+
+\ffdecl [Helvetica] {\rm \bf \it \bi} {\cond \caps{\rm\bf}} {} {TX} {8z 8t}
+
+\def\caps{\ffvars{r}{b}{!}{!}\ffsetV{caps}{c}\ffsetX}
+\def\nocaps{\ffvars{r}{b}{ro}{bo}\ffsetV{caps}{}\ffsetX}
+\def\cond{\ffsetV{cond}{n}\ffsetX}
+\def\nocond{\ffsetV{cond}{}\ffsetX}
+\nocaps\nocond\relax % default
+\def\ffwarning#1{\ffmessage{FONT warning: Helvetica - \string\caps#1 unavailable}}
+
+\ismacro\fotenc{8z}\ifttrue
+ \font\tenrm=phvr8z \sizespec
+ \font\tenbf=phvb8z \sizespec
+ \font\tenit=phvro8z \sizespec
+ \font\tenbi=phvbo8z \sizespec
+ \font\tentt=pcrr8u \sizespec
+ \let\tensl=\tenit
+ \font\tenrmn=phvrn8z \sizespec
+ \font\tenbfn=phvbn8z \sizespec
+ \font\tenitn=phvron8z \sizespec
+ \font\tenbin=phvbon8z \sizespec
+
+ \def\ffnamegen{phv\ffvarV\condV\capsV 8z}
+
+ \input chars-8z
\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
+\ismacro\fotenc{8t}\ifttrue
+ \font\tenrm=phvr8t \sizespec
+ \font\tenbf=phvb8t \sizespec
+ \font\tenit=phvro8t \sizespec
+ \font\tenbi=phvbo8t \sizespec
+ \font\tentt=pcrr8t \sizespec
+ \let\tensl=\tenit
+ \font\tenrmn=phvr8tn \sizespec
+ \font\tenbfn=phvb8tn \sizespec
+ \font\tenitn=phvro8tn \sizespec
+ \font\tenbin=phvbo8tn \sizespec
+
+ \def\ffnamegen{phv\ffvarV\capsV 8t\condV}
\fi
-\ifx\regfontdefault\undefined \else
- \regfontdefault
- \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
+\tenrm
\let\setsimplemath=\relax % this command is obsolete
@@ -62,4 +56,5 @@
\ifx\loadmathfonts\relax \endinput \fi
\ifx\mathpreloaded X\else \input tx-math \fi
-% end of chelvet.tex
+% end of ctimes.tex
+