Présentation de hachure.jps

/syracuse/texpng/jpv/guide_jps/hachure.jpg
-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