%% syntaxe : alpha C cpoint -> M, le point du cercle C correspondant a
%% l'angle alpha
/cpoint { %% a, xI, yI, r
1 dict begin
dup %% a, xI, yI, r, r
5 -1 roll %% xI, yI, r, r, a
/alpha exch def
alpha cos mul %% xI, yI, r, r cos a
exch
alpha sin mul %% xI, yI, r cos a, r sin a
3 -1 roll add %% xI, r cos a, yI + r sin a
3 1 roll %% yI + r sin a, xI, r cos a,
add exch %% xI + r cos a, yI + r sin a
end
} def
|