texlive[43911] Master/texmf-dist: pst-eucl (18apr17)
commits+karl at tug.org
commits+karl at tug.org
Tue Apr 18 23:30:48 CEST 2017
Revision: 43911
http://tug.org/svn/texlive?view=revision&revision=43911
Author: karl
Date: 2017-04-18 23:30:48 +0200 (Tue, 18 Apr 2017)
Log Message:
-----------
pst-eucl (18apr17)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes
trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
Modified: trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes 2017-04-18 20:50:17 UTC (rev 43910)
+++ trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes 2017-04-18 21:30:48 UTC (rev 43911)
@@ -4,6 +4,10 @@
pst-eucl.tex --------
+
+1.56 2017/04/18 - \psGetAngleABC:
+ - added dec -1 le { /dec 15 def } if
+ - added \pst at usecolor\pslinecolor in line 1616
1.55 2016/10/11 - fix for \pstRightAngle
1.54 2016/09/01 - added MarkArrow, MarkArroww,MarkArrowww
1.53 2016/05/03 - revert changes of CodeFig(A|B)
Modified: trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex 2017-04-18 20:50:17 UTC (rev 43910)
+++ trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex 2017-04-18 21:30:48 UTC (rev 43911)
@@ -17,8 +17,8 @@
\ifx\MultidoLoaded\endinput \else\input multido.tex \fi
\csname PSTEuclideLoaded\endcsname
\let\PSTEuclideLoaded\endinput
-\def\fileversion{1.55}
-\def\filedate{2016/10/11}
+\def\fileversion{1.56}
+\def\filedate{2017/04/18}
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN
%% archives in directory macros/latex/base/lppl.txt.
@@ -134,7 +134,7 @@
\psset[pst-eucl]{%
PointSymbol=default, PointSymbolA=undef, PointSymbolB=undef, PointSymbolC=undef,
PointName=default, PointNameA=undef, PointNameB=undef, PointNameC=undef,
- PtNameMath=true, PointNameMathSize=\textstyle, PointNameSize=\normalsize,
+ PtNameMath=true, PointNameMathSize=\textstyle, PointNameSize=\normalsize,
PointNameSep=default, PosAngle=undef, PosAngleA=undef,
PosAngleB=undef, PosAngleC=undef, Mark=undef, mark=undef,SegmentSymbol=MarkHashh,
SegmentSymbolA=MarkHashh, SegmentSymbolB=MarkHash, SegmentSymbolC=MarkHashhh,
@@ -254,7 +254,7 @@
\xdef\@@GenCourbe{\@@GenCourbe(#5)}%%for accumulating points% DR 22032005
\Pst at ManageParamList{#5}%
\@ifnextchar({\Pst at OIJGeonode@iii{#1}{#2}{#3}}{\pst at MngTransformCurve\endgroup}}% DR 22032005
-%%end modif DR 11/2003
+%%end modif DR 11/2003
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% #1 -> point coordinates
\def\Pst at geonodelabel#1{% % {nodename}
@@ -376,14 +376,14 @@
%% not good at all, but \rput{0}(#3){\rput{(#2)}{stuff}} doesn't work...
\rput(#2){%
\ifx\psk at RightAngleType\@default%
- \psline(!tx at EcldDict begin /N@#1 GetNode exch Atan
+ \psline(!tx at EcldDict begin /N@#1 GetNode exch Atan
\psk at RightAngleSize\space exch PtoC end)%
- (!tx at EcldDict begin /N@#1 GetNode exch Atan /AngleNo1 ED
- tx at EcldDict begin /N@#3 GetNode exch Atan /AngleNo3 ED
- AngleNo1 AngleNo3 sub abs 180 gt { /Diff -45 def }{ /Diff 45 def } ifelse
+ (!tx at EcldDict begin /N@#1 GetNode exch Atan /AngleNo1 ED
+ tx at EcldDict begin /N@#3 GetNode exch Atan /AngleNo3 ED
+ AngleNo1 AngleNo3 sub abs 180 gt { /Diff -45 def }{ /Diff 45 def } ifelse
AngleNo1 AngleNo3 gt { AngleNo1 Diff sub }{ AngleNo3 Diff sub } ifelse
\psk at RightAngleSize\space 2 sqrt mul exch PtoC end)%
- (!tx at EcldDict begin /N@#3 GetNode exch Atan
+ (!tx at EcldDict begin /N@#3 GetNode exch Atan
\psk at RightAngleSize\space exch PtoC end)%
\else
\ifx\psk at RightAngleType\@german
@@ -392,7 +392,7 @@
\else
\ifx\psk at RightAngleType\@suisseromand
\rput{*0}%
- (!tx at EcldDict begin /N@#3 GetNode exch Atan /N@#1 GetNode exch Atan
+ (!tx at EcldDict begin /N@#3 GetNode exch Atan /N@#1 GetNode exch Atan
2 copy lt { exch 360 sub exch } if add 2 div .45 \psk at RightAngleSize\space mul exch PtoC end)%
{\psscalebox{\psk at RightAngleSize}{\pscircle*{.08}}}%
% \pspolygon(0,0)%
@@ -420,8 +420,8 @@
\rput[\psk at LabelRefPt]{*0}(! tx at EcldDict begin
/N@#4 GetNode exch Atan /N@#2 GetNode exch Atan end
2 copy lt { exch 360 sub exch } if
- add 2 div dup /psRawLabelPos ED
- \psk at LabelAngleOffset\space add
+ add 2 div dup /psRawLabelPos ED
+ \psk at LabelAngleOffset\space add
\psk at LabelSep\space exch PtoC ){#5}%
\def\pst at tempA{Angleundef}%
%% define \pst at rot@angle to make it compatible with xelatex for later use
@@ -460,9 +460,9 @@
\psset{PosAngleA={!
/AngleAB \@@coordi\space\@@coordiii\space tx at EcldDict begin ABVect end exch Atan def
/AngleAC \@@coordi\space\@@coordv\space tx at EcldDict begin ABVect end exch Atan def
- AngleAB AngleAC add 2 div dup
+ AngleAB AngleAC add 2 div dup
1 exch \tx at PtoC exch \@@coordi\space 4 1 roll add 3 1 roll add XS YS Pyth2 % test if inside/outside
- \@@coordi\space XS YS Pyth2 le { 180 add } if
+ \@@coordi\space XS YS Pyth2 le { 180 add } if
}}%% <------ hv
\else\psset{PosAngle=\psk at PosAngleA}\fi
%%end modif alaindelplanque 11/2003
@@ -487,10 +487,10 @@
%%begin modif alaindelplanque 11/2003
\ifx\psk at PosAngleC\@undef
\psset{PosAngleC={!
- /AngleCB \@@coordv\space\@@coordiii\space tx at EcldDict begin ABVect end exch Atan def
- /AngleCA \@@coordv\space\@@coordi\space tx at EcldDict begin ABVect end exch Atan def
+ /AngleCB \@@coordv\space\@@coordiii\space tx at EcldDict begin ABVect end exch Atan def
+ /AngleCA \@@coordv\space\@@coordi\space tx at EcldDict begin ABVect end exch Atan def
AngleCB AngleCA add 2 div dup 1 exch \tx at PtoC exch \@@coordv\space 4 1 roll add 3 1 roll add XS YS Pyth2
- \@@coordv\space XS YS Pyth2 le { 180 add } if
+ \@@coordv\space XS YS Pyth2 le { 180 add } if
}}%% <------ hv
\else\psset{PosAngle=\psk at PosAngleC}\fi%% <----------------------- hv
%%end modif alaindelplanque 11/2003
@@ -980,7 +980,7 @@
/N@#2 GetNode /N@#3 GetNode /N@#4 GetNode /N@#5 GetNode InterLines
end
\pst at number\psyunit div exch \pst at number\psxunit div exch
- 2 copy
+ 2 copy
/#6.Y exch def /#6.X exch def % save the coors for futher use
){#6}%
\Pst at geonodelabel{#6}%
@@ -1128,10 +1128,10 @@
% end){\pnode{#5}}%
\pnode(!
tx at EcldDict begin
- #4
+ #4
{ \ifPst at algebraic (#3) AlgParser cvx exec \else #3 \fi }
{ \ifPst at algebraic (#2) AlgParser cvx exec \else #2 \fi }
- NewtonSolving pop
+ NewtonSolving pop
2 copy end
/#5.Y exch def /#5.X exch def % save the coors for futher use
){#5}%
@@ -1151,16 +1151,16 @@
% #5 { /N@#3 GetNode /N@#4 GetNode EqDr 1 index div
% \pst at number\psxunit div 3 1 roll div x mul add } { #2 }
% NewtonSolving pop
-% end){\pnode{#6}}%
+% end){\pnode{#6}}%
\pnode(!
tx at EcldDict begin
- #5
+ #5
{ /N@#3 GetNode /N@#4 GetNode EqDr 1 index div
- \pst at number\psxunit div 3 1 roll div x mul add }
+ \pst at number\psxunit div 3 1 roll div x mul add }
{ \ifPst at algebraic (#2) AlgParser cvx exec \else #2 \fi }
- NewtonSolving pop 2 copy end
+ NewtonSolving pop 2 copy end
/#5.Y exch def /#5.X exch def % save the coors for futher use
- ){#6}%
+ ){#6}%
\Pst at geonodelabel{#6}%
\egroup%
}
@@ -1177,17 +1177,17 @@
\edef\@function{ \ifPst at algebraic (#1) AlgParser cvx exec \else #1 \fi\space }%
\pnode(!
tx at EcldDict begin
- #4
+ #4
{ /N@#2 GetNode 2 copy /N@#3 GetNode ABDist \pst at number\psxunit div
3 1 roll \pst at number\psyunit div exch \pst at number\psxunit div exch x \@function
- ABDist sub }
- { 0 }
+ ABDist sub }
+ { 0 }
NewtonSolving pop
- pop dup /x exch def
+ pop dup /x exch def
\@function
2 copy end
/#4.Y exch def /#4.X exch def % save the coors for futher use
- ){#5}%
+ ){#5}%
\Pst at geonodelabel{#5}%
\endgroup
\ignorespaces
@@ -1536,10 +1536,10 @@
\fi
}
%% angle defined by three points
-\def\pstAngleAOB#1#2#3{%
+\def\pstAngleAOB#1#2#3{%
% \pstGeonode[PointName=none,PointSymbol=none](#1){temp at 1}(#2){temp at 2}(#3){temp at 3}%
% \pstAngleAOB at i{temp at 1}{temp at 2}{temp at 3}}
-%\def\pstAngleAOB at i#1#2#3{%
+%\def\pstAngleAOB at i#1#2#3{%
tx at EcldDict begin /N@#2 GetNode /N@#3 GetNode ABVect /N@#2 GetNode /N@#1 GetNode ABVect end
4 copy exch 4 -1 roll mul
3 -2 roll mul add
@@ -1549,7 +1549,7 @@
\fi
}
%
-\def\psGetDistanceAB{\pst at object{psGetDistanceAB}}% Thmoas Söll 20140512
+\def\psGetDistanceAB{\pst at object{psGetDistanceAB}}% Thmoas S\"{o}ll 20140512
\def\psGetDistanceAB at i(#1)(#2)#3{%
\begingroup%
\pst at killglue
@@ -1556,12 +1556,12 @@
\use at par
\pst at getcoor{#1}\pst at tempA
\pst at getcoor{#2}\pst at tempB
-\pnode(!
+\pnode(!
15 dict begin
/dec \psk at decimals\space def
\psk at PSfont findfont \psk at fontscale scalefont setfont
/laenge {10 dec exp mul round 10 dec exp div 15 string cvs stringwidth } def
- /Wert { 10 dec exp mul round 10 dec exp div dec 0 eq {cvi 15 string cvs} {15 string cvs } ifelse
+ /Wert { 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 at comma dot2comma \fi show } def
\pst at tempA \tx at UserCoor /y1 ED /x1 ED
\pst at tempB \tx at UserCoor /y2 ED /x2 ED
@@ -1588,8 +1588,8 @@
\define at key[psset]{pst-eucl}{WedgeOpacity}{\def\psk at WedgeOpacity{#1}}%
\psset[pst-eucl]{ArcColor=black,WedgeColor=blue,WedgeOpacity=0.2,AngleValue=false,
AngleArc,ShowWedge,ArcLinestyle=solid,ArcLinewidth=0.8pt,WedgeFillstyle=solid}
-
-\def\psGetAngleABC{\pst at object{psGetAngleABC}}% Thmoas Söll 20151018
+
+\def\psGetAngleABC{\pst at object{psGetAngleABC}}% Thmoas S\"{o}ll 20151018
\def\psGetAngleABC at i(#1)(#2)(#3)#4{%
\begingroup
\use at par
@@ -1613,10 +1613,10 @@
\fi
\pnode(! %
/dec \psk at decimals\space def
- \psk at PSfont findfont \psk at fontscale scalefont setfont
+ \psk at PSfont findfont \psk at fontscale scalefont setfont \pst at usecolor\pslinecolor
/s1 { /Symbol findfont \psk at fontscale\space scalefont setfont } bind def
/laenge {10 dec exp mul round 10 dec exp div 15 string cvs stringwidth } def
- /WertZeigen {10 dec exp mul round 10 dec exp div dec 0 eq {cvi 15 string cvs} {15 string cvs } ifelse
+ /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 at comma dot2comma \fi show s1 (\string\260) show} def
\pst at tempA \tx at UserCoor /y1 ED /x1 ED
\pst at tempB \tx at UserCoor /y2 ED /x2 ED
@@ -1638,8 +1638,5 @@
\catcode`\@=\PstAtCode\relax
%
\endinput
-%%
-%%
-%% END pst-eps.tex
%% END: pst-euclide.tex
%
More information about the tex-live-commits
mailing list