-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathinp.txt_1.ps
247 lines (245 loc) · 4.57 KB
/
inp.txt_1.ps
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
%!PS-Adobe-3.0 EPSF-2.0
%%BoundingBox: 0 0 792 1072
1.0 1.0 scale
%% Created from ct or ss file by sir_graph.c, mfold 3.6
%% Mon Nov 13 18:36:15 2023
%%
%%
0.0000 0.0000 translate
%% This translate,scale controls zooming
1.00000 1.00000 scale
%%
%%
%% defaults: 0 0 translate, 1 1 scale for full image
%% m n translate, sc sc scale
%% is used to zoom about point (x,y) with scale sc
%% m= -1*(x*scale-396)
%% n= -1*(y*scale-536)
%% for (x,y) 0,0 is bottom left, 0<x<792, 0<y<1072
%%
%%
%% To change image size for some viewers ....
%% Either alter Bound ngBox
%% or 1.0 1.0 scale
%% Valid scales are .05 to 1.00
%% ONLY scale and Bound ngBox lines above may be changed.
%% The scale for change of size is
%% before the translate,scale for zooming%%
%%
/m {moveto} def
/l {lineto} def
/s {stroke} def
/a {arc} def
%% c_rad far below defines radius of base pair dots
%% Define colors for postscript
%% c_k is background, c_t is for general text
%% c_b is bases, c_m is for main circle
%% c_g is for connecting lines or dots for GC, CG
%% c_a is for connecting lines or dots for AU,UA
%% c_u is for connecting GU,UG
%% c_o is for connecting arcs for other
%% in circle graph, c_g may be used for all types
%% of connecting arcs
%% c_c for header
%% c_n for number of label
%% c_l for line of label
%% Colors originally set in sir_graph_color.h
/c_ { 1.000 0.871 0.678 setrgbcolor} def
/c_k { 1.000 1.000 1.000 setrgbcolor} def
/c_b { 0.000 0.000 0.000 setrgbcolor} def
/c_t { 0.000 0.000 0.125 setrgbcolor} def
/c_m { 0.188 0.188 0.188 setrgbcolor} def
/c_g { 1.000 0.000 0.000 setrgbcolor} def
/c_a { 0.251 0.188 0.651 setrgbcolor} def
/c_u { 0.063 0.498 0.063 setrgbcolor} def
/c_o { 0.816 0.808 0.078 setrgbcolor} def
/c_c { 0.000 0.000 0.314 setrgbcolor} def
/c_n { 0.000 0.000 0.125 setrgbcolor} def
/c_l { 0.141 0.141 0.141 setrgbcolor} def
/c_s { 0.000 0.000 0.000 setrgbcolor} def
/c_x { 0.000 0.000 0.000 setrgbcolor} def
/c_z { 1.000 1.000 1.000 setrgbcolor} def
/ISOLatin1Encoding where {pop save true}{false} ifelse
/reencodeISO {
dup length dict begin
{1 index /FID ne {def}{pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
} def
/findISO {
dup /FontType known {
dup /FontType get 3 ne {
dup /CharStrings known {
dup /CharStrings get /Thorn known {
true
}{ false } ifelse
}{ false } ifelse
}{ false } ifelse
}{ false } ifelse
} def
c_k
%% Set background color
0 0 m
792 0 rlineto
0 1072 rlineto
-792 0 rlineto
0 -1072 rlineto
closepath
fill
c_c
/sf 9 def
/Helvetica findfont findISO { reencodeISO /Symbol-ISO exch definefont
sf scalefont setfont }
{ sf scalefont setfont } ifelse
15 1060.000000 moveto
(Output of sir_graph ©) show
15 1049.000000 moveto
(mfold 3.6) show
628.500000 1060.000000 moveto (Created Mon Nov 13 18:36:15 2023) show
c_t
/Helvetica-Oblique findfont
18 scalefont
setfont
306.000000 15 m
(dG = -2.31 inp.txt) show
1.000000 setlinewidth
c_m
s
%% Adjust the radius annotated base here
/c_drad { 21.6000 } def
c_b
c_b
1.000000 setlinewidth
405.31 356.42 m
403.99 465.68 l
s
379.10 537.38 m
346.55 579.65 l
s
297.73 643.05 m
265.18 685.32 l
s
203.11 730.53 m
112.31 763.12 l
s
64.23 815.26 m
52.79 857.65 l
s
62.31 930.97 m
84.20 969.03 l
s
142.77 1014.14 m
185.17 1025.58 l
s
258.48 1016.06 m
296.54 994.17 l
s
334.68 934.36 m
342.98 838.25 l
s
370.84 766.69 m
403.39 724.43 l
s
452.22 661.02 m
484.77 618.76 l
s
547.74 576.37 m
653.03 547.20 l
s
710.13 501.05 m
731.10 460.94 l
s
741.04 386.41 m
731.32 342.21 l
s
691.03 278.72 m
655.17 251.10 l
s
2.000000 setlinewidth
c_g
435.21 530.10 m
477.48 562.65 l
s
c_g
353.84 635.76 m
396.11 668.31 l
s
c_a
272.46 741.43 m
314.73 773.98 l
s
/Helvetica findfont
36.000000 scalefont
setfont
c_b
393.79 304.41 m
(A) show
stroke
391.51 493.68 m
(C) show
stroke
310.14 599.35 m
(G) show
stroke
228.76 705.02 m
(T) show
stroke
62.65 764.63 m
(A) show
stroke
30.37 884.28 m
(T) show
stroke
92.14 991.72 m
(A) show
stroke
211.79 1024.00 m
(T) show
stroke
319.23 962.22 m
(T) show
stroke
334.43 786.39 m
(A) show
stroke
415.81 680.73 m
(C) show
stroke
497.18 575.06 m
(G) show
stroke
679.59 524.51 m
(G) show
stroke
737.63 413.49 m
(T) show
stroke
710.73 291.13 m
(A) show
stroke
611.47 214.69 m
(G) show
stroke
/Helvetica findfont
30.000000 scalefont
setfont
c_l
0.500000 setlinewidth
210.50 211.73 m
(5') show
376.24 300.97 m
294.98 258.49 l
s
665.96 24.00 m
(3') show
633.55 194.91 m
661.28 107.51 l
s
492.93 908.45 m
(10) show
372.85 818.74 m
445.49 874.68 l
s
showpage
%%EOF