farnell/matrix-board.ps

   1 %!PS-Adobe-3.0
   2 %%Pages: 1
   3 %%BoundingBox: 0 0 595 842
   4 %%EndComments
   5 %%BeginProlog
   6
   7 /bd { bind def } bind def
   8
   9 /coords {
  10   90 rotate
  11   0 -595 translate
  12   7.2 dup scale
  13   0.5 0 translate
  14 } bd
  15
  16 /dot {
  17   newpath  2 copy   0.1 0 360 arc  closepath fill
  18 } bd
  19
  20 /column {
  21   15 1 105 { dot pop } for
  22 } bd
  23
  24 /hline {
  25   newpath  -10 exch moveto  200 0 rlineto  stroke
  26 } bd
  27
  28 /vline {
  29   newpath  -0.5 moveto  0 120 rlineto  stroke
  30 } bd
  31
  32 /x5 {
  33   gsave
  34     2 copy translate
  35     0.5 dup scale
  36     newpath
  37     -1 0 moveto  1 0 lineto
  38     0 -1 moveto  0 1 lineto
  39     stroke
  40   grestore
  41 } bd
  42
  43 /column5 {
  44   0 5 120 { x5 pop } for
  45 } bd
  46
  47 /splodge {
  48   newpath  2 copy  0.2 0 360 arc  closepath stroke
  49 } bd
  50
  51 /columnsplodge {
  52   0 40 120 { splodge pop } for
  53 } bd
  54
  55 /board {
  56   gsave
  57     0.01 setlinewidth
  58     0 10 120 { hline } for
  59     0 10 200 { vline } for
  60     0 5 200 { column5 pop } for
  61   grestore
  62   15 1 140 { column pop } for
  63   gsave
  64     0.01 setlinewidth
  65     0 40 200 { columnsplodge pop } for
  66   grestore
  67 } bd
  68
  69 %%EndProlog
  70 %%BeginSetup
  71 /cou /Courier findfont 0.5 scalefont def
  72 %%EndSetup
  73
  74 %%Page: 1 1
  75 %%BeginPageSetup
  76 %%EndPageSetup
  77
  78 gsave
  79
  80 coords
  81
  82 cou setfont
  83 0 1.5 moveto
  84 ($Id$)
  85 show
  86
  87 -21 -19 translate
  88 board
  89
  90 grestore
  91 showpage
  92
  93 %%Trailer
  94 %%EOF