summaryrefslogtreecommitdiff
path: root/tmac/dvi.tmac
diff options
context:
space:
mode:
authorwlemb <wlemb>2002-03-02 16:30:44 +0000
committerwlemb <wlemb>2002-03-02 16:30:44 +0000
commit6b0ad6d0290881b9873979f0aacf47f4f0de54e6 (patch)
tree368a0c23b227a2b065a015de75ed5fe3e232b87e /tmac/dvi.tmac
parent6a49ddf519ec00cec7ebe22c1c1ff14b1efc91cf (diff)
downloadgroff-6b0ad6d0290881b9873979f0aacf47f4f0de54e6.tar.gz
* fonts/devcp1047/R.proto, fonts/devlatin1/R.proto,
fonts/devhtml/R.proto: Remove `charXXX'entries. * tmac/tty.tmac, tmac/html.tmac: Load latin1.tmac or cp1047.tmac where appropriate. * fonts/devlj4/generate/text.map: Remove `charXXX' entries. * fonts/devlj4/*: Regenerated all font definition files. * tmac/lj4.tmac: Load latin1.tmac. * src/utils/hpftodit/hpftodit.cc (do_file): Partially undo change from 2000-06-17: LJ4 metric files are *not* text files. * tmac/troffrc, tmac/dvi.tmac, tmac/ps.tmac: Don't use .T string register to test for EBCDIC.
Diffstat (limited to 'tmac/dvi.tmac')
-rw-r--r--tmac/dvi.tmac18
1 files changed, 15 insertions, 3 deletions
diff --git a/tmac/dvi.tmac b/tmac/dvi.tmac
index d404794b..5dc374c8 100644
--- a/tmac/dvi.tmac
+++ b/tmac/dvi.tmac
@@ -2,17 +2,20 @@
.\"
.nr _C \n(.C
.cp 0
+.
.ftr CR CW
.ftr C CW
.ftr CO CWI
.ftr CI CWI
.ftr TT CW
.ftr H HR
+.
.special TR TI
.fspecial TI CWI
.fspecial TBI CWI
.fspecial HI CWI
.fspecial HBI CWI
+.
.\" This uses the dvi-char_1 string in font CW or CWI, dvi-char_0 otherwise.
.char _ \
\R'dvi-char_ ((\\n[.f] == \f[CW]\\n[.f]\f[P]) : \
@@ -23,6 +26,7 @@
.ds dvi-char_0 \Z'\v'.23m'\D'R .54m .04m''\h'.5m'
.\" In font CW and CWI use a real _ character.
.ds dvi-char_1 _
+.
.if !c\[radicalex] .char \[radicalex] \D'R .5m -.04m'\v'.04m'
.if !c\[br] .char \[br] \Z'\v'.25m'\D'R .04m -1m''
.if !c\[ru] .char \[ru] \Z'\v'-.02m'\D'R .54m .04m''\h'.5m'
@@ -59,6 +63,7 @@ D\v'-.33m'\s0\v'.33m'
.if !c\[nb] .char \[nb] \[slashnot]\[sb]
.cflags 8 \[an]
.if !c\[an] .char \[an] \h'-.167m'\[mi]\h'-.167m'
+.
.\" Define some fractions.
.de dvi-frac
. if !c\[\\$1\\$2] \
@@ -66,6 +71,7 @@ D\v'-.33m'\s0\v'.33m'
\v'-.25m'\s[\\\\n[.s]*7u/10u]\\$1\s0\v'.25m'\h'-.2m'\
/\h'-.2m'\v'.25m'\s[\\\\n[.s]*7u/10u]\\$2\s0\v'-.25m'
..
+.
.dvi-frac 1 2
.dvi-frac 3 4
.dvi-frac 1 4
@@ -73,6 +79,7 @@ D\v'-.33m'\s0\v'.33m'
.dvi-frac 3 8
.dvi-frac 5 8
.dvi-frac 7 8
+.
.\" support for ISO Latin-1
.if !c\[S1] .char \[S1] \v'-.2m'\s-31\s+3\v'+.2m'
.if !c\[S2] .char \[S2] \v'-.2m'\s-32\s+3\v'+.2m'
@@ -84,6 +91,7 @@ D\v'-.33m'\s0\v'.33m'
.if !c\[bb] .char \[bb] |
.if !c\[Ye] .char \[Ye] \o'-Y'
.if !c\[Cs] .char \[Cs] \o'\[mu]o'
+.
.de dvi-achar
. \" Note that character definitions are always interpreted with
. \" compatibility mode off.
@@ -99,6 +107,7 @@ D\v'-.33m'\s0\v'.33m'
. \}
. hcode \\$1\\$4
..
+.
.dvi-achar \[`A] \` A a
.dvi-achar \['A] \' A a
.dvi-achar \[^A] ^ A a
@@ -154,6 +163,7 @@ D\v'-.33m'\s0\v'.33m'
.hcode \[,C]c
.if !c\[,c] .char \[,c] \o'\[ac]c'
.hcode \[,c]c
+.
.\" now for color definitions
.\"
.\" this is a composite of MIT's X Consortium red/green/blue (rgb) color
@@ -703,8 +713,10 @@ D\v'-.33m'\s0\v'.33m'
.defcolor yellow2 rgb #eeee00
.defcolor yellow3 rgb #cdcd00
.defcolor yellow4 rgb #8b8b00
+.
.cp \n(_C
-.ie '\*(.T'cp1047' \
-. do mso cp1047.tmac
-.el \
+.
+.do ie '\[char97]'a' \
. do mso latin1.tmac
+.el \
+. do mso cp1047.tmac