Présentation de synt_005.jps

-12 6 setyrange
quadrillage
tracerepere
marks

/f {
   3 add
} def
/g {
   neg 6 sub .5 mul
} def

/AB {1 dup f 0 dup f} def
/AC {1 dup g 0 dup g} def

AB AC interdroite /A defpoint
5 AB ydpoint /B defpoint
-4 AC ydpoint /C defpoint
A B C vecteur addv /D defpoint

[A B C D] points
{f} courbe
{g} courbe

.8 setlinewidth
pointilles
[A D C B] ligne

setTimesItalic
   (O) O drtext
   (A) A cltext
   (B) B ultext
   (C) C urtext
   (D) D dltext

<tex>
$x+2y+6=0$
</tex>

-1 A C xdpoint {A C angle} dctexlabel

<tex>
$y=x+3$
</tex>

-2 A B xdpoint {A B angle} uctexlabel