From 91aa931525e507848d433e92ccbc6cbb537cc081 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 21 Jan 2019 21:38:48 +0000 Subject: pst-magneticfield (21jan19) git-svn-id: svn://tug.org/texlive/trunk@49780 c570f23f-e606-0410-a88d-b1316a301751 --- .../pst-magneticfield/pst-magneticfield.tex | 32 +++++++++++----------- 1 file changed, 16 insertions(+), 16 deletions(-) (limited to 'Master/texmf-dist/tex/generic/pst-magneticfield') diff --git a/Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex b/Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex index cf548ae4367..690afeca273 100644 --- a/Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex +++ b/Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex @@ -22,8 +22,8 @@ \ifx\MultidoLoaded\endinput\else \input multido.tex\fi \ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi % -\def\fileversion{1.15} -\def\filedate{2019/01/17} +\def\fileversion{1.16} +\def\filedate{2019/01/21} \message{`pst-magneticfield' v\fileversion, \filedate\space (ml,jg,hv)} % \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax @@ -196,18 +196,18 @@ \define@boolkey[psset]{pst-magneticfield}[Pst@]{showField}[true]{} \define@boolkey[psset]{pst-magneticfield}[Pst@]{showPoleLabels}[true]{} \define@key[psset]{pst-magneticfield}{fontstyle}[\large\bfseries\sffamily]{\def\psk@label@fontstyle{#1}} -\define@key[psset]{pst-magneticfield}{magnetScale}[1 1]{\pst@getscale{#1}\pst@magnetscale} +\define@key[psset]{pst-magneticfield}{magnetScale}[1 1]{\def\pst@magnetscale{#1}} \psset[pst-magneticfield]{showPoleLabels,fontstyle=\large\bfseries\sffamily,showField=false, - magnetScale=1} + magnetScale=1 1} \def\ps@Bar@Magnet{% \psscalebox{\pst@magnetscale}{% - \psframe*[linecolor=Green](-0.5,-1.5)(0.5,0)% - \psframe*[linecolor=BrickRed](-0.5,0)(0.5,1.5)% - \ifPst@showPoleLabels - \rput{0}(0,1){\textcolor{white}{\psk@label@fontstyle N}}% - \rput{0}(0,-1){\textcolor{white}{\psk@label@fontstyle S}}% - \fi}% + \psframe*[linecolor=Green](-0.75,-1.75)(0.75,0)% + \psframe*[linecolor=BrickRed](-0.75,0)(0.75,1.75)% + \ifPst@showPoleLabels + \rput{0}(0,1){\textcolor{white}{\psk@label@fontstyle N}}% + \rput{0}(0,-1){\textcolor{white}{\psk@label@fontstyle S}}% + \fi} }% \def\psBarMagnet{\pst@object{psBarMagnet}} @@ -215,15 +215,15 @@ \def\psBarMagnet@ii(#1){% \pst@killglue \begingroup - \addbefore@par{R=0.8,L=3,N=4,pointsS=200,nL=9,nS=0,PasB=0.1,numSpires=0}% + \addbefore@par{linewidth=2pt,R=0.8,L=3,N=4,pointsS=200,nL=9,nS=0,PasB=0.1,numSpires=0,arrowscale=1.5,arrowinset=0.1}% \use@par \ifPst@showField \rput(#1){% - \psscalebox{0.4 0.7}{\psmagneticfield(-8,-10)(8,10)}% - \multido{\rA=0.3+0.3,\rB=0.8+0.1,\iA=-60+20,\iB=60+-20}{4}{% - \pccurve[ncurv=\rB,linewidth=0.1\pslinewidth,angleA=\iA,angleB=\iB,ArrowInside=->](0.5,\rA)(0.5,-\rA) - \psscalebox{-1 1}{\pccurve[ncurv=\rB,linewidth=0.1\pslinewidth,angleA=\iA,angleB=\iB,ArrowInside=->](0.5,\rA)(0.5,-\rA)}% - }}% + \psscalebox{0.4 0.5}{\psmagneticfield[drawSelf=false](-8,-10)(8,10)% + \multido{\rA=0.6+0.3,\rB=0.8+0.4,\iA=-60+20,\iB=60+-20}{4}{% + \pccurve[ncurv=\rB,angleA=\iA,angleB=\iB,ArrowInside=->,ArrowInsideNo=2](0.7,\rA)(0.7,-\rA)% + \psscalebox{-1 1}{\pccurve[ncurv=\rB,angleA=\iA,angleB=\iB,ArrowInside=->,ArrowInsideNo=2](0.7,\rA)(0.7,-\rA)}% + }}}% \fi \rput(#1){\ps@Bar@Magnet}% \endgroup -- cgit v1.2.3