%% syntaxe : ell ellcentre --> le centre de l'ellipse
/ellcentre {
dup 1 get
exch 0 get
exch
} def
%% syntaxe : ell ellcentre --> l'angle de l'ellipse
/ellangle {
4 get
} def
%% syntaxe : ell ella --> le demi petit axe
/ella {
2 get
} def
%% syntaxe : ell ellb --> le demi petit axe
/ellb {
3 get
} def
%% syntaxe : alpha ell epoint --> le point de l'ellipse de parametre alpha
/epoint {
2 dict begin
/@ll exch def
/@lpha exch def
@ll ellcentre %% le centre
@lpha cos @ll ella mul %% a cos alpha
@lpha sin @ll ellb mul %% b sin alpha
addv %% le point de l'ellipse
@ll ellcentre %% le centre
@ll ellangle rotatepoint
end
} def
|