mypapers/drafts/grid.ps

   1 %!PS-Adobe-1.0
   2 %%
   3 %% Title: 0.5cm reference grid
   4 %% Creator: Petter Reinholdtsen <pere@td.org.uit.no>
   5 %% CreationDate: 2000-06-07
   6 %% Pages: 1
   7
   8 /cm { 28 mul } def
   9
  10 0.01 cm setlinewidth
  11
  12 % scale 1 to fill page
  13 0 1 cm translate
  14
  15 57 {
  16   newpath
  17    0 0 moveto
  18    21 cm 0 lineto
  19   stroke
  20   0 cm 0.5 cm translate
  21 } repeat
  22
  23 % Undo previous translate
  24 0 cm -0.5 cm 57 mul translate
  25
  26 % scale 1 to fill page
  27 1 cm 0 translate
  28
  29 41 {
  30   newpath
  31    0 0 moveto
  32    0 29 cm lineto
  33   stroke
  34   0.5 cm 0 cm translate
  35 } repeat
  36
  37 showpage
  38
  39 % bc commands
  40 % ( a(l/d)+a(r/d) )*tograd
  41 % ( (a(l/d)+a(r/d))/2 - a(l/d) )*tograd