7.5 setborder
90 setangle_repere
-0.5 1.5 setxrange
-0.5 1.5 setyrange
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep


100 setxunit [1 1 .5 .5 .1 .1] {orange} Quadrillage .7 setlinewidth

ticks
subticks
marks
traceaxes
axesarrow
unites


/f {setxvar
#rpn#   x+0.5
} def
/g {setxvar
#rpn#   x-0.5
} def
/h {setxvar
#rpn#   x
} def
gsave
   noir
   .75 setlinewidth
   continu
  0  0.5 {f} Courbe
grestore
gsave
   noir
   .75 setlinewidth
   continu
  0.5  1 {g} Courbe
grestore
gsave
   noir
   .75 setlinewidth
   continu
  0  1 {h} Courbe
grestore

setTimesItalic
   (O) O drtext

setTimes (x) 1.4 0.08 cctext

setTimes (y)  -0.1 1.4 cctext

setTimes (1) 1 -0.1 cctext

setTimes (1) -0.1 1 cctext