Mercurial > repos > rnateam > viennarna_rnaeval
comparison test-data/rnaplfold_result1.ps @ 0:4d59d9c739a5 draft
planemo upload for repository https://github.com/bgruening/galaxytools/tree/master/tools/rna_tools/vienna_rna commit 0065dafe7bbd382bb995b28cc4089c9e4f4eeeb9
author | rnateam |
---|---|
date | Tue, 06 Dec 2016 12:32:16 -0500 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:4d59d9c739a5 |
---|---|
1 %!PS-Adobe-3.0 EPSF-3.0 | |
2 %%Title: RNA Dot Plot | |
3 %%Creator: ViennaRNA-2.2.10 | |
4 %%CreationDate: Tue Oct 4 14:45:55 2016 | |
5 %%BoundingBox: 66 530 520 650 | |
6 %%DocumentFonts: Helvetica | |
7 %%Pages: 1 | |
8 %%EndComments | |
9 | |
10 %Options: | |
11 %This file contains the square roots of the base pair probabilities in the form | |
12 % i j sqrt(p(i,j)) ubox | |
13 | |
14 %%BeginProlog | |
15 /DPdict 100 dict def | |
16 DPdict begin | |
17 /logscale false def | |
18 /lpmin 1e-05 log def | |
19 | |
20 /box { %size x y box - draws box centered on x,y | |
21 2 index 0.5 mul sub % x -= 0.5 | |
22 exch 2 index 0.5 mul sub exch % y -= 0.5 | |
23 3 -1 roll dup rectfill | |
24 } bind def | |
25 | |
26 /ubox { | |
27 logscale { | |
28 log dup add lpmin div 1 exch sub dup 0 lt { pop 0 } if | |
29 } if | |
30 3 1 roll | |
31 exch len exch sub 1 add box | |
32 } bind def | |
33 | |
34 /lbox { | |
35 3 1 roll | |
36 len exch sub 1 add box | |
37 } bind def | |
38 | |
39 /drawseq { | |
40 % print sequence along all 4 sides | |
41 [ [0.7 -0.3 0 ] | |
42 [0.7 0.7 len add 0] | |
43 [-0.3 len sub -0.4 -90] | |
44 [-0.3 len sub 0.7 len add -90] | |
45 ] { | |
46 gsave | |
47 aload pop rotate translate | |
48 0 1 len 1 sub { | |
49 dup 0 moveto | |
50 sequence exch 1 getinterval | |
51 show | |
52 } for | |
53 grestore | |
54 } forall | |
55 } bind def | |
56 | |
57 /drawgrid{ | |
58 0.01 setlinewidth | |
59 len log 0.9 sub cvi 10 exch exp % grid spacing | |
60 dup 1 gt { | |
61 dup dup 20 div dup 2 array astore exch 40 div setdash | |
62 } { [0.3 0.7] 0.1 setdash } ifelse | |
63 0 exch len { | |
64 dup dup | |
65 0 moveto | |
66 len lineto | |
67 dup | |
68 len exch sub 0 exch moveto | |
69 len exch len exch sub lineto | |
70 stroke | |
71 } for | |
72 [] 0 setdash | |
73 0.04 setlinewidth | |
74 currentdict /cutpoint known { | |
75 cutpoint 1 sub | |
76 dup dup -1 moveto len 1 add lineto | |
77 len exch sub dup | |
78 -1 exch moveto len 1 add exch lineto | |
79 stroke | |
80 } if | |
81 0.5 neg dup translate | |
82 } bind def | |
83 | |
84 end | |
85 %%EndProlog | |
86 DPdict begin | |
87 %delete next line to get rid of title | |
88 270 665 moveto /Helvetica findfont 14 scalefont setfont (Anolis_carolinensis_chrUn_GL343590.trna2-A) show | |
89 | |
90 /sequence { (\ | |
91 UGGGAAUUAGCUCAAAUGGUAGAGCGCUCGCUUAGCAUGUGAGAGGUAGUGGGAUCGAUGCCCACAUUCUCCA\ | |
92 ) } def | |
93 /winSize 70 def | |
94 /len { sequence length } bind def | |
95 | |
96 292 416 translate | |
97 72 6 mul len 1 add winSize add 2 sqrt mul div dup scale | |
98 /Helvetica findfont 0.95 scalefont setfont | |
99 | |
100 /drawseq_turn {% print sequence at bottom | |
101 gsave | |
102 len 2 sqrt div dup neg 0.28 add exch 0.78 sub translate | |
103 0 1 len 1 sub { | |
104 dup dup 2 sqrt mul 0 moveto | |
105 sequence exch 1 getinterval | |
106 show | |
107 } for | |
108 grestore | |
109 } bind def | |
110 /drawgrid_turn{ | |
111 0.01 setlinewidth | |
112 len log 0.9 sub cvi 10 exch exp % grid spacing | |
113 dup 1 gt { | |
114 dup dup 20 div dup 2 array astore exch 40 div setdash | |
115 } { [0.3 0.7] 0.1 setdash } ifelse | |
116 0 exch len { %for (0, gridspacing, len) | |
117 dup dup %duplicate what - gridspacing?? | |
118 dup len exch sub moveto %moveto diagonal? | |
119 dup winSize gt | |
120 {dup dup len exch sub winSize add lineto} | |
121 {dup len lineto}ifelse | |
122 dup len exch sub moveto %moveto diagonal? | |
123 dup len winSize sub le | |
124 {dup dup len exch sub dup winSize exch sub len add exch lineto} | |
125 {dup dup len exch sub len exch lineto}ifelse stroke pop pop | |
126 } for | |
127 len log 0.9 sub cvi 10 exch exp % grid spacing | |
128 dup 1 gt { | |
129 dup dup 20 div dup 2 array astore exch 40 div setdash | |
130 } { [0.3 0.7] 0.1 setdash } ifelse | |
131 0 exch len { %for (0, gridspacing, len) | |
132 dup dup %duplicate what - gridspacing?? | |
133 dup len exch sub moveto %moveto diagonal? | |
134 len exch sub 0.7 sub exch 0.7 sub exch lineto | |
135 stroke | |
136 }for | |
137 winSize len moveto len winSize lineto stroke | |
138 [] 0 setdash | |
139 0.04 setlinewidth | |
140 currentdict /cutpoint known { | |
141 cutpoint 1 sub | |
142 dup dup -1 moveto len 1 add lineto | |
143 len exch sub dup | |
144 -1 exch moveto len 1 add exch lineto | |
145 stroke | |
146 } if | |
147 0.5 neg dup translate | |
148 } bind def | |
149 | |
150 0.5 dup translate | |
151 drawseq_turn | |
152 45 rotate | |
153 | |
154 | |
155 %draw the grid | |
156 drawgrid_turn | |
157 | |
158 %start of base pair probability data | |
159 2 70 0.1568 ubox | |
160 2 71 0.9619 ubox | |
161 3 69 0.1395 ubox | |
162 3 70 0.7414 ubox | |
163 3 72 0.8060 ubox | |
164 4 68 0.1157 ubox | |
165 4 69 0.6748 ubox | |
166 4 71 0.4682 ubox | |
167 5 67 0.1065 ubox | |
168 5 68 0.6724 ubox | |
169 5 70 0.3765 ubox | |
170 6 47 0.1250 ubox | |
171 6 67 0.6497 ubox | |
172 7 46 0.1273 ubox | |
173 7 66 0.6008 ubox | |
174 8 45 0.1294 ubox | |
175 8 48 0.2252 ubox | |
176 9 47 0.2335 ubox | |
177 10 25 0.7863 ubox | |
178 11 24 0.7884 ubox | |
179 11 43 0.5215 ubox | |
180 11 45 0.2330 ubox | |
181 12 23 0.7883 ubox | |
182 12 42 0.5493 ubox | |
183 12 44 0.2317 ubox | |
184 13 22 0.7882 ubox | |
185 13 41 0.5528 ubox | |
186 13 43 0.2306 ubox | |
187 14 40 0.5338 ubox | |
188 15 20 0.1027 ubox | |
189 16 38 0.5325 ubox | |
190 16 40 0.1646 ubox | |
191 17 37 0.5639 ubox | |
192 17 39 0.1633 ubox | |
193 18 36 0.5591 ubox | |
194 18 38 0.1125 ubox | |
195 19 36 0.2406 ubox | |
196 20 34 0.5341 ubox | |
197 20 35 0.2514 ubox | |
198 21 33 0.4064 ubox | |
199 22 32 0.2491 ubox | |
200 22 33 0.4413 ubox | |
201 23 32 0.5541 ubox | |
202 24 31 0.6100 ubox | |
203 25 30 0.6092 ubox | |
204 26 36 0.2144 ubox | |
205 27 35 0.2146 ubox | |
206 27 43 0.7269 ubox | |
207 28 34 0.2043 ubox | |
208 28 42 0.7445 ubox | |
209 29 41 0.7467 ubox | |
210 30 40 0.7468 ubox | |
211 31 39 0.7470 ubox | |
212 38 73 0.3242 ubox | |
213 39 72 0.3055 ubox | |
214 40 73 0.1211 ubox | |
215 41 71 0.2953 ubox | |
216 41 72 0.1146 ubox | |
217 42 70 0.2588 ubox | |
218 43 69 0.2613 ubox | |
219 43 71 0.2848 ubox | |
220 44 68 0.2587 ubox | |
221 44 70 0.3418 ubox | |
222 45 67 0.2339 ubox | |
223 45 68 0.1772 ubox | |
224 45 69 0.3617 ubox | |
225 45 70 0.1014 ubox | |
226 45 72 0.3111 ubox | |
227 46 67 0.2550 ubox | |
228 46 68 0.3039 ubox | |
229 46 69 0.1150 ubox | |
230 46 71 0.2540 ubox | |
231 47 66 0.2925 ubox | |
232 48 67 0.1378 ubox | |
233 49 65 0.9938 ubox | |
234 50 64 0.9971 ubox | |
235 51 63 0.9980 ubox | |
236 52 62 0.9980 ubox | |
237 53 61 0.9963 ubox | |
238 54 59 0.1628 ubox | |
239 55 60 0.1625 ubox | |
240 showpage | |
241 end | |
242 %%EOF |