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