Register
Login
Resources
Docs Blog Datasets Glossary Case Studies Tutorials & Webinars
Product
Data Engine LLMs Platform Enterprise
Pricing Explore
Connect to our Discord channel

GMT_-U.ps 18 KB

You have to be logged in to leave a comment. Sign In
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
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
  1. %!PS-Adobe-3.0
  2. %%BoundingBox: 0 0 612 792
  3. %%HiResBoundingBox: 0 0 612 792
  4. %%Title: GMT v5.0.0a (CVS Jun 13 2011 20:51:20) [64-bit] [C4] Document from GMT_psxy
  5. %%Creator: GMT
  6. %%For: remko
  7. %%DocumentNeededResources: font Helvetica
  8. %%CreationDate: Mon Jun 13 21:09:49 2011
  9. %%LanguageLevel: 2
  10. %%DocumentData: Clean7Bit
  11. %%Orientation: Portrait
  12. %%Pages: 1
  13. %%EndComments
  14. %%BeginProlog
  15. 250 dict begin
  16. /! {bind def} bind def
  17. /# {load def}!
  18. /A /setgray #
  19. /B /setdash #
  20. /C /setrgbcolor #
  21. /D /rlineto #
  22. /E {dup stringwidth pop}!
  23. /F /fill #
  24. /G /rmoveto #
  25. /H /sethsbcolor #
  26. /I /setpattern #
  27. /K /setcmykcolor #
  28. /L /lineto #
  29. /M /moveto #
  30. /N /newpath #
  31. /P /closepath #
  32. /R /rotate #
  33. /S /stroke #
  34. /T /translate #
  35. /U /grestore #
  36. /V /gsave #
  37. /W /setlinewidth #
  38. /Y {findfont exch scalefont setfont}!
  39. /Z /show #
  40. /FP {true charpath flattenpath}!
  41. /MU {matrix setmatrix}!
  42. /MS {/SMat matrix currentmatrix def}!
  43. /MR {SMat setmatrix}!
  44. /edef {exch def}!
  45. /FS {/fc edef /fs {V fc F U} def}!
  46. /FQ {/fs {} def}!
  47. /O0 {/os {N} def}!
  48. /O1 {/os {P S} def}!
  49. /FO {fs os}!
  50. /Sa {M MS dup 0 exch G 0.726542528 mul -72 R dup 0 D 4 {72 R dup 0 D -144 R dup 0 D} repeat pop MR FO}!
  51. /Sb {M dup 0 D exch 0 exch D neg 0 D FO}!
  52. /SB {MS T /BoxR edef /BoxW edef /BoxH edef BoxR 0 M
  53. BoxW 0 BoxW BoxH BoxR arct BoxW BoxH 0 BoxH BoxR arct 0 BoxH 0 0 BoxR arct 0 0 BoxW 0 BoxR arct MR FO}!
  54. /Sc {N 3 -1 roll 0 360 arc FO}!
  55. /Sd {M 4 {dup} repeat 0 G neg dup dup D exch D D FO}!
  56. /Se {N MS T R scale 0 0 1 0 360 arc MR FO}!
  57. /Sg {M MS 22.5 R dup 0 exch G -22.5 R 0.765366865 mul dup 0 D 6 {-45 R dup 0 D} repeat pop MR FO}!
  58. /Sh {M MS dup 0 G -120 R dup 0 D 4 {-60 R dup 0 D} repeat pop MR FO}!
  59. /Si {M MS dup neg 0 exch G 60 R 1.732050808 mul dup 0 D 120 R 0 D MR FO}!
  60. /Sj {M MS R dup -2 div 2 index -2 div G dup 0 D exch 0 exch D neg 0 D MR FO}!
  61. /Sn {M MS dup 0 exch G -36 R 1.175570505 mul dup 0 D 3 {-72 R dup 0 D} repeat pop MR FO}!
  62. /Sp {N 3 -1 roll 0 360 arc F}!
  63. /SP {M {D} repeat FO}!
  64. /Sr {M dup -2 div 2 index -2 div G dup 0 D exch 0 exch D neg 0 D FO}!
  65. /Ss {M 1.414213562 mul dup dup dup -2 div dup G 0 D 0 exch D neg 0 D FO}!
  66. /St {M MS dup 0 exch G -60 R 1.732050808 mul dup 0 D -120 R 0 D MR FO}!
  67. /SV {0 exch M 0 D D D D D 0 D FO}!
  68. /Sv {0 0 M D D 0 D D D D D 0 D D FO}!
  69. /Sw {2 copy M 5 2 roll arc FO}!
  70. /Sx {M 1.414213562 mul 5 {dup} repeat -2 div dup G D neg 0 G neg D S}!
  71. /Sy {M dup 0 exch G dup -2 mul dup 0 exch D S}!
  72. /S+ {M dup 0 G dup -2 mul dup 0 D exch dup G 0 exch D S}!
  73. /S- {M dup 0 G dup -2 mul dup 0 D S}!
  74. /sw {stringwidth pop}!
  75. /sh {V MU 0 0 M FP pathbbox N 4 1 roll pop pop pop U}!
  76. /sd {V MU 0 0 M FP pathbbox N pop pop exch pop U}!
  77. /sH {V MU 0 0 M FP pathbbox N exch pop exch sub exch pop U}!
  78. /sb {E exch sh}!
  79. /bl {}!
  80. /bc {E -2 div 0 G}!
  81. /br {E neg 0 G}!
  82. /ml {dup 0 exch sh -2 div G}!
  83. /mc {dup E -2 div exch sh -2 div G}!
  84. /mr {dup E neg exch sh -2 div G}!
  85. /tl {dup 0 exch sh neg G}!
  86. /tc {dup E -2 div exch sh neg G}!
  87. /tr {dup E neg exch sh neg G}!
  88. /mx {2 copy lt {exch} if pop}!
  89. /PSL_xorig 0 def /PSL_yorig 0 def
  90. /TM {2 copy T PSL_yorig add /PSL_yorig edef PSL_xorig add /PSL_xorig edef}!
  91. /PSL_reencode {findfont dup length dict begin
  92. {1 index /FID ne {def}{pop pop} ifelse} forall
  93. exch /Encoding edef currentdict end definefont pop
  94. }!
  95. /PSL_eps_begin {
  96. /PSL_eps_state save def
  97. /PSL_dict_count countdictstack def
  98. /PSL_op_count count 1 sub def
  99. userdict begin
  100. /showpage {} def
  101. 0 setgray 0 setlinecap 1 setlinewidth
  102. 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath
  103. /languagelevel where
  104. {pop languagelevel 1 ne {false setstrokeadjust false setoverprint} if} if
  105. }!
  106. /PSL_eps_end {
  107. count PSL_op_count sub {pop} repeat
  108. countdictstack PSL_dict_count sub {end} repeat
  109. PSL_eps_state restore
  110. }!
  111. /ISOLatin1+_Encoding [
  112. /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  113. /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  114. /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  115. /.notdef /bullet /ellipsis /trademark /emdash /endash /fi /zcaron
  116. /space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quoteright
  117. /parenleft /parenright /asterisk /plus /comma /minus /period /slash
  118. /zero /one /two /three /four /five /six /seven
  119. /eight /nine /colon /semicolon /less /equal /greater /question
  120. /at /A /B /C /D /E /F /G
  121. /H /I /J /K /L /M /N /O
  122. /P /Q /R /S /T /U /V /W
  123. /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore
  124. /quoteleft /a /b /c /d /e /f /g
  125. /h /i /j /k /l /m /n /o
  126. /p /q /r /s /t /u /v /w
  127. /x /y /z /braceleft /bar /braceright /asciitilde /scaron
  128. /OE /dagger /daggerdbl /Lslash /fraction /guilsinglleft /Scaron /guilsinglright
  129. /oe /Ydieresis /Zcaron /lslash /perthousand /quotedblbase /quotedblleft /quotedblright
  130. /dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent
  131. /dieresis /quotesinglbase /ring /cedilla /quotesingle /hungarumlaut /ogonek /caron
  132. /space /exclamdown /cent /sterling /currency /yen /brokenbar /section
  133. /dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron
  134. /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph /periodcentered
  135. /cedilla /onesuperior /ordmasculine /guillemotright /onequarter /onehalf /threequarters /questiondown
  136. /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla
  137. /Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis
  138. /Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply
  139. /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls
  140. /agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla
  141. /egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis
  142. /eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide
  143. /oslash /ugrave /uacute /ucircumflex /udieresis /yacute /thorn /ydieresis
  144. ] def
  145. /PSL_font_encode 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 39 array astore def
  146. /F0 {/Helvetica Y}!
  147. /F1 {/Helvetica-Bold Y}!
  148. /F2 {/Helvetica-Oblique Y}!
  149. /F3 {/Helvetica-BoldOblique Y}!
  150. /F4 {/Times-Roman Y}!
  151. /F5 {/Times-Bold Y}!
  152. /F6 {/Times-Italic Y}!
  153. /F7 {/Times-BoldItalic Y}!
  154. /F8 {/Courier Y}!
  155. /F9 {/Courier-Bold Y}!
  156. /F10 {/Courier-Oblique Y}!
  157. /F11 {/Courier-BoldOblique Y}!
  158. /F12 {/Symbol Y}!
  159. /F13 {/AvantGarde-Book Y}!
  160. /F14 {/AvantGarde-BookOblique Y}!
  161. /F15 {/AvantGarde-Demi Y}!
  162. /F16 {/AvantGarde-DemiOblique Y}!
  163. /F17 {/Bookman-Demi Y}!
  164. /F18 {/Bookman-DemiItalic Y}!
  165. /F19 {/Bookman-Light Y}!
  166. /F20 {/Bookman-LightItalic Y}!
  167. /F21 {/Helvetica-Narrow Y}!
  168. /F22 {/Helvetica-Narrow-Bold Y}!
  169. /F23 {/Helvetica-Narrow-Oblique Y}!
  170. /F24 {/Helvetica-Narrow-BoldOblique Y}!
  171. /F25 {/NewCenturySchlbk-Roman Y}!
  172. /F26 {/NewCenturySchlbk-Italic Y}!
  173. /F27 {/NewCenturySchlbk-Bold Y}!
  174. /F28 {/NewCenturySchlbk-BoldItalic Y}!
  175. /F29 {/Palatino-Roman Y}!
  176. /F30 {/Palatino-Italic Y}!
  177. /F31 {/Palatino-Bold Y}!
  178. /F32 {/Palatino-BoldItalic Y}!
  179. /F33 {/ZapfChancery-MediumItalic Y}!
  180. /F34 {/ZapfDingbats Y}!
  181. /F35 {/Ryumin-Light-EUC-H Y}!
  182. /F36 {/Ryumin-Light-EUC-V Y}!
  183. /F37 {/GothicBBB-Medium-EUC-H Y}!
  184. /F38 {/GothicBBB-Medium-EUC-V Y}!
  185. /PSL_pathtextdict 26 dict def
  186. /PSL_pathtext
  187. {PSL_pathtextdict begin
  188. /textheight exch def
  189. /just exch def
  190. /offset exch def
  191. /str exch def
  192. /pathdist 0 def
  193. /setdist offset def
  194. /charcount 0 def
  195. /justy just 4 idiv textheight mul 2 div neg def
  196. V flattenpath
  197. {movetoproc} {linetoproc}
  198. {curvetoproc} {closepathproc}
  199. pathforall
  200. U N
  201. end
  202. } def
  203. PSL_pathtextdict begin
  204. /movetoproc
  205. { /newy exch def /newx exch def
  206. /firstx newx def /firsty newy def
  207. /ovr 0 def
  208. newx newy transform
  209. /cpy exch def /cpx exch def
  210. } def
  211. /linetoproc
  212. { /oldx newx def /oldy newy def
  213. /newy exch def /newx exch def
  214. /dx newx oldx sub def
  215. /dy newy oldy sub def
  216. /dist dx dup mul dy dup mul add sqrt def
  217. dist 0 ne
  218. { /dsx dx dist div ovr mul def
  219. /dsy dy dist div ovr mul def
  220. oldx dsx add oldy dsy add transform
  221. /cpy exch def /cpx exch def
  222. /pathdist pathdist dist add def
  223. {setdist pathdist le
  224. {charcount str length lt
  225. {setchar} {exit} ifelse}
  226. { /ovr setdist pathdist sub def
  227. exit}
  228. ifelse
  229. } loop
  230. } if
  231. } def
  232. /curvetoproc
  233. { (ERROR: No curveto's after flattenpath!)
  234. print
  235. } def
  236. /closepathproc
  237. {firstx firsty linetoproc
  238. firstx firsty movetoproc
  239. } def
  240. /setchar
  241. { /char str charcount 1 getinterval def
  242. /charcount charcount 1 add def
  243. /charwidth char stringwidth pop def
  244. V cpx cpy itransform T
  245. dy dx atan R
  246. 0 justy M
  247. char show
  248. 0 justy neg G
  249. currentpoint transform
  250. /cpy exch def /cpx exch def
  251. U /setdist setdist charwidth add def
  252. } def
  253. end
  254. /PSL_curved_text_labels
  255. { /bits exch def
  256. /PSL_clippath bits 1 and 1 eq def
  257. /PSL_placetext bits 2 and 0 eq def
  258. /PSL_strokeline bits 4 and 4 eq def
  259. /PSL_firstcall bits 32 and 32 eq def
  260. /PSL_lastcall bits 64 and 64 eq def
  261. /PSL_fillbox bits 128 and 128 eq def
  262. /PSL_drawbox bits 256 and 256 eq def
  263. /PSL_n1 PSL_n 1 sub def
  264. /PSL_m1 PSL_m 1 sub def
  265. /PSL_usebox PSL_fillbox PSL_drawbox or def
  266. PSL_CT_calcstringwidth
  267. PSL_CT_calclinedist
  268. PSL_CT_addcutpoints
  269. PSL_clippath PSL_firstcall and
  270. {clipsave N clippath} if
  271. PSL_setlinepen
  272. /PSL_nn1 PSL_nn 1 sub def
  273. /n 0 def
  274. /k 0 def
  275. /j 0 def
  276. /PSL_seg 0 def
  277. /PSL_xp PSL_nn array def
  278. /PSL_yp PSL_nn array def
  279. PSL_xp 0 PSL_xx 0 get put
  280. PSL_yp 0 PSL_yy 0 get put
  281. 1 1 PSL_nn1
  282. { /i exch def
  283. /node_type PSL_kind i get def
  284. /j j 1 add def
  285. PSL_xp j PSL_xx i get put
  286. PSL_yp j PSL_yy i get put
  287. node_type 1 eq
  288. {n 0 eq
  289. {PSL_CT_drawline}
  290. { PSL_CT_reversepath
  291. PSL_CT_textline} ifelse
  292. /j 0 def
  293. PSL_xp j PSL_xx i get put
  294. PSL_yp j PSL_yy i get put
  295. } if
  296. } for
  297. n 0 eq {PSL_CT_drawline} if
  298. PSL_lastcall
  299. {PSL_clippath
  300. {PSL_clip} if N
  301. } if
  302. } def
  303. /PSL_CT_textline
  304. {PSL_placetext
  305. {PSL_clippath
  306. {PSL_CT_clippath} {PSL_CT_placelabel} ifelse
  307. } if
  308. /n 0 def /k k 1 add def PSL_setlinepen
  309. } def
  310. /PSL_CT_calcstringwidth
  311. { /PSL_width PSL_m array def
  312. 0 1 PSL_m1
  313. { /i exch def
  314. PSL_width i PSL_str i get stringwidth pop put
  315. } for
  316. } def
  317. /PSL_CT_calclinedist
  318. { /PSL_newx PSL_x 0 get def
  319. /PSL_newy PSL_y 0 get def
  320. /dist 0.0 def
  321. /PSL_dist PSL_n array def
  322. PSL_dist 0 0.0 put
  323. 1 1 PSL_n1
  324. { /i exch def
  325. /PSL_oldx PSL_newx def
  326. /PSL_oldy PSL_newy def
  327. /PSL_newx PSL_x i get def
  328. /PSL_newy PSL_y i get def
  329. /dx PSL_newx PSL_oldx sub def
  330. /dy PSL_newy PSL_oldy sub def
  331. /dist dist dx dx mul dy dy mul add sqrt add def
  332. PSL_dist i dist put
  333. } for
  334. } def
  335. /PSL_CT_addcutpoints
  336. { /k 0 def
  337. /PSL_nc PSL_m 2 mul 1 add def
  338. /PSL_cuts PSL_nc array def
  339. /PSL_nc1 PSL_nc 1 sub def
  340. 0 1 PSL_m1
  341. { /i exch def
  342. /dist PSL_dist PSL_node i get get def
  343. /halfwidth PSL_width i get 2 div PSL_gap_x add def
  344. PSL_cuts k dist halfwidth sub put
  345. /k k 1 add def
  346. PSL_cuts k dist halfwidth add put
  347. /k k 1 add def
  348. } for
  349. PSL_cuts k 100000.0 put
  350. /PSL_nn PSL_n PSL_m 2 mul add def
  351. /PSL_xx PSL_nn array def
  352. /PSL_yy PSL_nn array def
  353. /PSL_kind PSL_nn array def
  354. /j 0 def
  355. /k 0 def
  356. /dist 0.0 def
  357. 0 1 PSL_n1
  358. { /i exch def
  359. /last_dist dist def
  360. /dist PSL_dist i get def
  361. k 1 PSL_nc1
  362. { /kk exch def
  363. /this_cut PSL_cuts kk get def
  364. dist this_cut gt
  365. { /ds dist last_dist sub def
  366. /f ds 0.0 eq {0.0} {dist this_cut sub ds div} ifelse def
  367. /i1 i 0 eq {0} {i 1 sub} ifelse def
  368. PSL_xx j PSL_x i get dup PSL_x i1 get sub f mul sub put
  369. PSL_yy j PSL_y i get dup PSL_y i1 get sub f mul sub put
  370. PSL_kind j 1 put
  371. /j j 1 add def
  372. /k k 1 add def
  373. } if
  374. } for
  375. dist PSL_cuts k get le
  376. {PSL_xx j PSL_x i get put PSL_yy j PSL_y i get put
  377. PSL_kind j 0 put
  378. /j j 1 add def
  379. } if
  380. } for
  381. } def
  382. /PSL_CT_reversepath
  383. {PSL_xp j get PSL_xp 0 get lt
  384. {0 1 j 2 idiv
  385. { /left exch def
  386. /right j left sub def
  387. /tmp PSL_xp left get def
  388. PSL_xp left PSL_xp right get put
  389. PSL_xp right tmp put
  390. /tmp PSL_yp left get def
  391. PSL_yp left PSL_yp right get put
  392. PSL_yp right tmp put
  393. } for
  394. } if
  395. } def
  396. /PSL_CT_placelabel
  397. {
  398. PSL_usebox
  399. {PSL_CT_clippath
  400. PSL_fillbox
  401. {V PSL_setboxrgb fill U} if
  402. PSL_drawbox
  403. {PSL_setboxpen S} if N
  404. } if
  405. PSL_settxtrgb PSL_CT_placeline PSL_str k get PSL_gap_x PSL_just PSL_height PSL_pathtext
  406. } def
  407. /PSL_CT_clippath
  408. {
  409. /H PSL_height 2 div PSL_gap_y add def
  410. /xoff j 1 add array def
  411. /yoff j 1 add array def
  412. /angle 0 def
  413. 0 1 j {
  414. /ii exch def
  415. /x PSL_xp ii get def
  416. /y PSL_yp ii get def
  417. ii 0 eq {
  418. /x1 PSL_xp 1 get def
  419. /y1 PSL_yp 1 get def
  420. /dx x1 x sub def
  421. /dy y1 y sub def
  422. }
  423. { /i1 ii 1 sub def
  424. /x1 PSL_xp i1 get def
  425. /y1 PSL_yp i1 get def
  426. /dx x x1 sub def
  427. /dy y y1 sub def
  428. } ifelse
  429. dx 0.0 ne dy 0.0 ne and
  430. { /angle dy dx atan 90 add def} if
  431. /sina angle sin def
  432. /cosa angle cos def
  433. xoff ii H cosa mul put
  434. yoff ii H sina mul put
  435. } for
  436. PSL_xp 0 get xoff 0 get add PSL_yp 0 get yoff 0 get add M
  437. 1 1 j {
  438. /ii exch def
  439. PSL_xp ii get xoff ii get add PSL_yp ii get yoff ii get add L
  440. } for
  441. j -1 0 {
  442. /ii exch def
  443. PSL_xp ii get xoff ii get sub PSL_yp ii get yoff ii get sub L
  444. } for P
  445. } def
  446. /PSL_CT_drawline
  447. {
  448. /str 20 string def
  449. PSL_strokeline
  450. {PSL_CT_placeline PSL_setlinepen S} if
  451. /PSL_seg PSL_seg 1 add def
  452. /n 1 def
  453. } def
  454. /PSL_CT_placeline
  455. {PSL_xp 0 get PSL_yp 0 get M
  456. 1 1 j { /ii exch def PSL_xp ii get PSL_yp ii get L} for
  457. } def
  458. /PSL_straight_text_labels
  459. {
  460. /bits exch def
  461. /PSL_clippath bits 1 and 0 eq def
  462. /PSL_rounded bits 16 and 16 eq def
  463. /PSL_fillbox bits 128 and 128 eq def
  464. /PSL_drawbox bits 256 and 256 eq def
  465. /PSL_m1 PSL_m 1 sub def
  466. /PSL_justx PSL_just 4 mod 1 sub 2 div neg def
  467. /PSL_justy PSL_just 4 idiv PSL_height mul 2 div neg def
  468. /PSL_usebox PSL_fillbox PSL_drawbox or def
  469. PSL_clippath
  470. {PSL_ST_clippath}
  471. {PSL_usebox {PSL_ST_clippath} if
  472. PSL_ST_placelabel
  473. } ifelse
  474. } def
  475. /PSL_ST_placelabel
  476. {PSL_settxtrgb
  477. 0 1 PSL_m1
  478. { /k exch def
  479. /xp PSL_txt_x k get def
  480. /yp PSL_txt_y k get def
  481. V PSL_txt_x k get PSL_txt_y k get T
  482. PSL_angle k get R
  483. /BoxW PSL_str k get stringwidth pop def
  484. BoxW PSL_justx mul PSL_justy M
  485. PSL_str k get show
  486. U
  487. } for
  488. } def
  489. /PSL_ST_clippath
  490. {N
  491. PSL_usebox not {clipsave clippath} if
  492. PSL_rounded {PSL_ST_clippath_round} {PSL_ST_clippath_rect} ifelse
  493. PSL_usebox
  494. {PSL_fillbox
  495. {V PSL_setboxrgb fill U} if
  496. PSL_drawbox
  497. {PSL_setboxpen S} if N
  498. }
  499. {PSL_clip
  500. } ifelse
  501. N
  502. } def
  503. /PSL_ST_clippath_rect
  504. {
  505. /BoxH PSL_height PSL_gap_y 2 mul add def
  506. /DelY BoxH BoxH 0 3 array astore def
  507. 0 1 PSL_m1
  508. { /k exch def
  509. /xp PSL_txt_x k get def
  510. /yp PSL_txt_y k get def
  511. /MAT PSL_angle k get matrix R def
  512. /BoxW PSL_str k get stringwidth pop PSL_gap_x 2 mul add def
  513. /x0 0 BoxW PSL_justx mul add def
  514. /y0 0 PSL_justy add PSL_gap_y sub def
  515. /DelX 0 BoxW BoxW 3 array astore def
  516. x0 y0 MAT transform
  517. /dy exch def /dx exch def
  518. xp dx add yp dy add M
  519. 0 1 2
  520. {
  521. /ii exch def
  522. x0 DelX ii get add y0 DelY ii get add MAT transform
  523. /dy exch def /dx exch def
  524. xp dx add yp dy add L
  525. } for P
  526. } for
  527. } def
  528. /PSL_ST_clippath_round
  529. {
  530. /PSL_justy2 PSL_just 4 idiv 2 div neg def
  531. /BoxR PSL_gap_x PSL_gap_y lt {PSL_gap_x} {PSL_gap_y} ifelse def
  532. /BoxH PSL_height PSL_gap_y 2 mul add def
  533. /y0 PSL_height PSL_gap_y 2 mul add PSL_justy2 mul def
  534. 0 1 PSL_m1
  535. { /k exch def
  536. /xp PSL_txt_x k get def
  537. /yp PSL_txt_y k get def
  538. /BoxW PSL_str k get stringwidth pop PSL_gap_x 2 mul add def
  539. /x0 BoxW PSL_justx mul def
  540. xp yp T PSL_angle k get R x0 y0 T
  541. BoxR 0 M
  542. BoxW 0 BoxW BoxH BoxR arct BoxW BoxH 0 BoxH BoxR arct 0 BoxH 0 0 BoxR arct 0 0 BoxW 0 BoxR arct P
  543. x0 neg y0 neg T PSL_angle k get neg R xp neg yp neg T
  544. } for
  545. } def
  546. /PSL_nclip 0 def
  547. /PSL_clip {clip /PSL_nclip PSL_nclip 1 add def} def
  548. /PSL_eoclip {eoclip /PSL_nclip PSL_nclip 1 add def} def
  549. /PSL_cliprestore {cliprestore /PSL_nclip PSL_nclip 1 sub def} def
  550. %%EndProlog
  551. %%BeginSetup
  552. /PSLevel /languagelevel where {pop languagelevel} {1} ifelse def
  553. PSLevel 1 gt { << /PageSize [612 792] /ImagingBBox null >> setpagedevice } if
  554. %%EndSetup
  555. %%Page: 1 1
  556. %%BeginPageSetup
  557. V 0.06 0.06 scale
  558. %%EndPageSetup
  559. /PSL_page_xsize 10200 def
  560. /PSL_page_ysize 13200 def
  561. 0 A
  562. FQ
  563. O0
  564. 1200 1200 TM
  565. % PostScript produced by:
  566. %%GMT: psxy -R0/3/0/0.1 -Jx1i -P -Uoptional command string or text here -T
  567. %%PROJ: xy 0.00000000 3.00000000 0.00000000 0.10000000 0.000 3.000 0.000 0.100 +xy +a=6378137.000 +b=6356752.314245
  568. % Begin GMT time-stamp
  569. V
  570. -900 -900 T
  571. 4 W
  572. /PSL_g_w 438 def
  573. /PSL_g_h 180 def
  574. PSL_font_encode 0 get 0 eq {ISOLatin1+_Encoding /Helvetica /Helvetica PSL_reencode PSL_font_encode 0 1 put} if
  575. 133 F0
  576. ( 2011 Jun 13 21:09:49 ) V MU 0 0 M E /PSL_b_w edef FP pathbbox N /PSL_b_h edef /PSL_b_x1 edef /PSL_b_d edef /PSL_b_x0 edef U
  577. {0 A} FS
  578. O1
  579. 180 438 219 90 Sr
  580. V N 0 0 T 438 180 scale /DeviceGray setcolorspace
  581. << /ImageType 1 /Decode [0 1] /Width 220 /Height 90 /BitsPerComponent 1
  582. /ImageMatrix [220 0 0 -90 0 90] /DataSource currentfile /ASCII85Decode filter /LZWDecode filter
  583. >> image
  584. J,g]g3$]7K"p`!':q.Jl)%V>:U(KAL:*14/6K8ZF4Dm.kO2E3j(_i!%-BQ@pnu,^j&L7Inhrk=kZ47tE4smR$r5nrRL<0ttk
  585. N)mVs):=Qdjb>!2a*mc!&OBb9u0JPcDf/oSB@m'YIl@rkq#;P1]c5O<LOp\Bc*Gj!#CoS%K?:8c`&X&mE4[:ISM>9=KKO7!1
  586. ;>f&,5QWYsjPq0,=sjg&Hf'f&1X,"NKa^W8dC>9>,3h;khe)=q%db!$BS+VDOA8s&Z&)eLB'B/.-A!+3q.GbnW-H7b['N2!e
  587. gYBkc0eX"Z7-$GF"(<9^XQ:=ES$J)-Ic>@27O1"UX6ce4j\s5VAk+kZ!+=4ci=Vt!:W,WfE1\5-RIr39"$2$5eZdpT1@NhWn
  588. 95Dcr@"s;oQ6N=Ab;@;]j$CiZ%W[LNJ#nQ;ndgr7Vj@&^7cE'XK_Q=(S'h/^-!=5eMH\g^_DaYimY,b6.J]ER?Go!"^>%8_g
  589. mgOOj8J4rSi[lZ3GdOA$qs>9CObBha9+IGks2S%(X!aQ=$l"(_L\/h=8CIWg21b$C@5lC$8r2rV9mQOs9bDtg4!,.%X"MJuX
  590. T[)!lQ_$Gaf?qc1siTSO!%3',\]ig%f;:c;_^nf&_!naWtNo6gNsAYe0CW^<A;?6nl/>;?=5tAoKn+"$*))!.V&m9>_!AAr5
  591. CAu,jSj8FsVIZ;@bpTU7^QdB4nZVm3<f;1sN&igC$rih)Ua9(1Yb;bB/LhaDJM_O61c1(XYq*C;hpG"Yr<5pOeGR,!c$]S27
  592. X,VffM*Q1EfZ?p5"1`Ka%@^Y#Ob*K$EqRp?.@Y%rrRVl'Tnc.7]R6S'2p!e(0[QQdp"-cYtuQ8SGQH&XfpEdVMk)5D\>bLt'
  593. RT,@CkIr<*i%IB7U`#an<"7IOmV<:AE!dju+RpOeRme3W;]K4#rSSP/8rhd0',1EA4aRB_I,:U(TOs+%m.Cpb9_I'u(Hfg$q
  594. DTIS7MsoF"n\M"l#Q~>
  595. U
  596. {1 A} FS
  597. PSL_g_h PSL_b_w PSL_g_w 0 Sb
  598. 438 38 M ( 2011 Jun 13 21:09:49 ) Z
  599. 117 F0
  600. ( optional command string or text here) Z
  601. U
  602. % End GMT time-stamp
  603. FQ
  604. O0
  605. 0 setlinecap
  606. 0 setlinejoin
  607. 3.32551 setmiterlimit
  608. %%PageTrailer
  609. U
  610. showpage
  611. %%Trailer
  612. end
  613. %%EOF
Tip!

Press p or to see the previous file or, n or to see the next file

Comments

Loading...