From 7b980ef7943673ea4c34a1ed889a66b2822e70b3 Mon Sep 17 00:00:00 2001
From: ben <ben@cda61777-01e9-0310-a592-d414129be87e>
Date: Fri, 1 Dec 2006 23:43:55 +0000
Subject: [PATCH] Add a procedure to our prologue to draw filled rectangles,
 and use it.

git-svn-id: svn://svn.tartarus.org/sgt/halibut@6938 cda61777-01e9-0310-a592-d414129be87e
---
 bk_ps.c | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/bk_ps.c b/bk_ps.c
index 7c0fbb8..8951366 100644
--- a/bk_ps.c
+++ b/bk_ps.c
@@ -58,7 +58,7 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
 	/* XXX This may request the same font multiple times. */
 	if (!fe->font->info->fp)
 	    fprintf(fp, "%%%%+ font %s\n", fe->font->info->name);
-    fprintf(fp, "%%%%DocumentSuppliedResources: procset Halibut 0 0\n");
+    fprintf(fp, "%%%%DocumentSuppliedResources: procset Halibut 0 1\n");
     for (fe = doc->fonts->head; fe; fe = fe->next)
 	/* XXX This may request the same font multiple times. */
 	if (fe->font->info->fp)
@@ -66,17 +66,19 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
     fprintf(fp, "%%%%EndComments\n");
 
     fprintf(fp, "%%%%BeginProlog\n");
-    fprintf(fp, "%%%%BeginResource: procset Halibut 0 0\n");
+    fprintf(fp, "%%%%BeginResource: procset Halibut 0 1\n");
     /*
      * Supply a prologue function which allows a reasonably
      * compressed representation of the text on the pages.
      * 
-     * Expects two arguments: a y-coordinate, and then an array.
+     * "t" expects two arguments: a y-coordinate, and then an array.
      * Elements of the array are processed sequentially as follows:
      * 
      *  - a number is treated as an x-coordinate
      *  - an array is treated as a (font, size) pair
      *  - a string is shown
+     *
+     * "r" takes four arguments, and behaves like "rectfill".
      */
     fprintf(fp,
 	    "/tdict 4 dict dup begin\n"
@@ -85,7 +87,9 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
 	    "  /integertype /realtype load def\n"
 	    "  /stringtype {show} bind def\n"
 	    "end def\n"
-	    "/t { tdict begin {dup type exec} forall end pop } bind def\n");
+	    "/t { tdict begin {dup type exec} forall end pop } bind def\n"
+	    "/r { 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n"
+	    "     neg 0 rlineto closepath fill } bind def\n");
 
     fprintf(fp, "%%%%EndResource\n");
     fprintf(fp, "%%%%EndProlog\n");
@@ -167,7 +171,6 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
 	pageno++;
 	fprintf(fp, "%%%%Page: %d %d\n", pageno, pageno);
 	fprintf(fp, "save\n");
-
 #if 0
 	{
 	    xref *xr;
@@ -189,11 +192,9 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
 #endif
 
 	for (r = page->first_rect; r; r = r->next) {
-	    fprintf(fp, "%g %g moveto %g 0 rlineto 0 %g rlineto "
-		    "-%g 0 rlineto closepath fill\n",
+	    fprintf(fp, "%g %g %g %g r\n",
 		    r->x / FUNITS_PER_PT, r->y / FUNITS_PER_PT,
-		    r->w / FUNITS_PER_PT, r->h / FUNITS_PER_PT,
-		    r->w / FUNITS_PER_PT);
+		    r->w / FUNITS_PER_PT, r->h / FUNITS_PER_PT);
 	}
 
 	frag = page->first_text;
-- 
2.11.0