Présentation de calc_018.jps

/syracuse/bbgraf/albums/geometrie_2nd/calc_018.jpg
autocrop %quadrillage %tracerepere %marks 10 setfontsize 15 setxunit /A {-3 2} def /B {2 3} def /C {3 1} def A B C parallelopoint /D defpoint /M {A A D vecteur 3 mulv addv} def /N {B A B vecteur .5 mulv addv} def M N 1.1 trait gsave pointilles [D M] ligne [B N] ligne grestore 1 setlinewidth [A B C D] polygone [M N] {times2} plot setTimesItalic (A) A ultext (B) B ultext (C) C drtext (D) D dltext (M) M drtext (N) N drtext