mypapers/drafts/cross.ps

   1 %!PS-Adobe-1.0
   2 %%
   3 %% Title: Camera driver test sheet
   4 %% Creator: Petter Reinholdtsen <pere@td.org.uit.no>
   5 %% CreationDate: 1999-12-05
   6 %% Pages: 1
   7
   8 /cm { 28 mul } def
   9
  10 .1 setlinewidth
  11
  12 % Center of circle
  13 10.5 cm 14.5 cm translate
  14
  15 % scale 1 to fill page
  16 10 cm 10 cm scale
  17
  18 newpath
  19 0 0 1 0 360 arc
  20 stroke
  21
  22 2 {
  23   newpath
  24    1 0 moveto
  25   -1 0 lineto
  26   stroke
  27    0 1 moveto
  28    0 -1 lineto
  29   stroke
  30   90 rotate
  31 } repeat
  32
  33 showpage
  34
  35 % bc commands
  36 % ( a(l/d)+a(r/d) )*tograd
  37 % ( (a(l/d)+a(r/d))/2 - a(l/d) )*tograd