manual/plots/angle.eps

   1 %!PS-Adobe-2.0 EPSF
   2 %%Title: /tmp/xfig-fig008452
   3 %%Creator: fig2dev
   4 %%CreationDate: Thu Mar  9 17:17:56 1995
   5 %%For: spoel@rugmd17 (David van der Spoel,Room 17.14,4327)
   6 %%BoundingBox: 0 0 99 180
   7 %%Pages: 0
   8 %%EndComments
   9 /$F2psDict 200 dict def
  10 $F2psDict begin
  11 $F2psDict /mtrx matrix put
  12 /l {lineto} bind def
  13 /m {moveto} bind def
  14 /s {stroke} bind def
  15 /n {newpath} bind def
  16 /gs {gsave} bind def
  17 /gr {grestore} bind def
  18 /clp {closepath} bind def
  19 /graycol {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
  20 4 -2 roll mul setrgbcolor} bind def
  21 /col-1 {} def
  22 /col0 {0 0 0 setrgbcolor} bind def
  23 /col1 {0 0 1 setrgbcolor} bind def
  24 /col2 {0 1 0 setrgbcolor} bind def
  25 /col3 {0 1 1 setrgbcolor} bind def
  26 /col4 {1 0 0 setrgbcolor} bind def
  27 /col5 {1 0 1 setrgbcolor} bind def
  28 /col6 {1 1 0 setrgbcolor} bind def
  29 /col7 {1 1 1 setrgbcolor} bind def
  30  /DrawEllipse {
  31         /endangle exch def
  32         /startangle exch def
  33         /yrad exch def
  34         /xrad exch def
  35         /y exch def
  36         /x exch def
  37         /savematrix mtrx currentmatrix def
  38         x y translate xrad yrad scale 0 0 1 startangle endangle arc
  39         savematrix setmatrix
  40         } def
  41
  42         end
  43 /$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
  44 /$F2psEnd {$F2psEnteredState restore end} def
  45 %%EndProlog
  46
  47 $F2psBegin
  48 0 setlinecap 0 setlinejoin
  49 -63.0 -54.0 translate 90 rotate 0.900 -0.900 scale
  50 0.500 setlinewidth
  51 n 178.680 130.760 m 179.000 139.000 l 174.840 131.880 l gs 2 setlinejoin col-1 s gr
  52 n 143.160 131.880 m 139.000 139.000 l 139.320 130.760 l gs 2 setlinejoin col-1 s gr
  53 n 159.000 144.833 20.833 -163.741 -16.259 arc
  54 gs col-1 s gr
  55 % Ellipse
  56 n 239 79 10 10 0 360 DrawEllipse gs 0.00 setgray fill gr
  57 gs col-1 s gr
  58 % Ellipse
  59 n 79 79 10 10 0 360 DrawEllipse gs 0.00 setgray fill gr
  60 gs col-1 s gr
  61 % Ellipse
  62 n 159 169 10 10 0 360 DrawEllipse gs 0.00 setgray fill gr
  63 gs col-1 s gr
  64 2.000 setlinewidth
  65 % Polyline
  66 n 84 84 m 154 169 l gs col-1 s gr
  67 % Polyline
  68 n 164 169 m 234 84 l gs col-1 s gr
  69 0.500 setlinewidth
  70 % Polyline
  71 n 79 79 m 59 99 l gs col-1 s gr
  72 n 66.071 94.757 m 59.000 99.000 l 63.243 91.929 l gs 2 setlinejoin col-1 s gr
  73 % Polyline
  74 n 239 79 m 259 99 l gs col-1 s gr
  75 n 254.757 91.929 m 259.000 99.000 l 251.929 94.757 l gs 2 setlinejoin col-1 s gr
  76 % Polyline
  77 n 159 169 m 159 139 l gs col-1 s gr
  78 n 157.000 147.000 m 159.000 139.000 l 161.000 147.000 l gs 2 setlinejoin col-1 s gr
  79 /Symbol findfont 18.00 scalefont setfont
  80 149 109 m
  81 gs 1 -1 scale (q) col-1 show gr
  82 /Helvetica findfont 16.00 scalefont setfont
  83 159 114 m
  84 gs 1 -1 scale (0) col-1 show gr
  85 $F2psEnd