texlive[48533] Master/texmf-dist: pst-eucl (1sep18)
commits+karl at tug.org
commits+karl at tug.org
Sun Sep 2 00:16:11 CEST 2018
Revision: 48533
http://tug.org/svn/texlive?view=revision&revision=48533
Author: karl
Date: 2018-09-02 00:16:10 +0200 (Sun, 02 Sep 2018)
Log Message:
-----------
pst-eucl (1sep18)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes
trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib
trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex
trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
Added Paths:
-----------
trunk/Master/texmf-dist/source/generic/pst-eucl/
trunk/Master/texmf-dist/source/generic/pst-eucl/Makefile
Modified: trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes 2018-09-01 20:43:37 UTC (rev 48532)
+++ trunk/Master/texmf-dist/doc/generic/pst-eucl/Changes 2018-09-01 22:16:10 UTC (rev 48533)
@@ -5,6 +5,9 @@
pst-eucl.tex --------
+1.59 2018/09/01 - fix introduced bug in \Pst at geonodelabel
+1.58 2018/08/07 - allow PointSymbol?=none
+1.57 2017/11/28 - fix bug with StandardSyml->StandardSymL
1.56 2017/04/18 - \psGetAngleABC:
- added dec -1 le { /dec 15 def } if
- added \pst at usecolor\pslinecolor in line 1616
Modified: trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib 2018-09-01 20:43:37 UTC (rev 48532)
+++ trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.bib 2018-09-01 22:16:10 UTC (rev 48533)
@@ -39,15 +39,16 @@
year = 1989,
}
- at Manual{multido,
- Title = {\texttt{multido.tex} - a loop macro, that supports fixed-point addition},
- Author = {{Timothy Van} Zandt},
- Organization = {},
- Address = {\url{CTAN:/macros/generic/multido.tex}},
- Note = {},
- year = 1997
+ at ctan{multido,
+title = {The Multido package},
+subtitle = {A loop facility for Generic TeX},
+author = {Van Zandt, Timothy and Voß, Herbert and Niepraschk, Rolf},
+url = {macros/latex/multido},
+urldate = {2018-09-01},
+version = {1.42}
}
+
@Book{PSTricks2,
author = {Herbert Vo\ss{}},
title = {\texttt{PSTricks} -- {G}rafik f\"ur \TeX{} und \LaTeX},
@@ -60,7 +61,7 @@
@Book{PSTricksE,
author = {Herbert Vo\ss{}},
title = {\texttt{PSTricks} -- {G}raphics and {P}ost{S}cript for \LaTeX},
- edition = {1.},
+ edition = {1},
publisher = {UIT},
year = {2011},
address = {Cambridge -- UK}
@@ -69,7 +70,7 @@
@Book{LTXquick,
author = {Herbert Vo\ss{}},
title = {{\LaTeX} quick reference},
- edition = {1.},
+ edition = {1},
publisher = {UIT},
year = {2012},
address = {Cambridge -- UK}
@@ -78,7 +79,7 @@
@Book{presentations,
author = {Herbert Vo\ss},
title = {Presentations with \LaTeX},
- edition = {1.},
+ edition = {1},
publisher = {DANTE -- Lehmanns Media},
year = {2012},
address = {Heidelberg/Berlin}
Modified: trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex 2018-09-01 20:43:37 UTC (rev 48532)
+++ trunk/Master/texmf-dist/doc/generic/pst-eucl/pst-eucl-doc.tex 2018-09-01 22:16:10 UTC (rev 48533)
@@ -65,7 +65,7 @@
\part{The package}
\section{Special specifications}
-\subsection{\PST Options}
+\subsection{\PST\ Options}
The package activates the \Lcs{SpecialCoor} mode. This mode extend the
coordinates specification. Furthermore the plotting type is set to
@@ -148,7 +148,7 @@
\item their angle with parameter \Lkeyword{dotangle}.
\end{compactitem}
-Please consult the \PST documentation for further details.
+Please consult the \PST\ documentation for further details.
The
parameters \Lkeyword{PosAngle}, \Lkeyword{PointSymbol}, \Lkeyword{PointName} and
\Lkeyword{PointNameSep} can be set to :
@@ -183,7 +183,7 @@
linestyle=dashed, CurveType=polygon,
PointNameSep={1em,2em,3mm}]
(1,2){M_1}(2,1){M_2}(1,0){M_3}
-\pstGeonode[PosAngle={50,100,90}, PointSymbol={*,x,default},
+\pstGeonode[PosAngle={50,100,90}, PointSymbol={*,x,*},
PointNameSep=3mm, CurveType=curve,
PointName={\alpha,\beta,\gamma,default}]
(-2,0){alpha}(-1,-2){beta}(0,-1){gamma}(2,-1.5){T}
@@ -191,7 +191,7 @@
\end{LTXexample}
Obviously, the nodes appearing in the picture can be used as normal
-\PST nodes. Thus, it is possible to reference a point from
+\PST\ nodes. Thus, it is possible to reference a point from
\rnode{ici}{here}.
\nccurve[arrowscale=2]{->}{ici}{B_1}
@@ -356,7 +356,7 @@
\nxLkeyval{default}. Its possible values are :
\begin{compactitem}
-\item \Lkeyval{default} : standard symbol ;
+\item \Lkeyval{*} : standard symbol ;
\item \Lkeyval{german} : german symbol (given by U. Dirr) ;
\item \Lkeyval{suisseromand} : swiss romand symbol (given P. Schnewlin).
\end{compactitem}
@@ -1356,7 +1356,7 @@
\begin{LTXexample}[width=5cm,pos=l]
\begin{pspicture}[showgrid](-1,-1)(4.4,5)
\psset{PointSymbol=none,PointName=none}
-\pstGeonode[PosAngle={180,130,-90},PointSymbol={default,none},
+\pstGeonode[PosAngle={180,130,-90},PointSymbol={*,none},
PointName=default](2,0){B}(0,1){O}(1,4){A}
\pstLineAB[nodesepB=-1,linecolor=red]{O}{A}
\pstLineAB[nodesepB=-1,linecolor=red]{O}{B}
@@ -1621,12 +1621,12 @@
\pstInterLC[Radius=\pstDistVal{1}]{O}{O'}{O'}{}{M'}{toto}
\pstRotation[RotAngle=30]{O}{M}[N]
\pstRotation[RotAngle=30]{O'}{M'}[N']
-\pstInterLL[PointSymbol=default, PointName=\Omega]{O}{O'}{N}{N'}{Omega}
+\pstInterLL[PointSymbol=*, PointName=\Omega]{O}{O'}{N}{N'}{Omega}
\pstMiddleAB{O}{Omega}{I} \pstInterCC{I}{O}{O}{M}{A}{B}
\psset{nodesepA=-1, nodesepB=-3, linecolor=blue, linewidth=1.3\pslinewidth}
\pstLineAB[nodesep=-2]{A}{Omega}\pstLineAB[nodesep=-2]{B}{Omega}
\pstRotation[RotAngle=-150]{O'}{M'}[N'']
-\pstInterLL[PointSymbol=default, PointName=\Omega']{O}{O'}{N}{N''}{Omega'}
+\pstInterLL[PointSymbol=*, PointName=\Omega']{O}{O'}{N}{N''}{Omega'}
\pstMiddleAB{O}{Omega'}{J}
\pstInterCC{J}{O}{O}{M}{A'}{B'}
\psset{nodesepA=-1, nodesepB=-3, linecolor=red}
@@ -2059,7 +2059,7 @@
\bgroup
\RaggedRight
%\bibliographystyle{plain}
-\printbibliography{pst-eucl-doc}
+\printbibliography
\egroup
\printindex
Added: trunk/Master/texmf-dist/source/generic/pst-eucl/Makefile
===================================================================
--- trunk/Master/texmf-dist/source/generic/pst-eucl/Makefile (rev 0)
+++ trunk/Master/texmf-dist/source/generic/pst-eucl/Makefile 2018-09-01 22:16:10 UTC (rev 48533)
@@ -0,0 +1,89 @@
+
+# `Makefile' for `pst-3dplot.pdf', hv, 2007/03/17
+
+.SUFFIXES : .tex .ltx .dvi .ps .pdf .eps
+
+PACKAGE = pst-eucl
+
+MAIN = $(PACKAGE)-doc
+
+TDS = ~/PSTricks/PSTricks-TDS
+
+LATEX = latex
+
+ARCHNAME = $(MAIN)-$(shell date +%y%m%d)
+
+ARCHFILES = $(PACKAGE).sty $(PACKAGE).tex $(PACKAGE).pro $(MAIN).tex README Changes Makefile
+
+all : doc clean tds
+doc: $(MAIN).pdf
+
+$(MAIN).pdf : $(MAIN).ps
+ GS_OPTIONS=-dAutoRotatePages=/None ps2pdf $<
+
+$(MAIN).ps : $(MAIN).dvi
+ dvips $<
+
+$(MAIN).dvi : $(MAIN).tex
+ $(LATEX) $<
+ $(LATEX) $<
+ if ! test -f $(basename $<).glo ; then touch $(basename $<).glo; fi
+ if ! test -f $(basename $<).idx ; then touch $(basename $<).idx; fi
+ makeindex -t $(basename $<).ilg -s pst-doc.ist -o $(basename $<).ind $(basename $<).idx
+ makeindex -s gglo.ist -t $(basename $<).glg -o $(basename $<).gls $(basename $<).glo
+ biber $(basename $<)
+ $(LATEX) $<
+ $(LATEX) $<
+
+clean :
+ $(RM) $(addprefix $(MAIN), .log .aux .glg .glo .gls .ilg .idx .ind .tmp .toc .out .blg .Roessler .bbl )
+ $(RM) $(addprefix $(MAIN), .dvi .ps .xcp .bcf .run.xml)
+
+veryclean : clean
+ $(RM) $(addprefix $(MAIN), .pdf .bbl .blg)
+
+arch :
+ zip $(ARCHNAME).zip $(ARCHFILES)
+
+tds:
+ cp -u Changes $(TDS)/doc/generic/$(PACKAGE)/
+ cp -u README $(TDS)/doc/generic/$(PACKAGE)/
+ cp -u $(MAIN).pdf $(TDS)/doc/generic/$(PACKAGE)/
+#
+ cp -u Changes $(TDS)/tex/latex/$(PACKAGE)/
+ cp -u $(PACKAGE).sty $(TDS)/tex/latex/$(PACKAGE)/
+#
+ cp -u Changes $(TDS)/tex/generic/$(PACKAGE)/
+ cp -u $(PACKAGE).tex $(TDS)/tex/generic/$(PACKAGE)/
+#
+ cp -u Changes $(TDS)/dvips/$(PACKAGE)/
+ cp -u $(PACKAGE).pro $(TDS)/dvips/$(PACKAGE)/
+#
+ cp -u Changes $(TDS)/source/$(PACKAGE)/
+ cp -u $(MAIN).tex $(TDS)/source/$(PACKAGE)/
+ cp -u $(MAIN).bib $(TDS)/source/$(PACKAGE)/
+ cp -u Makefile $(TDS)/source/$(PACKAGE)/
+
+ctan:
+ rm -f .ctan/$(PACKAGE)/latex/*
+ cp -u *.sty .ctan/$(PACKAGE)/latex/
+# cp -u *.cfg .ctan/$(PACKAGE)/latex/
+ rm -f .ctan/$(PACKAGE)/tex/*
+ cp -u $(PACKAGE).tex .ctan/$(PACKAGE)/tex/
+# cp -u $(PACKAGE)97.tex .ctan/$(PACKAGE)/tex/
+ cp -u *.pro .ctan/$(PACKAGE)/dvips/
+# cp -u more_docs/psmatrix* .ctan/$(PACKAGE)/doc/
+ rm -f .ctan/$(PACKAGE)/doc/*
+ cp -u $(PACKAGE)-doc.* .ctan/$(PACKAGE)/doc/
+# cp -u more_docs/* .ctan/$(PACKAGE)/doc/
+# rm -fr .ctan/$(PACKAGE)/.svn
+ cp -u Changes .ctan/$(PACKAGE)/
+ cp -u README .ctan/$(PACKAGE)/
+ chmod -R a+r .ctan/$(PACKAGE)
+# rm -f .ctan/pstricks-add.zip
+# cd .ctan
+# zip -r pstricks-add.zip *
+# cd ..
+
+
+# EOF
Property changes on: trunk/Master/texmf-dist/source/generic/pst-eucl/Makefile
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Modified: trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex 2018-09-01 20:43:37 UTC (rev 48532)
+++ trunk/Master/texmf-dist/tex/generic/pst-eucl/pst-eucl.tex 2018-09-01 22:16:10 UTC (rev 48533)
@@ -17,8 +17,8 @@
\ifx\MultidoLoaded\endinput \else\input multido.tex \fi
\csname PSTEuclideLoaded\endcsname
\let\PSTEuclideLoaded\endinput
-\def\fileversion{1.56}
-\def\filedate{2017/04/18}
+\def\fileversion{1.59}
+\def\filedate{2018/09/01}
%% 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.
@@ -34,10 +34,10 @@
% Definition of the parameters
% ----------------------------
% symbol used for the point
-\define at key[psset]{pst-eucl}{PointSymbol}[default]{\def\psk at PointSymbol{#1}}%
-\define at key[psset]{pst-eucl}{PointSymbolA}[undef]{\edef\psk at PointSymbolA{#1}}%
-\define at key[psset]{pst-eucl}{PointSymbolB}[undef]{\edef\psk at PointSymbolB{#1}}%
-\define at key[psset]{pst-eucl}{PointSymbolC}[undef]{\edef\psk at PointSymbolC{#1}}%
+\define at key[psset]{pst-eucl}{PointSymbol}[*]{\def\psk at PointSymbol{#1}}%
+\define at key[psset]{pst-eucl}{PointSymbolA}[*]{\edef\psk at PointSymbolA{#1}}%
+\define at key[psset]{pst-eucl}{PointSymbolB}[*]{\edef\psk at PointSymbolB{#1}}%
+\define at key[psset]{pst-eucl}{PointSymbolC}[*]{\edef\psk at PointSymbolC{#1}}%
% name used for the point
\define at key[psset]{pst-eucl}{PointName}[default]{\def\psk at PointName{#1}}%
@@ -132,7 +132,7 @@
% --------------
\def\resetEUCLvalues{%
\psset[pst-eucl]{%
- PointSymbol=default, PointSymbolA=undef, PointSymbolB=undef, PointSymbolC=undef,
+ PointSymbol=*, PointSymbolA=*, PointSymbolB=*, PointSymbolC=*,
PointName=default, PointNameA=undef, PointNameB=undef, PointNameC=undef,
PtNameMath=true, PointNameMathSize=\textstyle, PointNameSize=\normalsize,
PointNameSep=default, PosAngle=undef, PosAngleA=undef,
@@ -258,12 +258,13 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% #1 -> point coordinates
\def\Pst at geonodelabel#1{% % {nodename}
- \ifx\psk at PointSymbol\@none\else
- \ifx\psk at PointSymbol\@default \def\psk at PointSymbol{*}\fi
- \psdot[dotstyle=\psk at PointSymbol](#1)%
- \Pst at PutPointLabel{#1}%DR 041104
+ \ifx\psk at PointSymbol\@none
+ \else
+% \ifx\psk at PointSymbol\@default \def\psk at PointSymbol{*}\fi%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ \psdot[dotstyle=\psk at PointSymbol](#1)%
+ \Pst at PutPointLabel{#1}%DR 041104
\fi%DR 02092004
- \ifx\psk at PointName\@none\else\Pst at PutPointLabel{#1}\fi%DR 041104
+% \ifx\psk at PointName\@none\else\Pst at PutPointLabel{#1}\fi%DR 041104
}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\Pst at PutPointLabel#1{%DR 041104
@@ -371,7 +372,7 @@
\def\pstRightAngle{\pst at object{pstRightAngle}}
\def\pstRightAngle at i#1#2#3{%
\begingroup
-% \addbefore at par{linestyle=solid,linecolor=black,linewidth=\pslinewidth}
+ \addbefore at par{dotscale=1}%linestyle=solid,linecolor=black,linewidth=\pslinewidth}
\use at par% % Affectation of local parameters
%% not good at all, but \rput{0}(#3){\rput{(#2)}{stuff}} doesn't work...
\rput(#2){%
@@ -388,7 +389,7 @@
\else
\ifx\psk at RightAngleType\@german
\pstMarkAngle[MarkAngleRadius=\psk at RightAngleSize,LabelSep=\psk at RightAngleSize\space .5 mul]{#1}{#2}{#3}%
- {\psscalebox{\psk at RightAngleSize}{\pscircle*{.08}}}%
+ {\psscalebox{\psk at RightAngleSize}{\pscircle*{!.08 \psk at xdotscale\space mul}}}%
\else
\ifx\psk at RightAngleType\@suisseromand
\rput{*0}%
@@ -422,7 +423,7 @@
2 copy lt { exch 360 sub exch } if
add 2 div dup /psRawLabelPos ED
\psk at LabelAngleOffset\space add
- \psk at LabelSep\space exch PtoC ){#5}%
+ \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
\edef\pst at rot@angle{ tx at EcldDict begin % expand the #4 and #2
@@ -430,7 +431,7 @@
2 copy lt \pslbrace exch 360 sub exch \psrbrace if
add 2 div \psk at LabelAngleOffset\space add }%
\rput[\psk at LabelRefPt]{!\pst at rot@angle\space \ifx\psk at MarkAngle\@undef 0 \else\psk at MarkAngle\space\fi add }%
- (! \psk at MarkAngleRadius\space psRawLabelPos PtoC )%
+ (! \psk at MarkAngleRadius\space psRawLabelPos PtoC)%
{\ifx\psk at mark\pst at tempA\csname\psk at Mark\endcsname\else\csname\psk at mark\endcsname\fi}%
}}}
%
@@ -467,7 +468,7 @@
\else\psset{PosAngle=\psk at PosAngleA}\fi
%%end modif alaindelplanque 11/2003
\ifx\psk at PosAngleA\@undef\else\psset{PosAngle=\psk at PosAngleA}\fi
- \ifx\psk at PointSymbolA\@undef\else\psset{PointSymbol=\psk at PointSymbolA}\fi
+ \let\psk at PointSymbol=\psk at PointSymbolA
\ifx\psk at PointNameA\@undef\else\psset{PointName=\psk at PointNameA}\fi
\Pst at Geonode@i[](#1){#2}\egroup%%NEW DR 15112001
%%begin modif alaindelplanque 11/2003
@@ -481,7 +482,7 @@
\else\psset{PosAngle=\psk at PosAngleB}\fi
%%end modif alaindelplanque 11/2003
\ifx\psk at PosAngleB\@undef\else\psset{PosAngle=\psk at PosAngleB}\fi
- \ifx\psk at PointSymbolB\@undef\else\psset{PointSymbol=\psk at PointSymbolB}\fi
+ \let\PointSymbol=\psk at PointSymbolB
\ifx\psk at PointNameB\@undef\else\psset{PointName=\psk at PointNameB}\fi
\Pst at Geonode@i[](#3){#4}\egroup%%NEW DR 15112001
%%begin modif alaindelplanque 11/2003
@@ -495,7 +496,7 @@
\else\psset{PosAngle=\psk at PosAngleC}\fi%% <----------------------- hv
%%end modif alaindelplanque 11/2003
\ifx\psk at PosAngleC\@undef\else\psset{PosAngle=\psk at PosAngleC}\fi
- \ifx\psk at PointSymbolC\@undef\else\psset{PointSymbol=\psk at PointSymbolC}\fi
+ \let\PointSymbol=\psk at PointSymbolC
\ifx\psk at PointNameC\@undef\else\psset{PointName=\psk at PointNameC}\fi
\Pst at Geonode@i[](#5){#6}%%NEW DR 15112001
\pst at TraceTriangle{#2}{#4}{#6}%
@@ -1020,14 +1021,14 @@
Glbx \pst at number\psxunit div Glby \pst at number\psyunit div
end){\pnode{#6}}
}%
- \bgroup
- \ifx\psk at PosAngleA\@undef\else\psset{PosAngle=\psk at PosAngleA}\fi
- \ifx\psk at PointSymbolA\@undef\else\psset{PointSymbol=\psk at PointSymbolA}\fi
- \ifx\psk at PointNameA\@undef\else\psset{PointName=\psk at PointNameA}\fi
+ \begingroup
+ \ifx\psk at PosAngleA\@undef \else\psset{PosAngle=\psk at PosAngleA}\fi
+ \let\psk at PointSymbol\psk at PointSymbolA
+ \ifx\psk at PointNameA\@undef \else\psset{PointName=\psk at PointNameA}\fi
\Pst at geonodelabel{#5}
- \egroup
+ \endgroup
\ifx\psk at PosAngleB\@undef\else\psset{PosAngle=\psk at PosAngleB}\fi
- \ifx\psk at PointSymbolB\@undef\else\psset{PointSymbol=\psk at PointSymbolB}\fi
+ \let\psk at PointSymbol\psk at PointSymbolB
\ifx\psk at PointNameB\@undef\else\psset{PointName=\psk at PointNameB}\fi
\Pst at geonodelabel{#6}%
\endgroup
@@ -1089,7 +1090,7 @@
% \ifx\psk at PointSymbolA\@undef\else\psset{PointSymbol=\psk at PointSymbolA}\fi
% \ifx\psk at PointNameA\@undef\else\psset{PointName=\psk at PointNameA}\fi
\ifx\psk at PosAngleA\@undef\else\ifx\psk at PosAngleA\@none\else\psset{PosAngle=\psk at PosAngleA}\fi\fi
- \ifx\psk at PointSymbolA\@undef\else\ifx\psk at PointSymbolA\@none\else\psset{PointSymbol=\psk at PointSymbolA}\fi\fi
+ \ifx\psk at PointSymbolA\@none\else\let\PointSymbol=\psk at PointSymbolA\fi
\ifx\psk at PointNameA\@undef\else\ifx\psk at PointNameA\@none\else\psset{PointName=\psk at PointNameA}\fi\fi
\ifx\psk at PosAngleA\@undef\else\ifx\psk at PointSymbolA\@none\else\Pst at geonodelabel{#6}\fi\fi
\egroup
@@ -1098,7 +1099,7 @@
% \ifx\psk at PointSymbolB\@undef\else\psset{PointSymbol=\psk at PointSymbolB}\fi
% \ifx\psk at PointNameB\@undef\else\psset{PointName=\psk at PointNameB}\fi
\ifx\psk at PosAngleA\@undef\else\ifx\psk at PosAngleB\@none\else\psset{PosAngle=\psk at PosAngleB}\fi\fi
- \ifx\psk at PointSymbolB\@undef\else\ifx\psk at PointSymbolB\@none\else\psset{PointSymbol=\psk at PointSymbolB}\fi\fi
+ \ifx\psk at PointSymbolB\@none\else\let\PointSymbol=\psk at PointSymbolB\fi
\ifx\psk at PointNameB\@undef\else\ifx\psk at PointNameB\@none\else\psset{PointName=\psk at PointNameB}\fi\fi
\ifx\psk at PosAngleB\@undef\else\ifx\psk at PointSymbolB\@none\else\Pst at geonodelabel{#7}\fi\fi
\egroup
@@ -1384,13 +1385,13 @@
\def\Pst at MediatorAB[#1]#2#3#4#5{%
\bgroup\psset{#1}% % Affectation of local parameters
\bgroup
- \ifx\psk at PointSymbolA\@undef\else\psset{PointSymbol=\psk at PointSymbolA}\fi
+ \let\PointSymbol=\psk at PointSymbolA
\ifx\psk at PointNameA\@undef\else\psset{PointName=\psk at PointNameA}\fi
%\Pst at HomO[HomCoef=.5]{#2}{#3}{#4}
\Pst at MiddleAB[]{#2}{#3}{#4}
\egroup
\bgroup
- \ifx\psk at PointSymbolB\@undef\else\psset{PointSymbol=\psk at PointSymbolB}\fi
+ \let\PointSymbol=\psk at PointSymbolB
\ifx\psk at PointNameB\@undef\else\psset{PointName=\psk at PointNameB}\fi
\expandafter\ifx\csname psteucl at old\endcsname\relax%
\Pst at Rotation[RotAngle=90, CodeFig=false]{#4}{#3}[#5]%%%DR 26032005
@@ -1614,7 +1615,11 @@
\pnode(! %
/dec \psk at decimals\space def
\psk at PSfont findfont \psk at fontscale scalefont setfont \pst at usecolor\pslinecolor
- /s1 { /Symbol findfont \psk at fontscale\space scalefont setfont } bind def
+ \ifpst at psfonts
+ /s1 { /Symbol findfont \psk at fontscale\space scalefont setfont } bind def
+ \else
+ /s1 { /StandardSymL findfont \psk at 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 at comma dot2comma \fi show s1 (\string\260) show} def
More information about the tex-live-commits
mailing list