1 %!PS-Adobe-2.0

     2 %%Creator: dvips(k) 5.92b Copyright 2002 Radical Eye Software

     3 %%Title: amsterdam.dvi

     4 %%Pages: 99

     5 %%PageOrder: Ascend

     6 %%BoundingBox: 0 0 596 842

     7 %%DocumentFonts: Times-Bold ComicSansMS CMMIB10 CMBX10 CMBXTI10 CMBX12

     8 %%+ CMTT12 CMBSY10 ComicSansMS-Bold MSAM10 CMEX10 CMBX8 MSBM10 CMMIB7

     9 %%+ CMBX6 CMBSY7 MSBM7 CMTT10

    10 %%EndComments

    11 %DVIPSWebPage: (www.radicaleye.com)

    12 %DVIPSCommandLine: dvips amsterdam.dvi -o amsterdam.ps

    13 %DVIPSParameters: dpi=600, compressed

    14 %DVIPSSource:  TeX output 2003.06.06:2221

    15 %%BeginProcSet: texc.pro

    16 %!

    17 /TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S

    18 N}B/A{dup}B/TR{translate}N/isls false N/vsize 11 72 mul N/hsize 8.5 72

    19 mul N/landplus90{false}def/@rigin{isls{[0 landplus90{1 -1}{-1 1}ifelse 0

    20 0 0]concat}if 72 Resolution div 72 VResolution div neg scale isls{

    21 landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div hsize

    22 mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul TR[

    23 matrix currentmatrix{A A round sub abs 0.00001 lt{round}if}forall round

    24 exch round exch]setmatrix}N/@landscape{/isls true N}B/@manualfeed{

    25 statusdict/manualfeed true put}B/@copies{/#copies X}B/FMat[1 0 0 -1 0 0]

    26 N/FBB[0 0 0 0]N/nn 0 N/IEn 0 N/ctr 0 N/df-tail{/nn 8 dict N nn begin

    27 /FontType 3 N/FontMatrix fntrx N/FontBBox FBB N string/base X array

    28 /BitMaps X/BuildChar{CharBuilder}N/Encoding IEn N end A{/foo setfont}2

    29 array copy cvx N load 0 nn put/ctr 0 N[}B/sf 0 N/df{/sf 1 N/fntrx FMat N

    30 df-tail}B/dfs{div/sf X/fntrx[sf 0 0 sf neg 0 0]N df-tail}B/E{pop nn A

    31 definefont setfont}B/Cw{Cd A length 5 sub get}B/Ch{Cd A length 4 sub get

    32 }B/Cx{128 Cd A length 3 sub get sub}B/Cy{Cd A length 2 sub get 127 sub}

    33 B/Cdx{Cd A length 1 sub get}B/Ci{Cd A type/stringtype ne{ctr get/ctr ctr

    34 1 add N}if}B/id 0 N/rw 0 N/rc 0 N/gp 0 N/cp 0 N/G 0 N/CharBuilder{save 3

    35 1 roll S A/base get 2 index get S/BitMaps get S get/Cd X pop/ctr 0 N Cdx

    36 0 Cx Cy Ch sub Cx Cw add Cy setcachedevice Cw Ch true[1 0 0 -1 -.1 Cx

    37 sub Cy .1 sub]/id Ci N/rw Cw 7 add 8 idiv string N/rc 0 N/gp 0 N/cp 0 N{

    38 rc 0 ne{rc 1 sub/rc X rw}{G}ifelse}imagemask restore}B/G{{id gp get/gp

    39 gp 1 add N A 18 mod S 18 idiv pl S get exec}loop}B/adv{cp add/cp X}B

    40 /chg{rw cp id gp 4 index getinterval putinterval A gp add/gp X adv}B/nd{

    41 /cp 0 N rw exit}B/lsh{rw cp 2 copy get A 0 eq{pop 1}{A 255 eq{pop 254}{

    42 A A add 255 and S 1 and or}ifelse}ifelse put 1 adv}B/rsh{rw cp 2 copy

    43 get A 0 eq{pop 128}{A 255 eq{pop 127}{A 2 idiv S 128 and or}ifelse}

    44 ifelse put 1 adv}B/clr{rw cp 2 index string putinterval adv}B/set{rw cp

    45 fillstr 0 4 index getinterval putinterval adv}B/fillstr 18 string 0 1 17

    46 {2 copy 255 put pop}for N/pl[{adv 1 chg}{adv 1 chg nd}{1 add chg}{1 add

    47 chg nd}{adv lsh}{adv lsh nd}{adv rsh}{adv rsh nd}{1 add adv}{/rc X nd}{

    48 1 add set}{1 add clr}{adv 2 chg}{adv 2 chg nd}{pop nd}]A{bind pop}

    49 forall N/D{/cc X A type/stringtype ne{]}if nn/base get cc ctr put nn

    50 /BitMaps get S ctr S sf 1 ne{A A length 1 sub A 2 index S get sf div put

    51 }if put/ctr ctr 1 add N}B/I{cc 1 add D}B/bop{userdict/bop-hook known{

    52 bop-hook}if/SI save N @rigin 0 0 moveto/V matrix currentmatrix A 1 get A

    53 mul exch 0 get A mul add .99 lt{/QV}{/RV}ifelse load def pop pop}N/eop{

    54 SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{

    55 userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X

    56 1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4

    57 index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N

    58 /p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{

    59 /Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)

    60 (LaserWriter 16/600)]{A length product length le{A length product exch 0

    61 exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse

    62 end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask

    63 grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot}

    64 imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round

    65 exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto

    66 fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B/M{S p

    67 delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}B/g{0 M}

    68 B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{

    69 p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{0 S

    70 rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end

    71 

    72 %%EndProcSet

    73 %%BeginProcSet: pstricks.pro

    74 %!

    75 % PostScript prologue for pstricks.tex.

    76 % Version 97 patch 3, 98/06/01

    77 % For distribution, see pstricks.tex.

    78 %

    79 /tx@Dict 200 dict def tx@Dict begin

    80 /ADict 25 dict def

    81 /CM { matrix currentmatrix } bind def

    82 /SLW /setlinewidth load def

    83 /CLW /currentlinewidth load def

    84 /CP /currentpoint load def

    85 /ED { exch def } bind def

    86 /L /lineto load def

    87 /T /translate load def

    88 /TMatrix { } def

    89 /RAngle { 0 } def

    90 /Atan { /atan load stopped { pop pop 0 } if } def

    91 /Div { dup 0 eq { pop } { div } ifelse } def

    92 /NET { neg exch neg exch T } def

    93 /Pyth { dup mul exch dup mul add sqrt } def

    94 /PtoC { 2 copy cos mul 3 1 roll sin mul } def

    95 /PathLength@ { /z z y y1 sub x x1 sub Pyth add def /y1 y def /x1 x def }

    96 def

    97 /PathLength { flattenpath /z 0 def { /y1 ED /x1 ED /y2 y1 def /x2 x1 def

    98 } { /y ED /x ED PathLength@ } {} { /y y2 def /x x2 def PathLength@ }

    99 /pathforall load stopped { pop pop pop pop } if z } def

   100 /STP { .996264 dup scale } def

   101 /STV { SDict begin normalscale end STP  } def

   102 /DashLine { dup 0 gt { /a .5 def PathLength exch div } { pop /a 1 def

   103 PathLength } ifelse /b ED /x ED /y ED /z y x add def b a .5 sub 2 mul y

   104 mul sub z Div round z mul a .5 sub 2 mul y mul add b exch Div dup y mul

   105 /y ED x mul /x ED x 0 gt y 0 gt and { [ y x ] 1 a sub y mul } { [ 1 0 ]

   106 0 } ifelse setdash stroke } def

   107 /DotLine { /b PathLength def /a ED /z ED /y CLW def /z y z add def a 0 gt

   108 { /b b a div def } { a 0 eq { /b b y sub def } { a -3 eq { /b b y add

   109 def } if } ifelse } ifelse [ 0 b b z Div round Div dup 0 le { pop 1 } if

   110 ] a 0 gt { 0 } { y 2 div a -2 gt { neg } if } ifelse setdash 1

   111 setlinecap stroke } def

   112 /LineFill { gsave abs CLW add /a ED a 0 dtransform round exch round exch

   113 2 copy idtransform exch Atan rotate idtransform pop /a ED .25 .25

   114 % DG/SR modification begin - Dec. 12, 1997 - Patch 2

   115 %itransform translate pathbbox /y2 ED a Div ceiling cvi /x2 ED /y1 ED a

   116 itransform pathbbox /y2 ED a Div ceiling cvi /x2 ED /y1 ED a

   117 % DG/SR modification end

   118 Div cvi /x1 ED /y2 y2 y1 sub def clip newpath 2 setlinecap systemdict

   119 /setstrokeadjust known { true setstrokeadjust } if x2 x1 sub 1 add { x1

   120 % DG/SR modification begin - Jun.  1, 1998 - Patch 3 (from Michael Vulis)

   121 % a mul y1 moveto 0 y2 rlineto stroke /x1 x1 1 add def } repeat grestore }

   122 % def

   123 a mul y1 moveto 0 y2 rlineto stroke /x1 x1 1 add def } repeat grestore

   124 pop pop } def

   125 % DG/SR modification end

   126 /BeginArrow { ADict begin /@mtrx CM def gsave 2 copy T 2 index sub neg

   127 exch 3 index sub exch Atan rotate newpath } def

   128 /EndArrow { @mtrx setmatrix CP grestore end } def

   129 /Arrow { CLW mul add dup 2 div /w ED mul dup /h ED mul /a ED { 0 h T 1 -1

   130 scale } if w neg h moveto 0 0 L w h L w neg a neg rlineto gsave fill

   131 grestore } def

   132 /Tbar { CLW mul add /z ED z -2 div CLW 2 div moveto z 0 rlineto stroke 0

   133 CLW moveto } def

   134 /Bracket { CLW mul add dup CLW sub 2 div /x ED mul CLW add /y ED /z CLW 2

   135 div def x neg y moveto x neg CLW 2 div L x CLW 2 div L x y L stroke 0

   136 CLW moveto } def

   137 /RoundBracket { CLW mul add dup 2 div /x ED mul /y ED /mtrx CM def 0 CLW

   138 2 div T x y mul 0 ne { x y scale } if 1 1 moveto .85 .5 .35 0 0 0

   139 curveto -.35 0 -.85 .5 -1 1 curveto mtrx setmatrix stroke 0 CLW moveto }

   140 def

   141 /SD { 0 360 arc fill } def

   142 /EndDot { { /z DS def } { /z 0 def } ifelse /b ED 0 z DS SD b { 0 z DS

   143 CLW sub SD } if 0 DS z add CLW 4 div sub moveto } def

   144 /Shadow { [ { /moveto load } { /lineto load } { /curveto load } {

   145 /closepath load } /pathforall load stopped { pop pop pop pop CP /moveto

   146 load } if ] cvx newpath 3 1 roll T exec } def

   147 /NArray { aload length 2 div dup dup cvi eq not { exch pop } if /n exch

   148 cvi def } def

   149 /NArray { /f ED counttomark 2 div dup cvi /n ED n eq not { exch pop } if

   150 f { ] aload /Points ED } { n 2 mul 1 add -1 roll pop } ifelse } def

   151 /Line { NArray n 0 eq not { n 1 eq { 0 0 /n 2 def } if ArrowA /n n 2 sub

   152 def n { Lineto } repeat CP 4 2 roll ArrowB L pop pop } if } def

   153 /Arcto { /a [ 6 -2 roll ] cvx def a r /arcto load stopped { 5 } { 4 }

   154 ifelse { pop } repeat a } def

   155 /CheckClosed { dup n 2 mul 1 sub index eq 2 index n 2 mul 1 add index eq

   156 and { pop pop /n n 1 sub def } if } def

   157 /Polygon { NArray n 2 eq { 0 0 /n 3 def } if n 3 lt { n { pop pop }

   158 repeat } { n 3 gt { CheckClosed } if n 2 mul -2 roll /y0 ED /x0 ED /y1

   159 ED /x1 ED x1 y1 /x1 x0 x1 add 2 div def /y1 y0 y1 add 2 div def x1 y1

   160 moveto /n n 2 sub def n { Lineto } repeat x1 y1 x0 y0 6 4 roll Lineto

   161 Lineto pop pop closepath } ifelse } def

   162 /Diamond { /mtrx CM def T rotate /h ED /w ED dup 0 eq { pop } { CLW mul

   163 neg /d ED /a w h Atan def /h d a sin Div h add def /w d a cos Div w add

   164 def } ifelse mark w 2 div h 2 div w 0 0 h neg w neg 0 0 h w 2 div h 2

   165 div /ArrowA { moveto } def /ArrowB { } def false Line closepath mtrx

   166 setmatrix } def

   167 % DG modification begin - Jan. 15, 1997

   168 %/Triangle { /mtrx CM def translate rotate /h ED 2 div /w ED dup 0 eq {

   169 %pop } { CLW mul /d ED /h h d w h Atan sin Div sub def /w w d h w Atan 2

   170 %div dup cos exch sin Div mul sub def } ifelse mark 0 d w neg d 0 h w d 0

   171 %d /ArrowA { moveto } def /ArrowB { } def false Line closepath mtrx

   172 %setmatrix } def

   173 /Triangle { /mtrx CM def translate rotate /h ED 2 div /w ED dup

   174 CLW mul /d ED /h h d w h Atan sin Div sub def /w w d h w Atan 2

   175 div dup cos exch sin Div mul sub def mark 0 d w neg d 0 h w d 0

   176 d /ArrowA { moveto } def /ArrowB { } def false Line closepath mtrx

   177 % DG/SR modification begin - Jun.  1, 1998 - Patch 3 (from Michael Vulis)

   178 % setmatrix } def

   179 setmatrix pop } def

   180 % DG/SR modification end

   181 /CCA { /y ED /x ED 2 copy y sub /dy1 ED x sub /dx1 ED /l1 dx1 dy1 Pyth

   182 def } def

   183 /CCA { /y ED /x ED 2 copy y sub /dy1 ED x sub /dx1 ED /l1 dx1 dy1 Pyth

   184 def } def

   185 /CC { /l0 l1 def /x1 x dx sub def /y1 y dy sub def /dx0 dx1 def /dy0 dy1

   186 def CCA /dx dx0 l1 c exp mul dx1 l0 c exp mul add def /dy dy0 l1 c exp

   187 mul dy1 l0 c exp mul add def /m dx0 dy0 Atan dx1 dy1 Atan sub 2 div cos

   188 abs b exp a mul dx dy Pyth Div 2 div def /x2 x l0 dx mul m mul sub def

   189 /y2 y l0 dy mul m mul sub def /dx l1 dx mul m mul neg def /dy l1 dy mul

   190 m mul neg def } def

   191 /IC { /c c 1 add def c 0 lt { /c 0 def } { c 3 gt { /c 3 def } if }

   192 ifelse /a a 2 mul 3 div 45 cos b exp div def CCA /dx 0 def /dy 0 def }

   193 def

   194 /BOC { IC CC x2 y2 x1 y1 ArrowA CP 4 2 roll x y curveto } def

   195 /NC { CC x1 y1 x2 y2 x y curveto } def

   196 /EOC { x dx sub y dy sub 4 2 roll ArrowB 2 copy curveto } def

   197 /BAC { IC CC x y moveto CC x1 y1 CP ArrowA } def

   198 /NAC { x2 y2 x y curveto CC x1 y1 } def

   199 /EAC { x2 y2 x y ArrowB curveto pop pop } def

   200 /OpenCurve { NArray n 3 lt { n { pop pop } repeat } { BOC /n n 3 sub def

   201 n { NC } repeat EOC } ifelse } def

   202 /AltCurve { { false NArray n 2 mul 2 roll [ n 2 mul 3 sub 1 roll ] aload

   203 /Points ED n 2 mul -2 roll } { false NArray } ifelse n 4 lt { n { pop

   204 pop } repeat } { BAC /n n 4 sub def n { NAC } repeat EAC } ifelse } def

   205 /ClosedCurve { NArray n 3 lt { n { pop pop } repeat } { n 3 gt {

   206 CheckClosed } if 6 copy n 2 mul 6 add 6 roll IC CC x y moveto n { NC }

   207 repeat closepath pop pop } ifelse } def

   208 /SQ { /r ED r r moveto r r neg L r neg r neg L r neg r L fill } def

   209 /ST { /y ED /x ED x y moveto x neg y L 0 x L fill } def

   210 /SP { /r ED gsave 0 r moveto 4 { 72 rotate 0 r L } repeat fill grestore }

   211 def

   212 /FontDot { DS 2 mul dup matrix scale matrix concatmatrix exch matrix

   213 rotate matrix concatmatrix exch findfont exch makefont setfont } def

   214 /Rect { x1 y1 y2 add 2 div moveto x1 y2 lineto x2 y2 lineto x2 y1 lineto

   215 x1 y1 lineto closepath } def

   216 /OvalFrame { x1 x2 eq y1 y2 eq or { pop pop x1 y1 moveto x2 y2 L } { y1

   217 y2 sub abs x1 x2 sub abs 2 copy gt { exch pop } { pop } ifelse 2 div

   218 exch { dup 3 1 roll mul exch } if 2 copy lt { pop } { exch pop } ifelse

   219 /b ED x1 y1 y2 add 2 div moveto x1 y2 x2 y2 b arcto x2 y2 x2 y1 b arcto

   220 x2 y1 x1 y1 b arcto x1 y1 x1 y2 b arcto 16 { pop } repeat closepath }

   221 ifelse } def

   222 /Frame { CLW mul /a ED 3 -1 roll 2 copy gt { exch } if a sub /y2 ED a add

   223 /y1 ED 2 copy gt { exch } if a sub /x2 ED a add /x1 ED 1 index 0 eq {

   224 pop pop Rect } { OvalFrame } ifelse } def

   225 /BezierNArray { /f ED counttomark 2 div dup cvi /n ED n eq not { exch pop

   226 } if n 1 sub neg 3 mod 3 add 3 mod { 0 0 /n n 1 add def } repeat f { ]

   227 aload /Points ED } { n 2 mul 1 add -1 roll pop } ifelse } def

   228 /OpenBezier { BezierNArray n 1 eq { pop pop } { ArrowA n 4 sub 3 idiv { 6

   229 2 roll 4 2 roll curveto } repeat 6 2 roll 4 2 roll ArrowB curveto }

   230 ifelse } def

   231 /ClosedBezier { BezierNArray n 1 eq { pop pop } { moveto n 1 sub 3 idiv {

   232 6 2 roll 4 2 roll curveto } repeat closepath } ifelse } def

   233 /BezierShowPoints { gsave Points aload length 2 div cvi /n ED moveto n 1

   234 sub { lineto } repeat CLW 2 div SLW [ 4 4 ] 0 setdash stroke grestore }

   235 def

   236 /Parab { /y0 exch def /x0 exch def /y1 exch def /x1 exch def /dx x0 x1

   237 sub 3 div def /dy y0 y1 sub 3 div def x0 dx sub y0 dy add x1 y1 ArrowA

   238 x0 dx add y0 dy add x0 2 mul x1 sub y1 ArrowB curveto /Points [ x1 y1 x0

   239 y0 x0 2 mul x1 sub y1 ] def } def

   240 /Grid { newpath /a 4 string def /b ED /c ED /n ED cvi dup 1 lt { pop 1 }

   241 if /s ED s div dup 0 eq { pop 1 } if /dy ED s div dup 0 eq { pop 1 } if

   242 /dx ED dy div round dy mul /y0 ED dx div round dx mul /x0 ED dy div

   243 round cvi /y2 ED dx div round cvi /x2 ED dy div round cvi /y1 ED dx div

   244 round cvi /x1 ED /h y2 y1 sub 0 gt { 1 } { -1 } ifelse def /w x2 x1 sub

   245 0 gt { 1 } { -1 } ifelse def b 0 gt { /z1 b 4 div CLW 2 div add def

   246 /Helvetica findfont b scalefont setfont /b b .95 mul CLW 2 div add def }

   247 if systemdict /setstrokeadjust known { true setstrokeadjust /t { } def }

   248 { /t { transform 0.25 sub round 0.25 add exch 0.25 sub round 0.25 add

   249 exch itransform } bind def } ifelse gsave n 0 gt { 1 setlinecap [ 0 dy n

   250 div ] dy n div 2 div setdash } { 2 setlinecap } ifelse /i x1 def /f y1

   251 dy mul n 0 gt { dy n div 2 div h mul sub } if def /g y2 dy mul n 0 gt {

   252 dy n div 2 div h mul add } if def x2 x1 sub w mul 1 add dup 1000 gt {

   253 pop 1000 } if { i dx mul dup y0 moveto b 0 gt { gsave c i a cvs dup

   254 stringwidth pop /z2 ED w 0 gt {z1} {z1 z2 add neg} ifelse h 0 gt {b neg}

   255 {z1} ifelse rmoveto show grestore } if dup t f moveto g t L stroke /i i

   256 w add def } repeat grestore gsave n 0 gt

   257 % DG/SR modification begin - Nov. 7, 1997 - Patch 1

   258 %{ 1 setlinecap [ 0 dx n div ] dy n div 2 div setdash }

   259 { 1 setlinecap [ 0 dx n div ] dx n div 2 div setdash }

   260 % DG/SR modification end

   261 { 2 setlinecap } ifelse /i y1 def /f x1 dx mul

   262 n 0 gt { dx n div 2 div w mul sub } if def /g x2 dx mul n 0 gt { dx n

   263 div 2 div w mul add } if def y2 y1 sub h mul 1 add dup 1000 gt { pop

   264 1000 } if { newpath i dy mul dup x0 exch moveto b 0 gt { gsave c i a cvs

   265 dup stringwidth pop /z2 ED w 0 gt {z1 z2 add neg} {z1} ifelse h 0 gt

   266 {z1} {b neg} ifelse rmoveto show grestore } if dup f exch t moveto g

   267 exch t L stroke /i i h add def } repeat grestore } def

   268 /ArcArrow { /d ED /b ED /a ED gsave newpath 0 -1000 moveto clip newpath 0

   269 1 0 0 b grestore c mul /e ED pop pop pop r a e d PtoC y add exch x add

   270 exch r a PtoC y add exch x add exch b pop pop pop pop a e d CLW 8 div c

   271 mul neg d } def

   272 /Ellipse { /mtrx CM def T scale 0 0 1 5 3 roll arc mtrx setmatrix } def

   273 /Rot { CP CP translate 3 -1 roll neg rotate NET  } def

   274 /RotBegin { tx@Dict /TMatrix known not { /TMatrix { } def /RAngle { 0 }

   275 def } if /TMatrix [ TMatrix CM ] cvx def /a ED a Rot /RAngle [ RAngle

   276 dup a add ] cvx def } def

   277 /RotEnd { /TMatrix [ TMatrix setmatrix ] cvx def /RAngle [ RAngle pop ]

   278 cvx def } def

   279 /PutCoor { gsave CP T CM STV exch exec moveto setmatrix CP grestore } def

   280 /PutBegin { /TMatrix [ TMatrix CM ] cvx def CP 4 2 roll T moveto } def

   281 /PutEnd { CP /TMatrix [ TMatrix setmatrix ] cvx def moveto } def

   282 /Uput { /a ED add 2 div /h ED 2 div /w ED /s a sin def /c a cos def /b s

   283 abs c abs 2 copy gt dup /q ED { pop } { exch pop } ifelse def /w1 c b

   284 div w mul def /h1 s b div h mul def q { w1 abs w sub dup c mul abs } {

   285 h1 abs h sub dup s mul abs } ifelse } def

   286 /UUput { /z ED abs /y ED /x ED q { x s div c mul abs y gt } { x c div s

   287 mul abs y gt } ifelse { x x mul y y mul sub z z mul add sqrt z add } { q

   288 { x s div } { x c div } ifelse abs } ifelse a PtoC h1 add exch w1 add

   289 exch } def

   290 /BeginOL { dup (all) eq exch TheOL eq or { IfVisible not { Visible

   291 /IfVisible true def } if } { IfVisible { Invisible /IfVisible false def

   292 } if } ifelse } def

   293 /InitOL { /OLUnit [ 3000 3000 matrix defaultmatrix dtransform ] cvx def

   294 /Visible { CP OLUnit idtransform T moveto } def /Invisible { CP OLUnit

   295 neg exch neg exch idtransform T moveto } def /BOL { BeginOL } def

   296 /IfVisible true def } def

   297 end

   298 % END pstricks.pro

   299 

   300 %%EndProcSet

   301 %%BeginProcSet: pst-dots.pro

   302 %!PS-Adobe-2.0

   303 %%Title: Dot Font for PSTricks

   304 %%Creator: Timothy Van Zandt <tvz@Princeton.EDU>

   305 %%Creation Date: May 7, 1993

   306 %% Version 97 patch 1, 99/12/16

   307 %% Modified by Etienne Riga <etienne.riga@skynet.be> - Dec. 16, 1999

   308 %% to add /Diamond, /SolidDiamond and /BoldDiamond

   309 10 dict dup begin

   310   /FontType 3 def

   311   /FontMatrix [ .001 0 0 .001 0 0 ] def

   312   /FontBBox [ 0 0 0 0 ] def

   313   /Encoding 256 array def

   314   0 1 255 { Encoding exch /.notdef put } for

   315   Encoding

   316     dup (b) 0 get /Bullet put

   317     dup (c) 0 get /Circle put

   318     dup (C) 0 get /BoldCircle put

   319     dup (u) 0 get /SolidTriangle put

   320     dup (t) 0 get /Triangle put

   321     dup (T) 0 get /BoldTriangle put

   322     dup (r) 0 get /SolidSquare put

   323     dup (s) 0 get /Square put

   324     dup (S) 0 get /BoldSquare put

   325     dup (q) 0 get /SolidPentagon put

   326     dup (p) 0 get /Pentagon put

   327     dup (P) 0 get /BoldPentagon put

   328 % DG/SR modification begin - Dec. 16, 1999 - From Etienne Riga

   329     dup (l) 0 get /SolidDiamond put

   330     dup (d) 0 get /Diamond put

   331         (D) 0 get /BoldDiamond put

   332 % DG/SR modification end

   333   /Metrics 13 dict def

   334   Metrics begin

   335     /Bullet        1000   def

   336     /Circle        1000   def

   337     /BoldCircle    1000   def

   338     /SolidTriangle 1344   def

   339     /Triangle      1344   def

   340     /BoldTriangle  1344   def

   341     /SolidSquare    886   def

   342     /Square         886   def

   343     /BoldSquare     886   def

   344     /SolidPentagon 1093.2 def

   345     /Pentagon      1093.2 def

   346     /BoldPentagon  1093.2 def

   347 % DG/SR modification begin - Dec. 16, 1999 - From Etienne Riga

   348     /SolidDiamond  1008   def

   349     /Diamond       1008   def

   350     /BoldDiamond   1008   def

   351 % DG/SR modification end

   352     /.notdef 0 def

   353   end

   354   /BBoxes 13 dict def

   355   BBoxes begin

   356     /Circle        { -550 -550 550 550 } def

   357     /BoldCircle    /Circle load def

   358     /Bullet        /Circle load def

   359     /Triangle      { -571.5 -330 571.5 660 } def

   360     /BoldTriangle  /Triangle load def

   361     /SolidTriangle /Triangle load def

   362     /Square        { -450 -450 450 450 } def

   363     /BoldSquare    /Square load def

   364     /SolidSquare   /Square load def

   365     /Pentagon      { -546.6 -465 546.6 574.7 } def

   366     /BoldPentagon  /Pentagon load def

   367     /SolidPentagon /Pentagon load def

   368 % DG/SR modification begin - Dec. 16, 1999 - From Etienne Riga

   369     /Diamond       { -428.5 -742.5 428.5 742.5 } def

   370     /BoldDiamond   /Diamond load def

   371     /SolidDiamond  /Diamond load def

   372 % DG/SR modification end

   373     /.notdef { 0 0 0 0 } def

   374   end

   375   /CharProcs 20 dict def

   376   CharProcs begin

   377     /Adjust {

   378       2 copy dtransform floor .5 add exch floor .5 add exch idtransform

   379       3 -1 roll div 3 1 roll exch div exch scale

   380     } def

   381     /CirclePath    { 0 0 500 0 360 arc closepath } def

   382     /Bullet        { 500 500 Adjust CirclePath fill } def

   383     /Circle        { 500 500 Adjust CirclePath .9 .9 scale CirclePath

   384                      eofill } def

   385     /BoldCircle    { 500 500 Adjust CirclePath .8 .8 scale CirclePath

   386                      eofill } def

   387     /BoldCircle    { CirclePath .8 .8 scale CirclePath eofill } def

   388     /TrianglePath  { 0  660 moveto -571.5 -330 lineto 571.5 -330 lineto

   389                      closepath } def

   390     /SolidTriangle { TrianglePath fill } def

   391     /Triangle      { TrianglePath .85 .85 scale TrianglePath eofill } def

   392     /BoldTriangle  { TrianglePath .7 .7 scale TrianglePath eofill } def

   393     /SquarePath    { -450 450 moveto 450 450 lineto 450 -450 lineto

   394                      -450 -450 lineto closepath } def

   395     /SolidSquare   { SquarePath fill } def

   396     /Square        { SquarePath .89 .89 scale SquarePath eofill } def

   397     /BoldSquare    { SquarePath .78 .78 scale SquarePath eofill } def

   398     /PentagonPath  {

   399       -337.8 -465   moveto

   400        337.8 -465   lineto

   401        546.6  177.6 lineto

   402          0    574.7 lineto

   403       -546.6  177.6 lineto

   404       closepath

   405     } def

   406     /SolidPentagon { PentagonPath fill } def

   407     /Pentagon      { PentagonPath .89 .89 scale PentagonPath eofill } def

   408     /BoldPentagon  { PentagonPath .78 .78 scale PentagonPath eofill } def

   409 % DG/SR modification begin - Dec. 16, 1999 - From Etienne Riga

   410     /DiamondPath   { 0 742.5 moveto -428.5 0 lineto 0 -742.5 lineto

   411                      428.5 0 lineto closepath } def

   412     /SolidDiamond  { DiamondPath fill } def

   413     /Diamond       { DiamondPath .85 .85 scale DiamondPath eofill } def

   414     /BoldDiamond   { DiamondPath .7 .7 scale DiamondPath eofill } def

   415 % DG/SR modification end

   416     /.notdef { } def

   417   end

   418   /BuildGlyph {

   419     exch

   420     begin

   421       Metrics 1 index get exec 0

   422       BBoxes 3 index get exec

   423       setcachedevice

   424       CharProcs begin load exec end

   425     end

   426   } def

   427   /BuildChar {

   428     1 index /Encoding get exch get

   429     1 index /BuildGlyph get exec

   430   } bind def

   431 end

   432 /PSTricksDotFont exch definefont pop

   433 %END pst-dots.pro

   434 

   435 %%EndProcSet

   436 %%BeginProcSet: pst-node.pro

   437 %!

   438 % PostScript prologue for pst-node.tex.

   439 % Version 97 patch 1, 97/05/09.

   440 % For distribution, see pstricks.tex.

   441 %

   442 /tx@NodeDict 400 dict def tx@NodeDict begin

   443 tx@Dict begin /T /translate load def end

   444 /NewNode { gsave /next ED dict dup 3 1 roll def exch { dup 3 1 roll def }

   445 if begin tx@Dict begin STV CP T exec end /NodeMtrx CM def next end

   446 grestore } def

   447 /InitPnode { /Y ED /X ED /NodePos { NodeSep Cos mul NodeSep Sin mul } def

   448 } def

   449 /InitCnode { /r ED /Y ED /X ED /NodePos { NodeSep r add dup Cos mul exch

   450 Sin mul } def } def

   451 /GetRnodePos { Cos 0 gt { /dx r NodeSep add def } { /dx l NodeSep sub def

   452 } ifelse Sin 0 gt { /dy u NodeSep add def } { /dy d NodeSep sub def }

   453 ifelse dx Sin mul abs dy Cos mul abs gt { dy Cos mul Sin div dy } { dx

   454 dup Sin mul Cos Div } ifelse } def

   455 /InitRnode { /Y ED /X ED X sub /r ED /l X neg def Y add neg /d ED Y sub

   456 /u ED /NodePos { GetRnodePos } def } def

   457 /DiaNodePos { w h mul w Sin mul abs h Cos mul abs add Div NodeSep add dup

   458 Cos mul exch Sin mul } def

   459 /TriNodePos { Sin s lt { d NodeSep sub dup Cos mul Sin Div exch } { w h

   460 mul w Sin mul h Cos abs mul add Div NodeSep add dup Cos mul exch Sin mul

   461 } ifelse } def

   462 /InitTriNode { sub 2 div exch 2 div exch 2 copy T 2 copy 4 index index /d

   463 ED pop pop pop pop -90 mul rotate /NodeMtrx CM def /X 0 def /Y 0 def d

   464 sub abs neg /d ED d add /h ED 2 div h mul h d sub Div /w ED /s d w Atan

   465 sin def /NodePos { TriNodePos } def } def

   466 /OvalNodePos { /ww w NodeSep add def /hh h NodeSep add def Sin ww mul Cos

   467 hh mul Atan dup cos ww mul exch sin hh mul } def

   468 /GetCenter { begin X Y NodeMtrx transform CM itransform end } def

   469 /XYPos { dup sin exch cos Do /Cos ED /Sin ED /Dist ED Cos 0 gt { Dist

   470 Dist Sin mul Cos div } { Cos 0 lt { Dist neg Dist Sin mul Cos div neg }

   471 { 0 Dist Sin mul } ifelse } ifelse Do } def

   472 /GetEdge { dup 0 eq { pop begin 1 0 NodeMtrx dtransform CM idtransform

   473 exch atan sub dup sin /Sin ED cos /Cos ED /NodeSep ED NodePos NodeMtrx

   474 dtransform CM idtransform end } { 1 eq {{exch}} {{}} ifelse /Do ED pop

   475 XYPos } ifelse } def

   476 /AddOffset { 1 index 0 eq { pop pop } { 2 copy 5 2 roll cos mul add 4 1

   477 roll sin mul sub exch } ifelse } def

   478 /GetEdgeA { NodeSepA AngleA NodeA NodeSepTypeA GetEdge OffsetA AngleA

   479 AddOffset yA add /yA1 ED xA add /xA1 ED } def

   480 /GetEdgeB { NodeSepB AngleB NodeB NodeSepTypeB GetEdge OffsetB AngleB

   481 AddOffset yB add /yB1 ED xB add /xB1 ED } def

   482 /GetArmA { ArmTypeA 0 eq { /xA2 ArmA AngleA cos mul xA1 add def /yA2 ArmA

   483 AngleA sin mul yA1 add def } { ArmTypeA 1 eq {{exch}} {{}} ifelse /Do ED

   484 ArmA AngleA XYPos OffsetA AngleA AddOffset yA add /yA2 ED xA add /xA2 ED

   485 } ifelse } def

   486 /GetArmB { ArmTypeB 0 eq { /xB2 ArmB AngleB cos mul xB1 add def /yB2 ArmB

   487 AngleB sin mul yB1 add def } { ArmTypeB 1 eq {{exch}} {{}} ifelse /Do ED

   488 ArmB AngleB XYPos OffsetB AngleB AddOffset yB add /yB2 ED xB add /xB2 ED

   489 } ifelse } def

   490 /InitNC { /b ED /a ED /NodeSepTypeB ED /NodeSepTypeA ED /NodeSepB ED

   491 /NodeSepA ED /OffsetB ED /OffsetA ED tx@NodeDict a known tx@NodeDict b

   492 known and dup { /NodeA a load def /NodeB b load def NodeA GetCenter /yA

   493 ED /xA ED NodeB GetCenter /yB ED /xB ED } if } def

   494 /LPutLine { 4 copy 3 -1 roll sub neg 3 1 roll sub Atan /NAngle ED 1 t sub

   495 mul 3 1 roll 1 t sub mul 4 1 roll t mul add /Y ED t mul add /X ED } def

   496 /LPutLines { mark LPutVar counttomark 2 div 1 sub /n ED t floor dup n gt

   497 { pop n 1 sub /t 1 def } { dup t sub neg /t ED } ifelse cvi 2 mul { pop

   498 } repeat LPutLine cleartomark } def

   499 /BezierMidpoint { /y3 ED /x3 ED /y2 ED /x2 ED /y1 ED /x1 ED /y0 ED /x0 ED

   500 /t ED /cx x1 x0 sub 3 mul def /cy y1 y0 sub 3 mul def /bx x2 x1 sub 3

   501 mul cx sub def /by y2 y1 sub 3 mul cy sub def /ax x3 x0 sub cx sub bx

   502 sub def /ay y3 y0 sub cy sub by sub def ax t 3 exp mul bx t t mul mul

   503 add cx t mul add x0 add ay t 3 exp mul by t t mul mul add cy t mul add

   504 y0 add 3 ay t t mul mul mul 2 by t mul mul add cy add 3 ax t t mul mul

   505 mul 2 bx t mul mul add cx add atan /NAngle ED /Y ED /X ED } def

   506 /HPosBegin { yB yA ge { /t 1 t sub def } if /Y yB yA sub t mul yA add def

   507 } def

   508 /HPosEnd { /X Y yyA sub yyB yyA sub Div xxB xxA sub mul xxA add def

   509 /NAngle yyB yyA sub xxB xxA sub Atan def } def

   510 /HPutLine { HPosBegin /yyA ED /xxA ED /yyB ED /xxB ED HPosEnd  } def

   511 /HPutLines { HPosBegin yB yA ge { /check { le } def } { /check { ge } def

   512 } ifelse /xxA xA def /yyA yA def mark xB yB LPutVar { dup Y check { exit

   513 } { /yyA ED /xxA ED } ifelse } loop /yyB ED /xxB ED cleartomark HPosEnd 

   514 } def

   515 /VPosBegin { xB xA lt { /t 1 t sub def } if /X xB xA sub t mul xA add def

   516 } def

   517 /VPosEnd { /Y X xxA sub xxB xxA sub Div yyB yyA sub mul yyA add def

   518 /NAngle yyB yyA sub xxB xxA sub Atan def } def

   519 /VPutLine { VPosBegin /yyA ED /xxA ED /yyB ED /xxB ED VPosEnd  } def

   520 /VPutLines { VPosBegin xB xA ge { /check { le } def } { /check { ge } def

   521 } ifelse /xxA xA def /yyA yA def mark xB yB LPutVar { 1 index X check {

   522 exit } { /yyA ED /xxA ED } ifelse } loop /yyB ED /xxB ED cleartomark

   523 VPosEnd  } def

   524 /HPutCurve { gsave newpath /SaveLPutVar /LPutVar load def LPutVar 8 -2

   525 roll moveto curveto flattenpath /LPutVar [ {} {} {} {} pathforall ] cvx

   526 def grestore exec /LPutVar /SaveLPutVar load def } def

   527 /NCCoor { /AngleA yB yA sub xB xA sub Atan def /AngleB AngleA 180 add def

   528 GetEdgeA GetEdgeB /LPutVar [ xB1 yB1 xA1 yA1 ] cvx def /LPutPos {

   529 LPutVar LPutLine } def /HPutPos { LPutVar HPutLine } def /VPutPos {

   530 LPutVar VPutLine } def LPutVar } def

   531 /NCLine { NCCoor tx@Dict begin ArrowA CP 4 2 roll ArrowB lineto pop pop

   532 end } def

   533 /NCLines { false NArray n 0 eq { NCLine } { 2 copy yA sub exch xA sub

   534 Atan /AngleA ED n 2 mul dup index exch index yB sub exch xB sub Atan

   535 /AngleB ED GetEdgeA GetEdgeB /LPutVar [ xB1 yB1 n 2 mul 4 add 4 roll xA1

   536 yA1 ] cvx def mark LPutVar tx@Dict begin false Line end /LPutPos {

   537 LPutLines } def /HPutPos { HPutLines } def /VPutPos { VPutLines } def }

   538 ifelse } def

   539 /NCCurve { GetEdgeA GetEdgeB xA1 xB1 sub yA1 yB1 sub Pyth 2 div dup 3 -1

   540 roll mul /ArmA ED mul /ArmB ED /ArmTypeA 0 def /ArmTypeB 0 def GetArmA

   541 GetArmB xA2 yA2 xA1 yA1 tx@Dict begin ArrowA end xB2 yB2 xB1 yB1 tx@Dict

   542 begin ArrowB end curveto /LPutVar [ xA1 yA1 xA2 yA2 xB2 yB2 xB1 yB1 ]

   543 cvx def /LPutPos { t LPutVar BezierMidpoint } def /HPutPos { { HPutLines

   544 } HPutCurve } def /VPutPos { { VPutLines } HPutCurve } def } def

   545 /NCAngles { GetEdgeA GetEdgeB GetArmA GetArmB /mtrx AngleA matrix rotate

   546 def xA2 yA2 mtrx transform pop xB2 yB2 mtrx transform exch pop mtrx

   547 itransform /y0 ED /x0 ED mark ArmB 0 ne { xB1 yB1 } if xB2 yB2 x0 y0 xA2

   548 yA2 ArmA 0 ne { xA1 yA1 } if tx@Dict begin false Line end /LPutVar [ xB1

   549 yB1 xB2 yB2 x0 y0 xA2 yA2 xA1 yA1 ] cvx def /LPutPos { LPutLines } def

   550 /HPutPos { HPutLines } def /VPutPos { VPutLines } def } def

   551 /NCAngle { GetEdgeA GetEdgeB GetArmB /mtrx AngleA matrix rotate def xB2

   552 yB2 mtrx itransform pop xA1 yA1 mtrx itransform exch pop mtrx transform

   553 /y0 ED /x0 ED mark ArmB 0 ne { xB1 yB1 } if xB2 yB2 x0 y0 xA1 yA1

   554 tx@Dict begin false Line end /LPutVar [ xB1 yB1 xB2 yB2 x0 y0 xA1 yA1 ]

   555 cvx def /LPutPos { LPutLines } def /HPutPos { HPutLines } def /VPutPos {

   556 VPutLines } def } def

   557 /NCBar { GetEdgeA GetEdgeB GetArmA GetArmB /mtrx AngleA matrix rotate def

   558 xA2 yA2 mtrx itransform pop xB2 yB2 mtrx itransform pop sub dup 0 mtrx

   559 transform 3 -1 roll 0 gt { /yB2 exch yB2 add def /xB2 exch xB2 add def }

   560 { /yA2 exch neg yA2 add def /xA2 exch neg xA2 add def } ifelse mark ArmB

   561 0 ne { xB1 yB1 } if xB2 yB2 xA2 yA2 ArmA 0 ne { xA1 yA1 } if tx@Dict

   562 begin false Line end /LPutVar [ xB1 yB1 xB2 yB2 xA2 yA2 xA1 yA1 ] cvx

   563 def /LPutPos { LPutLines } def /HPutPos { HPutLines } def /VPutPos {

   564 VPutLines } def } def

   565 /NCDiag { GetEdgeA GetEdgeB GetArmA GetArmB mark ArmB 0 ne { xB1 yB1 } if

   566 xB2 yB2 xA2 yA2 ArmA 0 ne { xA1 yA1 } if tx@Dict begin false Line end

   567 /LPutVar [ xB1 yB1 xB2 yB2 xA2 yA2 xA1 yA1 ] cvx def /LPutPos {

   568 LPutLines } def /HPutPos { HPutLines } def /VPutPos { VPutLines } def }

   569 def

   570 /NCDiagg { GetEdgeA GetArmA yB yA2 sub xB xA2 sub Atan 180 add /AngleB ED

   571 GetEdgeB mark xB1 yB1 xA2 yA2 ArmA 0 ne { xA1 yA1 } if tx@Dict begin

   572 false Line end /LPutVar [ xB1 yB1 xA2 yA2 xA1 yA1 ] cvx def /LPutPos {

   573 LPutLines } def /HPutPos { HPutLines } def /VPutPos { VPutLines } def }

   574 def

   575 /NCLoop { GetEdgeA GetEdgeB GetArmA GetArmB /mtrx AngleA matrix rotate

   576 def xA2 yA2 mtrx transform loopsize add /yA3 ED /xA3 ED /xB3 xB2 yB2

   577 mtrx transform pop def xB3 yA3 mtrx itransform /yB3 ED /xB3 ED xA3 yA3

   578 mtrx itransform /yA3 ED /xA3 ED mark ArmB 0 ne { xB1 yB1 } if xB2 yB2

   579 xB3 yB3 xA3 yA3 xA2 yA2 ArmA 0 ne { xA1 yA1 } if tx@Dict begin false

   580 Line end /LPutVar [ xB1 yB1 xB2 yB2 xB3 yB3 xA3 yA3 xA2 yA2 xA1 yA1 ]

   581 cvx def /LPutPos { LPutLines } def /HPutPos { HPutLines } def /VPutPos {

   582 VPutLines } def } def

   583 % DG/SR modification begin - May 9, 1997 - Patch 1

   584 %/NCCircle { 0 0 NodesepA nodeA \tx@GetEdge pop xA sub 2 div dup 2 exp r

   585 %r mul sub abs sqrt atan 2 mul /a ED r AngleA 90 add PtoC yA add exch xA add

   586 %exch 2 copy /LPutVar [ 4 2 roll r AngleA ] cvx def /LPutPos { LPutVar t 360

   587 %mul add dup 5 1 roll 90 sub \tx@PtoC 3 -1 roll add /Y ED add /X ED /NAngle ED

   588 /NCCircle { NodeSepA 0 NodeA 0 GetEdge pop 2 div dup 2 exp r

   589 r mul sub abs sqrt atan 2 mul /a ED r AngleA 90 add PtoC yA add exch xA add

   590 exch 2 copy /LPutVar [ 4 2 roll r AngleA ] cvx def /LPutPos { LPutVar t 360

   591 mul add dup 5 1 roll 90 sub PtoC 3 -1 roll add /Y ED add /X ED /NAngle ED

   592 % DG/SR modification end

   593 } def /HPutPos { LPutPos } def /VPutPos { LPutPos } def r AngleA 90 sub a add

   594 AngleA 270 add a sub tx@Dict begin /angleB ED /angleA ED /r ED /c 57.2957 r

   595 Div def /y ED /x ED } def

   596 /NCBox { /d ED /h ED /AngleB yB yA sub xB xA sub Atan def /AngleA AngleB

   597 180 add def GetEdgeA GetEdgeB /dx d AngleB sin mul def /dy d AngleB cos

   598 mul neg def /hx h AngleB sin mul neg def /hy h AngleB cos mul def

   599 /LPutVar [ xA1 hx add yA1 hy add xB1 hx add yB1 hy add xB1 dx add yB1 dy

   600 add xA1 dx add yA1 dy add ] cvx def /LPutPos { LPutLines } def /HPutPos

   601 { xB yB xA yA LPutLine } def /VPutPos { HPutPos } def mark LPutVar

   602 tx@Dict begin false Polygon end } def

   603 /NCArcBox { /l ED neg /d ED /h ED /a ED /AngleA yB yA sub xB xA sub Atan

   604 def /AngleB AngleA 180 add def /tA AngleA a sub 90 add def /tB tA a 2

   605 mul add def /r xB xA sub tA cos tB cos sub Div dup 0 eq { pop 1 } if def

   606 /x0 xA r tA cos mul add def /y0 yA r tA sin mul add def /c 57.2958 r div

   607 def /AngleA AngleA a sub 180 add def /AngleB AngleB a add 180 add def

   608 GetEdgeA GetEdgeB /AngleA tA 180 add yA yA1 sub xA xA1 sub Pyth c mul

   609 sub def /AngleB tB 180 add yB yB1 sub xB xB1 sub Pyth c mul add def l 0

   610 eq { x0 y0 r h add AngleA AngleB arc x0 y0 r d add AngleB AngleA arcn }

   611 { x0 y0 translate /tA AngleA l c mul add def /tB AngleB l c mul sub def

   612 0 0 r h add tA tB arc r h add AngleB PtoC r d add AngleB PtoC 2 copy 6 2

   613 roll l arcto 4 { pop } repeat r d add tB PtoC l arcto 4 { pop } repeat 0

   614 0 r d add tB tA arcn r d add AngleA PtoC r h add AngleA PtoC 2 copy 6 2

   615 roll l arcto 4 { pop } repeat r h add tA PtoC l arcto 4 { pop } repeat }

   616 ifelse closepath /LPutVar [ x0 y0 r AngleA AngleB h d ] cvx def /LPutPos

   617 { LPutVar /d ED /h ED /AngleB ED /AngleA ED /r ED /y0 ED /x0 ED t 1 le {

   618 r h add AngleA 1 t sub mul AngleB t mul add dup 90 add /NAngle ED PtoC }

   619 { t 2 lt { /NAngle AngleB 180 add def r 2 t sub h mul t 1 sub d mul add

   620 add AngleB PtoC } { t 3 lt { r d add AngleB 3 t sub mul AngleA 2 t sub

   621 mul add dup 90 sub /NAngle ED PtoC } { /NAngle AngleA 180 add def r 4 t

   622 sub d mul t 3 sub h mul add add AngleA PtoC } ifelse } ifelse } ifelse

   623 y0 add /Y ED x0 add /X ED } def /HPutPos { LPutPos } def /VPutPos {

   624 LPutPos } def } def

   625 /Tfan { /AngleA yB yA sub xB xA sub Atan def GetEdgeA w xA1 xB sub yA1 yB

   626 sub Pyth Pyth w Div CLW 2 div mul 2 div dup AngleA sin mul yA1 add /yA1

   627 ED AngleA cos mul xA1 add /xA1 ED /LPutVar [ xA1 yA1 m { xB w add yB xB

   628 w sub yB } { xB yB w sub xB yB w add } ifelse xA1 yA1 ] cvx def /LPutPos

   629 { LPutLines } def /VPutPos@ { LPutVar flag { 8 4 roll pop pop pop pop }

   630 { pop pop pop pop 4 2 roll } ifelse } def /VPutPos { VPutPos@ VPutLine }

   631 def /HPutPos { VPutPos@ HPutLine } def mark LPutVar tx@Dict begin

   632 /ArrowA { moveto } def /ArrowB { } def false Line closepath end } def

   633 /LPutCoor { NAngle tx@Dict begin /NAngle ED end gsave CM STV CP Y sub neg

   634 exch X sub neg exch moveto setmatrix CP grestore } def

   635 /LPut { tx@NodeDict /LPutPos known { LPutPos } { CP /Y ED /X ED /NAngle 0

   636 def } ifelse LPutCoor  } def

   637 /HPutAdjust { Sin Cos mul 0 eq { 0 } { d Cos mul Sin div flag not { neg }

   638 if h Cos mul Sin div flag { neg } if 2 copy gt { pop } { exch pop }

   639 ifelse } ifelse s add flag { r add neg } { l add } ifelse X add /X ED }

   640 def

   641 /VPutAdjust { Sin Cos mul 0 eq { 0 } { l Sin mul Cos div flag { neg } if

   642 r Sin mul Cos div flag not { neg } if 2 copy gt { pop } { exch pop }

   643 ifelse } ifelse s add flag { d add } { h add neg } ifelse Y add /Y ED }

   644 def

   645 end

   646 % END pst-node.pro

   647 

   648 %%EndProcSet

   649 %%BeginProcSet: pst-text.pro

   650 %!

   651 % PostScript header file pst-text.pro

   652 % Version 97, 94/04/20

   653 % For distribution, see pstricks.tex.

   654 

   655 /tx@TextPathDict 40 dict def

   656 tx@TextPathDict begin

   657 

   658 % Syntax:  <dist> PathPosition -

   659 % Function: Searches for position of currentpath distance <dist> from

   660 %           beginning. Sets (X,Y)=position, and Angle=tangent.

   661 /PathPosition

   662 { /targetdist exch def

   663   /pathdist 0 def

   664   /continue true def

   665   /X { newx } def /Y { newy } def /Angle 0 def

   666   gsave

   667     flattenpath

   668     { movetoproc }  { linetoproc } { } { firstx firsty linetoproc }

   669     /pathforall load stopped { pop pop pop pop /X 0 def /Y 0 def } if

   670   grestore

   671 } def

   672 

   673 /movetoproc { continue { @movetoproc } { pop pop } ifelse } def

   674 

   675 /@movetoproc

   676 { /newy exch def /newx exch def

   677   /firstx newx def /firsty newy def

   678 } def

   679 

   680 /linetoproc { continue { @linetoproc } { pop pop } ifelse } def

   681 

   682 /@linetoproc

   683 {

   684   /oldx newx def /oldy newy def

   685   /newy exch def /newx exch def

   686   /dx newx oldx sub def

   687   /dy newy oldy sub def

   688   /dist dx dup mul dy dup mul add sqrt def

   689   /pathdist pathdist dist add def

   690   pathdist targetdist ge

   691   { pathdist targetdist sub dist div dup

   692     dy mul neg newy add /Y exch def

   693     dx mul neg newx add /X exch def

   694     /Angle dy dx atan def

   695     /continue false def

   696   } if

   697 } def

   698 

   699 /TextPathShow

   700 { /String exch def

   701   /CharCount 0 def

   702   String length

   703   { String CharCount 1 getinterval ShowChar

   704     /CharCount CharCount 1 add def

   705   } repeat

   706 } def

   707 

   708 % Syntax: <pathlength> <position> InitTextPath -

   709 /InitTextPath

   710 { gsave

   711     currentpoint /Y exch def /X exch def

   712     exch X Hoffset sub sub mul

   713     Voffset Hoffset sub add

   714     neg X add /Hoffset exch def

   715     /Voffset Y def

   716   grestore

   717 } def

   718 

   719 /Transform

   720 { PathPosition

   721   dup

   722   Angle cos mul Y add exch

   723   Angle sin mul neg X add exch

   724   translate

   725   Angle rotate

   726 } def

   727 

   728 /ShowChar

   729 { /Char exch def

   730   gsave

   731     Char end stringwidth

   732     tx@TextPathDict begin

   733     2 div /Sy exch def 2 div /Sx exch def

   734     currentpoint

   735     Voffset sub Sy add exch

   736     Hoffset sub Sx add

   737     Transform

   738     Sx neg Sy neg moveto

   739     Char end tx@TextPathSavedShow

   740     tx@TextPathDict begin

   741   grestore

   742   Sx 2 mul Sy 2 mul rmoveto

   743 } def

   744 

   745 end

   746 % END pst-text.pro

   747 

   748 %%EndProcSet

   749 %%BeginProcSet: 8r.enc

   750 % File  8r.enc as of 2002-03-12 for PSNFSS 9

   751 %

   752 % This is the encoding vector for Type1 and TrueType fonts to be used

   753 % with TeX.  This file is part of the PSNFSS bundle, version 9

   754 % 

   755 % Authors: S. Rahtz, P. MacKay, Alan Jeffrey, B. Horn, K. Berry, W. Schmidt

   756 %

   757 % Idea is to have all the characters normally included in Type 1 fonts

   758 % available for typesetting. This is effectively the characters in Adobe

   759 % Standard Encoding + ISO Latin 1 + extra characters from Lucida + Euro.

   760 % 

   761 % Character code assignments were made as follows:

   762 % 

   763 % (1) the Windows ANSI characters are almost all in their Windows ANSI

   764 % positions, because some Windows users cannot easily reencode the

   765 % fonts, and it makes no difference on other systems. The only Windows

   766 % ANSI characters not available are those that make no sense for

   767 % typesetting -- rubout (127 decimal), nobreakspace (160), softhyphen

   768 % (173). quotesingle and grave are moved just because it's such an

   769 % irritation not having them in TeX positions.

   770 % 

   771 % (2) Remaining characters are assigned arbitrarily to the lower part

   772 % of the range, avoiding 0, 10 and 13 in case we meet dumb software.

   773 % 

   774 % (3) Y&Y Lucida Bright includes some extra text characters; in the

   775 % hopes that other PostScript fonts, perhaps created for public

   776 % consumption, will include them, they are included starting at 0x12.

   777 % 

   778 % (4) Remaining positions left undefined are for use in (hopefully)

   779 % upward-compatible revisions, if someday more characters are generally

   780 % available.

   781 % 

   782 % (5) hyphen appears twice for compatibility with both ASCII and Windows.

   783 %

   784 % (6) /Euro is assigned to 128, as in Windows ANSI

   785 % 

   786 /TeXBase1Encoding [

   787 % 0x00 (encoded characters from Adobe Standard not in Windows 3.1)

   788   /.notdef /dotaccent /fi /fl

   789   /fraction /hungarumlaut /Lslash /lslash

   790   /ogonek /ring /.notdef

   791   /breve /minus /.notdef 

   792 % These are the only two remaining unencoded characters, so may as

   793 % well include them.

   794   /Zcaron /zcaron 

   795 % 0x10

   796  /caron /dotlessi 

   797 % (unusual TeX characters available in, e.g., Lucida Bright)

   798  /dotlessj /ff /ffi /ffl 

   799  /.notdef /.notdef /.notdef /.notdef

   800  /.notdef /.notdef /.notdef /.notdef

   801  % very contentious; it's so painful not having quoteleft and quoteright

   802  % at 96 and 145 that we move the things normally found there down to here.

   803  /grave /quotesingle 

   804 % 0x20 (ASCII begins)

   805  /space /exclam /quotedbl /numbersign

   806  /dollar /percent /ampersand /quoteright

   807  /parenleft /parenright /asterisk /plus /comma /hyphen /period /slash

   808 % 0x30

   809  /zero /one /two /three /four /five /six /seven

   810  /eight /nine /colon /semicolon /less /equal /greater /question

   811 % 0x40

   812  /at /A /B /C /D /E /F /G /H /I /J /K /L /M /N /O

   813 % 0x50

   814  /P /Q /R /S /T /U /V /W

   815  /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore

   816 % 0x60

   817  /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o

   818 % 0x70

   819  /p /q /r /s /t /u /v /w

   820  /x /y /z /braceleft /bar /braceright /asciitilde

   821  /.notdef % rubout; ASCII ends

   822 % 0x80

   823  /Euro /.notdef /quotesinglbase /florin

   824  /quotedblbase /ellipsis /dagger /daggerdbl

   825  /circumflex /perthousand /Scaron /guilsinglleft

   826  /OE /.notdef /.notdef /.notdef

   827 % 0x90

   828  /.notdef /.notdef /.notdef /quotedblleft

   829  /quotedblright /bullet /endash /emdash

   830  /tilde /trademark /scaron /guilsinglright

   831  /oe /.notdef /.notdef /Ydieresis

   832 % 0xA0

   833  /.notdef % nobreakspace

   834  /exclamdown /cent /sterling

   835  /currency /yen /brokenbar /section

   836  /dieresis /copyright /ordfeminine /guillemotleft

   837  /logicalnot

   838  /hyphen % Y&Y (also at 45); Windows' softhyphen

   839  /registered

   840  /macron

   841 % 0xD0

   842  /degree /plusminus /twosuperior /threesuperior

   843  /acute /mu /paragraph /periodcentered

   844  /cedilla /onesuperior /ordmasculine /guillemotright

   845  /onequarter /onehalf /threequarters /questiondown

   846 % 0xC0

   847  /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla

   848  /Egrave /Eacute /Ecircumflex /Edieresis

   849  /Igrave /Iacute /Icircumflex /Idieresis

   850 % 0xD0

   851  /Eth /Ntilde /Ograve /Oacute

   852  /Ocircumflex /Otilde /Odieresis /multiply

   853  /Oslash /Ugrave /Uacute /Ucircumflex

   854  /Udieresis /Yacute /Thorn /germandbls

   855 % 0xE0

   856  /agrave /aacute /acircumflex /atilde

   857  /adieresis /aring /ae /ccedilla

   858  /egrave /eacute /ecircumflex /edieresis

   859  /igrave /iacute /icircumflex /idieresis

   860 % 0xF0

   861  /eth /ntilde /ograve /oacute

   862  /ocircumflex /otilde /odieresis /divide

   863  /oslash /ugrave /uacute /ucircumflex

   864  /udieresis /yacute /thorn /ydieresis

   865 ] def

   866 

   867 %%EndProcSet

   868 %%BeginProcSet: texmital.enc

   869 % TeX math italic encoding.

   870 % No ligatures or kerns.

   871 % 

   872 /TeXMathItalicEncoding [          % now 256 chars follow

   873 % 0x0

   874 /Gamma

   875 /Delta

   876 /Theta

   877 /Lambda

   878 /Xi

   879 /Pi

   880 /Sigma

   881 /Upsilon

   882 

   883 % 0x8

   884 /Phi

   885 /Psi

   886 /Omega

   887 /alpha

   888 /beta

   889 /gamma

   890 /delta

   891 /epsilon1

   892 

   893 % 0x10

   894 /zeta

   895 /eta

   896 /theta

   897 /iota

   898 /kappa

   899 /lambda

   900 /mu

   901 /nu

   902 

   903 % 0x18

   904 /xi

   905 /pi

   906 /rho

   907 /sigma

   908 /tau

   909 /upsilon

   910 /phi

   911 /chi

   912 

   913 % 0x20

   914 /psi

   915 /omega

   916 /epsilon

   917 /theta1

   918 /pi1

   919 /rho1

   920 /sigma1

   921 /phi1

   922 

   923 % 0x28

   924 /arrowlefttophalf

   925 /arrowleftbothalf

   926 /arrowrighttophalf

   927 /arrowrightbothalf

   928 /arrowhookleft

   929 /arrowhookright

   930 /triangleright

   931 /triangleleft

   932 

   933 % 0x30

   934 /zerooldstyle

   935 /oneoldstyle

   936 /twooldstyle

   937 /threeoldstyle

   938 /fouroldstyle

   939 /fiveoldstyle

   940 /sixoldstyle

   941 /sevenoldstyle

   942 

   943 % 0x38

   944 /eightoldstyle

   945 /nineoldstyle

   946 /period

   947 /comma

   948 /less

   949 /slash

   950 /greater

   951 /star

   952 

   953 % 0x40

   954 /partialdiff

   955 /A

   956 /B

   957 /C

   958 /D

   959 /E

   960 /F

   961 /G

   962 

   963 % 0x48

   964 /H

   965 /I

   966 /J

   967 /K

   968 /L

   969 /M

   970 /N

   971 /O

   972 

   973 % 0x50

   974 /P

   975 /Q

   976 /R

   977 /S

   978 /T

   979 /U

   980 /V

   981 /W

   982 

   983 % 0x58

   984 /X

   985 /Y

   986 /Z

   987 /flat

   988 /natural

   989 /sharp

   990 /slurbelow

   991 /slurabove

   992 

   993 % 0x60

   994 /lscript

   995 /a

   996 /b

   997 /c

   998 /d

   999 /e

  1000 /f

  1001 /g

  1002 

  1003 % 0x68

  1004 /h

  1005 /i

  1006 /j

  1007 /k

  1008 /l

  1009 /m

  1010 /n

  1011 /o

  1012 

  1013 % 0x70

  1014 /p

  1015 /q

  1016 /r

  1017 /s

  1018 /t

  1019 /u

  1020 /v

  1021 /w

  1022 

  1023 % 0x78

  1024 /x

  1025 /y

  1026 /z

  1027 /dotlessi

  1028 /dotlessj

  1029 /weierstrass

  1030 /vector

  1031 /tie

  1032 

  1033 % Have to have 128 .notdef's now to fill things out.

  1034 % 

  1035 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1036 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1037 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1038 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1039 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1040 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1041 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1042 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1043 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1044 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1045 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1046 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1047 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1048 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1049 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1050 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 

  1051 ] def

  1052 

  1053 %%EndProcSet

  1054 %%BeginProcSet: aae443f0.enc

  1055 % Thomas Esser, Dec 2002. public domain

  1056 %

  1057 % Encoding for:

  1058 %     cmmi10 cmmi12 cmmi5 cmmi6 cmmi7 cmmi8 cmmi9 cmmib10

  1059 %

  1060 /TeXaae443f0Encoding [

  1061 /Gamma /Delta /Theta /Lambda /Xi /Pi /Sigma /Upsilon /Phi /Psi /Omega

  1062 /alpha /beta /gamma /delta /epsilon1 /zeta /eta /theta /iota /kappa

  1063 /lambda /mu /nu /xi /pi /rho /sigma /tau /upsilon /phi /chi /psi

  1064 /omega /epsilon /theta1 /pi1 /rho1 /sigma1 /phi1 /arrowlefttophalf

  1065 /arrowleftbothalf /arrowrighttophalf /arrowrightbothalf /arrowhookleft

  1066 /arrowhookright /triangleright /triangleleft /zerooldstyle /oneoldstyle

  1067 /twooldstyle /threeoldstyle /fouroldstyle /fiveoldstyle /sixoldstyle

  1068 /sevenoldstyle /eightoldstyle /nineoldstyle /period /comma /less /slash

  1069 /greater /star /partialdiff /A /B /C /D /E /F /G /H /I /J /K /L /M /N

  1070 /O /P /Q /R /S /T /U /V /W /X /Y /Z /flat /natural /sharp /slurbelow

  1071 /slurabove /lscript /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o /p

  1072 /q /r /s /t /u /v /w /x /y /z /dotlessi /dotlessj /weierstrass /vector

  1073 /tie /psi /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1074 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1075 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1076 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1077 /space /Gamma /Delta /Theta /Lambda /Xi /Pi /Sigma /Upsilon /Phi /Psi

  1078 /.notdef /.notdef /Omega /alpha /beta /gamma /delta /epsilon1 /zeta /eta

  1079 /theta /iota /kappa /lambda /mu /nu /xi /pi /rho /sigma /tau /upsilon

  1080 /phi /chi /psi /tie /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1081 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1082 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1083 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1084 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1085 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1086 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1087 /.notdef /.notdef /.notdef /.notdef /.notdef

  1088 ] def

  1089 

  1090 %%EndProcSet

  1091 %%BeginProcSet: f7b6d320.enc

  1092 % Thomas Esser, Dec 2002. public domain

  1093 %

  1094 % Encoding for:

  1095 %     cmb10 cmbx10 cmbx12 cmbx5 cmbx6 cmbx7 cmbx8 cmbx9 cmbxsl10

  1096 %     cmdunh10 cmr10 cmr12 cmr17cmr6 cmr7 cmr8 cmr9 cmsl10 cmsl12 cmsl8

  1097 %     cmsl9 cmss10cmss12 cmss17 cmss8 cmss9 cmssbx10 cmssdc10 cmssi10

  1098 %     cmssi12 cmssi17 cmssi8cmssi9 cmssq8 cmssqi8 cmvtt10

  1099 %

  1100 /TeXf7b6d320Encoding [

  1101 /Gamma /Delta /Theta /Lambda /Xi /Pi /Sigma /Upsilon /Phi /Psi /Omega

  1102 /ff /fi /fl /ffi /ffl /dotlessi /dotlessj /grave /acute /caron /breve

  1103 /macron /ring /cedilla /germandbls /ae /oe /oslash /AE /OE /Oslash

  1104 /suppress /exclam /quotedblright /numbersign /dollar /percent /ampersand

  1105 /quoteright /parenleft /parenright /asterisk /plus /comma /hyphen

  1106 /period /slash /zero /one /two /three /four /five /six /seven /eight

  1107 /nine /colon /semicolon /exclamdown /equal /questiondown /question /at

  1108 /A /B /C /D /E /F /G /H /I /J /K /L /M /N /O /P /Q /R /S /T /U /V /W /X

  1109 /Y /Z /bracketleft /quotedblleft /bracketright /circumflex /dotaccent

  1110 /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o /p /q /r /s /t /u

  1111 /v /w /x /y /z /endash /emdash /hungarumlaut /tilde /dieresis /suppress

  1112 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1113 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1114 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1115 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /space

  1116 /Gamma /Delta /Theta /Lambda /Xi /Pi /Sigma /Upsilon /Phi /Psi /.notdef

  1117 /.notdef /Omega /ff /fi /fl /ffi /ffl /dotlessi /dotlessj /grave /acute

  1118 /caron /breve /macron /ring /cedilla /germandbls /ae /oe /oslash /AE

  1119 /OE /Oslash /suppress /dieresis /.notdef /.notdef /.notdef /.notdef

  1120 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1121 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1122 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1123 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1124 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1125 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1126 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef

  1127 ] def

  1128 

  1129 %%EndProcSet

  1130 %%BeginProcSet: 74afc74c.enc

  1131 % Thomas Esser, Dec 2002. public domain

  1132 %

  1133 % Encoding for:

  1134 %     cmbxti10 cmff10 cmfi10 cmfib8 cmti10 cmti12 cmti7 cmti8cmti9 cmu10

  1135 %