Présentation de hachure.jps

-1 6 setyrange
-2 6 setxrange
1.5 setlinewidth

/f {setxvar
#rpn# .5 * (x-2)^2 + 1
} def

/fillstyle {jaune fill} def
1 4 {f} Courbe*
/fillstyle {rouge fill} def
-1 0 {f} Fillcourbe

/hcolor {bleu} def
traceaxes
marks
{f} courbe
4 5 {f} Hachcourbe