pst-magneticfield (21jan19)

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

1 files changed, 16 insertions, 16 deletions

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