From cf2a758397881eb2b4cb75c0abf4ac00d6551e36 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 22 Nov 2013 00:02:07 +0000 Subject: pst-plot (21nov13) git-svn-id: svn://tug.org/texlive/trunk@32198 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/generic/pst-plot/pst-plot.tex | 29 ++++++++++++++++------ 1 file changed, 21 insertions(+), 8 deletions(-) (limited to 'Master/texmf-dist/tex/generic/pst-plot') 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% } -- cgit v1.2.3