/pcangles {
6 dict begin
dup isstring
{
/option exch def
}
if
/B defpoint
/A defpoint
/va {angleA dir nodesep dup ptojpoint pop mulv} def
/ua {angleA dir armA dup ptojpoint pop mulv} def
A va addv /A' defpoint
A' ua addv /A" defpoint
/ub {angleB dir armB dup ptojpoint pop mulv} def
/vb {angleB dir nodesep dup ptojpoint pop mulv} def
B vb addv /B' defpoint
B' ub addv /B" defpoint
B" B' B" A" paral orthoproj /C defpoint
[A' A" C B" B']
currentdict /option known {
option
} if
ligne
end
} def
%% ======== fichier perp ======== %%
%% ======== /var/www/syracuse/bbgraf/jps2ps/pps/perp.pps ======== %%
%% syntaxe : D A perp --> droite perpendiculaire a D passant par A
/perp {
4 dict begin
/yA exch def
/xA exch def
vecteur orthovecteur
/u2 exch def
/u1 exch def
xA yA
2 copy
u1 u2 translatepoint
end
} def
|