no more specific to board - bah

diff --git a/farnell/matrix-board.ps b/farnell/matrix-board.ps
index 0466038c94179603616946f5bd617b87f88e5238..9f500d120e057116d36340ecb766ce3bd6b073d3 100644 (file)
--- a/farnell/matrix-board.ps
+++ b/farnell/matrix-board.ps
@@ -18,15 +18,15 @@
 } bd
 
 /column {
-  0 1 39 { dot pop } for
+  15 1 105 { dot pop } for
 } bd
 
 /hline {
-  newpath  -10 exch moveto  130 0 rlineto  stroke
+  newpath  -10 exch moveto  200 0 rlineto  stroke
 } bd
 
 /vline {
-  newpath  -0.5 moveto  0 40 rlineto  stroke
+  newpath  -0.5 moveto  0 120 rlineto  stroke
 } bd
 
 /x5 {
@@ -41,20 +41,29 @@
 } bd
 
 /column5 {
-  4 5 39 { x5 pop } for
+  0 5 120 { x5 pop } for
+} bd
+
+/splodge {
+  newpath  2 copy  0.2 0 360 arc  closepath stroke
+} bd
+
+/columnsplodge {
+  0 40 120 { splodge pop } for
 } bd
 
 /board {
   gsave
-    0.02 setlinewidth
-    -0.5 hline
-    39.5 hline
     0.01 setlinewidth
-    9 10 39 { hline } for
-    -4 10 130 { vline } for
-    -4 5 130 { column5 pop } for
+    0 10 120 { hline } for
+    0 10 200 { vline } for
+    0 5 200 { column5 pop } for
+  grestore
+  15 1 140 { column pop } for
+  gsave
+    0.01 setlinewidth
+    0 40 200 { columnsplodge pop } for
   grestore
-  0 1 120 { column pop } for
 } bd
 
 %%EndProlog
@@ -67,15 +76,17 @@
 %%EndPageSetup
 
 gsave
-cou setfont
+
 coords
--3 1.50 translate
-board
-0 40.2 translate
-90 -0.80 moveto
+
+cou setfont
+0 1.5 moveto
 ($Id$)
 show
+
+-21 -19 translate
 board
+
 grestore
 showpage