diff options
Diffstat (limited to 'tmac/dvi.tmac')
| -rw-r--r-- | tmac/dvi.tmac | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/tmac/dvi.tmac b/tmac/dvi.tmac index 8f528f82..112c098d 100644 --- a/tmac/dvi.tmac +++ b/tmac/dvi.tmac @@ -21,7 +21,7 @@ . .\" This uses the dvi-char-_-1 string in fixed-width fonts, dvi-char-_-0 .\" otherwise. -.fchar _ \R'dvi-char (\w'M' == \w'i')'\\*[dvi-char-_-\\n[dvi-char]] +.fchar _ \R'dvi-char (\w'M' == \w'i')'\E*[dvi-char-_-\\n[dvi-char]] .\" Normally use a rule. .ds dvi-char-_-0 \Z'\v'.08m'\D'R .54m .04m''\h'.5m' .\" In fixed-width fonts (CW and CWI) use a real _ character. @@ -29,14 +29,14 @@ . .fchar \[/l] \ \R'dvi-char ((\w'M' == \w'i') + \ - (\\n[.f] == \f[CWI]\\n[.f]\f[]))'\\*[dvi-char-/l-\\n[dvi-char]] + (\En[.f] == \f[CWI]\En[.f]\f[]))'\E*[dvi-char-/l-\\n[dvi-char]] .ds dvi-char-/l-0 \[slash@for@l]l .ds dvi-char-/l-1 \Z'\v'0.22v'\h'-0.02m'\''l .ds dvi-char-/l-2 \Z'\v'0.22v'\h'-0.13m'\''l . .fchar \[/L] \ \R'dvi-char ((\w'M' == \w'i') + \ - (\\n[.f] == \f[CWI]\\n[.f]\f[]))'\\*[dvi-char-/L-\\n[dvi-char]] + (\En[.f] == \f[CWI]\En[.f]\f[]))'\E*[dvi-char-/L-\\n[dvi-char]] .ds dvi-char-/L-0 \h'\w'L'u-\w'\[slash@for@l]L'u'\[slash@for@l]L .ds dvi-char-/L-1 \Z'\v'0.22v'\h'-0.14m'\''L .ds dvi-char-/L-2 \Z'\v'0.22v'\h'-0.21m'\''L @@ -60,7 +60,8 @@ \h'\w'\s-2\[ci]\s0'u-\w'\s-4R\s0'u/2u'\ \s-4R\s0\ \h'\w'\s-2\[ci]\s0'u-\w'\s-4R\s0'u/2u' -.fchar \[fm] \v'-.35m'\s[\\n[.s]*7u/10u]\[prime]\s0\v'.35m' +.fchar \[fm] \v'-.35m'\s[\En[.s]*7u/10u]\[prime]\s0\v'.35m' +.fchar \[sd] \v'-.35m'\s[\En[.s]*7u/10u]\[prime]\[prime]\s0\v'.35m' .fchar \[de] \h'.05m'\v'-.54m'\D'c .3m'\v'.54m'\h'.05m' .fchar \[ct] \o'c/' .fchar \[sq] \ @@ -68,7 +69,7 @@ \D'R .04m -.4m'\v'.04m'\D'R -.4m -.04m'\D'R .04m .4m''\h'.5m' .\"char \[sq] \h'.05m'\D'l .4m 0'\D'l 0 -.4m'\D'l -.4m 0'\D'l 0 .4m'\h'.45m' .fchar \[!=] \[slashnot]\[eq] -.fchar \[tm] \v'-.3m'\s[\\n[.s]/2u]TM\s0\v'.3m' +.fchar \[tm] \v'-.3m'\s[\En[.s]/2u]TM\s0\v'.3m' .fchar \[aq] ' .fchar \[bq] , .fchar \[Bq] ,\h'\w'\[rq]'u-(2u*\w"'"u)', @@ -96,8 +97,8 @@ D\v'-.33m'\s0\v'.33m' .\" Define some fractions. .de dvi-frac . fchar \[\\$1\\$2] \ -\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' +\v'-.25m'\s[\\En[.s]*7u/10u]\\$1\s0\v'.25m'\h'-.2m'\ +/\h'-.2m'\v'.25m'\s[\\En[.s]*7u/10u]\\$2\s0\v'-.25m' .. . .dvi-frac 1 2 @@ -130,11 +131,11 @@ D\v'-.33m'\s0\v'.33m' . fchar \\$1 \ \\$3\ \k[acc]\ -\h'(u;-\w'\\$2'-\w'\\$3'/2+\\\\n[skw]+(\w'x'*0)-\\\\n[skw])'\ -\v'(u;\w'x'*0+\\\\n[rst]+(\w'\\$3'*0)-\\\\n[rst])'\ +\h'(u;-\w'\\$2'-\w'\\$3'/2+\\En[skw]+(\w'x'*0)-\\En[skw])'\ +\v'(u;\w'x'*0+\\En[rst]+(\w'\\$3'*0)-\\En[rst])'\ \\$2\ -\v'(u;\w'x'*0-\\\\n[rst]+(\w'\\$3'*0)+\\\\n[rst])'\ -\h'|\\\\n[acc]u' +\v'(u;\w'x'*0-\\En[rst]+(\w'\\$3'*0)+\\En[rst])'\ +\h'|\\En[acc]u' . hcode \\$1\\$4 .. . |