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