Présentation de trig_001.jps

autocrop
30 setxunit
/M {-3 0} def
/N {-5 0} def

N dupp 40 dir addv 
M dupp 55 dir addv interdroite
/A defpoint
A projx /B defpoint

A B M angledroit
[A N] ligne
[A M] ligne

M N A .75 tripointarc
B M A .75 (=) tripointarc
gsave
   1.5 setlinewidth
   [A B N] ligne
grestore

10 setfontsize
setTimesItalic
   (A) A urtext
   (B) B drtext
   (M) M drtext
   (N) N dltext
setTimes
   (40°) 20 N 1.25 cpoint cctext
   (55°) 20 M 1.25 cpoint cctext

0 -10 translate
[N M] (<->) ligne
   (12 m) N M milieu dctext