Présentation de translation_triangle.jps

/syracuse/bbgraf/albums/geometrie_01/translation_triangle.jpg
-6 4 setyrange /A {-5 -2} def /B {-3 2} def /C {-1 -4} def %% on se donne un vecteur /u {5 1} def %% et une origine pour le representer /U {C .1 -.1 addv} def %% on calcule les images [A B C] {u translatepoint} papply %% et on les nomme [/A' /B' /C'] exch mapnp 1.2 setcurvelinewidth [A B C] polygone [A' B' C'] polygone rouge U dupp u addv (->) line bleu setTimesItalic (A) A dltext (B) B ultext (C) C dltext (A') A' dltext (B') B' urtext (C') C' drtext