%% syntaxe : A D orthoproj --> B, le projete orthogonal de A sur D
/orthoproj {
6 -1 roll
6 -1 roll %% D A
6 copy %% D A D A
7 -1 roll pop
7 -1 roll pop %% D D A
perp
interdroite
} def
%% syntaxe : A projx --> le projete orthogonal de A sur Ox
/projx {
pop 0
} def
%% syntaxe : A projy --> le projete orthogonal de A sur Oy
/projy {
exch pop 0 exch
} def
|