cd d:/Home/uwe/work/lout/pdftables/
diff -u "c:/Lout/3.13/include/tblf" "d:/Home/uwe/work/lout/pdftables/tblf"
--- c:/Lout/3.13/include/tblf	Fri Feb  5 04:06:56 1999
+++ d:/Home/uwe/work/lout/pdftables/tblf	Thu Apr 29 20:16:20 1999
@@ -1146,6 +1146,43 @@
 	    named compulsory rpc  {}
 	    right @Body
 	{
+	    # uwe: stollen from `bsf'.  TBD: need to factor this out.
+	    # Need this for PDF backend, where we can't rely on prolog
+	    # where these RGB values are packaged.  [rgb.ld ???]
+	    def @PDFColorFill
+	      left col
+	    {
+		col @Case {
+		    nopaint	 @Yield {		     }
+		    nochange	 @Yield {	         "f" }
+		    darkblue	 @Yield	{ 0.0 0.0 0.5 "rg f" }
+		    blue	 @Yield	{ 0.0 0.0 1.0 "rg f" }
+		    lightblue	 @Yield	{ 0.5 0.5 1.0 "rg f" }
+		    darkgreen	 @Yield	{ 0.0 0.5 0.0 "rg f" }
+		    green	 @Yield	{ 0.0 1.0 0.0 "rg f" }
+		    lightgreen	 @Yield	{ 0.5 1.0 0.5 "rg f" }
+		    darkred	 @Yield	{ 0.5 0.0 0.0 "rg f" }
+		    red		 @Yield	{ 1.0 0.0 0.0 "rg f" }
+		    lightred	 @Yield	{ 1.0 0.5 0.5 "rg f" }
+		    darkcyan	 @Yield	{ 0.0 0.5 0.5 "rg f" }
+		    cyan	 @Yield	{ 0.0 1.0 1.0 "rg f" }
+		    lightcyan	 @Yield	{ 0.5 1.0 1.0 "rg f" }
+		    darkmagenta	 @Yield	{ 0.5 0.0 0.5 "rg f" }
+		    magenta	 @Yield	{ 1.0 0.0 1.0 "rg f" }
+		    lightmagenta @Yield	{ 1.0 0.5 1.0 "rg f" }
+		    darkyellow	 @Yield	{ 0.5 0.5 0.0 "rg f" }
+		    yellow	 @Yield	{ 1.0 1.0 0.0 "rg f" }
+		    lightyellow	 @Yield	{ 1.0 1.0 0.5 "rg f" }
+		    darkgray	 @Yield	{ 0.2 0.2 0.2 "rg f" }
+		    gray	 @Yield	{ 0.5 0.5 0.5 "rg f" }
+		    lightgray	 @Yield	{ 0.8 0.8 0.8 "rg f" }
+		    darkgrey	 @Yield	{ 0.2 0.2 0.2 "rg f" }
+		    grey	 @Yield	{ 0.5 0.5 0.5 "rg f" }
+		    lightgrey	 @Yield	{ 0.8 0.8 0.8 "rg f" }
+		    black	 @Yield	{ 0.0 0.0 0.0 "rg f" }
+		    white	 @Yield	{ 1.0 1.0 1.0 "rg f" }
+		}
+	    }
 
 	    def @ZeroWidth right x
 	    {
@@ -1160,17 +1197,37 @@
 	    def @FillBox left col right x
 	    {
 	      @BackEnd @Case {
-		{ PostScript PDF } @Yield {{"LoutBox ltbl"col} @Graphic x}
-		PlainText          @Yield { rpc @PlainGraphic x }
-	    }
+		PlainText  @Yield { rpc @PlainGraphic x }
+		PostScript @Yield {{"LoutBox ltbl"col} @Graphic x}
+		PDF        @Yield { # Inline LoutBox
+			     {	"0 0 m"			# 0 0 moveto
+				__xsize "0 l"		# xsize 0 lineto
+				__xsize __ysize "l"	# xsize ysize lineto
+				"0" __ysize "l"		# 0 ysize liento
+				"h"			# closepath
+				col @PDFColorFill
+			     }
+			     @Graphic x
+                           }
+	      }
 	    }
 
 	    def @PaintBox left col right x
 	    {
 	      @BackEnd @Case {
-		{ PostScript PDF } @Yield {{"LoutBox ltbl"col} @Graphic x}
-		PlainText          @Yield { x }
-	    }
+		PlainText  @Yield { x }
+		PostScript @Yield {{"LoutBox ltbl"col} @Graphic x}
+		PDF        @Yield { # Inline LoutBox
+			     {	"0 0 m"			# 0 0 moveto
+				__xsize "0 l"		# xsize 0 lineto
+				__xsize __ysize "l"	# xsize ysize lineto
+				"0" __ysize "l"		# 0 ysize liento
+				"h"			# closepath
+				col @PDFColorFill
+			     }
+			     @Graphic x
+                           }
+	      }
 	    }
 
 	    def @HRule left col right thick

Diff finished at Thu Apr 29 20:18:50