%% syntaxe : path1 I alpha rotatepath --> path2, image de path1 par
%% l'homothetie de centre I et de rapport alpha
/hompath {
3 dict begin
/alpha exch def
/I defpoint
/path1 exch def
[
path1 pathparamtable {} apply
path1 pathpointstable {I alpha hompoint} papply
]
end
} def
|