annotate tools/rgenetics/test.eps @ 1:cdcb0ce84a1b

Uploaded
author xuebing
date Fri, 09 Mar 2012 19:45:15 -0500
parents 9071e359b9a3
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
1 %!PS-Adobe-3.0 EPSF-3.0
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
2 %%Title: Sequence Logo: sdfs
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
3 %%Creator: WebLogo 3.1 (2011-02-16)
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
4 %%CreationDate: 2011-10-15 16:47:38.275112
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
5 %%BoundingBox: 0 0 281 92
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
6 %%Pages: 0
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
7 %%DocumentFonts:
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
8 %%EndComments
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
9
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
10
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
11 % ---- VARIABLES ----
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
12
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
13 /True true def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
14 /False false def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
15
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
16 /debug False def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
17
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
18 /logo_height 92 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
19 /logo_width 281 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
20 /logo_title (sdfs) def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
21 /show_title True def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
22
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
23 /logo_margin 2 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
24 /xaxis_label_height 6.0 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
25 /title_height 12 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
26 /stroke_width 0.5 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
27 /tic_length 5 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
28
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
29 /lines_per_logo 1 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
30 /line_width 277.6 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
31 /line_height 70.0 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
32 /line_margin_left 30.0 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
33 /line_margin_right 10 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
34 /line_margin_bottom 12.0 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
35 /line_margin_top 4 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
36
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
37 /stack_width 10.8 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
38 /stack_height 54.0 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
39 /stacks_per_line 22 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
40 /stack_margin 0.5 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
41
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
42 /show_yaxis True def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
43 /show_yaxis_label True def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
44 /yaxis_label (bits) def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
45 /yaxis_scale 2.0 def % height in units
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
46 /yaxis_tic_interval 1.0 def % in units
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
47 /yaxis_minor_tic_interval 0.2 def % in units
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
48
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
49 /show_xaxis_label False def % True or False
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
50 /show_xaxis True def % True or False
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
51 /xaxis_label () def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
52 /xaxis_tic_interval 1 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
53 /rotate_numbers False def % True or False
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
54 /number_interval 5 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
55 /show_ends False def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
56 /end_type (-) def % d: DNA, p: PROTEIN, -: none
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
57
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
58 /show_fineprint True def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
59 /fineprint (WebLogo 3.1) def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
60 /logo_label () def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
61
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
62 /show_boxes False def % True or False
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
63 /shrink false def % True or False
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
64 /shrink_fraction 0.5 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
65
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
66 /show_errorbars True def % True or False
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
67 /errorbar_fraction 0.9 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
68 /errorbar_width_fraction 0.25 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
69 /errorbar_gray 0.75 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
70
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
71 /fontsize 10 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
72 /small_fontsize 6 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
73 /title_fontsize 12 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
74 /number_fontsize 8 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
75
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
76
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
77 /UseCIEColor true def % Fix for issue 4
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
78 /default_color [ 0.0 0.0 0.0 ] def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
79 /color_dict <<
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
80 (T) [ 1.0 0.549019607843 0.0 ]
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
81 (A) [ 1.0 0.549019607843 0.0 ]
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
82 (U) [ 1.0 0.549019607843 0.0 ]
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
83 (G) [ 0.0 0.0 1.0 ]
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
84 (C) [ 0.0 0.0 1.0 ]
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
85 >> def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
86
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
87
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
88
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
89 % ---- DERIVED PARAMETERS ----
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
90
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
91 /char_width stack_width 2 stack_margin mul sub def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
92 /char_width2 char_width 2 div def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
93 /char_width4 char_width 4 div def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
94
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
95 % movements to place 5'/N and 3'/C symbols
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
96 /leftEndDeltaX fontsize neg def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
97 /leftEndDeltaY fontsize 1.25 mul neg def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
98 /rightEndDeltaX fontsize 0.25 mul def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
99 /rightEndDeltaY leftEndDeltaY def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
100
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
101
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
102 % ---- PROCEDURES ----
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
103
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
104
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
105 /SetTitleFont {/ArialMT findfont title_fontsize scalefont setfont} bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
106 /SetLogoFont {/Arial-BoldMT findfont char_width scalefont setfont} bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
107 /SetStringFont{/ArialMT findfont fontsize scalefont setfont} bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
108 /SetPrimeFont {/Symbol findfont fontsize scalefont setfont} bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
109 /SetSmallFont {/ArialMT findfont small_fontsize scalefont setfont} bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
110 /SetNumberFont {/ArialMT findfont number_fontsize scalefont setfont} bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
111
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
112 /DrawBox { % width height
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
113 /hh exch def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
114 /ww exch def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
115 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
116 0.2 setlinewidth
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
117 %0.5 setgray
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
118
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
119 %0 0 moveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
120 hh 0 rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
121 0 ww rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
122 hh neg 0 rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
123 0 ww neg rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
124 stroke
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
125 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
126 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
127
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
128
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
129 /StartLogo {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
130 %save
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
131 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
132
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
133
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
134 debug {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
135 logo_margin logo_margin moveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
136 logo_height logo_margin 2 mul sub
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
137 logo_width logo_margin 2 mul sub
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
138 DrawBox } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
139
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
140 show_title { DrawTitle } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
141 show_xaxis_label { DrawXaxisLable } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
142 show_fineprint { DrawFineprint } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
143 DrawLogoLabel
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
144
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
145
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
146 MoveToFirstLine
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
147 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
148
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
149
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
150 /DrawLogoLabel {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
151 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
152 SetTitleFont
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
153
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
154 logo_margin
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
155 logo_height title_fontsize sub logo_margin sub
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
156 moveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
157
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
158 debug { title_fontsize logo_label stringwidth pop DrawBox } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
159 0 title_fontsize 4 div rmoveto % Move up to baseline (approximatly)
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
160 logo_label show
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
161
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
162 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
163 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
164
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
165 /DrawTitle {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
166 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
167 SetTitleFont
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
168
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
169 logo_width 2 div logo_title stringwidth pop 2 div sub
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
170 logo_height title_fontsize sub logo_margin sub
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
171 moveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
172
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
173 debug { title_fontsize logo_title stringwidth pop DrawBox } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
174
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
175 0 title_fontsize 4 div rmoveto % Move up to baseline (approximatly)
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
176 logo_title show
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
177
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
178 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
179 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
180
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
181 /DrawXaxisLable {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
182 % Print X-axis label, bottom center
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
183 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
184 SetStringFont
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
185
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
186 logo_width 2 div xaxis_label stringwidth pop 2 div sub
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
187 xaxis_label_height logo_margin add fontsize sub
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
188 moveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
189 %fontsize 3 div
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
190
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
191 debug { fontsize xaxis_label stringwidth pop DrawBox } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
192
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
193 xaxis_label show
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
194
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
195 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
196 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
197
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
198
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
199 /DrawFineprint {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
200 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
201
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
202 SetSmallFont
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
203
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
204 logo_width fineprint stringwidth pop sub
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
205 logo_margin sub line_margin_right sub
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
206 logo_margin
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
207 moveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
208
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
209 debug { small_fontsize fineprint stringwidth pop DrawBox } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
210
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
211 fineprint show
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
212 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
213 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
214
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
215 /MoveToFirstLine {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
216 logo_margin
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
217 logo_height logo_margin sub title_height sub line_height sub
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
218 moveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
219 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
220
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
221 /EndLogo {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
222 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
223 %showpage
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
224 %restore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
225 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
226
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
227
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
228 /StartLine{
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
229 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
230
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
231 % Draw outer box
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
232 debug { line_height line_width DrawBox } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
233
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
234 % Move to lower left corner of content area
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
235 line_margin_left line_margin_bottom rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
236
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
237 % Draw inner content box
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
238 debug {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
239 line_height line_margin_bottom sub line_margin_top sub
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
240 line_width line_margin_left sub line_margin_right sub
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
241 DrawBox
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
242 } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
243
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
244 show_yaxis { DrawYaxis } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
245 show_xaxis { DrawLeftEnd } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
246
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
247 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
248
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
249 /EndLine{
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
250 show_xaxis { DrawRightEnd } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
251 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
252 0 line_height neg rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
253 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
254
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
255
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
256 /DrawYaxis {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
257 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
258 stack_margin neg 0 translate
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
259 DrawYaxisBar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
260 DrawYaxisLabel
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
261 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
262 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
263
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
264
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
265 /DrawYaxisBar {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
266 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
267 stack_margin neg 0 rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
268
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
269 SetNumberFont
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
270 stroke_width setlinewidth
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
271
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
272 /str 10 string def % string to hold number
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
273 /smallgap stack_margin def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
274
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
275 % Draw first tic and bar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
276 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
277 tic_length neg 0 rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
278 tic_length 0 rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
279 0 stack_height rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
280 stroke
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
281 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
282
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
283 % Draw the tics
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
284 % initial increment limit proc for
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
285 0 yaxis_tic_interval yaxis_scale abs
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
286 {/loopnumber exch def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
287
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
288 % convert the number coming from the loop to a string
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
289 % and find its width
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
290 loopnumber 10 str cvrs
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
291 /stringnumber exch def % string representing the number
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
292
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
293 stringnumber stringwidth pop
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
294 /numberwidth exch def % width of number to show
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
295
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
296 /halfnumberheight
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
297 stringnumber CharBoxHeight 2 div
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
298 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
299
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
300 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
301 numberwidth % move back width of number
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
302 neg loopnumber stack_height yaxis_scale div mul % shift on y axis
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
303 halfnumberheight sub % down half the digit
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
304 rmoveto % move back the width of the string
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
305
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
306 tic_length neg smallgap sub % Move back a bit more
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
307 0 rmoveto % move back the width of the tic
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
308
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
309 stringnumber show
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
310 smallgap 0 rmoveto % Make a small gap
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
311
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
312 % now show the tic mark
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
313 0 halfnumberheight rmoveto % shift up again
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
314 tic_length 0 rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
315 stroke
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
316 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
317 } for
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
318
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
319 % Draw the minor tics
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
320 % initial increment limit proc for
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
321 0 yaxis_minor_tic_interval yaxis_scale abs
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
322 {/loopnumber2 exch def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
323 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
324 0
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
325 loopnumber2 stack_height yaxis_scale div mul
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
326 rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
327
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
328 tic_length 2 div neg 0 rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
329 stroke
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
330 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
331 } for
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
332
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
333 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
334 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
335
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
336 /DrawYaxisLabel {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
337 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
338 SetStringFont
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
339
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
340 % How far we move left depends on the size of
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
341 % the tic labels.
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
342 /str 10 string def % string to hold number
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
343 yaxis_scale yaxis_tic_interval div cvi yaxis_tic_interval mul
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
344 str cvs stringwidth pop
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
345 tic_length 1.25 mul add neg
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
346
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
347 stack_height
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
348 yaxis_label stringwidth pop
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
349 sub 2 div
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
350
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
351 rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
352 90 rotate
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
353
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
354 yaxis_label show
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
355 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
356 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
357
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
358
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
359 %Take a single character and return the bounding box
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
360 /CharBox { % <char> CharBox <lx> <ly> <ux> <uy>
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
361 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
362 newpath
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
363 0 0 moveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
364 % take the character off the stack and use it here:
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
365 true charpath
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
366 flattenpath
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
367 pathbbox % compute bounding box of 1 pt. char => lx ly ux uy
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
368 % the path is here, but toss it away ...
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
369 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
370 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
371
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
372
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
373 % The height of a characters bounding box
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
374 /CharBoxHeight { % <char> CharBoxHeight <num>
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
375 CharBox
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
376 exch pop sub neg exch pop
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
377 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
378
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
379
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
380 % The width of a characters bounding box
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
381 /CharBoxWidth { % <char> CharBoxHeight <num>
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
382 CharBox
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
383 pop exch pop sub neg
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
384 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
385
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
386
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
387 /DrawLeftEnd {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
388 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
389 SetStringFont
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
390 leftEndDeltaX leftEndDeltaY rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
391
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
392 show_ends {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
393 debug { leftEndDeltaY neg leftEndDeltaX neg DrawBox } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
394 end_type (d) eq {(5) show DrawPrime} if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
395 end_type (p) eq {(N) show} if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
396 } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
397 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
398 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
399
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
400 /DrawRightEnd {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
401 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
402 SetStringFont
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
403 rightEndDeltaX rightEndDeltaY rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
404
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
405 show_ends {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
406 debug { rightEndDeltaY neg leftEndDeltaX neg DrawBox } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
407 end_type (d) eq {(3) show DrawPrime} if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
408 end_type (p) eq {(C) show} if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
409 } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
410 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
411 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
412
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
413 /DrawPrime {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
414 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
415 SetPrimeFont
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
416 (\242) show
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
417 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
418 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
419
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
420
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
421 /StartStack { % <stackNumber> startstack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
422 show_xaxis {DrawNumber}{pop} ifelse
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
423 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
424 debug { stack_height stack_width DrawBox } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
425
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
426 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
427
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
428 /EndStack {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
429 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
430 stack_width 0 rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
431 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
432
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
433
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
434 /DrawNumber { % number MakeNumber
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
435 /n exch def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
436
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
437
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
438 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
439 %0 stack_margin neg rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
440 stroke_width setlinewidth
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
441 stack_width 0 rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
442 stack_width 2 div neg 0 rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
443
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
444 n () eq
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
445 { 0 tic_length 4 div neg rlineto }
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
446 { 0 tic_length 2 div neg rlineto }
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
447 ifelse
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
448
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
449 stroke
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
450 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
451
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
452
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
453
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
454 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
455 n
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
456 SetNumberFont
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
457 stack_width 2 div tic_length 2 div neg rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
458
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
459 rotate_numbers {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
460 90 rotate
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
461 dup stringwidth pop neg % find the length of the number
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
462 stack_margin sub % Move down a bit
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
463 (0) CharBoxHeight 2 div neg % left half height of numbers
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
464 rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
465 show
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
466 } {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
467 dup stringwidth pop neg 2 div number_fontsize neg rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
468 show
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
469 } ifelse
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
470
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
471
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
472
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
473 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
474 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
475
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
476
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
477
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
478 % Draw a character whose height is proportional to symbol bits
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
479 /ShowSymbol{ % interval character ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
480 /char exch def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
481 /interval exch def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
482 /fraction_width exch def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
483
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
484 /char_height
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
485 interval yaxis_scale div stack_height mul
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
486 stack_margin sub
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
487 dup
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
488 % if char_height is negative or very small replace with zero
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
489 % BUG FIX: This used to be '0.0 gt' but it seems that DrawHeight
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
490 % has a finite, non-zero minimum, which results in a rangecheck error
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
491 0.001 gt {}{pop 0.0} ifelse
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
492 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
493
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
494 char_height 0.0 gt {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
495 show_boxes {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
496 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
497 /ww char_height stack_margin add def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
498 /hh stack_width def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
499 stroke_width setlinewidth
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
500 hh 0 rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
501 0 ww rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
502 hh neg 0 rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
503 0 ww neg rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
504 stroke
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
505 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
506 } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
507
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
508 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
509 stack_margin stack_margin rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
510 debug { char_height char_width DrawBox } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
511 1 fraction_width sub char_width mul 2 div 0 rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
512 fraction_width char_width mul char_height char DrawChar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
513 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
514
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
515 } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
516 0 interval yaxis_scale div stack_height mul rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
517 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
518
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
519
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
520 /DrawChar { % <width> <height> <char> ShowChar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
521 /tc exch def % The character
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
522 /ysize exch def % the y size of the character
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
523 /xsize exch def % the x size of the character
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
524 /xmulfactor 1 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
525 /ymulfactor 1 def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
526
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
527 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
528 SetLogoFont
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
529 tc SetColor
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
530
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
531 % IReplacementHack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
532 % Deal with the lack of bars on the letter 'I' in Arial and Helvetica
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
533 % by replacing with 'I' from Courier.
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
534 tc (I) eq {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
535 /Courier findfont char_width scalefont setfont
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
536 } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
537
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
538
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
539 shrink {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
540 xsize 1 shrink_fraction sub 2 div mul
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
541 ysize 1 shrink_fraction sub 2 div mul rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
542 shrink_fraction shrink_fraction scale
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
543 } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
544
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
545 % Calculate the font scaling factors
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
546 % Loop twice to catch small correction due to first scaling
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
547 2 {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
548 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
549 xmulfactor ymulfactor scale
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
550
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
551 ysize % desired size of character in points
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
552 tc CharBoxHeight
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
553 dup 0.0 ne {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
554 div % factor by which to scale up the character
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
555 /ymulfactor exch def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
556 } {pop pop} ifelse
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
557
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
558 xsize % desired size of character in points
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
559 tc CharBoxWidth
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
560 dup 0.0 ne {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
561 div % factor by which to scale up the character
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
562 /xmulfactor exch def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
563 } {pop pop} ifelse
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
564 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
565 } repeat
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
566
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
567
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
568
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
569 % Draw the character
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
570 xmulfactor ymulfactor scale
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
571 % Move lower left corner of character to start point
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
572 tc CharBox pop pop % llx lly : Lower left corner
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
573 exch neg exch neg
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
574 rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
575
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
576 tc show
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
577
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
578 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
579 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
580
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
581 /SetColor{ % <char> SetColor
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
582 dup color_dict exch known {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
583 color_dict exch get aload pop setrgbcolor
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
584 } {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
585 pop
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
586 default_color aload pop setrgbcolor
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
587 } ifelse
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
588 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
589
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
590
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
591 /DrawErrorbar{ % interval_down interval_up DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
592
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
593 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
594 /points_per_unit stack_height yaxis_scale div def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
595 /height_up exch points_per_unit mul def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
596 /height_down exch points_per_unit mul def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
597
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
598 show_errorbars {
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
599
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
600 stroke_width setlinewidth
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
601 errorbar_gray setgray
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
602 stack_width 2 div 0 rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
603
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
604 /errorbar_width char_width errorbar_width_fraction mul def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
605 /errorbar_width2 errorbar_width 2 div def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
606
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
607 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
608 0 height_down neg rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
609 errorbar_width2 neg 0 rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
610 errorbar_width 0 rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
611 errorbar_width2 neg 0 rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
612 0 height_down errorbar_fraction mul rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
613 stroke
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
614 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
615
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
616 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
617 0 height_up rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
618 errorbar_width2 neg 0 rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
619 errorbar_width 0 rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
620 errorbar_width2 neg 0 rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
621 0 height_up neg errorbar_fraction mul rlineto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
622 stroke
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
623 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
624 } if
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
625
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
626 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
627
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
628 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
629
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
630 /DrawErrorbarFirst{ % interval_down interval_up center DrawErrorbarFirst
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
631 gsave
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
632 /points_per_unit stack_height yaxis_scale div def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
633 /center exch points_per_unit mul def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
634
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
635 0 center rmoveto
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
636 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
637 grestore
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
638 } bind def
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
639
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
640 %%EndProlog
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
641
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
642 %%Page: 1 1
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
643
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
644 % Example Data
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
645 %StartLogo
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
646 % StartLine
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
647 % (1) StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
648 % 1.2 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
649 % 2.2 (I) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
650 % 0.5 0.5 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
651 % EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
652 % (2) StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
653 % 0.5 (I) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
654 % 0.9 (L) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
655 % 1.0 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
656 %
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
657 % 0.5 0.5 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
658 % EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
659 % (234) StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
660 % EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
661 % (235) StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
662 % EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
663 % EndLine
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
664 %EndLogo
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
665
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
666 StartLogo
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
667
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
668 StartLine
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
669 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
670 1.000000 0.010108 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
671 1.000000 0.040431 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
672 1.000000 0.212261 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
673 1.000000 0.232476 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
674 0.232248 0.232248 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
675 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
676
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
677 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
678 1.000000 0.015152 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
679 1.000000 0.045455 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
680 1.000000 0.136365 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
681 1.000000 0.174245 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
682 0.218101 0.218101 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
683 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
684
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
685 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
686 1.000000 0.016616 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
687 1.000000 0.037386 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
688 1.000000 0.074773 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
689 1.000000 0.074773 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
690 0.169220 0.169220 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
691 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
692
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
693 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
694 1.000000 0.000000 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
695 1.000000 0.038953 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
696 1.000000 0.155812 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
697 1.000000 0.759583 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
698 0.326656 0.326656 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
699 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
700
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
701 (5) StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
702 1.000000 0.019459 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
703 1.000000 0.038917 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
704 1.000000 0.116752 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
705 1.000000 0.778345 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
706 0.350333 0.350333 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
707 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
708
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
709 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
710 1.000000 0.000000 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
711 1.000000 0.021020 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
712 1.000000 0.168160 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
713 1.000000 0.840802 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
714 0.325915 0.325915 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
715 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
716
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
717 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
718 1.000000 0.000000 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
719 1.000000 0.083359 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
720 1.000000 0.083359 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
721 1.000000 0.854432 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
722 0.347959 0.347959 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
723 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
724
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
725 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
726 1.000000 0.000000 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
727 1.000000 0.070036 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
728 1.000000 0.070036 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
729 1.000000 1.003846 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
730 0.356819 0.356819 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
731 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
732
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
733 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
734 1.000000 0.026714 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
735 1.000000 0.040070 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
736 1.000000 0.044523 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
737 1.000000 0.106855 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
738 0.196056 0.196056 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
739 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
740
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
741 (10) StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
742 1.000000 0.014496 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
743 1.000000 0.016107 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
744 1.000000 0.020939 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
745 1.000000 0.027382 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
746 0.078924 0.106593 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
747 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
748
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
749 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
750 1.000000 0.018308 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
751 1.000000 0.032954 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
752 1.000000 0.054923 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
753 1.000000 0.073231 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
754 0.164679 0.164679 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
755 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
756
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
757 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
758 1.000000 0.015253 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
759 1.000000 0.021790 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
760 1.000000 0.032685 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
761 1.000000 0.037043 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
762 0.106770 0.125094 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
763 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
764
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
765 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
766 1.000000 0.022457 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
767 1.000000 0.028072 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
768 1.000000 0.028072 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
769 1.000000 0.058950 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
770 0.137551 0.153378 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
771 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
772
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
773 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
774 1.000000 0.013621 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
775 1.000000 0.021404 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
776 1.000000 0.029188 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
777 1.000000 0.031133 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
778 0.095346 0.115803 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
779 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
780
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
781 (15) StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
782 1.000000 0.033669 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
783 1.000000 0.067338 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
784 1.000000 0.078561 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
785 1.000000 0.370360 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
786 0.303054 0.303054 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
787 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
788
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
789 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
790 1.000000 0.000000 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
791 1.000000 0.056955 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
792 1.000000 0.132896 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
793 1.000000 0.740420 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
794 0.331433 0.331433 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
795 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
796
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
797 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
798 1.000000 0.014884 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
799 1.000000 0.044653 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
800 1.000000 0.148844 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
801 1.000000 0.520953 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
802 0.310748 0.310748 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
803 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
804
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
805 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
806 1.000000 0.000000 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
807 1.000000 0.088853 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
808 1.000000 0.126932 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
809 1.000000 0.406183 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
810 0.268423 0.268423 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
811 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
812
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
813 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
814 1.000000 0.043760 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
815 1.000000 0.065640 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
816 1.000000 0.065640 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
817 1.000000 0.361019 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
818 0.304415 0.304415 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
819 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
820
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
821 (20) StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
822 1.000000 0.021502 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
823 1.000000 0.027646 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
824 1.000000 0.036861 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
825 1.000000 0.064506 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
826 0.150515 0.158545 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
827 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
828
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
829 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
830 1.000000 0.000000 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
831 1.000000 0.015671 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
832 1.000000 0.282073 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
833 1.000000 0.470122 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
834 0.247172 0.247172 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
835 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
836
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
837 () StartStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
838 1.000000 0.022864 (G) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
839 1.000000 0.040011 (C) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
840 1.000000 0.080022 (A) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
841 1.000000 0.137181 (T) ShowSymbol
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
842 0.209363 0.209363 DrawErrorbar
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
843 EndStack
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
844
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
845 EndLine
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
846
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
847 EndLogo
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
848
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
849
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
850 %%EOF
9071e359b9a3 Uploaded
xuebing
parents:
diff changeset
851