From: ian <ian>
Date: Sun, 30 Jan 2005 13:56:19 +0000 (+0000)
Subject: for big board
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=80ca75b8ad4d115d9bdeb1d134c4ceb1a9a29503;p=trains.git

for big board
---

diff --git a/farnell/matrix-board.ps b/farnell/matrix-board.ps
new file mode 100644
index 0000000..4648ddc
--- /dev/null
+++ b/farnell/matrix-board.ps
@@ -0,0 +1,83 @@
+%!PS-Adobe-3.0
+%%Pages: 1
+%%BoundingBox: 0 0 595 842
+%%EndComments
+%%BeginProlog
+
+/bd { bind def } bind def
+
+/coords {
+  90 rotate
+  0 -595 translate
+  7.2 dup scale
+  0.5 0 translate
+} bd
+
+/dot {
+  newpath  2 copy   0.1 0 360 arc  closepath fill
+} bd
+
+/column {
+  0 1 39 { dot pop } for
+} bd
+
+/hline {
+  newpath  -10 exch moveto  130 0 rlineto  stroke
+} bd
+
+/vline {
+  newpath  -0.5 moveto  0 40 rlineto  stroke
+} bd
+
+/x5 {
+  gsave
+    2 copy translate
+    0.5 dup scale
+    newpath
+    -1 0 moveto  1 0 lineto
+    0 -1 moveto  0 1 lineto
+    stroke
+  grestore
+} bd
+
+/column5 {
+  4 5 39 { x5 pop } for
+} bd
+
+/board {
+  gsave
+    0.01 setlinewidth
+    -0.5 hline
+    39.5 hline
+    0.5 setgray
+    0.005 setlinewidth
+    9 10 39 { hline } for
+    -4 10 130 { vline } for
+    -4 5 130 { column5 pop } for
+  grestore
+  0 1 120 { column pop } for
+} bd
+
+%%EndProlog
+%%BeginSetup
+/cou /Courier findfont 0.7 scalefont def
+%%EndSetup
+
+%%Page: 1 1
+%%BeginPageSetup
+%%EndPageSetup
+
+gsave
+cou setfont
+coords
+-3 1.3 translate
+board
+0 41 translate
+80 -1.25 moveto
+($Id$)
+show
+board
+grestore
+
+%%Trailer
+%%EOF