gmt-fork/test/pslegend/fill_frame.ps

%!PS-Adobe-3.0
%%BoundingBox: 0 0 612 792
%%HiResBoundingBox: 0 0 612 792
%%Title: GMT v5.0.1b_r11380M [64-bit] Document from psbasemap
%%Creator: GMT5
%%For: pwessel
%%DocumentNeededResources: font Helvetica
%%CreationDate: Sun Apr 21 22:16:06 2013
%%LanguageLevel: 2
%%DocumentData: Clean7Bit
%%Orientation: Portrait
%%Pages: 1
%%EndComments

%%BeginProlog
250 dict begin
/! {bind def} bind def
/# {load def}!
/A /setgray #
/B /setdash #
/C /setrgbcolor #
/D /rlineto #
/E {dup stringwidth pop}!
/F /fill #
/G /rmoveto #
/H /sethsbcolor #
/I /setpattern #
/K /setcmykcolor #
/L /lineto #
/M /moveto #
/N /newpath #
/P /closepath #
/R /rotate #
/S /stroke #
/T /translate #
/U /grestore #
/V /gsave #
/W /setlinewidth #
/Y {findfont exch scalefont setfont}!
/Z /show #
/FP {true charpath flattenpath}!
/MU {matrix setmatrix}!
/MS {/SMat matrix currentmatrix def}!
/MR {SMat setmatrix}!
/edef {exch def}!
/FS {/fc edef /fs {V fc F U} def}!
/FQ {/fs {} def}!
/O0 {/os {N} def}!
/O1 {/os {P S} def}!
/FO {fs os}!
/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}!
/Sb {M dup 0 D exch 0 exch D neg 0 D FO}!
/SB {MS T /BoxR edef /BoxW edef /BoxH edef BoxR 0 M
  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}!
/Sc {N 3 -1 roll 0 360 arc FO}!
/Sd {M 4 {dup} repeat 0 G neg dup dup D exch D D FO}!
/Se {N MS T R scale 0 0 1 0 360 arc MR FO}!
/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}!
/Sh {M MS dup 0 G -120 R dup 0 D 4 {-60 R dup 0 D} repeat pop MR FO}!
/Si {M MS dup neg 0 exch G 60 R 1.732050808 mul dup 0 D 120 R 0 D MR FO}!
/Sj {M MS R dup -2 div 2 index -2 div G dup 0 D exch 0 exch D neg 0 D MR FO}!
/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}!
/Sp {N 3 -1 roll 0 360 arc fs N}!
/SP {M {D} repeat FO}!
/Sr {M dup -2 div 2 index -2 div G dup 0 D exch 0 exch D neg 0 D FO}!
/SR {MS T /BoxR edef /BoxW edef /BoxH edef BoxR BoxW -2 div BoxH -2 div T BoxR 0 M
  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}!
/Ss {M 1.414213562 mul dup dup dup -2 div dup G 0 D 0 exch D neg 0 D FO}!
/St {M MS dup 0 exch G -60 R 1.732050808 mul dup 0 D -120 R 0 D MR FO}!
/SV {0 exch M 0 D D D D D 0 D FO}!
/Sv {0 0 M D D 0 D D D D D 0 D D FO}!
/Sw {2 copy M 5 2 roll arc FO}!
/Sx {M 1.414213562 mul 5 {dup} repeat -2 div dup G D neg 0 G neg D S}!
/Sy {M dup 0 exch G dup -2 mul dup 0 exch D S}!
/S+ {M dup 0 G dup -2 mul dup 0 D exch dup G 0 exch D S}!
/S- {M dup 0 G dup -2 mul dup 0 D S}!
/sw {stringwidth pop}!
/sh {V MU 0 0 M FP pathbbox N 4 1 roll pop pop pop U}!
/sd {V MU 0 0 M FP pathbbox N pop pop exch pop U}!
/sH {V MU 0 0 M FP pathbbox N exch pop exch sub exch pop U}!
/sb {E exch sh}!
/bl {}!
/bc {E -2 div 0 G}!
/br {E neg 0 G}!
/ml {dup 0 exch sh -2 div G}!
/mc {dup E -2 div exch sh -2 div G}!
/mr {dup E neg exch sh -2 div G}!
/tl {dup 0 exch sh neg G}!
/tc {dup E -2 div exch sh neg G}!
/tr {dup E neg exch sh neg G}!
/mx {2 copy lt {exch} if pop}!
/PSL_xorig 0 def /PSL_yorig 0 def
/TM {2 copy T PSL_yorig add /PSL_yorig edef PSL_xorig add /PSL_xorig edef}!
/PSL_reencode {findfont dup length dict begin
  {1 index /FID ne {def}{pop pop} ifelse} forall
  exch /Encoding edef currentdict end definefont pop
}!
/PSL_eps_begin {
  /PSL_eps_state save def
  /PSL_dict_count countdictstack def
  /PSL_op_count count 1 sub def
  userdict begin
  /showpage {} def
  0 setgray 0 setlinecap 1 setlinewidth
  0 setlinejoin 10 setmiterlimit [] 0 setdash newpath
  /languagelevel where
  {pop languagelevel 1 ne {false setstrokeadjust false setoverprint} if} if
}!
/PSL_eps_end {
  count PSL_op_count sub {pop} repeat
  countdictstack PSL_dict_count sub {end} repeat
  PSL_eps_state restore
}!
/PSL_transp {
  /.setopacityalpha where {pop .setblendmode .setopacityalpha}{
  /pdfmark where {pop [ /BM exch /CA exch dup /ca exch /SetTransparency pdfmark}
  {pop pop} ifelse} ifelse
}!
/Standard+_Encoding [
/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef
/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef
/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef
/.notdef	/threequarters	/threesuperior	/trademark	/twosuperior	/yacute		/ydieresis	/zcaron
/space		/exclam		/quotedbl	/numbersign	/dollar		/percent	/ampersand	/quoteright
/parenleft	/parenright	/asterisk	/plus		/comma		/hyphen		/period		/slash
/zero		/one		/two		/three		/four		/five		/six		/seven
/eight		/nine		/colon		/semicolon	/less		/equal		/greater	/question
/at		/A		/B		/C		/D		/E		/F		/G
/H		/I		/J		/K		/L		/M		/N		/O
/P		/Q		/R		/S		/T		/U		/V		/W
/X		/Y		/Z		/bracketleft	/backslash	/bracketright	/asciicircum	/underscore
/quoteleft	/a		/b		/c		/d		/e		/f		/g
/h		/i		/j		/k		/l		/m		/n		/o
/p		/q		/r		/s		/t		/u		/v		/w
/x		/y		/z		/braceleft	/bar		/braceright	/asciitilde	/florin
/Atilde		/Ccedilla	/Eth		/Lslash		/Ntilde		/Otilde		/Scaron		/Thorn
/Yacute		/Ydieresis	/Zcaron		/atilde		/brokenbar	/ccedilla	/copyright	/degree
/divide		/eth		/logicalnot	/lslash		/minus		/mu		/multiply	/ntilde
/onehalf	/onequarter	/onesuperior	/otilde		/plusminus	/registered	/scaron		/thorn
/.notdef	/exclamdown	/cent		/sterling	/fraction	/yen		/florin		/section
/currency	/quotesingle	/quotedblleft	/guillemotleft	/guilsinglleft	/guilsinglright	/fi		/fl
/Aacute		/endash		/dagger		/daggerdbl	/periodcentered	/Acircumflex	/paragraph	/bullet
/quotesinglbase	/quotedblbase	/quotedblright	/guillemotright	/ellipsis	/perthousand	/Adieresis	/questiondown
/Agrave		/grave		/acute		/circumflex	/tilde		/macron		/breve		/dotaccent
/dieresis	/Eacute		/ring		/cedilla	/Ecircumflex	/hungarumlaut	/ogonek		/caron
/emdash		/Edieresis	/Egrave		/Iacute		/Icircumflex	/Idieresis	/Igrave		/Oacute
/Ocircumflex	/Odieresis	/Ograve		/Uacute		/Ucircumflex	/Udieresis	/Ugrave		/aacute
/acircumflex	/AE		/adieresis	/ordfeminine	/agrave		/eacute		/ecircumflex	/edieresis
/egrave		/Oslash		/OE		/ordmasculine	/iacute		/icircumflex	/idieresis	/igrave
/oacute		/ae		/ocircumflex	/odieresis	/ograve		/dotlessi	/uacute		/ucircumflex
/udieresis	/oslash		/oe		/germandbls	/ugrave		/Aring		/aring		/ydieresis
] def
/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
/F0 {/Helvetica Y}!
/F1 {/Helvetica-Bold Y}!
/F2 {/Helvetica-Oblique Y}!
/F3 {/Helvetica-BoldOblique Y}!
/F4 {/Times-Roman Y}!
/F5 {/Times-Bold Y}!
/F6 {/Times-Italic Y}!
/F7 {/Times-BoldItalic Y}!
/F8 {/Courier Y}!
/F9 {/Courier-Bold Y}!
/F10 {/Courier-Oblique Y}!
/F11 {/Courier-BoldOblique Y}!
/F12 {/Symbol Y}!
/F13 {/AvantGarde-Book Y}!
/F14 {/AvantGarde-BookOblique Y}!
/F15 {/AvantGarde-Demi Y}!
/F16 {/AvantGarde-DemiOblique Y}!
/F17 {/Bookman-Demi Y}!
/F18 {/Bookman-DemiItalic Y}!
/F19 {/Bookman-Light Y}!
/F20 {/Bookman-LightItalic Y}!
/F21 {/Helvetica-Narrow Y}!
/F22 {/Helvetica-Narrow-Bold Y}!
/F23 {/Helvetica-Narrow-Oblique Y}!
/F24 {/Helvetica-Narrow-BoldOblique Y}!
/F25 {/NewCenturySchlbk-Roman Y}!
/F26 {/NewCenturySchlbk-Italic Y}!
/F27 {/NewCenturySchlbk-Bold Y}!
/F28 {/NewCenturySchlbk-BoldItalic Y}!
/F29 {/Palatino-Roman Y}!
/F30 {/Palatino-Italic Y}!
/F31 {/Palatino-Bold Y}!
/F32 {/Palatino-BoldItalic Y}!
/F33 {/ZapfChancery-MediumItalic Y}!
/F34 {/ZapfDingbats Y}!
/F35 {/Ryumin-Light-EUC-H Y}!
/F36 {/Ryumin-Light-EUC-V Y}!
/F37 {/GothicBBB-Medium-EUC-H Y}!
/F38 {/GothicBBB-Medium-EUC-V Y}!
/PSL_pathtextdict 26 dict def
/PSL_pathtext
  {PSL_pathtextdict begin
    /textheight exch def
    /just exch def
    /offset exch def
    /str exch def
    /pathdist 0 def
    /setdist offset def
    /charcount 0 def
    /justy just 4 idiv textheight mul 2 div neg def
    V flattenpath
	{movetoproc} {linetoproc}
	{curvetoproc} {closepathproc}
	pathforall
    U N
    end
  } def
PSL_pathtextdict begin
/movetoproc
  { /newy exch def /newx exch def
    /firstx newx def /firsty newy def
    /ovr 0 def
    newx newy transform
    /cpy exch def /cpx exch def
  } def
/linetoproc
  { /oldx newx def /oldy newy def
    /newy exch def /newx exch def
    /dx newx oldx sub def
    /dy newy oldy sub def
    /dist dx dup mul dy dup mul add sqrt def
    dist 0 ne
    { /dsx dx dist div ovr mul def
      /dsy dy dist div ovr mul def
      oldx dsx add oldy dsy add transform
      /cpy exch def /cpx exch def
      /pathdist pathdist dist add def
      {setdist pathdist le
	  {charcount str length lt
	      {setchar} {exit} ifelse}
	  { /ovr setdist pathdist sub def
	    exit}
	  ifelse
      } loop
    } if
  } def
/curvetoproc
  { (ERROR: No curveto's after flattenpath!)
    print
  } def
/closepathproc
  {firstx firsty linetoproc
    firstx firsty movetoproc
  } def
/setchar
  { /char str charcount 1 getinterval def
    /charcount charcount 1 add def
    /charwidth char stringwidth pop def
    V cpx cpy itransform T
      dy dx atan R
      0 justy M
      char show
      0 justy neg G
      currentpoint transform
      /cpy exch def /cpx exch def
    U /setdist setdist charwidth add def
  } def
end
/PSL_curved_text_labels
{ /bits exch def
  /PSL_clippath bits 1 and 1 eq def
  /PSL_placetext bits 2 and 0 eq def
  /PSL_strokeline bits 4 and 4 eq def
  /PSL_firstcall bits 32 and 32 eq def
  /PSL_lastcall bits 64 and 64 eq def
  /PSL_fillbox bits 128 and 128 eq def
  /PSL_drawbox bits 256 and 256 eq def
  /PSL_n1 PSL_n 1 sub def
  /PSL_m1 PSL_m 1 sub def
  /PSL_usebox PSL_fillbox PSL_drawbox or def
  PSL_CT_calcstringwidth
  PSL_CT_calclinedist
  PSL_CT_addcutpoints
  PSL_clippath PSL_firstcall and
  {clipsave N clippath} if
  PSL_setlinepen
  /PSL_nn1 PSL_nn 1 sub def
  /n 0 def
  /k 0 def
  /j 0 def
  /PSL_seg 0 def
  /PSL_xp PSL_nn array def
  /PSL_yp PSL_nn array def
  PSL_xp 0 PSL_xx 0 get put
  PSL_yp 0 PSL_yy 0 get put
  1 1 PSL_nn1
  { /i exch def
    /node_type PSL_kind i get def
    /j j 1 add def
    PSL_xp j PSL_xx i get put
    PSL_yp j PSL_yy i get put
    node_type 1 eq
    {n 0 eq
      {PSL_CT_drawline}
      {	PSL_CT_reversepath
	PSL_CT_textline} ifelse
      /j 0 def
      PSL_xp j PSL_xx i get put
      PSL_yp j PSL_yy i get put
    } if
  } for
  n 0 eq {PSL_CT_drawline} if
  PSL_lastcall
  {PSL_clippath
    {PSL_clip} if N
  } if
} def
/PSL_CT_textline
{PSL_placetext
  {PSL_clippath
    {PSL_CT_clippath} {PSL_CT_placelabel} ifelse
  } if
  /n 0 def /k k 1 add def PSL_setlinepen
} def
/PSL_CT_calcstringwidth
{ /PSL_width PSL_m array def
  0 1 PSL_m1
  { /i exch def
    PSL_width i PSL_str i get stringwidth pop put
  } for
} def
/PSL_CT_calclinedist
{ /PSL_newx PSL_x 0 get def
  /PSL_newy PSL_y 0 get def
  /dist 0.0 def
  /PSL_dist PSL_n array def
  PSL_dist 0 0.0 put
  1 1 PSL_n1
  { /i exch def
    /PSL_oldx PSL_newx def
    /PSL_oldy PSL_newy def
    /PSL_newx PSL_x i get def
    /PSL_newy PSL_y i get def
    /dx PSL_newx PSL_oldx sub def
    /dy PSL_newy PSL_oldy sub def
    /dist dist dx dx mul dy dy mul add sqrt add def
    PSL_dist i dist put
  } for
} def
/PSL_CT_addcutpoints
{ /k 0 def
  /PSL_nc PSL_m 2 mul 1 add def
  /PSL_cuts PSL_nc array def
  /PSL_nc1 PSL_nc 1 sub def
  0 1 PSL_m1
  { /i exch def
    /dist PSL_dist PSL_node i get get def
    /halfwidth PSL_width i get 2 div PSL_gap_x add def
    PSL_cuts k dist halfwidth sub put
    /k k 1 add def
    PSL_cuts k dist halfwidth add put
    /k k 1 add def
  } for
  PSL_cuts k 100000.0 put
  /PSL_nn PSL_n PSL_m 2 mul add def
  /PSL_xx PSL_nn array def
  /PSL_yy PSL_nn array def
  /PSL_kind PSL_nn array def
  /j 0 def
  /k 0 def
  /dist 0.0 def
  0 1 PSL_n1
  { /i exch def
    /last_dist dist def
    /dist PSL_dist i get def
    k 1 PSL_nc1
    { /kk exch def
      /this_cut PSL_cuts kk get def
      dist this_cut gt
      { /ds dist last_dist sub def
	/f ds 0.0 eq {0.0} {dist this_cut sub ds div} ifelse def
	/i1 i 0 eq {0} {i 1 sub} ifelse def
	PSL_xx j PSL_x i get dup PSL_x i1 get sub f mul sub put
	PSL_yy j PSL_y i get dup PSL_y i1 get sub f mul sub put
	PSL_kind j 1 put
	/j j 1 add def
	/k k 1 add def
      } if
    } for
    dist PSL_cuts k get le
    {PSL_xx j PSL_x i get put PSL_yy j PSL_y i get put
      PSL_kind j 0 put
      /j j 1 add def
    } if
  } for
} def
/PSL_CT_reversepath
{PSL_xp j get PSL_xp 0 get lt
  {0 1 j 2 idiv
    { /left exch def
      /right j left sub def
      /tmp PSL_xp left get def
      PSL_xp left PSL_xp right get put
      PSL_xp right tmp put
      /tmp PSL_yp left get def
      PSL_yp left PSL_yp right get put
      PSL_yp right tmp put
    } for
  } if
} def
/PSL_CT_placelabel
{
  PSL_usebox
  {PSL_CT_clippath
    PSL_fillbox
    {V PSL_setboxrgb fill U} if
    PSL_drawbox
    {PSL_setboxpen S} if N
  } if
  PSL_settxtrgb PSL_CT_placeline PSL_str k get PSL_gap_x PSL_just PSL_height PSL_pathtext
} def
/PSL_CT_clippath
{
  /H PSL_height 2 div PSL_gap_y add def
  /xoff j 1 add array def
  /yoff j 1 add array def
  /angle 0 def
  0 1 j {
    /ii exch def
    /x PSL_xp ii get def
    /y PSL_yp ii get def
    ii 0 eq {
      /x1 PSL_xp 1 get def
      /y1 PSL_yp 1 get def
      /dx x1 x sub def
      /dy y1 y sub def
    }
    { /i1 ii 1 sub def
      /x1 PSL_xp i1 get def
      /y1 PSL_yp i1 get def
      /dx x x1 sub def
      /dy y y1 sub def
    } ifelse
    dx 0.0 ne dy 0.0 ne and
    { /angle dy dx atan 90 add def} if
    /sina angle sin def
    /cosa angle cos def
    xoff ii H cosa mul put
    yoff ii H sina mul put
  } for
  PSL_xp 0 get xoff 0 get add PSL_yp 0 get yoff 0 get add M
  1 1 j {
    /ii exch def
    PSL_xp ii get xoff ii get add PSL_yp ii get yoff ii get add L
  } for
  j -1 0 {
    /ii exch def
    PSL_xp ii get xoff ii get sub PSL_yp ii get yoff ii get sub L
  } for P
} def
/PSL_CT_drawline
{
  /str 20 string def
  PSL_strokeline
  {PSL_CT_placeline PSL_setlinepen S} if
  /PSL_seg PSL_seg 1 add def
  /n 1 def
} def
/PSL_CT_placeline
{PSL_xp 0 get PSL_yp 0 get M
  1 1 j { /ii exch def PSL_xp ii get PSL_yp ii get L} for
} def
/PSL_straight_text_labels
{
  /bits exch def
  /PSL_clippath bits 1 and 0 eq def
  /PSL_rounded bits 16 and 16 eq def
  /PSL_fillbox bits 128 and 128 eq def
  /PSL_drawbox bits 256 and 256 eq def
  /PSL_m1 PSL_m 1 sub def
  /PSL_justx PSL_just 4 mod 1 sub 2 div neg def
  /PSL_justy PSL_just 4 idiv PSL_height mul 2 div neg def
  /PSL_usebox PSL_fillbox PSL_drawbox or def
  PSL_clippath
  {PSL_ST_clippath}
  {PSL_usebox {PSL_ST_clippath} if
    PSL_ST_placelabel
  } ifelse
} def
/PSL_ST_placelabel
{PSL_settxtrgb
  0 1 PSL_m1
  { /k exch def
    /xp PSL_txt_x k get def
    /yp PSL_txt_y k get def
    V PSL_txt_x k get PSL_txt_y k get T
    PSL_angle k get R
    /BoxW PSL_str k get stringwidth pop def
    BoxW PSL_justx mul PSL_justy M
    PSL_str k get show
    U
  } for
} def
/PSL_ST_clippath
{N
  PSL_usebox not {clipsave clippath} if
  PSL_rounded {PSL_ST_clippath_round} {PSL_ST_clippath_rect} ifelse
  PSL_usebox
  {PSL_fillbox
    {V PSL_setboxrgb fill U} if
    PSL_drawbox
    {PSL_setboxpen S} if N
  }
  {PSL_clip
  } ifelse
  N
} def
/PSL_ST_clippath_rect
{
  /BoxH PSL_height PSL_gap_y 2 mul add def
  /DelY BoxH BoxH 0 3 array astore def
  0 1 PSL_m1
  { /k exch def
    /xp PSL_txt_x k get def
    /yp PSL_txt_y k get def
    /MAT PSL_angle k get matrix R def
    /BoxW PSL_str k get stringwidth pop PSL_gap_x 2 mul add def
    /x0 0 BoxW PSL_justx mul add def
    /y0 0 PSL_justy add PSL_gap_y sub def
    /DelX 0 BoxW BoxW 3 array astore def
    x0 y0 MAT transform
    /dy exch def /dx exch def
    xp dx add yp dy add M
    0 1 2
    {
      /ii exch def
      x0 DelX ii get add y0 DelY ii get add MAT transform
      /dy exch def /dx exch def
      xp dx add yp dy add L
    } for P
  } for
} def
/PSL_ST_clippath_round
{
  /PSL_justy2 PSL_just 4 idiv 2 div neg def
  /BoxR PSL_gap_x PSL_gap_y lt {PSL_gap_x} {PSL_gap_y} ifelse def
  /BoxH PSL_height PSL_gap_y 2 mul add def
  /y0 PSL_height PSL_gap_y 2 mul add PSL_justy2 mul def
  0 1 PSL_m1
  { /k exch def
    /xp PSL_txt_x k get def
    /yp PSL_txt_y k get def
    /BoxW PSL_str k get stringwidth pop PSL_gap_x 2 mul add def
    /x0 BoxW PSL_justx mul def
    xp yp T PSL_angle k get R x0 y0 T
    BoxR 0 M
    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
    x0 neg y0 neg T PSL_angle k get neg R xp neg yp neg T
  } for
} def
/PSL_nclip 0 def
/PSL_clip {clip /PSL_nclip PSL_nclip 1 add def} def
/PSL_eoclip {eoclip /PSL_nclip PSL_nclip 1 add def} def
/PSL_cliprestore {cliprestore /PSL_nclip PSL_nclip 1 sub def} def
%%EndProlog

%%BeginSetup
/PSLevel /languagelevel where {pop languagelevel} {1} ifelse def
PSLevel 1 gt { << /PageSize [612 792] /ImagingBBox null >> setpagedevice } if
%%EndSetup

%%Page: 1 1

%%BeginPageSetup
V 0.06 0.06 scale
%%EndPageSetup

/PSL_page_xsize 10200 def
/PSL_page_ysize 13200 def
0 A
FQ
O0
1200 472 TM

% PostScript produced by:
%%GMT: psbasemap -R0/15/0/25 -Jx1c -P -B0 -K -Y1c
%%PROJ: xy 0.00000000 15.00000000 0.00000000 25.00000000 0.000 15.000 0.000 25.000 +xy +a=6378137.000 +b=6356752.314245
%%BeginObject PSL_Layer_1
0 setlinecap
0 setlinejoin
3.32551 setmiterlimit
2 setlinecap
/MM {neg exch M} def
/PSL_A0_y 0 def
/PSL_A1_y 0 def
25 W
0 11811 M 0 -11811 D S
8 W
/PSL_LH 0 def /PSL_L_y PSL_A0_y PSL_A1_y mx def
7087 0 T
/MM {exch M} def
/PSL_A0_y 0 def
/PSL_A1_y 0 def
25 W
0 11811 M 0 -11811 D S
8 W
/PSL_LH 0 def /PSL_L_y PSL_A0_y PSL_A1_y mx def
-7087 0 T
/MM {neg M} def
/PSL_A0_y 0 def
/PSL_A1_y 0 def
25 W
0 0 M 7087 0 D S
8 W
/PSL_LH 0 def /PSL_L_y PSL_A0_y PSL_A1_y mx def
0 11811 T
/MM {M} def
/PSL_A0_y 0 def
/PSL_A1_y 0 def
25 W
0 0 M 7087 0 D S
8 W
/PSL_LH 0 def /PSL_L_y PSL_A0_y PSL_A1_y mx def
0 -11811 T
0 setlinecap
%%EndObject
0 A
FQ
O0
0 0 TM

% PostScript produced by:
%%GMT: pslegend -R0/15/0/25 -Jx1c -O -K -Dx1c/24c/8c/1c/TL -F+fyellow
%%PROJ: xy 0.00000000 15.00000000 0.00000000 25.00000000 0.000 15.000 0.000 25.000 +xy +a=6378137.000 +b=6356752.314245
%%BeginObject PSL_Layer_2
0 setlinecap
0 setlinejoin
3.32551 setmiterlimit
472 10866 T
{1 1 0 C} FS
472 3780 1890 236 Sr
0 A
FQ
O0
0 0 TM

% PostScript produced by:
%%GMT: pstext -R0/5.90551/0/9.84252 -Jx1i -O -K -N -F+f+j @GMTAPI@-000001
%%PROJ: xy 0.00000000 5.90551000 0.00000000 9.84252000 0.000 5.906 0.000 9.843 +xy +a=6378137.000 +b=6356752.314245
%%BeginObject PSL_Layer_3
0 setlinecap
0 setlinejoin
3.32551 setmiterlimit
1890 166 M PSL_font_encode 0 get 0 eq {Standard+_Encoding /Helvetica /Helvetica PSL_reencode PSL_font_encode 0 1 put} if
267 F0
(yellow fill, no frame) bc Z
%%EndObject
-472 -10866 T
%%EndObject
0 A
FQ
O0
0 0 TM

% PostScript produced by:
%%GMT: pslegend -R0/15/0/25 -Jx1c -O -K -Dx1c/22c/8c/1c/TL -F+p+fyellow
%%PROJ: xy 0.00000000 15.00000000 0.00000000 25.00000000 0.000 15.000 0.000 25.000 +xy +a=6378137.000 +b=6356752.314245
%%BeginObject PSL_Layer_4
0 setlinecap
0 setlinejoin
3.32551 setmiterlimit
472 9921 T
25 W
{1 1 0 C} FS
O1
472 3780 1890 236 Sr
0 A
FQ
O0
0 0 TM

% PostScript produced by:
%%GMT: pstext -R0/5.90551/0/9.84252 -Jx1i -O -K -N -F+f+j @GMTAPI@-000001
%%PROJ: xy 0.00000000 5.90551000 0.00000000 9.84252000 0.000 5.906 0.000 9.843 +xy +a=6378137.000 +b=6356752.314245
%%BeginObject PSL_Layer_5
0 setlinecap
0 setlinejoin
3.32551 setmiterlimit
1890 166 M PSL_font_encode 0 get 0 eq {Standard+_Encoding /Helvetica /Helvetica PSL_reencode PSL_font_encode 0 1 put} if
267 F0
(yellow fill, black frame) bc Z
%%EndObject
-472 -9921 T
%%EndObject
0 A
FQ
O0
0 0 TM

% PostScript produced by:
%%GMT: pslegend -R0/15/0/25 -Jx1c -O -K -Dx1c/20c/8c/1c/TL -F+p2p,blue+fyellow@50
%%PROJ: xy 0.00000000 15.00000000 0.00000000 25.00000000 0.000 15.000 0.000 25.000 +xy +a=6378137.000 +b=6356752.314245
%%BeginObject PSL_Layer_6
0 setlinecap
0 setlinejoin
3.32551 setmiterlimit
472 8976 T
33 W
0 0 1 C
{1 1 0 C 0.5 /Normal PSL_transp} FS
O1
472 3780 1890 236 Sr
0 A
0 A
FQ
O0
0 0 TM

% PostScript produced by:
%%GMT: pstext -R0/5.90551/0/9.84252 -Jx1i -O -K -N -F+f+j @GMTAPI@-000001
%%PROJ: xy 0.00000000 5.90551000 0.00000000 9.84252000 0.000 5.906 0.000 9.843 +xy +a=6378137.000 +b=6356752.314245
%%BeginObject PSL_Layer_7
0 setlinecap
0 setlinejoin
3.32551 setmiterlimit
1890 166 M PSL_font_encode 0 get 0 eq {Standard+_Encoding /Helvetica /Helvetica PSL_reencode PSL_font_encode 0 1 put} if
267 F0
(yellow\10050 fill, blue frame) bc Z
%%EndObject
-472 -8976 T
%%EndObject
0 A
FQ
O0
0 0 TM

% PostScript produced by:
%%GMT: pslegend -R0/15/0/25 -Jx1c -O -K -Dx1c/18c/8c/1c/TL -F+p2p,blue@50+fyellow
%%PROJ: xy 0.00000000 15.00000000 0.00000000 25.00000000 0.000 15.000 0.000 25.000 +xy +a=6378137.000 +b=6356752.314245
%%BeginObject PSL_Layer_8
0 setlinecap
0 setlinejoin
3.32551 setmiterlimit
472 8031 T
33 W
0 0 1 C 0.5 /Normal PSL_transp
{1 1 0 C 1 /Normal PSL_transp} FS
O1
472 3780 1890 236 Sr
1 /Normal PSL_transp 0 A
0 A
FQ
O0
0 0 TM

% PostScript produced by:
%%GMT: pstext -R0/5.90551/0/9.84252 -Jx1i -O -K -N -F+f+j @GMTAPI@-000001
%%PROJ: xy 0.00000000 5.90551000 0.00000000 9.84252000 0.000 5.906 0.000 9.843 +xy +a=6378137.000 +b=6356752.314245
%%BeginObject PSL_Layer_9
0 setlinecap
0 setlinejoin
3.32551 setmiterlimit
1890 166 M PSL_font_encode 0 get 0 eq {Standard+_Encoding /Helvetica /Helvetica PSL_reencode PSL_font_encode 0 1 put} if
267 F0
(yellow fill, blue\10050 frame) bc Z
%%EndObject
-472 -8031 T
%%EndObject
0 A
FQ
O0
0 0 TM

% PostScript produced by:
%%GMT: pslegend -R0/15/0/25 -Jx1c -O -K -Dx1c/15c/8c/TL -F+p+fyellow
%%PROJ: xy 0.00000000 15.00000000 0.00000000 25.00000000 0.000 15.000 0.000 25.000 +xy +a=6378137.000 +b=6356752.314245
%%BeginObject PSL_Layer_10
0 setlinecap
0 setlinejoin
3.32551 setmiterlimit
472 6293 T
25 W
{1 1 0 C} FS
O1
793 3780 1890 397 Sr
0 A
FQ
O0
0 0 TM

% PostScript produced by:
%%GMT: pstext -R0/5.90551/0/9.84252 -Jx1i -O -K -N -M -F+f+a+j @GMTAPI@-000001
%%PROJ: xy 0.00000000 5.90551000 0.00000000 9.84252000 0.000 5.906 0.000 9.843 +xy +a=6378137.000 +b=6356752.314245
%%BeginObject PSL_Layer_11
0 setlinecap
0 setlinejoin
3.32551 setmiterlimit
/PSL_linespace 220 def
/PSL_parwidth 3646 def
/PSL_parjust 4 def
0 A
PSL_font_encode 0 get 0 eq {Standard+_Encoding /Helvetica /Helvetica PSL_reencode PSL_font_encode 0 1 put} if
/PSL_setfont {
  /f exch def
  /k1 exch def
  /fz PSL_size k1 get def
  /fn PSL_fnt k1 get def
  fn PSL_lastfn eq fz PSL_lastfz eq and not {
    fz PSL_fontname fn get Y
    /PSL_lastfn fn def
    /PSL_lastfz fz def
  } if
  /fc PSL_color k1 get def
  fc PSL_lastfc ne {
    /PSL_c fc 3 mul def
    0 1 2 {PSL_c add PSL_rgb exch get} for C
    /PSL_lastfc fc def
  } if
  f 32 and 32 eq {
    /PSL_UL fz 0.075 mul def
    fz 0.025 mul W
    /PSL_show {PSL_ushow} def
  }
  {
    /PSL_show {ashow} def
  } ifelse
}!
/PSL_setfont2 {
  /f exch def
  /k1 exch def
  /fz PSL_size k1 get def
  /fn PSL_fnt k1 get def
  fn PSL_lastfn eq fz PSL_lastfz eq and not {
    fz PSL_fontname fn get Y
    /PSL_lastfn fn def
    /PSL_lastfz fz def
  } if
}!
/PSL_wordheight {
  0 0 M false charpath flattenpath pathbbox /up exch def pop /down exch def pop newpath
  down PSL_ymin lt {/PSL_ymin down def} if
  up PSL_ymax gt {/PSL_ymax up def} if
}!
/PSL_ushow {
  currentpoint /y0 exch def /x0 exch def
  ashow
  currentpoint pop /x1 exch def
  x0 y0 PSL_UL sub M x1 y0 PSL_UL sub L S
  x1 y0 M
}!
/PSL_placeword {
  /k exch def
  /flag PSL_flag k get def
  k flag PSL_setfont
  /sshow {ashow} def
  PSL_col 0 eq {
    /PSL_t 0 def
    flag 4 and 4 eq {
      pr_char 0 (    ) ashow
    } if
  }
  {
    /f PSL_flag k 1 sub get def
    /PSL_t f 3 and def
    f 32 and 32 eq flag 32 and 32 eq and {/sshow {PSL_ushow} def} if
  } ifelse
  /thisword_bshift PSL_bshift k get def
  thisword_bshift 0.0 ne {0 thisword_bshift G} if
  flag 8 and 8 eq {
    pr_char 0 PSL_spaces PSL_t get sshow
    k PSL_composite
  } if
  flag 24 and 0 eq {
    pr_char 0 PSL_spaces PSL_t get sshow pr_char 0 PSL_word k get PSL_show
    PSL_width k get 0 gt {/PSL_col PSL_col 1 add def} if
  } if
  thisword_bshift 0.0 ne {0 thisword_bshift neg G} if
}!
/PSL_composite {
  /k1 exch def
  /k2 k1 1 add def
  /char1 PSL_word k1 get def
  /char2 PSL_word k2 get def
  /w1 char1 stringwidth pop def
  /w2 char2 stringwidth pop def
  /delta w1 w2 sub 2 div PSL_scale mul def
  delta 0.0 gt {
    /dx1 0 def
    /dx2 delta def
  }
  { /dx1 delta neg def
    /dx2 0 def
  } ifelse
  dx1 0 G currentpoint
  pr_char 0 char1 PSL_show M
  delta 0 G
  pr_char 0 char2 ashow
  dx2 0 G
}!
/PSL_expand {
  /k1 exch def
  /extra PSL_parwidth previous_linewidth sub comp_width add def
  PSL_CRLF k1 PSL_n1 eq or {/spread 0 def} {/spread extra def} ifelse
  /PSL_scale previous_linewidth 0.0 gt {PSL_parwidth previous_linewidth div} {1.0} ifelse def
  /ndiv lsum ncomp sub def
  ndiv 0 eq {/ndiv 1 def} if
  PSL_parjust 4 eq {/pr_char spread ndiv div def} {/pr_char 0 def} ifelse
  PSL_parjust 2 eq {extra 2 div 0 G} if
  PSL_parjust 3 eq {extra 0 G} if
  /PSL_col 0 def
}!
/PSL_textjustifier {
  /PSL_mode exch def
  /PSL_col 0 def
  /PSL_ybase 0 def
  /PSL_parheight 0 def
  /PSL_ymin 0 def
  /PSL_ymax 0 def
  /PSL_top 0 def
  /PSL_bottom 0 def
  /last_font PSL_fnt 0 get def
  /last_size PSL_size 0 get def
  /last_color PSL_color 0 get def
  /previous_linewidth 0 def
  /stop 0 def
  /start 0 def
  /lsum 0 def
  /line 0 def
  /ncomp 0 def
  /comp_width 0 def
  0 1 PSL_n1 {
    /i exch def
    /thisflag PSL_flag i get def
    i 0 eq {
      /PSL_t 0 def
      /lastflag 0 def
    }
    { /lastflag PSL_flag i 1 sub get def
      /PSL_t lastflag 3 and def
    } ifelse
    i thisflag PSL_setfont2
    /thisword_width PSL_width i get def
    /comp_add 0 def
    /compw_add 0 def
    /PSL_tabwidth (    ) stringwidth pop def
    /PSL_spacewidths PSL_spaces {stringwidth pop} forall 3 array astore def
    /ccount PSL_count i get def
    thisflag 4 and 4 eq {
      /thisword_width thisword_width PSL_tabwidth add def
      /ccount ccount 4 add def
    } if
    lastflag 8 and 8 eq {/PSL_t 0 def /comp_add 1 def /compw_add thisword_width def} if
    /new_linewidth previous_linewidth thisword_width add PSL_spacewidths PSL_t get add def
    /PSL_CRLF thisword_width 0.0 eq thisflag 16 and 0 eq and def
    /special thisflag 16 and 16 eq {true} {thisword_width 0.0 gt} ifelse def
    new_linewidth PSL_parwidth le special and
    {
      PSL_col 0 eq {
        /PSL_ymin 0 def
        /PSL_ymax 0 def
      } if
      /stop stop 1 add def
      /PSL_col PSL_col 1 add def
      /previous_linewidth new_linewidth def
      /lsum lsum ccount add PSL_t add def
      /ncomp ncomp comp_add add def
      /comp_width comp_width compw_add add def
    }
    {
      1 PSL_mode eq {
        start PSL_expand
	start PSL_placeword
      }
      {PSL_word start get PSL_wordheight
      } ifelse
      /last stop 1 sub def
      /start start 1 add def
      1 PSL_mode eq {
        start 1 last {PSL_placeword} for
      }
      {start 1 last {PSL_word exch get PSL_wordheight} for
        line 0 eq { /PSL_top PSL_ymax def} if
      } ifelse
      /start stop def
      /PSL_ybase PSL_ybase PSL_linespace sub def
      1 PSL_mode eq {0 PSL_ybase M} if
      /stop stop 1 add def
      /previous_linewidth thisword_width def
      /lsum ccount def
      /ncomp comp_add def
      /comp_width compw_add def
      /PSL_col 0 def
      /line line 1 add def
    } ifelse
  } for
  /last stop 1 sub def
  last PSL_n lt {
    /PSL_CRLF true def
    1 PSL_mode eq {
      start PSL_expand
      start PSL_placeword
      /start start 1 add def
      start 1 last {PSL_placeword} for
    }
    { /PSL_ymin 0 def
      PSL_word start get PSL_wordheight
      /start start 1 add def
      start 1 last {PSL_word exch get PSL_wordheight} for
      line 0 eq {
        /PSL_top PSL_ymax def
      } if
    } ifelse
  } if
  /PSL_bottom PSL_ymin def
  /PSL_parheight PSL_ybase neg PSL_top add PSL_bottom sub def
} def
/PSL_fontname
/Helvetica
1 array astore def
/PSL_n 22 def
/PSL_n1 21 def
/PSL_y0 727 def
/PSL_spaces [() ( ) (  ) ] def
/PSL_lastfn -1 def
/PSL_lastfz -1 def
/PSL_lastfc -1 def
/PSL_UL 0 def
/PSL_show {ashow} def
/PSL_word
(This) (text) (wraps) (to) (the) (next) (line.) (It) (uses) (all) (standard) (paragraph)
(modes.) (But) (what) (if) (you) (want) (to) (use) (left) (alignment?)
22 array astore def
/PSL_fnt
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
22 array astore def
/PSL_size
200 200 200 200 200 200 200 200 200 200 200 200 200 200 200
200 200 200 200 200 200 200
22 array astore def
/PSL_flag
1 1 1 1 1 1 2 1 1 1 1 1 2 1 1 1 1 1 1 1 1 0
22 array astore def
/PSL_bshift
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
22 array astore def
/PSL_color
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
22 array astore def
/PSL_rgb
0 0 0
3 array astore def
/PSL_width 22 array def
0 1 PSL_n1 {
  /i edef
  PSL_size i get PSL_fontname PSL_fnt i get get Y
  PSL_width i PSL_word i get stringwidth pop put
} for
/PSL_count 22 array def
0 1 PSL_n1 {PSL_count exch dup PSL_word exch get length put} for
1 1 PSL_n1 {
  /k edef
  PSL_flag k get 16 and 16 eq {
    /k1 k 1 sub def
    /w1 PSL_width k1 get def
    /w2 PSL_width k get def
    PSL_width k1 w1 w2 gt {w1} {w2} ifelse put
    PSL_width k 0 put
    PSL_count k 0 put
  } if
} for
V 67 727 T
0 0 M
0 PSL_textjustifier
/PSL_justify 9 def
/PSL_x0 PSL_parwidth PSL_justify 1 sub 4 mod 0.5 mul neg mul def
/PSL_y0 0 def
/PSL_txt_y0 PSL_top neg def
PSL_x0 PSL_y0 T
0 PSL_txt_y0 T
0 0 M
1 PSL_textjustifier U
%%EndObject
-472 -6293 T
%%EndObject
0 A
FQ
O0
0 0 TM

% PostScript produced by:
%%GMT: pslegend -R0/15/0/25 -Jx1c -O -K -Dx1c/12c/8c/TL -F+p+fyellow
%%PROJ: xy 0.00000000 15.00000000 0.00000000 25.00000000 0.000 15.000 0.000 25.000 +xy +a=6378137.000 +b=6356752.314245
%%BeginObject PSL_Layer_12
0 setlinecap
0 setlinejoin
3.32551 setmiterlimit
472 4876 T
25 W
{1 1 0 C} FS
O1
793 3780 1890 397 Sr
0 A
FQ
O0
0 0 TM

% PostScript produced by:
%%GMT: pstext -R0/5.90551/0/9.84252 -Jx1i -O -K -N -M -F+f+a+j @GMTAPI@-000001
%%PROJ: xy 0.00000000 5.90551000 0.00000000 9.84252000 0.000 5.906 0.000 9.843 +xy +a=6378137.000 +b=6356752.314245
%%BeginObject PSL_Layer_13
0 setlinecap
0 setlinejoin
3.32551 setmiterlimit
/PSL_linespace 220 def
/PSL_parwidth 3646 def
/PSL_parjust 1 def
0 A
PSL_font_encode 0 get 0 eq {Standard+_Encoding /Helvetica /Helvetica PSL_reencode PSL_font_encode 0 1 put} if
/PSL_setfont {
  /f exch def
  /k1 exch def
  /fz PSL_size k1 get def
  /fn PSL_fnt k1 get def
  fn PSL_lastfn eq fz PSL_lastfz eq and not {
    fz PSL_fontname fn get Y
    /PSL_lastfn fn def
    /PSL_lastfz fz def
  } if
  /fc PSL_color k1 get def
  fc PSL_lastfc ne {
    /PSL_c fc 3 mul def
    0 1 2 {PSL_c add PSL_rgb exch get} for C
    /PSL_lastfc fc def
  } if
  f 32 and 32 eq {
    /PSL_UL fz 0.075 mul def
    fz 0.025 mul W
    /PSL_show {PSL_ushow} def
  }
  {
    /PSL_show {ashow} def
  } ifelse
}!
/PSL_setfont2 {
  /f exch def
  /k1 exch def
  /fz PSL_size k1 get def
  /fn PSL_fnt k1 get def
  fn PSL_lastfn eq fz PSL_lastfz eq and not {
    fz PSL_fontname fn get Y
    /PSL_lastfn fn def
    /PSL_lastfz fz def
  } if
}!
/PSL_wordheight {
  0 0 M false charpath flattenpath pathbbox /up exch def pop /down exch def pop newpath
  down PSL_ymin lt {/PSL_ymin down def} if
  up PSL_ymax gt {/PSL_ymax up def} if
}!
/PSL_ushow {
  currentpoint /y0 exch def /x0 exch def
  ashow
  currentpoint pop /x1 exch def
  x0 y0 PSL_UL sub M x1 y0 PSL_UL sub L S
  x1 y0 M
}!
/PSL_placeword {
  /k exch def
  /flag PSL_flag k get def
  k flag PSL_setfont
  /sshow {ashow} def
  PSL_col 0 eq {
    /PSL_t 0 def
    flag 4 and 4 eq {
      pr_char 0 (    ) ashow
    } if
  }
  {
    /f PSL_flag k 1 sub get def
    /PSL_t f 3 and def
    f 32 and 32 eq flag 32 and 32 eq and {/sshow {PSL_ushow} def} if
  } ifelse
  /thisword_bshift PSL_bshift k get def
  thisword_bshift 0.0 ne {0 thisword_bshift G} if
  flag 8 and 8 eq {
    pr_char 0 PSL_spaces PSL_t get sshow
    k PSL_composite
  } if
  flag 24 and 0 eq {
    pr_char 0 PSL_spaces PSL_t get sshow pr_char 0 PSL_word k get PSL_show
    PSL_width k get 0 gt {/PSL_col PSL_col 1 add def} if
  } if
  thisword_bshift 0.0 ne {0 thisword_bshift neg G} if
}!
/PSL_composite {
  /k1 exch def
  /k2 k1 1 add def
  /char1 PSL_word k1 get def
  /char2 PSL_word k2 get def
  /w1 char1 stringwidth pop def
  /w2 char2 stringwidth pop def
  /delta w1 w2 sub 2 div PSL_scale mul def
  delta 0.0 gt {
    /dx1 0 def
    /dx2 delta def
  }
  { /dx1 delta neg def
    /dx2 0 def
  } ifelse
  dx1 0 G currentpoint
  pr_char 0 char1 PSL_show M
  delta 0 G
  pr_char 0 char2 ashow
  dx2 0 G
}!
/PSL_expand {
  /k1 exch def
  /extra PSL_parwidth previous_linewidth sub comp_width add def
  PSL_CRLF k1 PSL_n1 eq or {/spread 0 def} {/spread extra def} ifelse
  /PSL_scale previous_linewidth 0.0 gt {PSL_parwidth previous_linewidth div} {1.0} ifelse def
  /ndiv lsum ncomp sub def
  ndiv 0 eq {/ndiv 1 def} if
  PSL_parjust 4 eq {/pr_char spread ndiv div def} {/pr_char 0 def} ifelse
  PSL_parjust 2 eq {extra 2 div 0 G} if
  PSL_parjust 3 eq {extra 0 G} if
  /PSL_col 0 def
}!
/PSL_textjustifier {
  /PSL_mode exch def
  /PSL_col 0 def
  /PSL_ybase 0 def
  /PSL_parheight 0 def
  /PSL_ymin 0 def
  /PSL_ymax 0 def
  /PSL_top 0 def
  /PSL_bottom 0 def
  /last_font PSL_fnt 0 get def
  /last_size PSL_size 0 get def
  /last_color PSL_color 0 get def
  /previous_linewidth 0 def
  /stop 0 def
  /start 0 def
  /lsum 0 def
  /line 0 def
  /ncomp 0 def
  /comp_width 0 def
  0 1 PSL_n1 {
    /i exch def
    /thisflag PSL_flag i get def
    i 0 eq {
      /PSL_t 0 def
      /lastflag 0 def
    }
    { /lastflag PSL_flag i 1 sub get def
      /PSL_t lastflag 3 and def
    } ifelse
    i thisflag PSL_setfont2
    /thisword_width PSL_width i get def
    /comp_add 0 def
    /compw_add 0 def
    /PSL_tabwidth (    ) stringwidth pop def
    /PSL_spacewidths PSL_spaces {stringwidth pop} forall 3 array astore def
    /ccount PSL_count i get def
    thisflag 4 and 4 eq {
      /thisword_width thisword_width PSL_tabwidth add def
      /ccount ccount 4 add def
    } if
    lastflag 8 and 8 eq {/PSL_t 0 def /comp_add 1 def /compw_add thisword_width def} if
    /new_linewidth previous_linewidth thisword_width add PSL_spacewidths PSL_t get add def
    /PSL_CRLF thisword_width 0.0 eq thisflag 16 and 0 eq and def
    /special thisflag 16 and 16 eq {true} {thisword_width 0.0 gt} ifelse def
    new_linewidth PSL_parwidth le special and
    {
      PSL_col 0 eq {
        /PSL_ymin 0 def
        /PSL_ymax 0 def
      } if
      /stop stop 1 add def
      /PSL_col PSL_col 1 add def
      /previous_linewidth new_linewidth def
      /lsum lsum ccount add PSL_t add def
      /ncomp ncomp comp_add add def
      /comp_width comp_width compw_add add def
    }
    {
      1 PSL_mode eq {
        start PSL_expand
	start PSL_placeword
      }
      {PSL_word start get PSL_wordheight
      } ifelse
      /last stop 1 sub def
      /start start 1 add def
      1 PSL_mode eq {
        start 1 last {PSL_placeword} for
      }
      {start 1 last {PSL_word exch get PSL_wordheight} for
        line 0 eq { /PSL_top PSL_ymax def} if
      } ifelse
      /start stop def
      /PSL_ybase PSL_ybase PSL_linespace sub def
      1 PSL_mode eq {0 PSL_ybase M} if
      /stop stop 1 add def
      /previous_linewidth thisword_width def
      /lsum ccount def
      /ncomp comp_add def
      /comp_width compw_add def
      /PSL_col 0 def
      /line line 1 add def
    } ifelse
  } for
  /last stop 1 sub def
  last PSL_n lt {
    /PSL_CRLF true def
    1 PSL_mode eq {
      start PSL_expand
      start PSL_placeword
      /start start 1 add def
      start 1 last {PSL_placeword} for
    }
    { /PSL_ymin 0 def
      PSL_word start get PSL_wordheight
      /start start 1 add def
      start 1 last {PSL_word exch get PSL_wordheight} for
      line 0 eq {
        /PSL_top PSL_ymax def
      } if
    } ifelse
  } if
  /PSL_bottom PSL_ymin def
  /PSL_parheight PSL_ybase neg PSL_top add PSL_bottom sub def
} def
/PSL_fontname
/Helvetica
1 array astore def
/PSL_n 18 def
/PSL_n1 17 def
/PSL_y0 727 def
/PSL_spaces [() ( ) (  ) ] def
/PSL_lastfn -1 def
/PSL_lastfz -1 def
/PSL_lastfc -1 def
/PSL_UL 0 def
/PSL_show {ashow} def
/PSL_word
(Same) (trying) (to) (do) (left) (alignment.) (That) (seems) (to) (work) (nicely)
(but) (needs) (8) (parameters) (on) (P) (line.)
18 array astore def
/PSL_fnt
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
18 array astore def
/PSL_size
200 200 200 200 200 200 200 200 200 200 200 200 200 200 200
200 200 200
18 array astore def
/PSL_flag
1 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1 0
18 array astore def
/PSL_bshift
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
18 array astore def
/PSL_color
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
18 array astore def
/PSL_rgb
0 0 0
3 array astore def
/PSL_width 18 array def
0 1 PSL_n1 {
  /i edef
  PSL_size i get PSL_fontname PSL_fnt i get get Y
  PSL_width i PSL_word i get stringwidth pop put
} for
/PSL_count 18 array def
0 1 PSL_n1 {PSL_count exch dup PSL_word exch get length put} for
1 1 PSL_n1 {
  /k edef
  PSL_flag k get 16 and 16 eq {
    /k1 k 1 sub def
    /w1 PSL_width k1 get def
    /w2 PSL_width k get def
    PSL_width k1 w1 w2 gt {w1} {w2} ifelse put
    PSL_width k 0 put
    PSL_count k 0 put
  } if
} for
V 67 727 T
0 0 M
0 PSL_textjustifier
/PSL_justify 9 def
/PSL_x0 PSL_parwidth PSL_justify 1 sub 4 mod 0.5 mul neg mul def
/PSL_y0 0 def
/PSL_txt_y0 PSL_top neg def
PSL_x0 PSL_y0 T
0 PSL_txt_y0 T
0 0 M
1 PSL_textjustifier U
%%EndObject
-472 -4876 T
%%EndObject
0 A
FQ
O0
0 0 TM

% PostScript produced by:
%%GMT: psxy -R0/15/0/25 -Jx1c -O -T
%%PROJ: xy 0.00000000 15.00000000 0.00000000 25.00000000 0.000 15.000 0.000 25.000 +xy +a=6378137.000 +b=6356752.314245
%%BeginObject PSL_Layer_14
0 setlinecap
0 setlinejoin
3.32551 setmiterlimit
%%EndObject
%%PageTrailer
U
showpage

%%Trailer

end
%%EOF