%% auteur : 
%autocrop
usecolor
%%-2 53 --> decembre 2003

1995.5 2009.5 setxrange
1996 2005 setxrange
-15 136 setyrange
-15 120 setyrange
50 setxunit
2 setyunit
10 setfontsize

1996 0 setorigine
%20 setxunit
1 10 settkstep
1 10 setmkstep
/subticks {} def

0 ymax setyrange
traceaxes
axesarrow
marks

gsave
mixte
   xmin 107.295
   2005 107.295
   droite
   xmin 36.212
   2005 36.212
   droite
grestore

%% les x
/les_x [
   1998
   1999
   2000
   2001
   2002
   2003
   2004
] def
%% les y
/les_y_prel [
   76.377
   82.016
   107.907
   92.820
   111.790
   106.265
   111.849
   96.196
   107.295
] def

/les_y_evap [
   2.092
   6.025
   31.045
   23.421
   40.996
   42.013
   47.879
   24.265
   36.212
] def

/baton {10 bat@n} def
gsave
DeepSkyBlue2
   -5 0 translate
   les_x les_y_prel fuz 
   dup {baton} plot
grestore
rouge
les_x les_y_evap fuz 
dup {baton} plot



%% legende
noir
setTimes
#tex# maximum légal$^{*}$ pour le prélèvement
2005 107.295 [1 dup] crtexlabel
#tex# maximum légal$^{*}$ pour l'évaporation
2005 36.212  [1 dup] crtexlabel
#tex# $*$ en moyenne annuelle
2005 20  [1 dup] crtexlabel


gsave
2006 60 stranslate
90 rotate
   DeepSkyBlue2
   0 10 baton
   noir
   (volume annuel prélevé) 0 0 {-90} crtext
grestore

gsave
2006 50 stranslate
90 rotate
   rouge
   0 10 baton
   noir
   (volume annuel évaporé) 0 0 {-90} crtext
grestore

(millions m^3) Ox ymax uctext
(année) xmax 0 crtext

/arrowscale {.8 dup} def
1997.8 0 (A) enode
1998 -10 (B) enode
/armB 0 def
/angleB 180 def
/angleA -90 def
(A) (B) (<-) ncangle
(divergence réacteur 1) (B) nodepoint crtext

1999.8 0 (C) enode
2000 -7 (D) enode
/armB 0 def
/angleB 180 def
/angleA -90 def
(C) (D) (<-) ncangle
(divergence réacteur 2) (D) nodepoint crtext


<tex>
\bf \Times
\vbox {\hsize 50mm

\centerline {Consommation d'eau pour la }

\centerline {centrale nucléaire de Civaux}
}
</tex>

boxit
/fillstyle {AntiqueWhite fill} def
noir 
2003 135 [1.2 dup] dctexlabel