%!PS-Adobe-2.0 EPSF-2.0 %%BoundingBox: 0 0 621 356 %%Title: pnbbargraph.eps %%Creator: PI-PSFile (N.R. 07/08/99) %%CreationDate: Mon Aug 7 12:20:30 2006 %%Pages: (atend) %%EndComments /$PIDict 50 dict def $PIDict begin $PIDict /mtrx matrix put /Landscape 0 def /Portrait 1 def % Couleurs et fontes courantes /C-4 {ur ug ub setrgbcolor} bind def % PI_ColorFromMap /C0 {0.0 0.0 0.0 setrgbcolor} bind def % PI_Black /C1 {1.000 1.000 1.000 setrgbcolor} bind def % PI_White /C2 {0.824 0.824 0.824 setrgbcolor} bind def % PI_Grey /C3 {1.000 0.0 0.0 setrgbcolor} bind def % PI_Red /C4 {0.0 0.0 1.000 setrgbcolor} bind def % PI_Blue /C5 {0.0 1.000 0.0 setrgbcolor} bind def % PI_Green /C6 {1.000 1.000 0.0 setrgbcolor} bind def % PI_Yellow /C7 {1.000 0.0 1.000 setrgbcolor} bind def % PI_Magenta /C-1 {} bind def % PI_NotDefColor /C8 {0.0 1.000 1.000 setrgbcolor} bind def % PI_Cyan /C9 {0.250 0.875 0.813 setrgbcolor} bind def % PI_Turquoise /C10 {0.0 0.0 0.500 setrgbcolor} bind def % PI_NavyBlue /C11 {1.000 0.644 0.0 setrgbcolor} bind def % PI_Orange /C12 {0.625 0.320 0.176 setrgbcolor} bind def % PI_SiennaRed /C13 {0.625 0.125 0.937 setrgbcolor} bind def % PI_Purple /C14 {0.195 0.800 0.195 setrgbcolor} bind def % PI_LimeGreen /C15 {1.000 0.840 0.0 setrgbcolor} bind def % PI_Gold /C16 {0.933 0.510 0.933 setrgbcolor} bind def % PI_Violet /C17 {0.816 0.125 0.565 setrgbcolor} bind def % PI_VioletRed /C18 {0.541 0.167 0.886 setrgbcolor} bind def % PI_BlueViolet /C19 {0.580 0.000 0.827 setrgbcolor} bind def % PI_DarkViolet /C20 {0.530 0.805 0.920 setrgbcolor} bind def % PI_SkyBlue /C21 {0.255 0.410 0.880 setrgbcolor} bind def % PI_RoyalBlue /C22 {0.135 0.545 0.135 setrgbcolor} bind def % PI_ForestGreen /C23 {1.000 0.270 0.000 setrgbcolor} bind def % PI_OrangeRed /C24 {0.647 0.165 0.165 setrgbcolor} bind def % PI_Brown /C25 {0.600 0.750 1.000 setrgbcolor} bind def % PI_HighlightBlue /F1 {/Courier findfont} bind def % PI_RomanFont /F2 {/Courier-Bold findfont} bind def % PI_BoldFont /F4 {/Courier-Italic findfont} bind def % PI_ItalicFont /F-1 {} bind def % PI_NotDefFontAtt /FS {scalefont setfont} bind def %/FS2 {8 scalefont setfont} bind def % PI_SmallSizeFont %/FS3 {12 scalefont setfont} bind def % PI_NormalSizeFont %/FS4 {16 scalefont setfont} bind def % PI_LargeSizeFont /FS-1 {} bind def % PI_NotDefFontSize /L1 {1 slw} bind def % PI_NormalLine /L2 {0.5 slw} bind def % PI_ThinLine /L3 {3 slw} bind def % PI_ThickLine /L0 {} bind def % PI_NotDefLineAtt % Conversion /cm {28.3 mul} bind def % cm --> points /Ux {$Cvrtx mul} bind def % Unites utilisateur /x --> points /Uy {$Cvrty mul} bind def % Unites utilisateur /y --> points % Pages et Blocs /newref {% Dx Dy Tx Ty X0 Y0 newref translate 3 -1 roll cm div 28.3 mul /$Cvrty exch def exch cm div 28.3 mul /$Cvrtx exch def} bind def /NewPage {% Dx Dy orientation NewPage /$PageEnteredState save def 1 -1 scale Portrait eq {w cm h cm 0 h cm neg newref} { -90 rotate h cm w cm 0 0 newref} ifelse} bind def /EndPage { % EndPage $PageEnteredState restore} bind def /NewBloc { % Dx Dy Tx Ty X0 Y0 NewBloc /$BlocEnteredState save def newref} bind def /EndBloc { % EndBloc $BlocEnteredState restore} bind def % Trace /n {newpath} bind def /c {closepath} bind def /gs {gsave} bind def /gr {grestore} bind def /m {moveto} bind def /l {lineto} bind def /s {stroke} bind def /f {fill} bind def /sc {scale} bind def /S {gs 1 -1 sc show gr} bind def /slw {setlinewidth} bind def /sljoin {setlinejoin} bind def /slcap {setlinecap} bind def /slsolid {[] 0 setdash} bind def % Solid-Line /sldash {[6 6] 0 setdash} bind def % Dashed-Line /sldott {[2 6] 0 setdash} bind def % Dotted-Line /sldashdott {[2 2 4 6] 0 setdash} bind def % Dash-Dotted-Line /ff {findfont} bind def /sf {setfont} bind def /scf {scalefont} bind def /rl {rlineto} bind def /tr {translate} bind def /rmv {rmoveto} bind def % Trace de chaine avec justification diverse % ------------------------------------------------- % hxshstr stack: TheString % hx (x=r,c,l) Horizontal-X Right,Center,Left - Vertical: BaseLine % ------------------------------------------------- /hlshstr % Horizontal-left Vertical-BaseLine justified { gs 1 -1 sc show gr } bind def /hcshstr % Horizontal-Center Vertical-BaseLine justified { dup stringwidth pop 2 div neg % get minus(string length/2) 0 rmoveto gs 1 -1 sc show gr } bind def /hrshstr % Horizontal-Right Vertical-BaseLine justified { dup stringwidth pop neg % get minus(string width) 0 rmoveto gs 1 -1 sc show gr } bind def % ------------------------------------------------- % hxvyshstr stack: TheString % hx (x=r,c,l) Horizontal-X Right,Center,Left % vy (y=t,c,b) Vertical-Y Top,Center,Bottom % Ces procs (hxvyshstr) utilisent la variable curfntsz que l'on definit par defaut % hxshstr stack: TheString % hx (x=r,c,l) Horizontal-X Right,Center,Left - Vertical: BaseLine % ------------------------------------------------- /curfntsz 10 def /hlvbshstr % Horizontal-left Vertical-Bottom justified { gs 1 -1 sc show gr } bind def /hcvbshstr % Horizontal-Center Vertical-Bottom justified { dup stringwidth pop 2 div neg % get minus(string length/2) 0 rmoveto gs 1 -1 sc show gr } bind def /hrvbshstr % Horizontal-Right Vertical-Bottom justified { dup stringwidth pop neg % get minus(string width) 0 rmoveto gs 1 -1 sc show gr } bind def /hlvcshstr % Horizontal-left Vertical-Center justified { 0 curfntsz 2 div % get (string height)/2 rmoveto gs 1 -1 sc show gr } bind def /hcvcshstr % Horizontal-Center Vertical-Center justified { dup stringwidth pop 2 div neg curfntsz 2 div % s_wy/2 -s_wx/2 rmoveto gs 1 -1 sc show gr } bind def /hrvcshstr % Horizontal-Right Vertical-Center justified { dup stringwidth pop neg curfntsz % s_wy/2 -s_wx rmoveto gs 1 -1 sc show gr } bind def /hlvtshstr % Horizontal-left Vertical-Top justified { 0 curfntsz % get s_wy rmoveto gs 1 -1 sc show gr } bind def /hcvtshstr % Horizontal-Center Vertical-Top justified { dup stringwidth pop 2 div neg curfntsz % s_wy -s_wx/2 rmoveto gs 1 -1 sc show gr } bind def /hrvtshstr % Horizontal-Right Vertical-Top justified { dup stringwidth pop neg curfntsz % s_wy -s_wx rmoveto gs 1 -1 sc show gr } bind def % Tx Ty X0 Y0 box /box {tr 0 3 1 roll neg exch 0 0 3 index neg 0 0 m rl rl rl c} bind def % R X0 Y0 circle /circle {tr dup 0 m 0 0 3 -1 roll 0 380 arc} bind def % DrawEllipse pompee sur transfig /ellipse {/endangle exch def /startangle exch def /yrad exch def /xrad exch def /y exch def /x exch def /savematrix mtrx currentmatrix def x y tr xrad yrad sc 0 0 1 startangle endangle arc closepath savematrix setmatrix } def % pipsarc Arc /pipsarc {/endangle exch def /startangle exch def /yrad exch def /xrad exch def /y exch def /x exch def /savematrix mtrx currentmatrix def x y tr xrad yrad sc 0 0 1 startangle endangle arc savematrix setmatrix } def % pipsfarc Arc plein /pipsfarc {/endangle exch def /startangle exch def /yrad exch def /xrad exch def /y exch def /x exch def /savematrix mtrx currentmatrix def x y tr 0 0 moveto xrad yrad sc 0 0 1 startangle endangle arc 0 0 lineto closepath savematrix setmatrix } def % Gestion des images % ColorImage, pompee sur xv (qui les avait pompees sur xgrab) /colorimage where % do we know about 'colorimage'? { pop } % yes: pop off the 'dict' returned { % no: define one /colortogray { % define an RGB->I function /rgbdata exch store % call input 'rgbdata' rgbdata length 3 idiv /npixls exch store /rgbindx 0 store 0 1 npixls 1 sub { grays exch rgbdata rgbindx get 20 mul % Red rgbdata rgbindx 1 add get 32 mul % Green rgbdata rgbindx 2 add get 12 mul % Blue add add 64 idiv % I = .5G + .31R + .18B put /rgbindx rgbindx 3 add store } for grays 0 npixls getinterval } bind def /mergeprocs { % def dup length 3 -1 roll dup length dup 5 1 roll 3 -1 roll add array cvx dup 3 -1 roll 0 exch putinterval dup 4 2 roll putinterval } bind def /colorimage { pop pop % remove 'false 3' operands {colortogray} mergeprocs image} bind def } ifelse % end of 'false' case % GetRGB /GetRGB { % ImageStr --> RGBStr /ImageData exch store % Pour chaque element de ImageData, % On va chercher les valeurs RGB correspondantes 0 1 Taille 1 sub { /i exch store % On met a jour l'indice de parcours ImageData i get % Recupere la Indice e val dans la chaine ImData ColorMap exch get % On recupere la valeur RGB Correspondante aload pop % On met tout ca dans la pile % Maintenant, on va mettre tout ca dans la chaine RGBStr RGBStr i 3 mul 2 add 3 -1 roll put RGBStr i 3 mul 1 add 3 -1 roll put RGBStr i 3 mul 3 -1 roll put } for RGBStr 0 Taille 3 mul getinterval % On renvoie la chaine RGB } bind def end % Definition de la fonte $PIMarkers /$PIMarkers 26 dict def $PIMarkers begin /FontType 3 def /FontMatrix [0.001 0 0 0.001 -0.375 -0.375] def /FontBBox [0 0 1000 1000] def /Encoding 256 array def 0 1 255 {Encoding exch /.notdef put} for Encoding 0 /PIDot put % PI_DotMarker Encoding 1 /PIPlus put % PI_PlusMarker Encoding 2 /PICross put % PI_CrossMarker Encoding 3 /PICircle put % PI_CircleMarker Encoding 4 /PIFCircle put % PI_FCircleMarker Encoding 5 /PIBox put % PI_BoxMarker Encoding 6 /PIFBox put % PI_FBoxMarker Encoding 7 /PITriangle put % PI_TriangleMarker Encoding 8 /PIFTriangle put % PI_FTriangleMarker Encoding 9 /PIStar put % PI_StarMarker Encoding 10 /PIFStar put % PI_FStarMarker /CharProcs 26 dict def $PIDict begin CharProcs begin /.notdef {} def /PIDot {100 375 375 circle f} bind def /PIPlus {0 375 m 750 375 l 375 0 m 375 750 l s} bind def /PICross {0 0 m 750 750 l 750 0 m 0 750 l s} bind def /PICircle {375 375 375 circle s} bind def /PIFCircle {375 375 375 circle f} bind def /PIBox {0 0 m 750 0 l 750 750 l 0 750 l c s} bind def /PIFBox {0 0 m 750 0 l 750 750 l 0 750 l c f} bind def /PITriangle {0 750 m 375 0 l 750 750 l c s} bind def /PIFTriangle {0 750 m 375 0 l 750 750 l c f} bind def /PIStar {731 260 m 459 260 l 375 0 l 291 260 l 19 260 l 239 419 l 155 678 l 375 518 l 595 678 l 511 419 l c s} def /PIFStar {731 260 m 459 260 l 375 0 l 291 260 l 19 260 l 239 419 l 155 678 l 375 518 l 595 678 l 511 419 l c f} def end %$PIDict end %$CharProcs /BuildChar { 1000 0 % Largeur 0 0 750 750 % Bounding Box setcachedevice exch begin Encoding exch get CharProcs exch get end 75 slw exec} def end /PIMarkers $PIMarkers definefont pop save $PIDict begin /PIMarkers ff 14 scf sf /FState save def %%EndProlog %%Page: 1 1 /PState save def 1 -1 scale 621.00 356.00 621.00 356.00 0.00 -356.00 newref /Courier ff 10 FS /curfntsz 10 def %>BeginBloc 1 621.00 356.00 621.00 Ux 356.00 Uy 0.00 Ux 0.00 Uy NewBloc % Define clip region to the entire bloc area initclip newpath 0 0 m 621.00 Ux 0 rl 0 356.00 Uy rl -621.000000 Ux 0 rl closepath clip newpath /Courier ff 10 FS /curfntsz 10 def 2 slw 1 slw C0 n 80.00 Ux 316.00 Uy m 577.00 Ux 316.00 Uy l s C0 n 577.00 Ux 316.00 Uy m 577.00 Ux 32.00 Uy l s C0 n 577.00 Ux 32.00 Uy m 80.00 Ux 32.00 Uy l s C0 n 80.00 Ux 32.00 Uy m 80.00 Ux 316.00 Uy l s C0 n 91.83 Ux 316.00 Uy m 91.83 Ux 312.45 Uy l s C0 n 148.56 Ux 316.00 Uy m 148.56 Ux 312.45 Uy l s C0 n 205.28 Ux 316.00 Uy m 205.28 Ux 312.45 Uy l s C0 n 262.00 Ux 316.00 Uy m 262.00 Ux 312.45 Uy l s C0 n 318.73 Ux 316.00 Uy m 318.73 Ux 312.45 Uy l s C0 n 375.45 Ux 316.00 Uy m 375.45 Ux 312.45 Uy l s C0 n 432.17 Ux 316.00 Uy m 432.17 Ux 312.45 Uy l s C0 n 488.90 Ux 316.00 Uy m 488.90 Ux 312.45 Uy l s C0 n 545.62 Ux 316.00 Uy m 545.62 Ux 312.45 Uy l s C0 n 91.83 Ux 35.55 Uy m 91.83 Ux 32.00 Uy l s C0 n 148.56 Ux 35.55 Uy m 148.56 Ux 32.00 Uy l s C0 n 205.28 Ux 35.55 Uy m 205.28 Ux 32.00 Uy l s C0 n 262.00 Ux 35.55 Uy m 262.00 Ux 32.00 Uy l s C0 n 318.73 Ux 35.55 Uy m 318.73 Ux 32.00 Uy l s C0 n 375.45 Ux 35.55 Uy m 375.45 Ux 32.00 Uy l s C0 n 432.17 Ux 35.55 Uy m 432.17 Ux 32.00 Uy l s C0 n 488.90 Ux 35.55 Uy m 488.90 Ux 32.00 Uy l s C0 n 545.62 Ux 35.55 Uy m 545.62 Ux 32.00 Uy l s C0 n 80.00 Ux 290.33 Uy m 86.21 Ux 290.33 Uy l s C0 n 80.00 Ux 257.10 Uy m 86.21 Ux 257.10 Uy l s C0 n 80.00 Ux 223.86 Uy m 86.21 Ux 223.86 Uy l s C0 n 80.00 Ux 190.62 Uy m 86.21 Ux 190.62 Uy l s C0 n 80.00 Ux 157.38 Uy m 86.21 Ux 157.38 Uy l s C0 n 80.00 Ux 124.14 Uy m 86.21 Ux 124.14 Uy l s C0 n 80.00 Ux 90.90 Uy m 86.21 Ux 90.90 Uy l s C0 n 80.00 Ux 57.67 Uy m 86.21 Ux 57.67 Uy l s C0 n 570.79 Ux 290.33 Uy m 577.00 Ux 290.33 Uy l s C0 n 570.79 Ux 257.10 Uy m 577.00 Ux 257.10 Uy l s C0 n 570.79 Ux 223.86 Uy m 577.00 Ux 223.86 Uy l s C0 n 570.79 Ux 190.62 Uy m 577.00 Ux 190.62 Uy l s C0 n 570.79 Ux 157.38 Uy m 577.00 Ux 157.38 Uy l s C0 n 570.79 Ux 124.14 Uy m 577.00 Ux 124.14 Uy l s C0 n 570.79 Ux 90.90 Uy m 577.00 Ux 90.90 Uy l s C0 n 570.79 Ux 57.67 Uy m 577.00 Ux 57.67 Uy l s /Times-Bold ff 11 FS /curfntsz 11 def gs 91.83 Ux 327.55 Uy m (0) hcshstr gr gs 91.83 Ux 327.55 Uy m (0) hcvbshstr gr gs 148.56 Ux 327.55 Uy m (5) hcshstr gr gs 148.56 Ux 327.55 Uy m (5) hcvbshstr gr gs 205.28 Ux 327.55 Uy m (10) hcshstr gr gs 205.28 Ux 327.55 Uy m (10) hcvbshstr gr gs 262.00 Ux 327.55 Uy m (15) hcshstr gr gs 262.00 Ux 327.55 Uy m (15) hcvbshstr gr gs 318.73 Ux 327.55 Uy m (20) hcshstr gr gs 318.73 Ux 327.55 Uy m (20) hcvbshstr gr gs 375.45 Ux 327.55 Uy m (25) hcshstr gr gs 375.45 Ux 327.55 Uy m (25) hcvbshstr gr gs 432.17 Ux 327.55 Uy m (30) hcshstr gr gs 432.17 Ux 327.55 Uy m (30) hcvbshstr gr gs 488.90 Ux 327.55 Uy m (35) hcshstr gr gs 488.90 Ux 327.55 Uy m (35) hcvbshstr gr gs 545.62 Ux 327.55 Uy m (40) hcshstr gr gs 545.62 Ux 327.55 Uy m (40) hcvbshstr gr gs 583.00 Ux 338.55 Uy m (x 10) hrshstr gr gs 583.00 Ux 338.55 Uy m (x 10) hrvbshstr gr /Times-Bold ff 8 FS /curfntsz 8 def gs 584.00 Ux 333.00 Uy m (3) hlshstr gr /Times-Bold ff 11 FS /curfntsz 11 def gs 73.79 Ux 292.33 Uy m (1) hrshstr gr gs 73.79 Ux 292.33 Uy m (1) hrvbshstr gr gs 73.79 Ux 259.10 Uy m (2) hrshstr gr gs 73.79 Ux 259.10 Uy m (2) hrvbshstr gr gs 73.79 Ux 225.86 Uy m (3) hrshstr gr gs 73.79 Ux 225.86 Uy m (3) hrvbshstr gr gs 73.79 Ux 192.62 Uy m (4) hrshstr gr gs 73.79 Ux 192.62 Uy m (4) hrvbshstr gr gs 73.79 Ux 159.38 Uy m (5) hrshstr gr gs 73.79 Ux 159.38 Uy m (5) hrvbshstr gr gs 73.79 Ux 126.14 Uy m (6) hrshstr gr gs 73.79 Ux 126.14 Uy m (6) hrvbshstr gr gs 73.79 Ux 92.90 Uy m (7) hrshstr gr gs 73.79 Ux 92.90 Uy m (7) hrvbshstr gr gs 73.79 Ux 59.67 Uy m (8) hrshstr gr gs 73.79 Ux 59.67 Uy m (8) hrvbshstr gr /Times-Bold ff 16 FS /curfntsz 16 def gs 452.75 Ux 346.56 Uy m (PNB / Hab , $ 2003) hcshstr gr gs 452.75 Ux 346.56 Uy m (PNB / Hab , $ 2003) hcvbshstr gr gs 22.88 Ux 103.00 Uy m -90 rotate ( ) hcshstr gr gs 22.88 Ux 103.00 Uy m -90 rotate ( ) hcvbshstr gr gs 328.50 Ux 16.64 Uy m (BarGraph) hcshstr gr gs 328.50 Ux 16.64 Uy m (BarGraph) hcvbshstr gr % SetClipRectangle: Define clip region newpath 80.00 Ux 32.00 Uy m 497.00 Ux 0 rl 0 284.00 Uy rl -497.00 Ux 0 rl closepath clip newpath 2 slw C4 gs n 257.18 Ux 18.90 Uy 91.83 Ux 280.88 Uy box s gr /Helvetica-Bold ff 14 FS /curfntsz 14 def gs 336.16 Ux 295.33 Uy m (Allemagne) hrshstr gr gs 336.16 Ux 295.33 Uy m (Allemagne) hrvbshstr gr C4 gs n 163.70 Ux 18.90 Uy 91.83 Ux 247.64 Uy box s gr gs 263.72 Ux 262.10 Uy m (Espagne) hlshstr gr C4 gs n 249.70 Ux 18.90 Uy 91.83 Ux 214.41 Uy box s gr gs 329.04 Ux 228.86 Uy m (France) hrshstr gr gs 329.04 Ux 228.86 Uy m (France) hrvbshstr gr C4 gs n 215.09 Ux 18.90 Uy 91.83 Ux 181.17 Uy box s gr gs 317.68 Ux 195.62 Uy m (Italie) hlshstr gr C4 gs n 271.82 Ux 18.90 Uy 91.83 Ux 147.93 Uy box s gr gs 350.06 Ux 162.38 Uy m (Pays-Bas) hrshstr gr gs 350.06 Ux 162.38 Uy m (Pays-Bas) hrvbshstr gr C4 gs n 430.30 Ux 18.90 Uy 91.83 Ux 114.69 Uy box s gr gs 500.62 Ux 129.14 Uy m (Suisse) hrshstr gr gs 500.62 Ux 129.14 Uy m (Suisse) hrvbshstr gr C4 gs n 286.45 Ux 18.90 Uy 91.83 Ux 81.45 Uy box s gr gs 363.96 Ux 95.90 Uy m (UK) hrshstr gr gs 363.96 Ux 95.90 Uy m (UK) hrvbshstr gr C4 gs n 397.74 Ux 18.90 Uy 91.83 Ux 48.21 Uy box s gr gs 469.69 Ux 62.67 Uy m (USA) hrshstr gr gs 469.69 Ux 62.67 Uy m (USA) hrvbshstr gr % Define clip region to the entire bloc area initclip newpath 0 0 m 621.00 Ux 0 rl 0 356.00 Uy rl -621.000000 Ux 0 rl closepath clip EndBloc %>EndBloc 1 PState restore showpage %>EndPage 1 FState restore %%Trailer %%Pages: 1 %%EOF