summaryrefslogtreecommitdiff
path: root/tmac/an-old.tmac
diff options
context:
space:
mode:
authorwlemb <wlemb>2002-03-01 01:15:35 +0000
committerwlemb <wlemb>2002-03-01 01:15:35 +0000
commit914f0e84c080380ef6008eb62468753a7fe418d1 (patch)
tree3f219f9778416a1ff9e43ca10ee7c53480754272 /tmac/an-old.tmac
parentc5da16c6d8ad7c942acdf7ce20a1da13068c9962 (diff)
downloadgroff-914f0e84c080380ef6008eb62468753a7fe418d1.tar.gz
Add color support to grodvi (for drawing colors are currently
translated to gray values). * src/devices/grodvi/dvi.cc (FILL_MAX): Removed. (dvi_printer): Add `cur_color' member. (dvi_printer::set_color): New function. (draw_dvi_printer): Remove `fill'. (draw_dvi_printer::fill_next): Pass environment as parameter. Update code for new color support translated to gray. (dvi_printer::set_char): Updated. (dvi_printer::begin_page, dvi_printer::end_page): Handle color changes crossing the page border. (dvi_printer::draw): Updated. Remove cases `f' and `F'. * tmac/dvi.tmac: Add color definitions. * NEWS, src/devices/grodvi/grodvi.man: Updated. * tmac/an-old.tmac (R): Make this a macro to emit a warning if used incorrectly. * aclocal.m4 (GROFF_NEED_DECLARATION): Use test similar to recent versions of autoconf. * configure: Updated. * doc/homepage.ms: Use `.blm'. * tmac/www.tmac (www-depth): New auxiliary variable. (www-pop-level): Don't issue HTML tag. (ULS, ULE, LI): Use absolute indentation. * src/devices/grops/ps.cc (ps_printer::begin_page, ps_printer::end_page): Switch forth and back to default color while starting a new page.
Diffstat (limited to 'tmac/an-old.tmac')
-rw-r--r--tmac/an-old.tmac16
1 files changed, 14 insertions, 2 deletions
diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac
index a3d77013..72bf8c7f 100644
--- a/tmac/an-old.tmac
+++ b/tmac/an-old.tmac
@@ -514,11 +514,23 @@
. HTML-IMAGE-END
..
.
+.de1 R
+\c
+. ie \\n[.$] \{\
+. tm `R' is a string (producing the registered sign), not a macro.
+. nop \\$*
+. \}
+. el \{\
+. ie c\[rg] \
+. nop \[rg]\c
+. el \
+. nop (Reg.)\c
+. \}
+..
+.
.\" these strings must work in compatibility mode also
.
.ds S \s'\\n(PSu'
-.ie c\[rg] .ds R \(rg
-.el .ds R (Reg.)
.ie c\[tm] .ds Tm \(tm
.el .ds Tm (TM)
.ds lq \(lq