summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex')
-rw-r--r--Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex32
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