%!PS-Adobe-2.0

%%Creator: dvips(k) 5.95a Copyright 2005 Radical Eye Software

%%Title: 02.dvi

%%Pages: 103

%%PageOrder: Ascend

%%BoundingBox: 0 0 595 842

%%DocumentFonts: Times-Bold CMMIB10 ComicSansMS ComicSansMS-Bold CMBX10

%%+ CMBXTI10 CMBX12 CMTT12 CMBSY10 CMBX7 CMEX10 MSAM10 CMBX8 MSBM10

%%+ CMBSY7 CMMIB7 MSBM7 CMBX6 CMTT10

%%EndComments

%DVIPSWebPage: (www.radicaleye.com)

%DVIPSCommandLine: dvips 02.dvi -o 02.ps

%DVIPSParameters: dpi=600

%DVIPSSource:  TeX output 2005.04.19:1149

%%BeginProcSet: tex.pro 0 0

%!

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

1 add N}if}B/CharBuilder{save 3 1 roll S A/base get 2 index get S

/BitMaps get S get/Cd X pop/ctr 0 N Cdx 0 Cx Cy Ch sub Cx Cw add Cy

setcachedevice Cw Ch true[1 0 0 -1 -.1 Cx sub Cy .1 sub]{Ci}imagemask

restore}B/D{/cc X A type/stringtype ne{]}if nn/base get cc ctr put nn

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

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

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

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

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

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

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

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

/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{

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

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

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

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

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

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

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

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

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}

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{

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

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

%%EndProcSet

%%BeginProcSet: pstricks.pro 0 0

%!

% PostScript prologue for pstricks.tex.

% Version 97 patch 4, 04/05/10

% For distribution, see pstricks.tex.

%

/tx@Dict 200 dict def tx@Dict begin

/ADict 25 dict def

/CM { matrix currentmatrix } bind def

/SLW /setlinewidth load def

/CLW /currentlinewidth load def

/CP /currentpoint load def

/ED { exch def } bind def

/L /lineto load def

/T /translate load def

/TMatrix { } def

/RAngle { 0 } def

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

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

/NET { neg exch neg exch T } def

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

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

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

def

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

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

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

/STP { .996264 dup scale } def

/STV { SDict begin normalscale end STP  } def

%

%%-------------- DG begin patch 15 ---------------%%

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

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

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

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

%0 } ifelse setdash stroke } def

/DashLine {

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

  /b ED /x1 ED /y1 ED /x ED /y ED 

  /z y x add y1 add x1 add def

  /Coef b a .5 sub 2 mul y mul sub z Div round 

  z mul a .5 sub 2 mul y mul add b exch Div def 

  /y y Coef mul def /x x Coef mul def /y1 y1 Coef mul def /x1 x1 Coef mul def

  x1 0 gt y1 0 gt x 0 gt y 0 gt and { [ y x y1 x1 ] 1 a sub y mul}

  { [ 1 0] 0 } ifelse setdash stroke

} def

%%-------------- DG end patch 15 ---------------%%

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

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

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

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

setlinecap stroke } def

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

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

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

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

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

% DG/SR modification end

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

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

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

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

% def

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

pop pop } def

% DG/SR modification end

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

exch 3 index sub exch Atan rotate newpath } def

/EndArrow { @mtrx setmatrix CP grestore end } def

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

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

grestore } def

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

CLW moveto } def

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

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

CLW moveto } def

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

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

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

def

/SD { 0 360 arc fill } def

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

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

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

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

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

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

cvi def } def

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

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

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

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

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

ifelse { pop } repeat a } def

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

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

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

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

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

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

Lineto pop pop closepath } ifelse } def

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

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

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

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

setmatrix } def

% DG modification begin - Jan. 15, 1997

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

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

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

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

%setmatrix } def

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

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

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

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

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

% setmatrix } def

setmatrix pop } def

% DG/SR modification end

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

def } def

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

def } def

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

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

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

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

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

m mul neg def } def

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

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

def

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

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

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

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

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

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

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

    n { NC } repeat EOC } ifelse } def

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

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

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

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

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

repeat closepath pop pop } ifelse } def

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

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

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

def

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

rotate matrix concatmatrix exch findfont exch makefont setfont } def

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

x1 y1 lineto closepath } def

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

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

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

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

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

ifelse } def

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

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

pop pop Rect } { OvalFrame } ifelse } def

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

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

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

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

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

ifelse } def

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

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

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

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

def

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

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

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

y0 x0 2 mul x1 sub y1 ] def } def

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

w add def } repeat grestore gsave n 0 gt

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

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

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

% DG/SR modification end

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

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

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

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

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

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

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

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

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

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

mul neg d } def

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

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

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

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

dup a add ] cvx def } def

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

cvx def } def

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

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

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

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

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

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

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

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

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

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

exch } def

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

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

} if } ifelse } def

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

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

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

/IfVisible true def } def

end

% END pstricks.pro

%%EndProcSet

%%BeginProcSet: pst-dots.pro 0 0

%!PS-Adobe-2.0

%%Title: Dot Font for PSTricks

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

%%Creation Date: May 7, 1993

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

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

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

10 dict dup begin

  /FontType 3 def

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

  /FontBBox [ 0 0 0 0 ] def

  /Encoding 256 array def

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

  Encoding

    dup (b) 0 get /Bullet put

    dup (c) 0 get /Circle put

    dup (C) 0 get /BoldCircle put

    dup (u) 0 get /SolidTriangle put

    dup (t) 0 get /Triangle put

    dup (T) 0 get /BoldTriangle put

    dup (r) 0 get /SolidSquare put

    dup (s) 0 get /Square put

    dup (S) 0 get /BoldSquare put

    dup (q) 0 get /SolidPentagon put

    dup (p) 0 get /Pentagon put

    dup (P) 0 get /BoldPentagon put

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

    dup (l) 0 get /SolidDiamond put

    dup (d) 0 get /Diamond put

        (D) 0 get /BoldDiamond put

% DG/SR modification end

  /Metrics 13 dict def

  Metrics begin

    /Bullet        1000   def

    /Circle        1000   def

    /BoldCircle    1000   def

    /SolidTriangle 1344   def

    /Triangle      1344   def

    /BoldTriangle  1344   def

    /SolidSquare    886   def

    /Square         886   def

    /BoldSquare     886   def

    /SolidPentagon 1093.2 def

    /Pentagon      1093.2 def

    /BoldPentagon  1093.2 def

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

    /SolidDiamond  1008   def

    /Diamond       1008   def

    /BoldDiamond   1008   def

% DG/SR modification end

    /.notdef 0 def

  end

  /BBoxes 13 dict def

  BBoxes begin

    /Circle        { -550 -550 550 550 } def

    /BoldCircle    /Circle load def

    /Bullet        /Circle load def

    /Triangle      { -571.5 -330 571.5 660 } def

    /BoldTriangle  /Triangle load def

    /SolidTriangle /Triangle load def

    /Square        { -450 -450 450 450 } def

    /BoldSquare    /Square load def

    /SolidSquare   /Square load def

    /Pentagon      { -546.6 -465 546.6 574.7 } def

    /BoldPentagon  /Pentagon load def

    /SolidPentagon /Pentagon load def

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

    /Diamond       { -428.5 -742.5 428.5 742.5 } def

    /BoldDiamond   /Diamond load def

    /SolidDiamond  /Diamond load def

% DG/SR modification end

    /.notdef { 0 0 0 0 } def

  end

  /CharProcs 20 dict def

  CharProcs begin

    /Adjust {

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

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

    } def

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

    /Bullet        { 500 500 Adjust CirclePath fill } def

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

                     eofill } def

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

                     eofill } def

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

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

                     closepath } def

    /SolidTriangle { TrianglePath fill } def

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

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

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

                     -450 -450 lineto closepath } def

    /SolidSquare   { SquarePath fill } def

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

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

    /PentagonPath  {

      -337.8 -465   moveto

       337.8 -465   lineto

       546.6  177.6 lineto

         0    574.7 lineto

      -546.6  177.6 lineto

      closepath

    } def

    /SolidPentagon { PentagonPath fill } def

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

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

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

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

                     428.5 0 lineto closepath } def

    /SolidDiamond  { DiamondPath fill } def

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

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

% DG/SR modification end

    /.notdef { } def

  end

  /BuildGlyph {

    exch

    begin

      Metrics 1 index get exec 0

      BBoxes 3 index get exec

      setcachedevice

      CharProcs begin load exec end

    end

  } def

  /BuildChar {

    1 index /Encoding get exch get

    1 index /BuildGlyph get exec

  } bind def

end

/PSTricksDotFont exch definefont pop

%END pst-dots.pro

%%EndProcSet

%%BeginProcSet: pst-node.pro 0 0

%!

% PostScript prologue for pst-node.tex.

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

% For distribution, see pstricks.tex.

%

/tx@NodeDict 400 dict def tx@NodeDict begin

tx@Dict begin /T /translate load def end

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

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

grestore } def

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

} def

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

Sin mul } def } def

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

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

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

dup Sin mul Cos Div } ifelse } def

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

/u ED /NodePos { GetRnodePos } def } def

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

Cos mul exch Sin mul } def

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

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

} ifelse } def

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

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

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

sin def /NodePos { TriNodePos } def } def

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

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

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

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

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

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

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

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

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

XYPos } ifelse } def

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

roll sin mul sub exch } ifelse } def

/GetEdgeA { NodeSepA AngleA NodeA NodeSepTypeA GetEdge OffsetA AngleA

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

/GetEdgeB { NodeSepB AngleB NodeB NodeSepTypeB GetEdge OffsetB AngleB

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

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

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

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

} ifelse } def

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

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

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

} ifelse } def

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

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

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

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

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

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

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

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

} repeat LPutLine cleartomark } def

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

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

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

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

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

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

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

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

} def

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

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

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

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

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

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

} def

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

} def

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

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

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

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

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

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

VPosEnd  } def

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

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

def grestore exec /LPutVar /SaveLPutVar load def } def

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

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