diff options
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r-- | Master/texmf-dist/dvips/pst-magneticfield/pst-magneticfield.pro | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/Master/texmf-dist/dvips/pst-magneticfield/pst-magneticfield.pro b/Master/texmf-dist/dvips/pst-magneticfield/pst-magneticfield.pro index 1e558cca83c..c794bf57120 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 346 2010-06-11 06:12:08Z herbert $ +%% $Id: pst-magneticfield.pro 582 2022-07-06 07:49:15Z 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.02 / 2010-06-11 Herbert Voss <hvoss _at_ tug.org> +%% version 0.03 / 2010-06-11 Herbert Voss <hvoss _at_ tug.org> %% % /tx@MFieldDict 60 dict def @@ -25,7 +25,7 @@ tx@MFieldDict begin % helper functions /setpixel { 1 0 360 arc fill } bind def % -/fleche { +/setArrow { gsave x2 y2 moveto y2 y1 sub x2 x1 sub atan rotate % 1 1 scale @@ -165,7 +165,7 @@ tx@MFieldDict begin % les flèches (xP,yP) 1 1 setValues nCount 0 eq {/yAxe1 y1 def /yAxe2 y2 def} if - fleche + setArrow % Ligne_Champ 0 get aload pop neg moveto % xP -yP 1 1 Ligne_Champ length 1 sub { @@ -176,7 +176,7 @@ tx@MFieldDict begin trace 1 eq { % (xP,-yP) 1 -1 setValues - fleche + setArrow } if Ligne_Champ 0 get aload pop exch neg exch moveto % -xP yP 1 1 Ligne_Champ length 1 sub { @@ -186,7 +186,7 @@ tx@MFieldDict begin stroke % (-xP,yP) -1 1 setValues - fleche + setArrow Ligne_Champ 0 get aload pop exch neg exch neg moveto % -xP -yP 1 1 Ligne_Champ length 1 sub { /iCompteur ED @@ -196,7 +196,7 @@ tx@MFieldDict begin trace 1 eq { % (-xP,-yP) -1 -1 setValues - fleche + setArrow } if } def % @@ -275,12 +275,12 @@ StreamDensityPlot { /y1 yAxe1 def /y2 yAxe2 def /x2 0 def - fleche + setArrow %/x1 0 def /y1 yAxe2 neg def /y2 yAxe1 neg def %/x2 0 def - fleche } if + setArrow } if % quelques lignes de champ autour de chaque spire /trace 0 def /increment 0.25 Radius mul def |