summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2023-04-17 19:55:59 +0000
committerKarl Berry <karl@freefriends.org>2023-04-17 19:55:59 +0000
commitba06b563f2152d04cd878dd177b787fbd560848a (patch)
tree47efcaaf01cb094fb7f5d238c6fe70998ee4265b /Master/texmf-dist/tex/generic
parent18c4e28ef272b6e93ea9ffc0a38c6ac8a1b70739 (diff)
pst-eucl (17apr23)
git-svn-id: svn://tug.org/texlive/trunk@66868 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic')
-rw-r--r--Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex35
1 files changed, 23 insertions, 12 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
index 12f75bb8c81..23d2db4d1e4 100644
--- a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
+++ b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
@@ -21,8 +21,8 @@
\csname PSTEuclideLoaded\endcsname
\let\PSTEuclideLoaded\endinput
%
-\def\fileversion{1.75}
-\def\filedate{2020/09/29}
+\def\fileversion{1.77}
+\def\filedate{2023/04/15}
%%
\message{`PST-Euclide v\fileversion, \filedate\space (dr,hv)}%
%% prologue for postcript
@@ -1093,10 +1093,10 @@
%% #2 #3 -> 2 nodes defining the line
\def\pstLineAB{\@ifnextchar[\Pst@LineAB{\Pst@LineAB[]}}%
\def\Pst@LineAB[#1]#2#3{%
- \begingroup
- \psset{#1}%
- \ncline{#2}{#3}
- \endgroup%
+% \begingroup
+% \psset{#1}%
+ \ncline[#1]{#2}{#3}
+% \endgroup
}%
%
%% \pstCircleOA[Options]{O}{A}[angleA][angleB]
@@ -2576,8 +2576,8 @@
\pst@tempA \tx@UserCoor /y1 ED /x1 ED
\pst@tempB \tx@UserCoor /y2 ED /x2 ED
\pst@tempC \tx@UserCoor /y3 ED /x3 ED
- y1 y2 sub x1 x2 sub Atan neg /delta1 ED
- y3 y2 sub x3 x2 sub Atan neg /delta2 ED
+ y1 y2 sub x1 x2 sub Atan \ifPSTlualatex\else neg \fi /delta1 ED % luatex has other coordinates
+ y3 y2 sub x3 x2 sub Atan \ifPSTlualatex\else neg \fi /delta2 ED
delta1 delta2 le {180 delta2 delta1 add 2 div neg add /WiM ED} {delta2 delta1 add 2 div neg /WiM ED} ifelse
}
\ifPst@ShowWedge
@@ -2586,7 +2586,7 @@
\ifPst@AngleArc
\psarc[linestyle=\psk@ArcLinestyle,linewidth=\psk@ArcLinewidth,linecolor=\psk@ArcColor](#2){\psk@MarkAngleRadius}{! delta1}{! delta2}%
\fi
- \pnode(! %
+ \pnode(!
/dec \psk@decimals\space def
\psk@PSfont findfont \psk@fontscale scalefont setfont \pst@usecolor\pslinecolor
\ifpst@psfonts
@@ -2595,8 +2595,15 @@
/s1 { /StandardSymL findfont \psk@fontscale\space scalefont setfont } bind def
\fi
/laenge {10 dec exp mul round 10 dec exp div 15 string cvs stringwidth } def
- /WertZeigen { dec -1 le { /dec 15 def } if 10 dec exp mul round 10 dec exp div dec 0 eq {cvi 15 string cvs} {15 string cvs } ifelse
- \ifPst@comma dot2comma \fi show s1 (\string\260) show} def
+ /WertZeigen {
+ dec -1 le { /dec 15 def } if
+ 10 dec exp mul round 10 dec exp div
+ dec 0 eq
+ {cvi 15 string cvs}
+ {15 string cvs } ifelse
+ \ifPst@comma dot2comma \fi show
+ s1 (\string\260) show
+ } def
\pst@tempA \tx@UserCoor /y1 ED /x1 ED
\pst@tempB \tx@UserCoor /y2 ED /x2 ED
\pst@tempC \tx@UserCoor /y3 ED /x3 ED
@@ -11759,6 +11766,7 @@
\pstParseArg{CurveCoef}{A,B,C,D,E,F}{#3}
\pnode(!
% Conic ax^2+bxy+cy^2+dx+ey+f=0
+ 25 dict begin
\CurveCoefa /Ca ED
\CurveCoefb /Cb ED
\CurveCoefc /Cc ED
@@ -11798,6 +11806,7 @@
/Fx XYPair 0 get def
/Fy XYPair 1 get def
} if
+ end
){#4}
\pnode(! Dx Dy){#5}
\pnode(! Ex Ey){#6}
@@ -11810,7 +11819,7 @@
}%
%
%% \pstGeneralConicTangentLine[Options]{A}{a,b,c,d,e,f}{B}
-%% Get the tangent line through point $A% on the General Conic $ax^2+bxy+cy^2+dx+ey+f=0$.
+%% Get the tangent line through point $A$ on the General Conic $ax^2+bxy+cy^2+dx+ey+f=0$.
%
%% Parameters:
%% #1 -> options
@@ -11826,6 +11835,7 @@
\pstParseArg{CurveCoef}{a,b,c,d,e,f}{#3}
\pnode(!
% Conic ax^2+bxy+cy^2+dx+ey+f=0
+ 15 dict begin
\CurveCoefa /Ca ED
\CurveCoefb /Cb ED
\CurveCoefc /Cc ED
@@ -11852,6 +11862,7 @@
} {
0 0
} ifelse
+ end
){#4}
\Pst@ManageParamList{#4}%
\endgroup%