From 7dc818289c733115e78e2db269d3a1700f618399 Mon Sep 17 00:00:00 2001
From: wlemb <wlemb>
Date: Mon, 11 Mar 2002 10:55:26 +0000
Subject: * tmac/pspic.tmac: Add support for -Tdvi. * tmac/dvi.tmac: Include
 pspic.tmac. * src/devices/grodvi/grodvi.man: Document it. * NEWS: Updated.

* font/devlj4/generate/Makefile: Fix URL of metric files.
---
 tmac/pspic.tmac | 42 ++++++++++++++++++++++++++++++++++--------
 1 file changed, 34 insertions(+), 8 deletions(-)

(limited to 'tmac/pspic.tmac')

diff --git a/tmac/pspic.tmac b/tmac/pspic.tmac
index 30fa61db..6382d917 100644
--- a/tmac/pspic.tmac
+++ b/tmac/pspic.tmac
@@ -2,8 +2,9 @@
 .\"
 .\" Define the PSPIC macro.
 .\"
-.\" When used other than with -Tps, it will draw a box around where
+.\" When used other than with -Tps or -Tdvi, it will draw a box around where
 .\" the picture would go.
+.
 .de PSPIC
 .  nr ps-offset-mode 0
 .  ie '\\$1'-L' \{\
@@ -55,16 +56,37 @@
 .
 .    ne (\\n[ps-desht]u + 1v)
 .
-.    if (\\n[ps-offset-mode] = 0) \
+.    if (\\n[ps-offset-mode] == 0) \
 .      nr ps-offset (\\n[.l] - \\n[.i] - \\n[ps-deswid] / 2)
-.    if (\\n[ps-offset-mode] = 1) \
+.    if (\\n[ps-offset-mode] == 1) \
 .      nr ps-offset 0
-.    if (\\n[ps-offset-mode] = 2) \
+.    if (\\n[ps-offset-mode] == 2) \
 .      nr ps-offset (\\n[.l] - \\n[.i] - \\n[ps-deswid])
-.    ie (\\n[.$] >= 3) \
-.      ds ps-desht \\n[ps-desht]
-.    el \
-.      ds ps-desht \" empty
+.
+.    ie '\*[.T]'dvi' \{\
+.      ie (\\n[ps-wid]p == \\n[ps-deswid]) \{\
+.        ds ps-scale \" empty
+.        ds ps-hoffset hoffset=-\\n[llx]
+.        ds ps-voffset voffset=-\\n[lly]
+.      \}
+.      el \{\
+.        nr ps-scale (\\n[ps-deswid] * 100 / \\n[ps-wid]p)
+.        nr ps-hoffset (-\\n[llx] * \\n[ps-scale] / 100)
+.        nr ps-voffset (-\\n[lly] * \\n[ps-scale] / 100)
+.        ds ps-scale hscale=\\n[ps-scale] vscale=\\n[ps-scale]
+.        ds ps-hoffset hoffset=\\n[ps-hoffset]
+.        ds ps-voffset voffset=\\n[ps-voffset]
+.      \}
+.
+\h'\\n[ps-offset]u'\
+\v'\\n[ps-desht]u'\
+\X'psfile=\\$1 \\*[ps-hoffset] \\*[ps-voffset] \\*[ps-scale]'
+.    \}
+.    el \{\
+.      ie (\\n[.$] >= 3) \
+.        ds ps-desht \\n[ps-desht]
+.      el \
+.        ds ps-desht \" empty
 .
 \h'\\n[ps-offset]u'\
 \X'ps: invis'\
@@ -73,8 +95,12 @@
 \v'\\n[ps-desht]u'\
 \X'ps: import \
        \\$1 \\n[llx] \\n[lly] \\n[urx] \\n[ury] \\n[ps-deswid] \\*[ps-desht]'
+.    \}
+.
 .    br
 .    sp \\n[ps-desht]u
 .  \}
 .  HTML-IMAGE-END
 ..
+.
+.\" end of pspic.tmac
-- 
cgit v1.2.1