%% syntaxe : A B O r rotatedroite --> C D images resp de A et B par la
%% rotation de centre O et d'angle r (en degre)
/rotatedroite {
5 copy rotatepoint %% A B O r D
6 -1 roll pop %% A xB O r D
6 -1 roll pop %% A O r D
7 1 roll
7 1 roll rotatepoint %% D C
4 1 roll 4 1 roll
} def
/rotatevecteur {
rotatedroite
} def
/rotatesegment {
rotatedroite
} def
|