summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-magneticfield
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-06-12 23:32:15 +0000
committerKarl Berry <karl@freefriends.org>2010-06-12 23:32:15 +0000
commit7bcc6b29e853351e4a95b0aebcb6f2765450e86c (patch)
treeaa90b1ae4d891202466bfac07aa6d323588d62e1 /Master/texmf-dist/dvips/pst-magneticfield
parentf8b2509b17bd7177dc511cbaa7ecd21edea407b1 (diff)
pst-magneticfield update (12jun10)
git-svn-id: svn://tug.org/texlive/trunk@18922 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.pro14
1 files changed, 9 insertions, 5 deletions
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