%Gilles Mora
2.5 setxyrapport
40 setxunit
7.5 setborder
90 setangle_repere
35 0 setorigine
34 45 setxrange
-2 27 setyrange

1 5 setmkstep

marks
traceaxes
/rectwidth 0.4 def
noir
/liste [38 38 38 38 38 39 39 39 39 39 39 39 39 39 39 40 40 40 40 40 40 40 40 40 40 40 40 40 40 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 42 42 42 42 42 42 42 42 42 42 42 42 43 43 43 43 43 43 43 43 44 44 44] def
liste traitement {plein2} plot

setTimes
(5) 38 5 [1.5 dup] uctext
(10) 39 10 [1.5 dup] uctext
(14) 40 14 [1.5 dup] uctext
(24) 41 24 [1.5 dup] uctext
(12) 42 12 [1.5 dup] uctext
(8) 43 8 [1.5 dup] uctext
(3) 44 3 [1.5 dup] uctext