diff options
| author | Karl Berry <karl@freefriends.org> | 2011-08-12 23:13:08 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2011-08-12 23:13:08 +0000 |
| commit | 2b4e42b51b5b1ffa51fe48a70eb10517e3b70d99 (patch) | |
| tree | b55b3a0cf3229c4e512705180815d72697b87642 /Master/texmf-dist/dvips | |
| parent | b27dfee750dbab0ba074abc00c802536f53c7f3c (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')
| -rw-r--r-- | Master/texmf-dist/dvips/pst-eucl/pst-eucl.pro | 10 |
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 { |