Source
%% auteur : 

5 setxyrapport
%25 setxunit [1 1 .5 .5 .1 .1] {orange} Quadrillage .7 setlinewidth
5 setxunit 
7.5 setborder
90 setangle_repere

-10 100 setxrange
-20 600 setyrange
%9.7 0 setorigine
%/quadrillagegray 0.4 def
%1 setquadrillagexstep
%50 setquadrillageystep
/quadrillagewidth [1.2 .5] def
[10 20 10  5] {cyan} Quadrillage
.7 setlinewidth
%quadrillage
10 20 setmkstep
10 20 settkstep
%10 5 setsubtkstep
%.1 50 setmkstep
%subticks
%tracerepere
marks
traceaxes
axesarrow
%unites


%définition des axes
/X {90 10} def
/Y {2 550} def


setTimesItalic
(O) O drtext
(Nombre d'enfants) X uctext
(Prix en euros) Y urtext

/A {0 90} def
/B {60 330} def


O B droite
A B droite

/C {70 480} def
/J {80 360} def

/E {80 440} def
/F {73 380} def

/G {80 200} def

[C E] (->) ligne
[J F] (->) ligne
[80 200 70 265] (->) ligne


boxit_all
/fillstyle {blanc fill} def

(Société Carrousel) C [2 2] uctext
(Société Junior) J [2 2] dctext
(Société Galopin) G [2 2] dctext

/M {50 270} def
/N {50 280} def
/M' {0 270} def
/N' {0 280} def


pointilles rouge
[50 0 50 270 0 270] ligne
[50 0 50 290 0 290] ligne
[60 0 60 330 0 330] ligne

continu bleu
[20 190 40 220 60 250 80 280] ligne

pointilles bleu
[0 160 20 190] ligne