#1318: remove negative-prim-literal old hackish implementation
[ghc-hetmet.git] / docs / rts / hugs_ret.pstex
1 %!PS-Adobe-2.0 EPSF-2.0
2 %%Title: /tmp/xfig-fig007314
3 %%Creator: fig2dev Version 3.1 Patchlevel 2
4 %%CreationDate: Wed Oct 15 13:06:42 1997
5 %%For: simonm@solander.dcs.gla.ac.uk (Simon Marlow,SM,,,,OCT99, )
6 %%Orientation: Portrait
7 %%BoundingBox: 0 0 204 214
8 %%Pages: 0
9 %%BeginSetup
10 %%IncludeFeature: *PageSize Letter
11 %%EndSetup
12 %Magnification: 0.80
13 %%EndComments
14 /$F2psDict 200 dict def
15 $F2psDict begin
16 $F2psDict /mtrx matrix put
17 /col-1 {0 setgray} bind def
18 /col0 {0.000 0.000 0.000 srgb} bind def
19 /col1 {0.000 0.000 1.000 srgb} bind def
20 /col2 {0.000 1.000 0.000 srgb} bind def
21 /col3 {0.000 1.000 1.000 srgb} bind def
22 /col4 {1.000 0.000 0.000 srgb} bind def
23 /col5 {1.000 0.000 1.000 srgb} bind def
24 /col6 {1.000 1.000 0.000 srgb} bind def
25 /col7 {1.000 1.000 1.000 srgb} bind def
26 /col8 {0.000 0.000 0.560 srgb} bind def
27 /col9 {0.000 0.000 0.690 srgb} bind def
28 /col10 {0.000 0.000 0.820 srgb} bind def
29 /col11 {0.530 0.810 1.000 srgb} bind def
30 /col12 {0.000 0.560 0.000 srgb} bind def
31 /col13 {0.000 0.690 0.000 srgb} bind def
32 /col14 {0.000 0.820 0.000 srgb} bind def
33 /col15 {0.000 0.560 0.560 srgb} bind def
34 /col16 {0.000 0.690 0.690 srgb} bind def
35 /col17 {0.000 0.820 0.820 srgb} bind def
36 /col18 {0.560 0.000 0.000 srgb} bind def
37 /col19 {0.690 0.000 0.000 srgb} bind def
38 /col20 {0.820 0.000 0.000 srgb} bind def
39 /col21 {0.560 0.000 0.560 srgb} bind def
40 /col22 {0.690 0.000 0.690 srgb} bind def
41 /col23 {0.820 0.000 0.820 srgb} bind def
42 /col24 {0.500 0.190 0.000 srgb} bind def
43 /col25 {0.630 0.250 0.000 srgb} bind def
44 /col26 {0.750 0.380 0.000 srgb} bind def
45 /col27 {1.000 0.500 0.500 srgb} bind def
46 /col28 {1.000 0.630 0.630 srgb} bind def
47 /col29 {1.000 0.750 0.750 srgb} bind def
48 /col30 {1.000 0.880 0.880 srgb} bind def
49 /col31 {1.000 0.840 0.000 srgb} bind def
50
51 end
52 save
53 -42.0 271.0 translate
54 1 -1 scale
55
56 /cp {closepath} bind def
57 /ef {eofill} bind def
58 /gr {grestore} bind def
59 /gs {gsave} bind def
60 /sa {save} bind def
61 /rs {restore} bind def
62 /l {lineto} bind def
63 /m {moveto} bind def
64 /rm {rmoveto} bind def
65 /n {newpath} bind def
66 /s {stroke} bind def
67 /sh {show} bind def
68 /slc {setlinecap} bind def
69 /slj {setlinejoin} bind def
70 /slw {setlinewidth} bind def
71 /srgb {setrgbcolor} bind def
72 /rot {rotate} bind def
73 /sc {scale} bind def
74 /sd {setdash} bind def
75 /ff {findfont} bind def
76 /sf {setfont} bind def
77 /scf {scalefont} bind def
78 /sw {stringwidth} bind def
79 /tr {translate} bind def
80 /tnt {dup dup currentrgbcolor
81   4 -2 roll dup 1 exch sub 3 -1 roll mul add
82   4 -2 roll dup 1 exch sub 3 -1 roll mul add
83   4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
84   bind def
85 /shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
86   4 -2 roll mul srgb} bind def
87 /$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
88 /$F2psEnd {$F2psEnteredState restore end} def
89 %%EndProlog
90
91 $F2psBegin
92 10 setmiterlimit
93 n 0 792 m 0 0 l 612 0 l 612 792 l cp clip
94  0.04800 0.04800 sc
95 /Helvetica ff 180.00 scf sf
96 3405 3885 m
97 gs 1 -1 sc (Info) col-1 sh gr
98 7.500 slw
99 % Polyline
100 n 900 3000 m 2100 3000 l gs col-1 s gr 
101 % Polyline
102 n 900 2700 m 2100 2700 l gs col-1 s gr 
103 % Polyline
104 gs  clippath
105 3003 4545 m 3123 4575 l 3003 4605 l 3165 4605 l 3165 4545 l  cp clip
106 n 1425 3150 m 2550 3150 l 2550 4575 l 3150 4575 l gs col-1 s gr gr
107
108 % arrowhead
109 n 3003 4545 m 3123 4575 l 3003 4605 l  col-1 s
110 % Polyline
111  [15 50.0] 50.0 sd
112 n 3150 4575 m 3150 5625 l gs col-1 s gr  [] 0 sd
113 % Polyline
114 n 3150 4575 m 3975 4575 l 3975 3600 l 3150 3600 l cp gs col-1 s gr 
115 % Polyline
116  [15 50.0] 50.0 sd
117 n 3975 4575 m 3975 5625 l gs col-1 s gr  [] 0 sd
118 % Polyline
119 gs  clippath
120 3003 2820 m 3123 2850 l 3003 2880 l 3165 2880 l 3165 2820 l  cp clip
121 n 1425 2850 m 3150 2850 l gs col-1 s gr gr
122
123 % arrowhead
124 n 3003 2820 m 3123 2850 l 3003 2880 l  col-1 s
125 % Polyline
126 n 3150 2700 m 4500 2700 l 4500 3075 l 3150 3075 l cp gs col-1 s gr 
127 /Helvetica ff 180.00 scf sf
128 3585 2955 m
129 gs 1 -1 sc (BCO) col-1 sh gr
130 /Helvetica ff 180.00 scf sf
131 1170 1530 m
132 gs 1 -1 sc (Stack) col-1 sh gr
133 /Helvetica ff 180.00 scf sf
134 3300 4125 m
135 gs 1 -1 sc (Table) col-1 sh gr
136 /Helvetica ff 180.00 scf sf
137 3315 5070 m
138 gs 1 -1 sc (Code) col-1 sh gr
139 /Helvetica ff 180.00 scf sf
140 4140 4650 m
141 gs 1 -1 sc (HUGS_RET) col-1 sh gr
142 % Polyline
143 n 900 1200 m 900 3300 l 2100 3300 l 2100 1200 l gs col-1 s gr 
144 $F2psEnd
145 rs