%% source : Gazette nucléaire no 157/158, mai 1997
%% publication du GSIEN, rue François Villon, ORSAY
%% http://membres.lycos.fr/yvesrenaud/Gazette/

350 setwidth
500 setheight
1979 1992 setxrange
-20 450 setyrange

1980 0 setorigine
traceaxes

1 100 setmkstep

/baton4 {10 bat@n} def
/dates 
   [1981 1982 1983 1984 1985 1987 1988 1989 1990 1991 
] def
/valeurs
   [86 148 131 143 108 135 233 265 390 273]
def

dates valeurs fuz {baton4} plot

/xmarkstyle {(0 -5) dctext} def
10 setfontsize
dates {xmark} apply
ymarks

10 setfontsize

/chaine 4 string def
setCourrier
/i 0 def
valeurs length 
   {
      valeurs i get chaine cvs
      dates i get
      valeurs i get
      uctext
      /i i 1 add store
   } 
repeat

18 setfontsize
setTimes
(Cas d'hydrocéphalies en Ukraine) 1982 425 text