diff options
author | Karl Berry <karl@freefriends.org> | 2023-04-17 19:55:59 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2023-04-17 19:55:59 +0000 |
commit | ba06b563f2152d04cd878dd177b787fbd560848a (patch) | |
tree | 47efcaaf01cb094fb7f5d238c6fe70998ee4265b /Master/texmf-dist/tex/generic | |
parent | 18c4e28ef272b6e93ea9ffc0a38c6ac8a1b70739 (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.tex | 35 |
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% |