pst-plot (21nov13)

git-svn-id: svn://tug.org/texlive/trunk@32198 c570f23f-e606-0410-a88d-b1316a301751

5 files changed, 40 insertions, 13 deletions

diff --git a/Master/texmf-dist/doc/generic/pst-plot/Changes b/Master/texmf-dist/doc/generic/pst-plot/Changes
index 32a4ab3ccac..f2bdebf1e0b 100644
--- a/Master/texmf-dist/doc/generic/pst-plot/Changes
+++ b/Master/texmf-dist/doc/generic/pst-plot/Changes
@@ -1,4 +1,5 @@
 ----- pst-plot.tex
+1.55  2013-11-21  - added option quadrant for polar axes
 1.54  2013-11-08  - support polarplot option for \pslistplot et al
 1.53  2013-11-05  - added \SpecialCoor for \psVectorfield
 1.52  2013-10-18  - added \psVectorfield
diff --git a/Master/texmf-dist/doc/generic/pst-plot/README-doc b/Master/texmf-dist/doc/generic/pst-plot/README-doc
deleted file mode 100644
index efdfe42fcfd..00000000000
--- a/Master/texmf-dist/doc/generic/pst-plot/README-doc
+++ /dev/null
@@ -1,3 +0,0 @@
-dtk02-1.pdf     : Die mathematischen Funktionen von PostScript
-dtk02-2.pdf     : Die Plotfunktionen von pst-plot
-tugboat01-4.pdf : The plot functions of pst-plot
diff --git a/Master/texmf-dist/doc/generic/pst-plot/pst-plot-doc.pdf b/Master/texmf-dist/doc/generic/pst-plot/pst-plot-doc.pdf
index 76f196a7fbe..ffef1d78eee 100644
--- a/Master/texmf-dist/doc/generic/pst-plot/pst-plot-doc.pdf
+++ b/Master/texmf-dist/doc/generic/pst-plot/pst-plot-doc.pdf
diff --git a/Master/texmf-dist/doc/generic/pst-plot/pst-plot-doc.tex b/Master/texmf-dist/doc/generic/pst-plot/pst-plot-doc.tex
index cc8b7115d50..3dffb245d5c 100644
--- a/Master/texmf-dist/doc/generic/pst-plot/pst-plot-doc.tex
+++ b/Master/texmf-dist/doc/generic/pst-plot/pst-plot-doc.tex
@@ -1038,6 +1038,7 @@ redefinition, then do it for \Lcs{pst@@@hlabel} and
 \Lkeyword{plotNoMax}        & integer      & 1              & \pageref{plotno}\\
 \Lkeyword{polarplot}        & boolean      & \false         & \pageref{polarplots}\\
 \Lkeyword{PSfont}           & PS font      & \Lkeyval{Times-Romasn} & \pageref{values}\\
+\Lkeyword{quadrant}         & integer      & 4              & \pageref{quadrant}\\
 \Lkeyword{subtickcolor}     & color        & \Lkeyval{darkgray} & \pageref{tickcolor}\\
 \Lkeyword{subticklinestyle} & \Lkeyval{solid}|\Lkeyval{dashed}|\Lkeyval{dotted}|\Lkeyval{none} 
                                            & \Lkeyval{solid}&\pageref{ticklinestyle}\\
@@ -1230,7 +1231,7 @@ be set.
 
 
 %--------------------------------------------------------------------------------------
-\subsection{Option \nxLkeyword{axesstyle}}\label{axesstyle}
+\subsection{Option \nxLkeyword{axesstyle}}\label{axesstyle}\label{quadrant}
 %--------------------------------------------------------------------------------------
 There is a new axes style \Lkeyval{polar} which plots a  \Index{polar coordinate} system.
 
@@ -1242,12 +1243,25 @@ Syntax:
 \end{lstlisting}
 
 
-
 Important is the fact, that only one pair of coordinates is taken into account for
 the radius. It is \emph{always} the last pair in a sequence of allowed coordinates
 for the \Lcs{psaxes} macro. The other ones are ignored; they are not valid for the
 polar coordinate system.
 
+With the optional argument \Lkeyword{quadrant} the number of drawn quadrants can be defined.
+A valid number must be between 1 and 4. Counting always starts at 1.
+
+\begin{LTXexample}[pos=r]
+\begin{pspicture}(-1,-1)(5.75,5.75)
+\psaxes[axesstyle=polar,subticks=2,
+   quadrant=1](5,5)
+\psline[linewidth=2pt]{->}(5;15)
+\psline[linewidth=2pt]{->}(2;40)
+\psline{->}(2;10)(4;85)
+\end{pspicture}
+\end{LTXexample}
+
+
 \begin{LTXexample}[pos=b]
 \begin{pspicture}(-3.5,-3.5)(3.5,3.5)
 \psaxes[axesstyle=polar](3,3)
@@ -1268,6 +1282,8 @@ Important are the \Lkeyword{Dy} option, it defines the angle interval and \Lkeyw
 the intermediate circles and lines. The number can be different for the circles (\Lkeyword{ysubticks}) and the 
 lines (\Lkeyword{xsubticks}).
 
+
+
 %--------------------------------------------------------------------------------------
 \subsection{Option \nxLkeyword{xyAxes}, \nxLkeyword{xAxis} and \nxLkeyword{yAxis}}\label{xyAxes}
 %--------------------------------------------------------------------------------------
diff --git a/Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex b/Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex
index 0b5fb325621..718777c2663 100644
--- a/Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex
+++ b/Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex
@@ -19,8 +19,8 @@
 \ifx\PSTFPloaded\endinput\else   \input pst-fp.tex  \fi
 \ifx\MultidoLoaded\endinput\else \input multido.tex \fi
 %
-\def\fileversion{1.54}
-\def\filedate{2013/11/08}
+\def\fileversion{1.55}
+\def\filedate{2013/11/21}
 \message{ v\fileversion, \filedate\space (tvz,hv)}
 %
 \edef\TheAtCode{\the\catcode`\@}
@@ -2051,6 +2051,16 @@ D\space##1%
   \fi%
 }
 %
+\def\psk@EndAngle{360}% be sure that it isn't undefined
+\define@key[psset]{pst-plot}{quadrant}[4]{%
+  \ifcase#1 \or
+    \def\psk@EndAngle{90}\or
+    \def\psk@EndAngle{180}\or
+    \def\psk@EndAngle{270}\else
+    \def\psk@EndAngle{360}%
+  \fi}
+\psset[pst-plot]{quadrant=4}
+
 \def\psxs@polar{% (rx,ry) % all other values are ignored
   \pst@killglue
   \begingroup
@@ -2058,15 +2068,16 @@ D\space##1%
   \pstFPDiv\pstR@dius{\pst@dimC}{\strip@pt\psxunit}%	in cm and as integer
   \addbefore@par{Dy=30}%				for the angle step
   \use@keep@par
-  \pstFPDiv\pstN@lpha{360}{\psk@Dy}% 			No of (int) main lines
+  \pstFPDiv\pstN@lpha{\psk@EndAngle}{\psk@Dy}% 			No. of (int) main lines
   \pstFPdiv\pstd@lpha{\psk@Dy}{\psk@ysubticks}% 	sub dAlpha
   \pstFPdiv\pstdR@dius{1}{\psk@xsubticks}%		sub dRadius
   \pst@cntm=\psk@xsubticks\advance\pst@cntm by \m@ne
   \multido{\iA=\psk@Dx+\psk@Dx,\rB=\pstdR@dius+\psk@Dx,\iB=0+1}{\pstR@dius}{%
-    \multido{\rA=\rB+\pstdR@dius}{\the\pst@cntm}{\pscircle[linestyle=\psxsubticklinestyle,
-      linecolor=\psk@xsubtickcolor,linewidth=\psk@xsubtickwidth pt]{\rA}}    
-    \pscircle[linestyle=\psxticklinestyle,linecolor=\psk@xtickcolor,
-		linewidth=\psk@xtickwidth pt]{\iA}%
+    \multido{\rA=\rB+\pstdR@dius}{\the\pst@cntm}{%
+      \psarc[linestyle=\psxsubticklinestyle,
+         linecolor=\psk@xsubtickcolor,linewidth=\psk@xsubtickwidth pt](0,0){\rA}{0}{\psk@EndAngle}}    
+    \psarc[linestyle=\psxticklinestyle,linecolor=\psk@xtickcolor,
+		linewidth=\psk@xtickwidth pt](0,0){\iA}{0}{\psk@EndAngle}%
     \ifnum\psk@labels<2\relax% is all or x (0,1)
       \uput[-45](\iB,0){\pshlabel{\iB}}\uput[45](0,\iB){\pshlabel{\iB}}%
     \fi%
@@ -2081,7 +2092,9 @@ D\space##1%
     \ifodd\psk@labels\else% is all or y (0,3)
       \uput[\iA](\pstR@dius;\iA){\psvlabel{\iA}}%
     \fi%
-  }
+  }%
+  \ifnum\psk@EndAngle<360 \psline[linestyle=\psyticklinestyle,
+      linecolor=\psk@ytickcolor,linewidth=\psk@ytickwidth pt](\pstR@dius;0)\fi
   \endgroup\ignorespaces%
   \Pst@xAxisfalse\Pst@yAxisfalse%
 }