diff options
author | Karl Berry <karl@freefriends.org> | 2022-07-06 20:18:18 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2022-07-06 20:18:18 +0000 |
commit | 8ee154b9a139bc485395d507ca7a735365ad302e (patch) | |
tree | 6a3c2dad1d14214f32505b73bc275775e618c9f9 /Master/texmf-dist/dvips/pst-magneticfield | |
parent | 815a0b67d7b58baed4297c4ef73ab7e9996ac703 (diff) |
pst-magneticfield (6jul22)
git-svn-id: svn://tug.org/texlive/trunk@63821 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pst-magneticfield')
-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 |