Présentation de calc_010b.jps

200 setwidth
-8 8 setxrange
-8 8 setyrange

/quadrillagegray .2 def
quadrillage

/A {-4 -2} def
/B {0 4} def
/C {4 -2} def

A
B C vecteur 
-.5 mulv 
addv
/M defpoint

1.3 setlinewidth
[A B C] polygone
M times2

setTimesItalic
   (A) A dltext
   (B) B ultext
   (C) C drtext
   (M) M urtext