Présentation de rotation_point.jps

-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