diff options
author | Karl Berry <karl@freefriends.org> | 2006-09-24 22:02:48 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-09-24 22:02:48 +0000 |
commit | ba3d5a002b7499d72f6a35ae16f2840f70b49b6a (patch) | |
tree | 12d1ee1f18e9c928ceea07951fc578d81e3edc46 /Master/texmf-dist/tex/generic/pstricks-add | |
parent | 9e3200d38fdb38d5feaa3f48bb0f37e6716df871 (diff) |
pstricks-add update (23sep06)
git-svn-id: svn://tug.org/texlive/trunk@2190 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pstricks-add')
-rw-r--r-- | Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex | 289 |
1 files changed, 159 insertions, 130 deletions
diff --git a/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex b/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex index 42d066f3fb2..68508375775 100644 --- a/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex +++ b/Master/texmf-dist/tex/generic/pstricks-add/pstricks-add.tex @@ -21,18 +21,18 @@ % % Requires some packages \ifx\PSTricksLoaded\endinput\else\input pstricks \fi -\ifx\PSTplotLoaded\endinput\else\input pst-plot \fi +\ifx\PSTplotLoaded\endinput\else \input pst-plot \fi \ifx\PSTnodesLoaded\endinput\else\input pst-node \fi -\ifx\MultidoLoaded\endinput\else\input multido \fi -\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey \fi +\ifx\MultidoLoaded\endinput\else \input multido \fi +\ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi % -\def\fileversion{2.78} -\def\filedate{2006/08/08} +\def\fileversion{2.79} +\def\filedate{2006/09/23} \message{`pstricks-add' v\fileversion, \filedate\space (dr,hv)} % \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax \SpecialCoor -\pst@addfams{pstricks-add} +\pst@addfams{pstricksadd} % %% prologue for postcript \pstheader{pstricks-add.pro}% @@ -93,6 +93,25 @@ \fi% } % +% stolen from latex.ltx to make it TeX compatible +% +\def\@fornoop#1\@@#2#3{} +\long\def\@for#1:=#2\do#3{% + \expandafter\def\expandafter\@fortmp\expandafter{#2}% + \ifx\@fortmp\@empty \else + \expandafter\@forloop#2,\@nil,\@nil\@@#1{#3}\fi} +\long\def\@forloop#1,#2,#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else + #5\def#4{#2}\ifx #4\@nnil \else#5\@iforloop #3\@@#4{#5}\fi\fi} +\long\def\@iforloop#1,#2\@@#3#4{\def#3{#1}\ifx #3\@nnil + \expandafter\@fornoop \else + #4\relax\expandafter\@iforloop\fi#2\@@#3{#4}} +\def\psforeach#1#2#3{% + \begingroup + \edef\reserved@a{#2}% + \@for#1:=\reserved@a\do{#3}% + \endgroup +} +% % A modulo macro for integer values % \pst@mod{34}{6}\value ==> \value is 4 % @@ -135,8 +154,18 @@ } % %--------------------------------------- small stuff ------------------------------- +% transalpha needs a run through latex -> dvips -> ps2pdf14(!) +% and view with Acrobat >= 5.0 +% use transpalpha=<mumber> to the the opacity level +% +\define@key[psset]{pstricksadd}{transpalpha}{\pst@checknum{#1}\pstranspalpha } +%\psset[pstricksadd]{transpalpha=1} +\def\psfs@transparent{% + \addto@pscode{/Normal .setblendmode \pstranspalpha .setshapealpha } + \psfs@solid} +% \def\defineTColor{\@ifnextchar[{\defineTColor@i}{\defineTColor@i[]}} -\def\defineTColor@i[#1]#2#3{% transparency "colors" +\def\defineTColor@i[#1]#2#3{% "semi transparency colors" \def\pst@tempA{#1}% \newpsstyle{#2}{% fillstyle=vlines,hatchwidth=0.1\pslinewidth, @@ -183,7 +212,7 @@ \define@key[psset]{}{dash}{% defined in pstricks.tex \pst@expandafter\psset@@dash{#1}\@nil% Error handling for empty argument. } -\define@key[psset]{pstricks-add}{maxdashes}{\def\psk@maxdashes{#1}} +\define@key[psset]{pstricksadd}{maxdashes}{\def\psk@maxdashes{#1}} %\psset{maxdashes=11} \def\psset@@dash#1\@nil{% \def\psk@dash{}% @@ -248,7 +277,7 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % -\define@key[psset]{pstricks-add}{intSeparator}{\def\psk@intSeparator{#1}} +\define@key[psset]{pstricksadd}{intSeparator}{\def\psk@intSeparator{#1}} %\psset{intSeparator={,}} % \def\psFormatInt{\def\pst@par{}\pst@object{psFormatInt}} @@ -284,8 +313,8 @@ }\ignorespaces} % \newdimen\pst@braceWidth -\define@key[psset]{pstricks-add}{braceWidth}{\pssetlength\pst@braceWidth{#1}} -\define@key[psset]{pstricks-add}{bracePos}{\def\psk@bracePos{#1}} +\define@key[psset]{pstricksadd}{braceWidth}{\pssetlength\pst@braceWidth{#1}} +\define@key[psset]{pstricksadd}{bracePos}{\def\psk@bracePos{#1}} %\psset{braceWidth=10pt,bracePos=0.5} % \def\@@rput@iv(#1){\pst@killglue\pst@makebox{\@@rput@v{#1}}} @@ -351,8 +380,8 @@ % HookLeft/RightArrow \newdimen\pshooklength \newdimen\pshookwidth -\define@key[psset]{pstricks-add}{hooklength}{\pssetlength\pshooklength{#1}} -\define@key[psset]{pstricks-add}{hookwidth}{\pssetlength\pshookwidth{#1}} +\define@key[psset]{pstricksadd}{hooklength}{\pssetlength\pshooklength{#1}} +\define@key[psset]{pstricksadd}{hookwidth}{\pssetlength\pshookwidth{#1}} %\psset{hooklength=3mm,hookwidth=1mm} % \edef\pst@arrowtable{\pst@arrowtable,H-H,h-h} % add new arrow @@ -387,7 +416,7 @@ 0 \psk@arrowlength \psk@arrowsize \tx@Rhook } % New parameter "arrowfill", with default as "true" -\define@boolkey[psset]{pstricks-add}[ps]{ArrowFill}[true]{} +\define@boolkey[psset]{pstricksadd}[ps]{ArrowFill}[true]{} % % Modification of the PostScript macro Arrow to choose to fill or not the arrow % (it require to restore the current linewidth, despite of the scaling) @@ -405,9 +434,9 @@ 0 h a sub moveto }> % -\define@key[psset]{pstricks-add}{nArrowsA}{\def\psk@nArrowsA{#1}} -\define@key[psset]{pstricks-add}{nArrowsB}{\def\psk@nArrowsB{#1}} -\define@key[psset]{pstricks-add}{nArrows}{\def\psk@nArrowsA{#1}\def\psk@nArrowsB{#1}} +\define@key[psset]{pstricksadd}{nArrowsA}{\def\psk@nArrowsA{#1}} +\define@key[psset]{pstricksadd}{nArrowsB}{\def\psk@nArrowsB{#1}} +\define@key[psset]{pstricksadd}{nArrows}{\def\psk@nArrowsA{#1}\def\psk@nArrowsB{#1}} %\psset{nArrows=2} % \@namedef{psas@>>}{% @@ -437,7 +466,7 @@ % DG addition begin - Dec. 18/19, 1997 and Oct. 11, 2002 % Adapted from \psset@arrows \def\psk@ArrowInside{} - \define@key[psset]{pstricks-add}{ArrowInside}{% + \define@key[psset]{pstricksadd}{ArrowInside}{% \def\pst@tempA{#1}% \ifx\pst@tempA\@empty \def\psk@ArrowInside{} % \else% @@ -491,7 +520,7 @@ \tx@EndArrow% } % ArrowInsidePos parameter (default value 0.5) -\define@key[psset]{pstricks-add}{ArrowInsidePos}{\pst@checknum{#1}\psk@ArrowInsidePos}% +\define@key[psset]{pstricksadd}{ArrowInsidePos}{\pst@checknum{#1}\psk@ArrowInsidePos}% %\psset{ArrowInsidePos=0.5} % % Modified version of \begin@ClosedObj @@ -509,8 +538,8 @@ % Redefinition of the PostScript /Line macro to print the intermediate % arrow on each segment of the line % -\define@key[psset]{pstricks-add}{ArrowInsideNo}{\pst@checknum{#1}\psk@ArrowInsideNo}% hv 20031001 -\define@key[psset]{pstricks-add}{ArrowInsideOffset}{\pst@checknum{#1}\psk@ArrowInsideOffset}% hv 20031001 +\define@key[psset]{pstricksadd}{ArrowInsideNo}{\pst@checknum{#1}\psk@ArrowInsideNo}% hv 20031001 +\define@key[psset]{pstricksadd}{ArrowInsideOffset}{\pst@checknum{#1}\psk@ArrowInsideOffset}% hv 20031001 %\psset{ArrowInsideNo=1,ArrowInsideOffset=0} % \def\arrowType@H{H} @@ -826,11 +855,11 @@ % %\def\psDashColorI{black} %\def\psDashColorII{red} -\define@key[psset]{pstricks-add}{dashColorI}{\pst@getcolor{#1}\psDashColorI} -\define@key[psset]{pstricks-add}{dashColorII}{\pst@getcolor{#1}\psDashColorII} -\define@key[psset]{pstricks-add}{dashNo}{\def\psk@dashNo{#1}} +\define@key[psset]{pstricksadd}{dashColorI}{\pst@getcolor{#1}\psDashColorI} +\define@key[psset]{pstricksadd}{dashColorII}{\pst@getcolor{#1}\psDashColorII} +\define@key[psset]{pstricksadd}{dashNo}{\def\psk@dashNo{#1}} % -\define@key[psset]{pstricks-add}{linecap}{\def\psk@linecap{#1}} +\define@key[psset]{pstricksadd}{linecap}{\def\psk@linecap{#1}} %\psset{dashColorI=black,dashColorII=red,dashNo=0.2,linecap=0} % \pst@def{LineII}<{% @@ -884,8 +913,8 @@ \end@OpenObj% } % -\define@key[psset]{pstricks-add}{randomPoints}{\def\psk@randomPoints{#1}} -\define@boolkey[psset]{pstricks-add}[Pst@]{color}[true]{} +\define@key[psset]{pstricksadd}{randomPoints}{\def\psk@randomPoints{#1}} +\define@boolkey[psset]{pstricksadd}[Pst@]{color}[true]{} %\psset{randomPoints=1000,color=false} % \def\psRandom{\pst@object{psRandom}}% hv 2004-11-12 @@ -996,7 +1025,7 @@ \def\pclineII{\pst@object{pclineII}}% \def\pclineII@i{\pc@object\nclineII@ii}% % -\define@key[psset]{pstricks-add}{lineAngle}{\psset{armB=0.5}\def\psk@lineAngle{#1}}% +\define@key[psset]{pstricksadd}{lineAngle}{\psset{armB=0.5}\def\psk@lineAngle{#1}}% %\psset{lineAngle=0}% % \pst@def{NCDiag}<{ @@ -1113,7 +1142,7 @@ } % % -\define@boolkey[psset]{pstricks-add}[Pst@]{trueAngle}[true]{} +\define@boolkey[psset]{pstricksadd}[Pst@]{trueAngle}[true]{} %\psset{trueAngle=false} % \def\psRelNode{\pst@object{psRelNode}} @@ -1251,35 +1280,33 @@ %%%%%%%%%%% %%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % -\define@key[psset]{pstricks-add}{labelFontSize}{\def\psk@labelFontSize{#1}}% +\define@key[psset]{pstricksadd}{labelFontSize}{\def\psk@labelFontSize{#1}}% \psset{labelFontSize={}} \def\pshlabel#1{\psk@labelFontSize$#1$}% \def\psvlabel#1{\psk@labelFontSize$#1$} % -\define@boolkey[psset]{pstricks-add}[Pst@]{comma}[true]{} +\define@boolkey[psset]{pstricksadd}[Pst@]{comma}[true]{} % -\define@boolkey[psset]{pstricks-add}[Pst@]{xAxis}[true]{} -\define@boolkey[psset]{pstricks-add}[Pst@]{yAxis}[true]{} -%\define@boolkey[psset]{pstricks-add}[Pst@]{xAxis}[true]{\@nameuse{Pst@xAxis#1}} -%\define@boolkey[psset]{pstricks-add}[Pst@]{yAxis}[true]{\@nameuse{Pst@yAxis#1}} -\define@boolkey[psset]{pstricks-add}[Pst@]{xyAxes}[true]{% +\define@boolkey[psset]{pstricksadd}[Pst@]{xAxis}[true]{} +\define@boolkey[psset]{pstricksadd}[Pst@]{yAxis}[true]{} +\define@boolkey[psset]{pstricksadd}[Pst@]{xyAxes}[true]{% \@nameuse{Pst@xAxis#1}\@nameuse{Pst@yAxis#1}}% %\psset{xyAxes=true}% % -\define@key[psset]{pstricks-add}{xyDecimals}{\def\psk@xDecimals{#1}\def\psk@yDecimals{#1}} -\define@key[psset]{pstricks-add}{xDecimals}{\def\psk@xDecimals{#1}} -\define@key[psset]{pstricks-add}{yDecimals}{\def\psk@yDecimals{#1}} +\define@key[psset]{pstricksadd}{xyDecimals}{\def\psk@xDecimals{#1}\def\psk@yDecimals{#1}} +\define@key[psset]{pstricksadd}{xDecimals}{\def\psk@xDecimals{#1}} +\define@key[psset]{pstricksadd}{yDecimals}{\def\psk@yDecimals{#1}} %\psset{xyDecimals={}}% % -\define@key[psset]{pstricks-add}{xlogBase}{\def\psk@xlogBase{#1}} -\define@key[psset]{pstricks-add}{ylogBase}{\def\psk@ylogBase{#1}} -\define@key[psset]{pstricks-add}{xylogBase}{\def\psk@xlogBase{#1}\def\psk@ylogBase{#1}}% +\define@key[psset]{pstricksadd}{xlogBase}{\def\psk@xlogBase{#1}} +\define@key[psset]{pstricksadd}{ylogBase}{\def\psk@ylogBase{#1}} +\define@key[psset]{pstricksadd}{xylogBase}{\def\psk@xlogBase{#1}\def\psk@ylogBase{#1}}% %\psset{xylogBase={}}% % -\define@key[psset]{pstricks-add}{trigLabelBase}{\pst@getint{#1}{\psk@trigLabelBase}} +\define@key[psset]{pstricksadd}{trigLabelBase}{\pst@getint{#1}{\psk@trigLabelBase}} \psset{trigLabelBase=0} -\define@boolkey[psset]{pstricks-add}[Pst@]{trigLabels}[true]{% +\define@boolkey[psset]{pstricksadd}[Pst@]{trigLabels}[true]{% \ifPst@trigLabels \def\pst@@@hlabel##1{\pshlabel{##1}} \def\pshlabel##1{% @@ -1328,7 +1355,7 @@ \psset{trigLabels=false} % %logLines=all|x|y|none (0,1,2,3) -\define@key[psset]{pstricks-add}{logLines}{\pst@expandafter\psset@@logLines{#1}\@nil\psk@logLines} +\define@key[psset]{pstricksadd}{logLines}{\pst@expandafter\psset@@logLines{#1}\@nil\psk@logLines} \def\psset@@logLines#1#2\@nil#3{% \ifx#1a\let#3\z@\else \ifx#1x\let#3\@ne\else @@ -1341,8 +1368,8 @@ % Define "ticklines" parameter (ticklines=all|x|y|none with default=none) %\def\psset@ticklines#1{\pst@expandafter\psset@@ticklines{#1}\@nil\psk@ticklines} %\psset@ticklines{none} -\define@key[psset]{pstricks-add}{ylabelFactor}{\def\psk@ylabelFactor{#1}} -\define@key[psset]{pstricks-add}{xlabelFactor}{\def\psk@xlabelFactor{#1}} +\define@key[psset]{pstricksadd}{ylabelFactor}{\def\psk@ylabelFactor{#1}} +\define@key[psset]{pstricksadd}{xlabelFactor}{\def\psk@xlabelFactor{#1}} %\psset{xlabelFactor=\relax,ylabelFactor=\relax}% % The parameter styles for the tick lines % (default=arrows=-,linestyle=dotted,dotsep=5pt) @@ -1528,8 +1555,8 @@ \fi% } \define@key[psset]{}{ticksize}{\set@xticksize{#1}\set@yticksize{#1}} -\define@key[psset]{pstricks-add}{xticksize}{\set@xticksize{#1}} -\define@key[psset]{pstricks-add}{yticksize}{\set@yticksize{#1}}% overwrites the definition in pstricks +\define@key[psset]{pstricksadd}{xticksize}{\set@xticksize{#1}} +\define@key[psset]{pstricksadd}{yticksize}{\set@yticksize{#1}}% overwrites the definition in pstricks %\psset{ticksize=-4pt 4pt} % % full= 0, top=1, bottom=-1 @@ -1549,61 +1576,61 @@ %\psset{tickstyle=full}% % % -\define@key[psset]{pstricks-add}{subticks}{\def\psk@xsubticks{#1}\def\psk@ysubticks{#1}} -\define@key[psset]{pstricks-add}{xsubticks}{\def\psk@xsubticks{#1}} -\define@key[psset]{pstricks-add}{ysubticks}{\def\psk@ysubticks{#1}} +\define@key[psset]{pstricksadd}{subticks}{\def\psk@xsubticks{#1}\def\psk@ysubticks{#1}} +\define@key[psset]{pstricksadd}{xsubticks}{\def\psk@xsubticks{#1}} +\define@key[psset]{pstricksadd}{ysubticks}{\def\psk@ysubticks{#1}} % -\define@key[psset]{pstricks-add}{subticksize}{\def\psk@xsubticksize{#1}\def\psk@ysubticksize{#1}} -\define@key[psset]{pstricks-add}{xsubticksize}{\def\psk@xsubticksize{#1}} -\define@key[psset]{pstricks-add}{ysubticksize}{\def\psk@ysubticksize{#1}} +\define@key[psset]{pstricksadd}{subticksize}{\def\psk@xsubticksize{#1}\def\psk@ysubticksize{#1}} +\define@key[psset]{pstricksadd}{xsubticksize}{\def\psk@xsubticksize{#1}} +\define@key[psset]{pstricksadd}{ysubticksize}{\def\psk@ysubticksize{#1}} % -\define@key[psset]{pstricks-add}{tickwidth}{% +\define@key[psset]{pstricksadd}{tickwidth}{% \pst@getlength{#1}\psk@xtickwidth% \pst@getlength{#1}\psk@ytickwidth} -\define@key[psset]{pstricks-add}{xtickwidth}{\pst@getlength{#1}\psk@xtickwidth} -\define@key[psset]{pstricks-add}{ytickwidth}{\pst@getlength{#1}\psk@ytickwidth} -\define@key[psset]{pstricks-add}{subtickwidth}{% +\define@key[psset]{pstricksadd}{xtickwidth}{\pst@getlength{#1}\psk@xtickwidth} +\define@key[psset]{pstricksadd}{ytickwidth}{\pst@getlength{#1}\psk@ytickwidth} +\define@key[psset]{pstricksadd}{subtickwidth}{% \pst@getlength{#1}\psk@xsubtickwidth% \pst@getlength{#1}\psk@ysubtickwidth} -\define@key[psset]{pstricks-add}{xsubtickwidth}{\pst@getlength{#1}\psk@xsubtickwidth} -\define@key[psset]{pstricks-add}{ysubtickwidth}{\pst@getlength{#1}\psk@ysubtickwidth} +\define@key[psset]{pstricksadd}{xsubtickwidth}{\pst@getlength{#1}\psk@xsubtickwidth} +\define@key[psset]{pstricksadd}{ysubtickwidth}{\pst@getlength{#1}\psk@ysubtickwidth} % -\define@key[psset]{pstricks-add}{tickcolor}{\def\psk@xtickcolor{#1}\def\psk@ytickcolor{#1}} -\define@key[psset]{pstricks-add}{xtickcolor}{\def\psk@xtickcolor{#1}} -\define@key[psset]{pstricks-add}{ytickcolor}{\def\psk@ytickcolor{#1}} -\define@key[psset]{pstricks-add}{subtickcolor}{% +\define@key[psset]{pstricksadd}{tickcolor}{\def\psk@xtickcolor{#1}\def\psk@ytickcolor{#1}} +\define@key[psset]{pstricksadd}{xtickcolor}{\def\psk@xtickcolor{#1}} +\define@key[psset]{pstricksadd}{ytickcolor}{\def\psk@ytickcolor{#1}} +\define@key[psset]{pstricksadd}{subtickcolor}{% \pst@getcolor{#1}\psk@xsubtickcolor% \pst@getcolor{#1}\psk@ysubtickcolor} -\define@key[psset]{pstricks-add}{xsubtickcolor}{\pst@getcolor{#1}\psk@xsubtickcolor} -\define@key[psset]{pstricks-add}{ysubtickcolor}{\pst@getcolor{#1}\psk@ysubtickcolor} +\define@key[psset]{pstricksadd}{xsubtickcolor}{\pst@getcolor{#1}\psk@xsubtickcolor} +\define@key[psset]{pstricksadd}{ysubtickcolor}{\pst@getcolor{#1}\psk@ysubtickcolor} % -\define@key[psset]{pstricks-add}{xticklinestyle}{% +\define@key[psset]{pstricksadd}{xticklinestyle}{% \@ifundefined{psls@#1}% {\@pstrickserr{Line style `#1' not defined}\@eha}% {\def\psxticklinestyle{#1}}} -\define@key[psset]{pstricks-add}{xsubticklinestyle}{% +\define@key[psset]{pstricksadd}{xsubticklinestyle}{% \@ifundefined{psls@#1}% {\@pstrickserr{Line style `#1' not defined}\@eha}% {\def\psxsubticklinestyle{#1}}} -\define@key[psset]{pstricks-add}{yticklinestyle}{% +\define@key[psset]{pstricksadd}{yticklinestyle}{% \@ifundefined{psls@#1}% {\@pstrickserr{Line style `#1' not defined}\@eha}% {\def\psyticklinestyle{#1}}} -\define@key[psset]{pstricks-add}{ysubticklinestyle}{% +\define@key[psset]{pstricksadd}{ysubticklinestyle}{% \@ifundefined{psls@#1}% {\@pstrickserr{Line style `#1' not defined}\@eha}% {\def\psysubticklinestyle{#1}}} -\define@key[psset]{pstricks-add}{ticklinestyle}{% +\define@key[psset]{pstricksadd}{ticklinestyle}{% \@ifundefined{psls@#1}% {\@pstrickserr{Line style `#1' not defined}\@eha}% {\def\psxticklinestyle{#1}\def\psyticklinestyle{#1}}} -\define@key[psset]{pstricks-add}{subticklinestyle}{% +\define@key[psset]{pstricksadd}{subticklinestyle}{% \@ifundefined{psls@#1}% {\@pstrickserr{Line style `#1' not defined}\@eha}% {\def\psxsubticklinestyle{#1}\def\psysubticklinestyle{#1}}} % -\define@key[psset]{pstricks-add}{ticklinestyle}{\psset{xticklinestyle=#1,yticklinestyle=#1}} -\define@key[psset]{pstricks-add}{subticklinestyle}{\psset{xsubticklinestyle=#1,ysubticklinestyle=#1}} +\define@key[psset]{pstricksadd}{ticklinestyle}{\psset{xticklinestyle=#1,yticklinestyle=#1}} +\define@key[psset]{pstricksadd}{subticklinestyle}{\psset{xsubticklinestyle=#1,ysubticklinestyle=#1}} %\psset{subticksize=0.75,subticks=1,tickcolor=black,ticklinestyle=solid,% % subticklinestyle=solid,% % subtickcolor=gray,% @@ -1889,19 +1916,19 @@ \vss% }} % -\define@key[psset]{pstricks-add}{nStep}{\def\psk@nStep{#1}} -\define@key[psset]{pstricks-add}{nStart}{\def\psk@nStart{#1}} -\define@key[psset]{pstricks-add}{nEnd}{\def\psk@nEnd{#1}} -\define@key[psset]{pstricks-add}{xStep}{\def\psk@xStep{#1}} -\define@key[psset]{pstricks-add}{yStep}{\def\psk@yStep{#1}} +\define@key[psset]{pstricksadd}{nStep}{\def\psk@nStep{#1}} +\define@key[psset]{pstricksadd}{nStart}{\def\psk@nStart{#1}} +\define@key[psset]{pstricksadd}{nEnd}{\def\psk@nEnd{#1}} +\define@key[psset]{pstricksadd}{xStep}{\def\psk@xStep{#1}} +\define@key[psset]{pstricksadd}{yStep}{\def\psk@yStep{#1}} % -\define@key[psset]{pstricks-add}{xStart}{\def\psk@xStart{#1}} -\define@key[psset]{pstricks-add}{xEnd}{\def\psk@xEnd{#1}} -\define@key[psset]{pstricks-add}{yStart}{\def\psk@yStart{#1}} -\define@key[psset]{pstricks-add}{yEnd}{\def\psk@yEnd{#1}} +\define@key[psset]{pstricksadd}{xStart}{\def\psk@xStart{#1}} +\define@key[psset]{pstricksadd}{xEnd}{\def\psk@xEnd{#1}} +\define@key[psset]{pstricksadd}{yStart}{\def\psk@yStart{#1}} +\define@key[psset]{pstricksadd}{yEnd}{\def\psk@yEnd{#1}} % -\define@key[psset]{pstricks-add}{plotNo}{\def\psk@plotNo{#1}} -\define@key[psset]{pstricks-add}{plotNoMax}{\def\psk@plotNoMax{#1}} +\define@key[psset]{pstricksadd}{plotNo}{\def\psk@plotNo{#1}} +\define@key[psset]{pstricksadd}{plotNoMax}{\def\psk@plotNoMax{#1}} % %\psset{nStep=1, nStart=0, nEnd={},% % xStep=0, yStep=0, xStart={}, xEnd={}, yStart={}, yEnd={}, comma=false,% @@ -1935,7 +1962,7 @@ \@nameuse{endplot@\psplotstyle}% } % -\define@boolkey[psset]{pstricks-add}[Pst@]{ChangeOrder}[true]{} +\define@boolkey[psset]{pstricksadd}[Pst@]{ChangeOrder}[true]{} \pst@def{PreparePoints}<{% counttomark /m exch def \ifPst@ChangeOrder @@ -2008,31 +2035,31 @@ }> % % -\define@key[psset]{pstricks-add}{xAxisLabel}{\def\psk@xAxisLabel{#1}} -\define@key[psset]{pstricks-add}{yAxisLabel}{\def\psk@yAxisLabel{#1}} +\define@key[psset]{pstricksadd}{xAxisLabel}{\def\psk@xAxisLabel{#1}} +\define@key[psset]{pstricksadd}{yAxisLabel}{\def\psk@yAxisLabel{#1}} %\psset{xAxisLabel=x,yAxisLabel=y} -\define@key[psset]{pstricks-add}{xAxisLabelPos}{\def\psk@xAxisLabelPos{#1}} -\define@key[psset]{pstricks-add}{yAxisLabelPos}{\def\psk@yAxisLabelPos{#1}} +\define@key[psset]{pstricksadd}{xAxisLabelPos}{\def\psk@xAxisLabelPos{#1}} +\define@key[psset]{pstricksadd}{yAxisLabelPos}{\def\psk@yAxisLabelPos{#1}} %\psset{yAxisLabelPos={},xAxisLabelPos={}} % \newdimen\psk@llx \newdimen\psk@lly \newdimen\psk@urx \newdimen\psk@ury -\define@key[psset]{pstricks-add}{llx}{\pssetxlength\psk@llx{#1}} -\define@key[psset]{pstricks-add}{lly}{\pssetylength\psk@lly{#1}} -\define@key[psset]{pstricks-add}{urx}{\pssetxlength\psk@urx{#1}} -\define@key[psset]{pstricks-add}{ury}{\pssetylength\psk@ury{#1}} +\define@key[psset]{pstricksadd}{llx}{\pssetxlength\psk@llx{#1}} +\define@key[psset]{pstricksadd}{lly}{\pssetylength\psk@lly{#1}} +\define@key[psset]{pstricksadd}{urx}{\pssetxlength\psk@urx{#1}} +\define@key[psset]{pstricksadd}{ury}{\pssetylength\psk@ury{#1}} %\psset{llx=\z@, lly=\z@, urx=\z@, ury=\z@}% prevents rounding errors \newif\ifPst@plot@box -\define@key[psset]{pstricks-add}{box}[true]{\@nameuse{Pst@plot@box#1}} +\define@key[psset]{pstricksadd}{box}[true]{\@nameuse{Pst@plot@box#1}} % \newdimen\pst@xunit \newdimen\pst@yunit % \def\psgraph{\pst@object{psgraph}} \def\psgraph@i{\pst@getarrows\psgraph@ii} -\def\psgraph@ii(#1,#2){\@ifnextchar({\psgraph@iii(#1,#2)}{\psgraph@iv(0,0)(#1,#2)}} +\def\psgraph@ii(#1,#2){\catcode`\!=12\@ifnextchar({\psgraph@iii(#1,#2)}{\psgraph@iv(0,0)(#1,#2)}} \def\psgraph@iii(#1,#2)(#3,#4){\@ifnextchar({\psgraph@v(#1,#2)(#3,#4)}{\psgraph@iv(#1,#2)(#3,#4)}} % \def\psgraph@iv(#1,#2)(#3,#4)#5#6{% no special origin defined @@ -2106,7 +2133,7 @@ \@namedef{psgraph*}{\psgraph*} \@namedef{endpsgraph*}{\endpsgraph} % -\define@key[psset]{pstricks-add}{ignoreLines}{\def\psk@ignoreLines{#1}} +\define@key[psset]{pstricksadd}{ignoreLines}{\def\psk@ignoreLines{#1}} \newcount\linecnt \begingroup @@ -2160,28 +2187,27 @@ % D.G. addition - Jun. 9, 1998 - Polar plots using the \psplot macro % Code added according the way suggested by Ulrich Dirr <udirr@das-team.com> % For polar plots -\define@boolkey[psset]{pstricks-add}[Pst@]{polarplot}[true]{} -%\psset{polarplot=false} -% -\define@boolkey[psset]{pstricks-add}[Pst@]{algebraic}[true]{}% -%\psset{dimen=middle}% remark of ML -\define@key[psset]{pstricks-add}{method}{\def\psk@method{#1}}% adams - rk4 -\define@key[psset]{pstricks-add}{whichabs}{\def\psk@whichabs{#1}}% -\define@key[psset]{pstricks-add}{whichord}{\def\psk@whichord{#1}}% -\define@key[psset]{pstricks-add}{plotfuncx}{\def\psk@plotfuncx{#1}}% -\define@key[psset]{pstricks-add}{plotfuncy}{\def\psk@plotfuncy{#1}}% -\define@key[psset]{pstricks-add}{expression}{\def\psk@expression{#1}}% -\define@boolkey[psset]{pstricks-add}[Pst@]{buildvector}[true]{}% +\define@boolkey[psset]{pstricksadd}[Pst@]{polarplot}[true]{} +\define@boolkey[psset]{pstricksadd}[Pst@]{algebraic}[true]{} +\psset[pstricksadd]{polarplot=false,algebraic=false}% remark of ML +% +\define@key[psset]{pstricksadd}{method}{\def\psk@method{#1}}% adams - rk4 +\define@key[psset]{pstricksadd}{whichabs}{\def\psk@whichabs{#1}}% +\define@key[psset]{pstricksadd}{whichord}{\def\psk@whichord{#1}}% +\define@key[psset]{pstricksadd}{plotfuncx}{\def\psk@plotfuncx{#1}}% +\define@key[psset]{pstricksadd}{plotfuncy}{\def\psk@plotfuncy{#1}}% +\define@key[psset]{pstricksadd}{expression}{\def\psk@expression{#1}}% +\define@boolkey[psset]{pstricksadd}[Pst@]{buildvector}[true]{}% \def\@rkiv{rk4}% Runge-Kutta 4 method \def\@adams{adams}% Adams method \def\@default{default}% Adams method % -\define@boolkey[psset]{pstricks-add}[Pst@]{VarStep}[true]{} -\define@key[psset]{pstricks-add}{PlotDerivative}{\def\psk@PlotDerivative{#1}}% -\define@key[psset]{pstricks-add}{VarStepEpsilon}{\def\psk@VarStepEpsilon{#1}}% -\define@key[psset]{pstricks-add}{varsteptol}{\def\psk@varsteptol{#1}}% adams - rk4 -\define@key[psset]{pstricks-add}{adamsorder}{\def\psk@adamsorder{#1}}% adams - rk4 -%\define@key[psset]{pstricks-add}{varstepincrease}{\def\psk@varstepincrease{#1}}% varrk4 +\define@boolkey[psset]{pstricksadd}[Pst@]{VarStep}[true]{} +\define@key[psset]{pstricksadd}{PlotDerivative}{\def\psk@PlotDerivative{#1}}% +\define@key[psset]{pstricksadd}{VarStepEpsilon}{\def\psk@VarStepEpsilon{#1}}% +\define@key[psset]{pstricksadd}{varsteptol}{\def\psk@varsteptol{#1}}% adams - rk4 +\define@key[psset]{pstricksadd}{adamsorder}{\def\psk@adamsorder{#1}}% adams - rk4 +%\define@key[psset]{pstricksadd}{varstepincrease}{\def\psk@varstepincrease{#1}}% varrk4 % \def\psplot@i#1#2#3{% \pst@killglue @@ -2418,17 +2444,17 @@ \fi% \@nameuse{endplot@\psplotstyle}} % -\define@key[psset]{pstricks-add}{barwidth}{\pst@getlength{#1}\psk@barwidth} -%\psset{barwidth=0.25cm} +\define@key[psset]{pstricksadd}{barwidth}{\pst@getlength{#1}\Add@barwidth} +\psset[pstricksadd]{barwidth=0.25cm} % \def\psbar@ii{\addto@pscode{false \tx@NArray \psbar@iii}} \def\psbar@iii{% newpath n { /Yval exch def /Xval exch def - Xval \number\psk@barwidth 0.5 mul sub 0 moveto - 0 Yval rlineto \number\psk@barwidth 0 rlineto - 0 Yval neg rlineto \number\psk@barwidth neg 0 rlineto + Xval \number\Add@barwidth 0.5 mul sub 0 moveto + 0 Yval rlineto \number\Add@barwidth 0 rlineto + 0 Yval neg rlineto \number\Add@barwidth neg 0 rlineto } repeat }% \def\beginplot@bar{\begin@SpecialObj} @@ -2438,7 +2464,7 @@ \end@SpecialObj% } % -\define@key[psset]{pstricks-add}{StepType}{\pst@expandafter\psset@@StepType{#1}\@nil}% +\define@key[psset]{pstricksadd}{StepType}{\pst@expandafter\psset@@StepType{#1}\@nil}% \def\psset@@StepType#1#2\@nil{% \ifx#1u\let\psk@StepType\@ne \else\ifx#1l\let\psk@StepType\z@\else\let\psk@StepType\tw@\fi\fi} @@ -2499,7 +2525,7 @@ \end@ClosedObj% } % -\define@key[psset]{pstricks-add}{Derive}{\def\psk@Derive{#1}}% +\define@key[psset]{pstricksadd}{Derive}{\def\psk@Derive{#1}}% \def\@NOTEMPTY{NOT@EMPTY}%%dr 0606 % %% #1 : x value @@ -2803,7 +2829,7 @@ \end@ClosedObj% }} % -\define@key[psset]{pstricks-add}{dicescale}{\def\psk@dicescale{#1}} +\define@key[psset]{pstricksadd}{dicescale}{\def\psk@dicescale{#1}} \def\psdice{\pst@object{psdice}} \def\psdice@i#1{{% \pst@killglue @@ -2860,6 +2886,12 @@ \def\resetOptions{% \@zero=0% \def\pst@linetype{0}% + \psset[pstricksadd]{% + transpalpha=1, + hooklength=3mm, hookwidth=1mm, + ArrowFill=true,% + ArrowInside={}, ArrowInsidePos=0.5,% + ArrowInsideNo=1, ArrowInsideOffset=0} \psset{% %%%% pstricks %%%%%%%% unit=1cm,% @@ -2882,10 +2914,6 @@ arrows=-, arrowscale=1, arrowsize=1.5pt 2, arrowlength=1.4, arrowinset=.4,% tbarsize=2pt 5,% bracketlength=.15, rbracketlength=.15,% - hooklength=3mm,hookwidth=1mm, - ArrowFill=true,% - ArrowInside={},ArrowInsidePos=0.5,% - ArrowInsideNo=1,ArrowInsideOffset=0,% liftpen=0, linetype=0,% gangle=0,% curvature=1 .1 0,% @@ -2908,7 +2936,7 @@ labelFontSize={},% StepType=lower, % alternative SumType=upper plotstyle=line,plotpoints=50,% - barwidth=0.25cm,% +% barwidth=0.25cm,% individuell set ticksize=-4pt 4pt, tickstyle=full, ticks=all,% subticksize=0.75,subticks=1,tickcolor=black,% @@ -2937,7 +2965,8 @@ llx=\z@, lly=\z@, urx=\z@, ury=\z@,% prevents rounding errors randomPoints=1000,color=false,% method={},whichabs={},whichord={},% - plotfuncx={},plotfuncy={},buildvector=false,algebraic=false, + plotfuncx={},plotfuncy={},buildvector=false, +% algebraic=false, % indivisuelly set Derive={},adamsorder=4,% VarStep=false, PlotDerivative=none, VarStepEpsilon=default,% varsteptol=.001,% |