%% syntaxe : path1 I alpha rotatepath --> path2, image de path1 par la
%% rotation de centre I et d'angle alpha
/rotatepath {
3 dict begin
/alpha exch def
/I defpoint
/path1 exch def
[
path1 pathparamtable {} apply
path1 pathpointstable {I alpha rotatepoint} papply
]
end
} def
|