summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-01-27 22:47:47 +0000
committerKarl Berry <karl@freefriends.org>2019-01-27 22:47:47 +0000
commit613cf530a8259bbf9d70db56711dfea9f0461496 (patch)
treeffd8f1f8d9a4408b59db64ba230bdfcb1ea9e99c
parent8e627b933f0617923284400b0b9ca2731973a690 (diff)
pst-eucl (27jan19)
git-svn-id: svn://tug.org/texlive/trunk@49836 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/texmf-dist/doc/generic/pst-eucl/Changes2
-rw-r--r--Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdfbin543582 -> 537353 bytes
-rw-r--r--Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex24
-rw-r--r--Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex140
4 files changed, 92 insertions, 74 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-eucl/Changes b/Master/texmf-dist/doc/generic/pst-eucl/Changes
index 0d2ae71cf99..dddcf631eb6 100644
--- a/Master/texmf-dist/doc/generic/pst-eucl/Changes
+++ b/Master/texmf-dist/doc/generic/pst-eucl/Changes
@@ -5,6 +5,8 @@ pst-eucl.pro --------
pst-eucl.tex --------
+1.63 2019/01/27 - fix for PointSymbol=none for pstTriangle
+1.62 2019/01/13 - added fillstyle for angles
1.61 2018/12/11 - added macros for inner and outer circle of a triangle
1.60a 2018/12/08 - fix for typos in the documentation
1.60 2018/10/06 - added \pstDistCalc, which use algebraic
diff --git a/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf b/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
index 5d57db0728a..897e81f3444 100644
--- a/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
+++ b/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex b/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex
index 120d6630d03..de4e52980e0 100644
--- a/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex
+++ b/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex
@@ -398,12 +398,13 @@ the angle by specifying a \TeX{} command as argument of parameter \Lkeyword{Mark
\psset{PointName=none}
\pstTriangle[PointNameA=default](2;-130){B'}(2;15){A'}(2;195){C'}
\pstTriangle[PointNameA=default](2;-55){B''}(2;15){A''}(2;195){C''}
-\pstRightAngle[linecolor=red]{C}{B}{A}
+\pstRightAngle[linecolor=red,fillstyle=solid,fillcolor=blue]{C}{B}{A}
\pstRightAngle[linecolor=blue, RightAngleType=suisseromand]{A}{B'}{C}
\pstRightAngle[linecolor=magenta, RightAngleType=german]{A}{B''}{C}
\psset{arcsep=\pslinewidth}
\pstMarkAngle[linecolor=cyan, Mark=MarkHash]{A}{C}{B}{$\theta$}
-\pstMarkAngle[linecolor=red, arrows=->]{B}{A}{C}{$\gamma$}
+\pstMarkAngle[linecolor=red, arrows=->,fillcolor=red!30,
+ fillstyle=solid]{B}{A}{C}{$\gamma$}
\end{pspicture}
\end{LTXexample}
@@ -412,21 +413,20 @@ the angle by specifying a \TeX{} command as argument of parameter \Lkeyword{Mark
\begin{pspicture}(-0.5,-0.5)(9,3)
\psset{PointSymbol=none,PointNameMathSize=\scriptstyle,PointNameSep=6pt,
RightAngleSize=0.15,PosAngle={135,225,-45,45}}
-\psaxes[ticks=none,labels=none] {->}(0,0)(9,3)
\pstGeonode(1,2){A}(1,1){B}(2,1){C}(2,2){D}%
-\pstRightAngle{C}{B}{A} \pstRightAngle{D}{C}{B}
-\pstRightAngle{A}{D}{C} \pstRightAngle{B}{A}{D}
-\pspolygon(A)(B)(C)(D)
+\pstRightAngle[fillstyle=solid,fillcolor=blue!40]{C}{B}{A}
+\pstRightAngle{D}{C}{B} \pstRightAngle{A}{D}{C}
+\pstRightAngle{B}{A}{D} \pspolygon(A)(B)(C)(D)
\psset{RightAngleType=suisseromand}
\pstGeonode(3,2){A}(3,1){B}(4,1){C}(4,2){D}%
-\pstRightAngle{C}{B}{A} \pstRightAngle{D}{C}{B}
-\pstRightAngle{A}{D}{C} \pstRightAngle{B}{A}{D}
-\pspolygon(A)(B)(C)(D)
+\pstRightAngle[fillstyle=solid,fillcolor=blue!40]{C}{B}{A}
+\pstRightAngle{D}{C}{B} \pstRightAngle{A}{D}{C}
+\pstRightAngle{B}{A}{D} \pspolygon(A)(B)(C)(D)
\psset{RightAngleType=german}
\pstGeonode(5,2){A}(5,1){B}(6,1){C}(6,2){D}%
-\pstRightAngle{C}{B}{A} \pstRightAngle{D}{C}{B}
-\pstRightAngle{A}{D}{C} \pstRightAngle{B}{A}{D}
-\pspolygon(A)(B)(C)(D)
+\pstRightAngle[fillstyle=solid,fillcolor=blue!40]{C}{B}{A}
+\pstRightAngle{D}{C}{B} \pstRightAngle{A}{D}{C}
+\pstRightAngle{B}{A}{D} \pspolygon(A)(B)(C)(D)
\end{pspicture}
\end{LTXexample}
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 7c4b724f697..dd33826b9e1 100644
--- a/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
+++ b/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
@@ -19,17 +19,10 @@
\csname PSTEuclideLoaded\endcsname
\let\PSTEuclideLoaded\endinput
%
-\def\fileversion{1.61}
-\def\filedate{2018/12/11}
-%%
-%% 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.
+\def\fileversion{1.63}
+\def\filedate{2019/01/27}
%%
\message{`PST-Euclide v\fileversion, \filedate\space (dr,hv)}%
-\message{ This version uses the pst-xkey package for managing parameters}%
-\message{ Please read the doc, some macros have a new syntax}%
-\message{ use option old for upward compatibility}%
%% prologue for postcript
\pstheader{pst-eucl.pro}%
\edef\PstAtCode{\the\catcode`\@}%
@@ -38,16 +31,21 @@
% Definition of the parameters
% ----------------------------
% symbol used for the point
-\define@key[psset]{pst-eucl}{PointSymbol}[*]{\def\psk@PointSymbol{#1}}%
-\define@key[psset]{pst-eucl}{PointSymbolA}[*]{\edef\psk@PointSymbolA{#1}}%
-\define@key[psset]{pst-eucl}{PointSymbolB}[*]{\edef\psk@PointSymbolB{#1}}%
-\define@key[psset]{pst-eucl}{PointSymbolC}[*]{\edef\psk@PointSymbolC{#1}}%
+\define@key[psset]{pst-eucl}{PointSymbol}[*]{%
+ \def\psk@PointSymbol{#1}%
+ \def\psk@PointSymbolA{#1}%
+ \def\psk@PointSymbolB{#1}%
+ \def\psk@PointSymbolC{#1}%
+}%
+\define@key[psset]{pst-eucl}{PointSymbolA}[*]{\def\psk@PointSymbolA{#1}}%
+\define@key[psset]{pst-eucl}{PointSymbolB}[*]{\def\psk@PointSymbolB{#1}}%
+\define@key[psset]{pst-eucl}{PointSymbolC}[*]{\def\psk@PointSymbolC{#1}}%
% name used for the point
\define@key[psset]{pst-eucl}{PointName}[default]{\def\psk@PointName{#1}}%
-\define@key[psset]{pst-eucl}{PointNameA}[undef]{\edef\psk@PointNameA{#1}}%
-\define@key[psset]{pst-eucl}{PointNameB}[undef]{\edef\psk@PointNameB{#1}}%
-\define@key[psset]{pst-eucl}{PointNameC}[undef]{\edef\psk@PointNameC{#1}}%
+\define@key[psset]{pst-eucl}{PointNameA}[undef]{\def\psk@PointNameA{#1}}%
+\define@key[psset]{pst-eucl}{PointNameB}[undef]{\def\psk@PointNameB{#1}}%
+\define@key[psset]{pst-eucl}{PointNameC}[undef]{\def\psk@PointNameC{#1}}%
% use math mode in point name
\newif\ifPst@PtNameMath%
\define@key[psset]{pst-eucl}{PtNameMath}[false]{\@nameuse{Pst@PtNameMath#1}}%
@@ -149,7 +147,7 @@
% --------------
\def\resetEUCLvalues{%
\psset[pst-eucl]{%
- PointSymbol=*, PointSymbolA=*, PointSymbolB=*, PointSymbolC=*,
+ PointSymbol=*, %PointSymbolA=*, PointSymbolB=*, PointSymbolC=*,
PointName=default, PointNameA=undef, PointNameB=undef, PointNameC=undef,
PtNameMath=true, PointNameMathSize=\textstyle, PointNameSize=\normalsize,
PointNameSep=default, PosAngle=undef,
@@ -182,10 +180,10 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% create a curve after a points list
\def\pst@MngTransformCurve{%DR 25032005
- \ifx\psk@CurveType\@none\else%
- \ifx\psk@CurveType\@polygon\expandafter\pspolygon\@@GenCourbe\else%
- \ifx\psk@CurveType\@polyline\expandafter\psline\@@GenCourbe\else%
- \ifx\psk@CurveType\@curve\expandafter\pscurve\@@GenCourbe%
+ \ifx\psk@CurveType\@none\else
+ \ifx\psk@CurveType\@polygon\expandafter\pspolygon\@@GenCourbe\else
+ \ifx\psk@CurveType\@polyline\expandafter\psline\@@GenCourbe\else
+ \ifx\psk@CurveType\@curve\expandafter\pscurve\@@GenCourbe
\fi\fi\fi\fi}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% macros for managing a list of parameters
@@ -200,12 +198,13 @@
%% end DR 2005/04/10
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\@InitListMng{%
- \def\LastValidPN{default}\def\LastValidPNS{default}\def\LastValidPA{undef}\def\LastValidPS{default}}
-%%begin modif alaindelplanque 11/2003 (VALID)
+ \def\LastValidPN{default}\def\LastValidPNS{default}\def\LastValidPA{undef}\def\LastValidPS{undef}}
%% car(liste) -- param1,param2,... -> param1
\def\PstParamListFirst#1,#2/{#1}
%% cdr(liste) -- param1,param2,... -> param2,...
+
\def\PstParamListLasts#1,#2/{#2}
+
\def\Pst@ManageParamList#1{%DR 02092004 #1->point node name
\edef\OldPointName{\psk@PointName}%
\edef\psk@PointName{\expandafter\PstParamListFirst\OldPointName,undef/}%
@@ -232,16 +231,17 @@
\def\pstGeonode{\@ifnextchar[\Pst@Geonode{\Pst@Geonode[]}}
\def\Pst@Geonode[#1]{\@ifnextchar({\Pst@Geonode@i[#1]}{\Pst@Geonode@i[#1](0,0)}}
\def\Pst@Geonode@i[#1]{%
- \begingroup%
+ \begingroup
\@InitListMng% DR 22032005
- \edef\@@GenCourbe{}%%for accumulating points% DR 22032005
- \psset{#1}\Pst@Geonode@ii}
+ \xdef\@@GenCourbe{}%%for accumulating points% DR 22032005
+ \psset{#1}%
+ \Pst@Geonode@ii}
\def\Pst@Geonode@ii(#1)#2{%
\pnode(#1){#2}
\xdef\@@GenCourbe{\@@GenCourbe(#2)}%%for accumulating points% DR 22032005
\Pst@ManageParamList{#2}%
\@ifnextchar(\Pst@Geonode@ii{\pst@MngTransformCurve\endgroup}}% DR 22032005
-%%end modif alaindelplanque 11/2003 (VALID)
+
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% create a point with an associated node, in a new
%% landmark
@@ -392,22 +392,37 @@
\def\pstRightAngle{\pst@object{pstRightAngle}}
\def\pstRightAngle@i#1#2#3{%
\begingroup
- \addbefore@par{dotscale=1}%linestyle=solid,linecolor=black,linewidth=\pslinewidth}
+ \addbefore@par{dimen=inner,dotscale=1}%linestyle=solid,linecolor=black,linewidth=\pslinewidth}
\use@par% % Affectation of local parameters
%% not good at all, but \rput{0}(#3){\rput{(#2)}{stuff}} doesn't work...
\rput(#2){%
- \ifx\psk@RightAngleType\@default%
- \psline(!tx@EcldDict begin /N@#1 GetNode exch Atan
- \psk@RightAngleSize\space exch PtoC end)%
+ \ifx\psk@RightAngleType\@default
+ \ifx\psk@fillstylename\@none\else
+ \pspolygon[linestyle=none,dimen=inner](0,0)(!tx@EcldDict begin /N@#1 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end)%
+ (!tx@EcldDict begin /N@#1 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end)%
(!tx@EcldDict begin /N@#1 GetNode exch Atan /AngleNo1 ED
tx@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@RightAngleSize\space 2 sqrt mul exch PtoC end)%
- (!tx@EcldDict begin /N@#3 GetNode exch Atan
- \psk@RightAngleSize\space exch PtoC end)%
+ (!tx@EcldDict begin /N@#3 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end)%
+ \fi
+ \psline[fillstyle=none](!tx@EcldDict begin /N@#1 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end)%
+ (!tx@EcldDict begin /N@#1 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end)%
+ (!tx@EcldDict begin /N@#1 GetNode exch Atan /AngleNo1 ED
+ tx@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@RightAngleSize\space 2 sqrt mul exch PtoC end)%
+ (!tx@EcldDict begin /N@#3 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end)%
\else
\ifx\psk@RightAngleType\@german
+% \ifx\psk@fillstylename\@none\else
+% \pscustom[linestyle=none,dimen=inner]{\psline(0,0)
+% \pstMarkAngle[MarkAngleRadius=\psk@RightAngleSize,LabelSep=\psk@RightAngleSize\space .5 mul]{#1}{#2}{#3}{}%
+% \psline(0,0)
+% }
+% \fi
\pstMarkAngle[MarkAngleRadius=\psk@RightAngleSize,LabelSep=\psk@RightAngleSize\space .5 mul]{#1}{#2}{#3}%
{\psscalebox{\psk@RightAngleSize}{\pscircle*{!.08 \psk@xdotscale\space mul}}}%
\else
@@ -416,7 +431,6 @@
(!tx@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@RightAngleSize\space mul exch PtoC end)%
{\psscalebox{\psk@RightAngleSize}{\pscircle*{.08}}}%
-% \pspolygon(0,0)%
\psline(0,0)%
(!tx@EcldDict begin /N@#3 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )%
(!tx@EcldDict begin /N@#1 GetNode exch Atan \psk@RightAngleSize\space exch PtoC end )%
@@ -437,7 +451,14 @@
\psset{%MarkAngle=0,
#1}%
\rput(#3){%
- \psarc(0,0){\psk@MarkAngleRadius}{(#2)}{(#4)}%
+ \ifx\psk@fillstylename\@none\else
+ \pscustom[linestyle=none,linewidth=0.01pt,arrows=-]{%
+ \psline(0,0)
+ \psarc(0,0){\psk@MarkAngleRadius}{(#2)}{(#4)}
+ \psline(0,0)
+ }
+ \fi
+ \psarc[fillstyle=none](0,0){\psk@MarkAngleRadius}{(#2)}{(#4)}%
\rput[\psk@LabelRefPt]{*0}(! tx@EcldDict begin
/N@#4 GetNode exch Atan /N@#2 GetNode exch Atan end
2 copy lt { exch 360 sub exch } if
@@ -459,26 +480,20 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% #2 #4 #6 -> coordinates for nodes
%% #3 #5 #7 -> nodes name
-\def\pstTriangle{\@ifnextchar[\Pst@Triangle{\Pst@Triangle[]}}%
-\def\Pst@Triangle[#1]{%NEW DR 14112001 (for default (0,0) coordinates)
- \def\pst@par{#1}%
- \@ifnextchar(\Pst@Trianglei{\Pst@Trianglei(0,0)}}%
-\def\Pst@Trianglei(#1)#2(#3)#4(#5)#6{%
- %\pst@killglue% <------------------------------------------------- hv - DR 050315
- \bgroup
- \pst@killglue% <------------------------------------------- DR 050315
+\def\pstTriangle{\pst@object{pstTriangle}}%
+\def\pstTriangle@i{\@ifnextchar(\pstTriangle@ii{\pstTriangle@ii(0,0)}}%
+\def\pstTriangle@ii(#1)#2(#3)#4(#5)#6{%
+ \pst@killglue
%%begin modif alaindelplanque 11/2003
- \pst@@getcoor{#1}\xdef\@@coordi{\pst@coor}%% A<------------------ hv
- \pst@@getcoor{#3}\xdef\@@coordiii{\pst@coor}%% B<------------------ hv
- \pst@@getcoor{#5}\xdef\@@coordv{\pst@coor}%% C<- ---------------- hv
+ \pst@getcoor{#1}\@@coordi
+ \pst@getcoor{#3}\@@coordiii
+ \pst@getcoor{#5}\@@coordv
\pstVerb{
\@@coordi\space\@@coordiii\space exch 4 1 roll \@@coordv\space exch 6 1 roll % x x x y y y
add add 3 div /YS exch def add add 3 div /XS exch def
- }
- %%end modif alaindelplanque 11/2003
- %\bgroup\use@par% % Affectation of local parameters<---- DR 050315
- \use@par% % Affectation of local parameters<---- DR 050315
- %%begin modif alaindelplanque 11/2003
+ }%
+ \bgroup
+ \use@keep@par
\bgroup
\ifx\psk@PosAngleA\@undef
\psset{PosAngleA={!
@@ -491,13 +506,13 @@
\else
\psset{PosAngle=\psk@PosAngleA}
\fi
- %%end modif alaindelplanque 11/2003
\ifx\psk@PosAngleA\@undef\else\psset{PosAngle=\psk@PosAngleA}\fi
\let\psk@PointSymbol=\psk@PointSymbolA
\ifx\psk@PointNameA\@undef\else\psset{PointName=\psk@PointNameA}\fi
- \Pst@Geonode@i[](#1){#2}\egroup%%NEW DR 15112001
- %%begin modif alaindelplanque 11/2003
+ \Pst@Geonode@i[](#1){#2}
+ \egroup
\bgroup
+ \use@keep@par
\ifx\psk@PosAngleB\@undef
\psset{PosAngleB={!
/AngleBC \@@coordiii\space\@@coordv\space tx@EcldDict begin ABVect end exch Atan def
@@ -508,12 +523,11 @@
\else
\psset{PosAngle=\psk@PosAngleB}
\fi
- %%end modif alaindelplanque 11/2003
\ifx\psk@PosAngleB\@undef\else\psset{PosAngle=\psk@PosAngleB}\fi
- \let\PointSymbol=\psk@PointSymbolB
+ \let\psk@PointSymbol=\psk@PointSymbolB
\ifx\psk@PointNameB\@undef\else\psset{PointName=\psk@PointNameB}\fi
- \Pst@Geonode@i[](#3){#4}\egroup%%NEW DR 15112001
- %%begin modif alaindelplanque 11/2003
+ \Pst@Geonode@i[](#3){#4}%
+ \egroup
\ifx\psk@PosAngleC\@undef
\psset{PosAngleC={!
/AngleCB \@@coordv\space\@@coordiii\space tx@EcldDict begin ABVect end exch Atan def
@@ -521,15 +535,17 @@
AngleCB AngleCA add 2 div dup 1 exch \tx@PtoC exch \@@coordv\space 4 1 roll add 3 1 roll add XS YS Pyth2
\@@coordv\space XS YS Pyth2 le { 180 add } if
}}%% <------ hv
- \else\psset{PosAngle=\psk@PosAngleC}\fi%% <----------------------- hv
- %%end modif alaindelplanque 11/2003
+ \else
+ \psset{PosAngle=\psk@PosAngleC}
+ \fi
\ifx\psk@PosAngleC\@undef\else\psset{PosAngle=\psk@PosAngleC}\fi
- \let\PointSymbol=\psk@PointSymbolC
+ \let\psk@PointSymbol=\psk@PointSymbolC
\ifx\psk@PointNameC\@undef\else\psset{PointName=\psk@PointNameC}\fi
\Pst@Geonode@i[](#5){#6}%%NEW DR 15112001
\pst@TraceTriangle{#2}{#4}{#6}%
- \egroup%
+ \egroup
}%
+%
\def\pst@TraceTriangle#1#2#3{\pspolygon(#1)(#2)(#3)}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Line, circle, Arc