50 setxyrapport 20 setxunit 7.5 setborder 90 setangle_repere -0.9 12.9 setxrange -50 590 setyrange 1 100 settkstep 1 100 setsubtkstep 1 100 setmkstep ticks subticks marks traceaxes axesarrow 12 setfontsize setTimes /fillstyle {blanc fill} def /A {xmin xmax add 2 div ymax ymin sub abs 4 div ymax exch sub} def /B {A 0 20 ptojpoint addv} def /C {B 0 20 ptojpoint addv} def /D {xmin xmax add 2 div ymin 0 5 ptojpoint addv} def %% definition de la serie 1 /l1 [1 2 3 4 5 6 7 8 9 10 11 12 ] def %% definition de la serie 1 /l2 [300 450 130 200 280 410 200 250 320 500 210 250] def %% dessin du nuage gsave rouge l1 l2 fuz { point } plot grestore (Trimestre) 12.5 25 cltext (Chiffre d'affaires) 0.2 550 crtext (0) 0 0 dltext bleu /E {4 270} def E point /F {5 265} def F point /G {6 255} def G point /H {7 273} def H point /I {8 285} def I point /J {9 295} def J point /K {10 318} def K point /L {11 320} def L point /M {12 320} def M point [E F G H I J K L M] (-) ligne