diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pst-eucl/pst-eucl.pro')
-rw-r--r-- | Master/texmf-dist/dvips/pst-eucl/pst-eucl.pro | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/texmf-dist/dvips/pst-eucl/pst-eucl.pro b/Master/texmf-dist/dvips/pst-eucl/pst-eucl.pro index 64f01641148..0cf220ee4dc 100644 --- a/Master/texmf-dist/dvips/pst-eucl/pst-eucl.pro +++ b/Master/texmf-dist/dvips/pst-eucl/pst-eucl.pro @@ -42,8 +42,9 @@ %% x1 y1 x2 y2 -> Dist /ABDist { 3 -1 roll sub dup mul 3 1 roll sub dup mul add sqrt } bind def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% x1 y1 x2 y2 -> x1-x2 y1-y2 -/ABVect { 3 -1 roll exch sub 3 1 roll sub exch } bind def +%% x1 y1 x2 y2 -> x2-x1 y2-y1 +%/ABVect { 3 -1 roll exch sub 3 1 roll sub exch } bind def +/ABVect { 3 -1 roll sub 3 1 roll exch sub exch } bind def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% x1 y1 x2 y2 x3 y3 x4 y4 -> x y /InterLines { |