Présentation de synt_001.jps

quadrillage

50 setxunit
-2 2 setxrange
-1 2 setyrange
/M1 {1 1} def
/M2 {.5 -.5} def
/K {0 .5} def

/unites {} def
tracerepere
marks
[M1 M2 K] 
dup points
polygone

K M1 K distance cercle
M1 K M2 angledroit

setTimesItalic
   (K) K cltext
   (M) M1 urtext
setTimes
   (1) indice
setTimesItalic
   (M) M2 drtext
setTimes
   (2) indice