summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-plot
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-11-22 00:02:07 +0000
committerKarl Berry <karl@freefriends.org>2013-11-22 00:02:07 +0000
commitcf2a758397881eb2b4cb75c0abf4ac00d6551e36 (patch)
treeb1abab91439ae5a7d9f09f2c00d2fe035c6ab7b5 /Master/texmf-dist/tex/generic/pst-plot
parente8842c31c15e613f8cb08a582bdbdf889ce78dce (diff)
pst-plot (21nov13)
git-svn-id: svn://tug.org/texlive/trunk@32198 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-plot')
-rw-r--r--Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex29
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%
}