pst-plot (21nov13)

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

1 files changed, 21 insertions, 8 deletions

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%
 }