Présentation de homothetie_triangle.jps

-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