summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-eucl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-08-12 23:13:08 +0000
committerKarl Berry <karl@freefriends.org>2011-08-12 23:13:08 +0000
commit2b4e42b51b5b1ffa51fe48a70eb10517e3b70d99 (patch)
treeb55b3a0cf3229c4e512705180815d72697b87642 /Master/texmf-dist/dvips/pst-eucl
parentb27dfee750dbab0ba074abc00c802536f53c7f3c (diff)
pst-eucl (11aug11)
git-svn-id: svn://tug.org/texlive/trunk@23521 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pst-eucl')
-rw-r--r--Master/texmf-dist/dvips/pst-eucl/pst-eucl.pro10
1 files changed, 5 insertions, 5 deletions
diff --git a/Master/texmf-dist/dvips/pst-eucl/pst-eucl.pro b/Master/texmf-dist/dvips/pst-eucl/pst-eucl.pro
index c243e1403c9..64f01641148 100644
--- a/Master/texmf-dist/dvips/pst-eucl/pst-eucl.pro
+++ b/Master/texmf-dist/dvips/pst-eucl/pst-eucl.pro
@@ -1,6 +1,6 @@
%!
% PostScript prologue for pst-eucl.tex.
-% Version 2002.12, 2002/12/01
+% Version 1.00 2011/08/04
% For distribution, see pstricks.tex.
%
/tx@EcldDict 40 dict def tx@EcldDict begin
@@ -50,13 +50,13 @@
EqDr /D1c exch def /D1b exch def /D1a exch def
EqDr /D2c exch def /D2b exch def /D2a exch def
D1a D2b mul D1b D2a mul sub dup ZeroEq
- { pop pop pop 0 0 } %% parallel lines
- {
+% { pop pop pop 0 0 } %% parallel lines % --- hv 20110714
+ { pop 0 0 } %% parallel lines --- hv 20110714
+ {
/Det exch def
D1b D2c mul D1c D2b mul sub Det div
D1a D2c mul D2a D1c mul sub Det div
- }
- ifelse } bind def
+ } ifelse } bind def
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% a b c R -> x1 y1 x2 y2
/InterLineCircle {