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