%% auteur : 


%% on veut obtenir une Bouding Box de 0 0 842 576 (format A4r)

28.4527 setxunit %% 10 mm
-.700 10.500 setyrange
-.700 13.500 setxrange
10 setborder

[5 5] {orange} Quadrillage

-1 10 setyrange
-1 13 setxrange
[1 1 .5 .5 .1 .1] {orange} Quadrillage

traceaxes
1 setymkstep
ymarks
xticks
axeOyarrow

[ 1 2 3 4 5 6 7 8 9 10 11 12]
[ 9 9 7 8 5 2 0 1 1 2 6 7]

/T {6.5 9} def
/J {1 0} def
/F {2 0} def
/M {3 0} def
/A {4 0} def
/m {5 0} def
/j {6 0} def
/L {7 0} def
/u {8 0} def
/S {9 0} def
/O {10 0} def
/N {11 0} def
/D {12 0} def

/K {-0.2 5} def

setTimesBold
boxit
(Nombre de jours de pluie mois par mois) T uctext
(Jours de pluie) K {90} ultext
(Jan) J dctext
(F?v) F dctext
(Mar) M dctext
(Avr) A dctext
(Mai) m dctext
(Juin) j dctext
(Jui) L dctext
(Aou) u dctext
(Sept) S dctext
(Oct) O dctext
(Nov) N dctext
(Dec) D dctext

fuz                  
dup {times2} plot
bleu ligne