Présentation de homothetie_triangle.jps

/syracuse/bbgraf/albums/geometrie_01/homothetie_triangle.jpg
-10 4 setxrange -7 5 setyrange /A {-5 -2} def /B {-3 2} def /C {-1 -4} def %% l'homothetie : centre et rapport /I {2 -1} def /k 1.5 def %% la transformation /T {I k hompoint} def I point [/A' /B' /C'] [A B C] {T} papply %% on calcule les images mapnp %% et on les nomme gsave pointilles [I B B'] ligne [I A A'] ligne [I C C'] ligne grestore B A C angledroit B' A' C' angledroit 1.2 setcurvelinewidth [A B C] polygone [A' B' C'] polygone A B C 1 (-) tripointarc A' B' C' 1 (-) tripointarc B C A 1 (=) tripointarc B' C' A' 1 (=) tripointarc bleu setTimesItalic (A) A dltext (B) B urtext (C) C drtext (A') A' dltext (B') B' urtext (C') C' drtext (I) I urtext