pst-magneticfield update (12jun10)

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

11 files changed, 241 insertions, 48 deletions

diff --git a/Master/texmf-dist/doc/generic/pst-magneticfield/Changes b/Master/texmf-dist/doc/generic/pst-magneticfield/Changes
index ab18ab44275..2a27ada9221 100644
--- a/Master/texmf-dist/doc/generic/pst-magneticfield/Changes
+++ b/Master/texmf-dist/doc/generic/pst-magneticfield/Changes
@@ -3,6 +3,7 @@ pst-magneticfield.sty --------
 
 
 pst-magneticfield.tex --------
+1.13  2010-06-08  - fixed aspurious blank in  \pstmageneticfield
 1.12  2010-06-07  - allow density plots
                   - move PS code into a pro file
 1.11  2010-05-20  - change order for the different lines
@@ -11,4 +12,5 @@ pst-magneticfield.tex --------
 
 
 pst-magneticfield.pro --------
+0.02  2010-06-11  - fix bug with wrong arrow directions
 0.01  2010-06-07  - initial pro file
diff --git a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.pdf b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.pdf
index 4fef5b85367..cf430cfddc0 100644
--- a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.pdf
+++ b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.pdf
diff --git a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.tex b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.tex
index 441d705c0a5..0a171359bbb 100644
--- a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.tex
+++ b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.tex
@@ -429,10 +429,9 @@ M\"{o}glichkeiten zur Gestaltung des Gitternetzes zeigen die folgenden zwei Beis
 \end{pspicture}
 \end{lstlisting}
 
-\clearpage
 
 
-\section{Feldstärkendichte}
+\section{Feldst\"arkendichte}
 
 \begin{center}
 \begin{postscript}
diff --git a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.pdf b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.pdf
index fa7089315ae..b24d1f038e2 100644
--- a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.pdf
+++ b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.pdf
diff --git a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.tex b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.tex
index 6755a7eaa97..100a0253d56 100644
--- a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.tex
+++ b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.tex
@@ -447,7 +447,6 @@ In the following example we can see the handling of these two psstyles.
 \end{pspicture}
 \end{lstlisting}
 
-\clearpage
 \section{Density plots}
 The optional argument \Lkeyword{StreamDensityPlot} allows to plot the
 magnetic field as a colored stream density. A gray colored output is possioble
diff --git a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.pdf b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.pdf
index 4e5dd583c65..239b57cf325 100644
--- a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.pdf
+++ b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.pdf
diff --git a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.tex b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.tex
index 6b0e5a2b96a..38edd66a0d5 100644
--- a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.tex
+++ b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.tex
@@ -22,21 +22,21 @@
 \maketitle
 
 
-\clearpage% 
+\clearpage%
 \begin{abstract}
-Le package \LPack{pst-magneticfield} a pour objet de tracer l'allure des lignes de 
-champ d'un solénoïde. Les paramètres physiques du solénoïde sont le rayon, le nombre 
+Le package \LPack{pst-magneticfield} a pour objet de tracer l'allure des lignes de
+champ d'un solénoïde. Les paramètres physiques du solénoïde sont le rayon, le nombre
 de spires et la longueur, les valeurs par défaut sont données ci-dessous :
 \begin{enumerate}
   \item le nombre de spires : \LKeyset{N=6} ;
   \item le rayon : \LKeyset{R=2} ;
   \item la longueur : \LKeyset{L=4}.
 \end{enumerate}
-Le tracé a été modélisé avec la méthode de Runge-Kutta 2 qui, après plusieurs essais, 
-semble être le meilleur compromis entre rapidité des calculs et précision du tracé. 
-Le calcul des intégrales elliptiques nécessaires à l'évaluation du champ magnétique 
-a été réalisé par des approximations polynômiales tirées du ``\textit{Handbook of 
-Mathematical Functions With Formulas, Graph, And Mathematical Tables}'' de 
+Le tracé a été modélisé avec la méthode de Runge-Kutta 2 qui, après plusieurs essais,
+semble être le meilleur compromis entre rapidité des calculs et précision du tracé.
+Le calcul des intégrales elliptiques nécessaires à l'évaluation du champ magnétique
+a été réalisé par des approximations polynômiales tirées du ``\textit{Handbook of
+Mathematical Functions With Formulas, Graph, And Mathematical Tables}'' de
 Milton Abramowitz et Irene.A. Stegun \url{http://www.math.sfu.ca/~cbm/aands/}.
 \end{abstract}
 
@@ -54,12 +54,12 @@ Les options de tracé, avec les valeurs par défaut, sont les suivantes :
   \item le nombre de lignes de l'ensemble de la bobine : \LKeyset{nL=8} ;
   \item le pas du tracé pour les lignes de l'ensemble de la bobine : \LKeyset{PasB=0.02} ;
   \item le pas du tracé pour les lignes autour de spires choisies : \LKeyset{PasS=0.00275} ;
-  \item la possibilité de choisir individuellement des spires pour améliorer le rendu 
-  du tracé : \LKeyset{numSpires=\{\}} , on place à la suite du signe ``='' les numéros 
-  des spires \textsf{1 2 3 etc.} en partant de la spire du haut. Par défaut, 
+  \item la possibilité de choisir individuellement des spires pour améliorer le rendu
+  du tracé : \LKeyset{numSpires=\{\}} , on place à la suite du signe ``='' les numéros
+  des spires \textsf{1 2 3 etc.} en partant de la spire du haut. Par défaut,
   toutes les spires sont ciblées.
   \item Le nombre de lignes de champ autour des spires choisies : \LKeyset{nS=1}.
-  \item On peut décider de ne pas représenter le solénoïde avec l'option \LKeyset{drawSelf=false}, 
+  \item On peut décider de ne pas représenter le solénoïde avec l'option \LKeyset{drawSelf=false},
   c'est utile pour la représentation en 3D.
   \item les options de tracé des spires (couleur, épaisseur, flèches) sont :
   \begin{enumerate}
@@ -72,10 +72,11 @@ Les options de tracé, avec les valeurs par défaut, sont les suivantes :
 \newpsstyle{sensCourant}{linecolor=red,linewidth=2\pslinewidth,arrowinset=0.1}
 \end{verbatim}
 
-    \item La couleur et l'épaisseur des lignes de champ se règlent avec les paramètres usuels 
+    \item La couleur et l'épaisseur des lignes de champ se règlent avec les paramètres usuels
     de \LPack{pstricks} : \Lkeyword{linecolor} et  \Lkeyword{linewidth}.
+   \item On peut mettre en image de fond la carte de la densité de flux avec l'option \textsf{StreamDensityPlot}, celle-ci est par défaut en couleur, mais il  est possible de l'afficher en niveaux de gris avec \textsf{setgray}.
 \end{enumerate}
-Une commande \Lcs{psmagneticfieldThreeD} permet la visualisation en 3D du solénoïde et 
+Une commande \Lcs{psmagneticfieldThreeD} permet la visualisation en 3D du solénoïde et
 des lignes de champ.
 
 \clearpage
@@ -85,10 +86,10 @@ des lignes de champ.
 \begin{center}
 \begin{postscript}
 \psset{unit=0.5cm}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=3,R=2,nS=1](-7,-8)(7,8)
+\begin{pspicture*}(-7,-8)(7,8)
+\psmagneticfield[linecolor={[HTML]{006633}},N=3,R=2,StreamDensityPlot](-7,-8)(7,8)
 \psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{L=4}},N=3,R=2,nS=1]}
+\rput(0,-7.5){[\Cadre{\textcolor{white}{L=4}},N=3,R=2,StreamDensityPlot]}
 \end{pspicture*}
 \begin{pspicture*}[showgrid](-7,-8)(7,8)
 \psmagneticfield[linecolor={[HTML]{006633}},L=8,N=3,R=2,nS=1,PasB=0.0025,pointsB=5500](-7,-8)(7,8)
@@ -113,11 +114,11 @@ des lignes de champ.
 \end{lstlisting}
 
 
-\textbf{Remarque :} pour affiner le tracé du deuxième solénoïde, on a du augmenter 
-le nombre de points et diminuer le pas du tracé : 
+\textbf{Remarque :} pour affiner le tracé du deuxième solénoïde, on a du augmenter
+le nombre de points et diminuer le pas du tracé :
 \begin{postscript}
 \Cadre{\textcolor{white}{pointsB=5500,PasB=0.0025}}
-\end{postscript}, 
+\end{postscript},
 ce qui rallonge la durée des calculs.
 
 
@@ -194,10 +195,10 @@ ce qui rallonge la durée des calculs.
 \clearpage
 \section{Les options de tracé}
 \subsection{Le nombre de lignes de champ}
-En raison de la symétrie du phénomène le nombre de lignes de champ donné en option 
-\Lkeyword{nL} est la moitié du nombre réellement représenté auquel il faut ajouter 
-la ligne confondue avec l'axe de révolution. Il faut aussi rajouter les lignes 
-autour des spires \Lkeyword{nS}, ces spires pouvant être choisies individuellement 
+En raison de la symétrie du phénomène le nombre de lignes de champ donné en option
+\Lkeyword{nL} est la moitié du nombre réellement représenté auquel il faut ajouter
+la ligne confondue avec l'axe de révolution. Il faut aussi rajouter les lignes
+autour des spires \Lkeyword{nS}, ces spires pouvant être choisies individuellement
 avec \Lkeyword{numSpires}.
 
 
@@ -234,8 +235,8 @@ avec \Lkeyword{numSpires}.
 
 \clearpage
 \subsection{Le nombre de points et le pas du tracé}
-Le tracé des lignes de champ est réalisé par une méthode numérique (RK2) et il s'ensuit 
-le pas du tracé et le nombre de points choisis influent sur la précision du tracé, 
+Le tracé des lignes de champ est réalisé par une méthode numérique (RK2) et il s'ensuit
+le pas du tracé et le nombre de points choisis influent sur la précision du tracé,
 comme dans les deux exemples ci-dessous :
 
 \begin{center}
@@ -277,7 +278,7 @@ comme dans les deux exemples ci-dessous :
 \end{lstlisting}
 
 
-Si les valeurs par défaut ne conviennent pas il faut donc trouver par des 
+Si les valeurs par défaut ne conviennent pas il faut donc trouver par des
 essais les valeurs qui donnent un tracé correct.
 
 
@@ -354,7 +355,7 @@ essais les valeurs qui donnent un tracé correct.
 
 \clearpage
 \section{La vue en 3D}
-La vue en 3D utilise la commande 
+La vue en 3D utilise la commande
 
 \begin{BDef}
 \Lcs{psmagneticfield}\OptArgs\coord1\coord2\\
@@ -362,9 +363,9 @@ La vue en 3D utilise la commande
 \end{BDef}
 
 dans laquelle  les options sont les paramètres de
-\Lcs{psmagneticfield} et \verb+(x1,y1)(x2,y2)+ les coordonnées des coins 
-inférieur gauche et supérieur droit du cadre dans lequel est encapsulée 
-la carte du champ comme pour \Lcs{psframe}. On pourra utiliser l'option \Lkeyword{viewpoint} du 
+\Lcs{psmagneticfield} et \verb+(x1,y1)(x2,y2)+ les coordonnées des coins
+inférieur gauche et supérieur droit du cadre dans lequel est encapsulée
+la carte du champ comme pour \Lcs{psframe}. On pourra utiliser l'option \Lkeyword{viewpoint} du
 package \LPack{pst-3d} pour modifier le point de vue.
 
 Les options du cadre sont, par défaut, les suivantes :
@@ -439,7 +440,6 @@ Ce sont donc celles-ci qu'il faudra modifier si on souhaite en changer, comme da
 \end{pspicture}
 \end{lstlisting}
 
-\clearpage
 
 \section{Density plots}
 \begin{center}
@@ -494,12 +494,199 @@ Ce sont donc celles-ci qu'il faudra modifier si on souhaite en changer, comme da
 \end{pspicture*}
 \end{lstlisting}
 
+\section{Un article très intéressant}
+Il s'agit de celui paru dans le bulletin de l'union des physiciens \no{}918(2) de novembre 2009 : \textit{Intégrales elliptiques et champ magnétique créé par une spire circulaire}, dans lequel Thierry PRÉ démontre l'expression des composantes du champ magnétique de deux façons, à partir de la loi de Biot-Savart, puis à partir du potentiel vecteur ; il donne aussi différentes représentations des lignes de champ de plusieurs configurations de spires, obtenues à l'aide du logiciel \textit{Mathematica}.
 
+\url{http://www.udppc.asso.fr/bupdoc/textes/fichierjoint/918/0918D119.zip}
+
+Thierry met les sources \textsf{Mathematica} des figures illustrant son article à la disposition de ceux qui ont la chance de posséder ou de pouvoir utiliser ce logiciel :
+\begin{verbatim}
+Commandes à copier dans mathematica pour les figures de mon article .........
+
+**************************************************************************************************************
+bx[x_, y_, a_, R_, I_] :=
+ I*(y - R)/x/
+   Sqrt[(a + Abs[x])^2 + (y - R)^2]*(-EllipticK[
+      4*a*Abs[x]/((a + Abs[x])^2 + (y - R)^2)] + (a^2 +
+        Abs[x]^2 + (y - R)^2)/((a - Abs[x])^2 + (y - R)^2)*
+     EllipticE[4*a*Abs[x]/((a + Abs[x])^2 + (y - R)^2)])
+**************************************************************************************************************
+by[x_, y_, a_, R_, I_] :=
+ I/Sqrt[(a + Abs[x])^2 + (y - R)^2]*(EllipticK[
+     4*a*Abs[x]/((a + Abs[x])^2 + (y - R)^2)] + (a^2 -
+        Abs[x]^2 - (y - R)^2)/((a - Abs[x])^2 + (y - R)^2)*
+     EllipticE[4*a*Abs[x]/((a + Abs[x])^2 + (y - R)^2)])
+**************************************************************************************************************
+StreamPlot[{bx[x, y, 1, 0, 1], by[x, y, 1, 0, 1]}, {x, -4, 4}, {y, -4,
+   4}]
+
+**************************************************************************************************************
+
+StreamDensityPlot[{bx[x, y, 1, 0, 1], by[x, y, 1, 0, 1]}, {x, -4,
+  4}, {y, -4, 4}, ImageSize -> Large, StreamStyle -> Black,
+ ColorFunction -> "Rainbow" ,
+  StreamPoints -> Fine]
+**************************************************************************************************************
+
+StreamDensityPlot[{bx[x, y, 1, 1, 1] + bx[x, y, 1, -1, 1],
+  by[x, y, 1, -1, 1] + by[x, y, 1, 1, 1]}, {x, -4, 4}, {y, -4, 4},
+ ImageSize -> Large, StreamStyle -> Black, ColorFunction -> "Rainbow" ,
+  StreamPoints -> Fine]
+**************************************************************************************************************
+StreamDensityPlot[{bx[x, y, 1, 1, 1] + bx[x, y, 1, -1, 1] +
+   bx[x, y, 1, 0, 1],
+  by[x, y, 1, -1, 1] + by[x, y, 1, 1, 1] + by[x, y, 1, 0, 1]}, {x, -4,
+   4}, {y, -4, 4}, ImageSize -> Large, StreamStyle -> Black,
+ ColorFunction -> "Rainbow" ,
+  StreamPoints -> Fine]
+**************************************************************************************************************
+StreamDensityPlot[{bx[x, y, 1, 0.5, 1] + bx[x, y, 1, -0.5, 1] +
+   bx[x, y, 1, 1.5, 1] + bx[x, y, 1, -1.5, 1],
+  by[x, y, 1, 0.5, 1] + by[x, y, 1, -0.5, 1] + by[x, y, 1, 1.5, 1] +
+   by[x, y, 1, -1.5, 1]}, {x, -4, 4}, {y, -4, 4}, ImageSize -> Large,
+ StreamStyle -> Black, ColorFunction -> "Rainbow" ,
+  StreamPoints -> Fine]
+**************************************************************************************************************
+
+StreamDensityPlot[{bx[x, y, 1, 1, 1] + bx[x, y, 1, -1, 1] +
+   bx[x, y, 1, 2, 1] + bx[x, y, 1, -2, 1] + bx[x, y, 1, 0, 1],
+  by[x, y, 1, 1, 1] + by[x, y, 1, -1, 1] + by[x, y, 1, 2, 1] +
+   by[x, y, 1, -2, 1] + by[x, y, 1, 0, 1]}, {x, -4, 4}, {y, -4, 4},
+ ImageSize -> Large, StreamStyle -> Black, ColorFunction -> Hue ,
+  StreamPoints -> Fine]
+**************************************************************************************************************
+
+StreamDensityPlot[{bx[x, y, 1, 1.5, 1] + bx[x, y, 1, -1.5, 1],
+  by[x, y, 1, -1.5, 1] + by[x, y, 1, 1.5, 1]}, {x, -4, 4}, {y, -4, 4},
+  ImageSize -> Large, StreamStyle -> Black,
+ ColorFunction -> "Rainbow" ,
+  StreamPoints -> Fine]
+
+**************************************************************************************************************
+StreamDensityPlot[{bx[x, y, 1, 1, 1] + bx[x, y, 1, -1, 1],
+  by[x, y, 1, -1, 1] + by[x, y, 1, 1, 1]}, {x, -4, 4}, {y, -4, 4},
+ ImageSize -> Large, StreamStyle -> Black, ColorFunction -> "Rainbow" ,
+  StreamPoints -> Fine]
+**************************************************************************************************************
+StreamDensityPlot[{bx[x, y, 1, 0.5, 1] + bx[x, y, 1, -0.5, 1],
+  by[x, y, 1, -0.5, 1] + by[x, y, 1, 0.5, 1]}, {x, -4, 4}, {y, -4, 4},
+  ImageSize -> Large, StreamStyle -> Black,
+ ColorFunction -> "Rainbow" ,
+  StreamPoints -> Fine]
+
+**************************************************************************************************************
+StreamDensityPlot[{bx[x, y, 1, 0.25, 1] + bx[x, y, 1, -0.25, 1],
+  by[x, y, 1, -0.25, 1] + by[x, y, 1, 0.25, 1]}, {x, -4, 4}, {y, -4,
+  4}, ImageSize -> Large, StreamStyle -> Black,
+ ColorFunction -> "Rainbow" ,
+  StreamPoints -> Fine]
+**************************************************************************************************************
+
+StreamDensityPlot[{bx[x, y, 1, 0.125, 5] + bx[x, y, 1, -0.125, 5],
+  by[x, y, 1, -0.125, 5] + by[x, y, 1, 0.125, 5]}, {x, -4, 4}, {y, -4,
+   4}, ImageSize -> Large, StreamStyle -> Black,
+ ColorFunction -> "Rainbow" ,
+  StreamPoints -> Fine]
+**************************************************************************************************************
+StreamDensityPlot[{bx[x, y, 1, 0.5, 1] + bx[x, y, 1, -0.5, -1],
+  by[x, y, 1, -0.5, -1] + by[x, y, 1, 0.5, 1]}, {x, -4, 4}, {y, -4,
+  4}, ImageSize -> Large, StreamStyle -> Black, ColorFunction -> Hue ,
+  StreamPoints -> Fine]
+
+**************************************************************************************************************
+StreamDensityPlot[{bx[x, y, 1, 0.5, 4] + bx[x, y, 1, -0.5, 2] +
+   bx[x, y, 1, 1.5, 8] + bx[x, y, 1, -1.5, 1],
+  by[x, y, 1, 0.5, 4] + by[x, y, 1, -0.5, 2] + by[x, y, 1, 1.5, 8] +
+   by[x, y, 1, -1.5, 1]}, {x, -4, 4}, {y, -4, 4}, ImageSize -> Large,
+ StreamStyle -> Black, ColorFunction -> Hue ,
+  StreamPoints -> Fine]
+
+**************************************************************************************************************
+StreamDensityPlot[{bx[x, y, 1, 0.5, 1] + bx[x, y, 0.5, -0.5, 1] +
+   bx[x, y, 2, 1.5, 1] + bx[x, y, 0.25, -1.5, 1],
+  by[x, y, 1, 0.5, 1] + by[x, y, 0.5, -0.5, 1] + by[x, y, 2, 1.5, 1] +
+    by[x, y, 0.25, -1.5, 1]}, {x, -4, 4}, {y, -4, 4},
+ ImageSize -> Large, StreamStyle -> Black, ColorFunction -> Hue ,
+  StreamPoints -> Fine]
+**************************************************************************************************************
+
+StreamDensityPlot[{
+  bx[x - 2, y, 0.5, 0, 1]
+   - by[-y + 2, x, 0.5, 0, 1]
+   - bx[x + 2, y, 0.5, 0, 1] +
+   by[-y - 2, x, 0.5, 0, 1]
+  ,
+  by[x - 2, y, 0.5, 0, 1] +
+   bx[-y + 2, x, 0.5, 0, 1]
+   - by[x + 2, y, 0.5, 0, 1]
+   - bx[-y - 2, x, 0.5, 0, 1]
+  }, {x, -4, 4}, {y, -4, 4}, ImageSize -> Large, StreamStyle -> Black,
+  ColorFunction -> Hue ,
+  StreamPoints -> Fine]
+
+**************************************************************************************************************
+
+StreamDensityPlot[{
+  bx[x - 2, y, 0.5, 0, 1]
+   - by[-y + 2, x, 0.5, 0, 1]
+   - bx[x + 2, y, 0.5, 0, 1] +
+   by[-y - 2, x, 0.5, 0, 1] +
+   bx[0.707*(x - 2*0.707) + 0.707*(y - 2*0.707),
+     0.707*(y - 2*0.707) - 0.707*(x - 2*0.707), 0.5, 0, 1]*0.707 -
+   by[0.707*(x - 2*0.707) + 0.707*(y - 2*0.707),
+     0.707*(y - 2*0.707) - 0.707*(x - 2*0.707), 0.5, 0, 1]*0.707 +
+   -bx[-0.707*(x + 2*0.707) +
+       0.707*(y - 2*0.707), -0.707*(y - 2*0.707) -
+       0.707*(x + 2*0.707), 0.5, 0, 1]*0.707 -
+   by[-0.707*(x + 2*0.707) +
+      0.707*(y - 2*0.707), -0.707*(y - 2*0.707) - 0.707*(x + 2*0.707),
+      0.5, 0, 1]*0.707 +
+   -bx[-0.707*(x + 2*0.707) -
+       0.707*(y + 2*0.707), -0.707*(y + 2*0.707) +
+       0.707*(x + 2*0.707), 0.5, 0, 1]*0.707 +
+   by[-0.707*(x + 2*0.707) -
+      0.707*(y + 2*0.707), -0.707*(y + 2*0.707) + 0.707*(x + 2*0.707),
+      0.5, 0, 1]*0.707 +
+   bx[0.707*(x - 2*0.707) - 0.707*(y + 2*0.707),
+     0.707*(y + 2*0.707) + 0.707*(x - 2*0.707), 0.5, 0, 1]*0.707 +
+   by[0.707*(x - 2*0.707) - 0.707*(y + 2*0.707),
+     0.707*(y + 2*0.707) + 0.707*(x - 2*0.707), 0.5, 0, 1]*0.707
+  ,
+  by[x - 2, y, 0.5, 0, 1] +
+   bx[-y + 2, x, 0.5, 0, 1]
+   - by[x + 2, y, 0.5, 0, 1]
+   - bx[-y - 2, x, 0.5, 0, 1] +
+   bx[0.707*(x - 2*0.707) + 0.707*(y - 2*0.707),
+     0.707*(y - 2*0.707) - 0.707*(x - 2*0.707), 0.5, 0, 1]*0.707 +
+   by[0.707*(x - 2*0.707) + 0.707*(y - 2*0.707),
+     0.707*(y - 2*0.707) - 0.707*(x - 2*0.707), 0.5, 0, 1]*0.707 +
+   bx[-0.707*(x + 2*0.707) +
+      0.707*(y - 2*0.707), -0.707*(y - 2*0.707) - 0.707*(x + 2*0.707),
+      0.5, 0, 1]*0.707 -
+   by[-0.707*(x + 2*0.707) +
+      0.707*(y - 2*0.707), -0.707*(y - 2*0.707) - 0.707*(x + 2*0.707),
+      0.5, 0, 1]*0.707 +
+   -bx[-0.707*(x + 2*0.707) -
+       0.707*(y + 2*0.707), -0.707*(y + 2*0.707) +
+       0.707*(x + 2*0.707), 0.5, 0, 1]*0.707 -
+   by[-0.707*(x + 2*0.707) -
+      0.707*(y + 2*0.707), -0.707*(y + 2*0.707) + 0.707*(x + 2*0.707),
+      0.5, 0, 1]*0.707 +
+   -bx[0.707*(x - 2*0.707) - 0.707*(y + 2*0.707),
+      0.707*(y + 2*0.707) + 0.707*(x - 2*0.707), 0.5, 0, 1]*0.707 +
+   by[0.707*(x - 2*0.707) - 0.707*(y + 2*0.707),
+     0.707*(y + 2*0.707) + 0.707*(x - 2*0.707), 0.5, 0, 1]*0.707
+  }, {x, -4, 4}, {y, -4, 4}, ImageSize -> Large, StreamStyle -> Black,
+  ColorFunction -> Hue ,
+  StreamPoints -> Fine
+ ]
+**************************************************************************************************************
+\end{verbatim}
 
 
 
 \clearpage
-\section{List of all optional arguments for \texttt{pst-magneticfield}}
+\section{Liste des arguments optionnels pour \texttt{pst-magneticfield}}
 
 \xkvview{family=pst-magneticfield,columns={key,type,default}}
 
diff --git a/Master/texmf-dist/dvips/pst-magneticfield/pst-magneticfield.pro b/Master/texmf-dist/dvips/pst-magneticfield/pst-magneticfield.pro
index fdd24b8217c..1d3cab3a66f 100644
--- a/Master/texmf-dist/dvips/pst-magneticfield/pst-magneticfield.pro
+++ b/Master/texmf-dist/dvips/pst-magneticfield/pst-magneticfield.pro
@@ -1,4 +1,4 @@
-%% $Id: pst-magneticfield.pro 339 2010-06-07 20:50:23Z herbert $
+%% $Id: pst-magneticfield.pro 346 2010-06-11 06:12:08Z herbert $
 %%
 %% This is file `pst-magneticfield.pro',
 %%
@@ -16,7 +16,7 @@
 %% DESCRIPTION:
 %%   `pst-magneticfield' is a PSTricks package to draw fields of Helmholtz coils
 %%
-%% version 0.01 / 2010-06-07  Herbert Voss <hvoss _at_ tug.org>
+%% version 0.02 / 2010-06-11  Herbert Voss <hvoss _at_ tug.org>
 %%            
 %
 /tx@MFieldDict 60 dict def
@@ -29,13 +29,17 @@ tx@MFieldDict begin
   gsave
   x2 y2 moveto
   y2 y1 sub x2 x1 sub atan rotate % 1 1 scale
-  -1 CLW mul 2 CLW mul rlineto
-  7 CLW mul -2 CLW mul rlineto
- -7 CLW mul -2 CLW mul rlineto
+%  -1 CLW mul  2 CLW mul rlineto
+%   7 CLW mul -2 CLW mul rlineto
+%  -7 CLW mul -2 CLW mul rlineto
+   1 CLW mul  2 CLW mul rlineto
+  -7 CLW mul -2 CLW mul rlineto
+   7 CLW mul -2 CLW mul rlineto
   closepath
   fill
   grestore
 } def
+%
 /Calcul_B_Spires {
   /Bx 0 def
   /By 0 def
diff --git a/Master/texmf-dist/source/generic/pst-magneticfield/Makefile b/Master/texmf-dist/source/generic/pst-magneticfield/Makefile
index 5ab44b5e071..05debd66904 100644
--- a/Master/texmf-dist/source/generic/pst-magneticfield/Makefile
+++ b/Master/texmf-dist/source/generic/pst-magneticfield/Makefile
@@ -5,7 +5,7 @@
 
 PACKAGE = pst-magneticfield
 MAIN = $(PACKAGE)-doc
-LANGUAGES = FR
+LANGUAGES = DE EN FR
 
 empty=
 space=$(empty) $(empty)
@@ -18,6 +18,7 @@ TDS = ~/PSTricks/PSTricks-TDS
 LATEX  = pst2pdf 
 PDFLATEX  = pdflatex 
 OPTIONS= --Iext=.png --Iscale=0.5 --DPI=150 
+#--noImages
 
 ARCHNAME = $(PACKAGE)-$(shell date +%Y%m%d)
 
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 417a78dade5..be716d75a51 100644
--- a/Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex
+++ b/Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex
@@ -20,8 +20,8 @@
 \ifx\MultidoLoaded\endinput\else  \input multido.tex\fi
 \ifx\PSTXKeyLoaded\endinput\else  \input pst-xkey   \fi
 %
-\def\fileversion{1.12}
-\def\filedate{2010/06/07}
+\def\fileversion{1.13}
+\def\filedate{2010/06/11}
 \message{`pst-magneticfield' v\fileversion, \filedate\space (ml,jg,hv)}
 %
 \edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
@@ -67,7 +67,7 @@
 \def\psmagneticfield@ii(#1,#2){\@ifnextchar({\psmagneticfield@iii(#1,#2)}{\psmagneticfield@iii(#1,#2)(6,5)}}
 \def\psmagneticfield@iii(#1,#2)(#3,#4){%
   \pst@killglue%
-  \ifPst@AntiHelmholtz\addto@par{N=2}\fi
+  \ifPst@AntiHelmholtz\addbefore@par{N=2}\fi%
   \begin@SpecialObj%
   \pst@Verb{%  make it global
     /NombreSpires \psk@magneticfieldN\space def
@@ -109,7 +109,7 @@
     /StreamDensityPlot \ifPst@StreamDensityPlot true \else false \fi def
     /Setgray \ifPst@setgray true \else false \fi def
   }%
-  \addto@pscode{ \tx@MFieldDict MagneticField end}
+  \addto@pscode{ \tx@MFieldDict MagneticField end }%
   \ifPst@drawSelf
     \ifPst@AntiHelmholtz
       \psline[style=\psk@styleSpire](!Radius neg Radius 2 div)(!Radius Radius 2 div)
@@ -120,8 +120,8 @@
     \multido{\i=1+1}{\psk@magneticfieldN}{% numero de la spire
       \pst@Verb{ /Yspire yA \i\space 1 sub inter mul sub def } % position de la spire
       \psline[style=\psk@styleSpire](! Radius neg Yspire)(! Radius Yspire)
-      \psline[style=\psk@styleCourant]{->}(!-0.2 Yspire)(!0.2 Yspire)}
-    \fi
+      \psline[style=\psk@styleCourant]{->}(! -0.2 Yspire)(! 0.2 Yspire)}
+    \fi%
   \fi%
   \end@SpecialObj%
   \ignorespaces}
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds
index ee0bf90bad6..39c5ad32a7b 100755
--- a/Master/tlpkg/libexec/ctan2tds
+++ b/Master/tlpkg/libexec/ctan2tds
@@ -128,6 +128,7 @@ $Master = "$mydir/../..";
  'c90',		"&MAKEc90",
  'cachepic',	"&MAKEcopy",
  'calendar',	"die 'skipping, nosell license'",
+ 'cascover',	"die 'skipping, license unclear, ancient'",
  'camel',	"die 'skipping, nosell license'",
  'cassette',	"die 'skipping, nonfree license'",
  'cassette-shipunov',	"die 'skipping, use shipunov'",