Présentation de rotation_point.jps

/syracuse/bbgraf/albums/geometrie_01/rotation_point.jpg
-6 3 setxrange -5 3 setyrange /A {-5 -2} def /B {-3 2} def /C {-1 -4} def %% la rotation : centre et angle /I {-2 1} def /alpha 100 def %% la transformation /transform {I alpha rotatepoint} def /A' {A transform} def [I A A'] points .8 setcurvelinewidth [A I A'] ligne gsave pointilles I A A' arcp grestore %% on corrige "a la main" la taille et l'angulation de l'embout fleche /arrowscale {1.5 dup} def /arrowangle -8 def A I A' 1 (->) tripointarc bleu setTimesItalic (A) A dltext (A') A' rtext (I) I urtext setSymbol (a) -90 I 1 cpoint dtext