From 716429c7b19685bb227236a19d5bddb4f1da741d Mon Sep 17 00:00:00 2001 From: ian Date: Sun, 30 Jan 2005 14:51:51 +0000 Subject: [PATCH] no more specific to board - bah --- farnell/matrix-board.ps | 43 ++++++++++++++++++++++++++--------------- 1 file changed, 27 insertions(+), 16 deletions(-) diff --git a/farnell/matrix-board.ps b/farnell/matrix-board.ps index 0466038..9f500d1 100644 --- 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 -- 2.30.2