reset
set terminal pngcairo size 350,262 enhanced font 'Verdano,6'

set style line 1 lc rgb '#0060ad' lt 1 lw 1 pt 7 ps 1.5 # --- blue
unset border
set xtics -1000,10,-900
set ytics -1000,10, -900
set key off
mirror = -1
c=1
a=10.9
b=0.7
d= 10
ss=d*a
circumference = 7.11 * 2 * pi
turn = 0
set size square
xmin = -7.1-mirror*6
xmax = 11.1-mirror*6
ymin=-3.9
ymax=14.1
#set xrange [-10-mirror*6:10-mirror*6]
#set yrange [-4:16]
set xrange [xmin:xmax]
set yrange [ymin:ymax]
l=10
lstep = 5
steps_turn = circumference/0.05
xoff=8*mirror
yoff=4
do for [j=1:2000] {
turn = turn + lstep/steps_turn
m=int(turn)

outfile = sprintf('animation-ps/muon%04.0f.png',j)
set output outfile
print outfile

plot 'QUAD_elements.dat' u ($2*c*mirror):($3*c) w filledcurves not,\
 'KICKER_elements.dat' u ($2*c*mirror):($3*c) w filledcurves not,\
'INFLECTOR_elements.dat' u ($2*c*mirror):($3*c) w filledcurves not,\
'floor.dat' u (($3+$9*a)*mirror):($5+$10*a)  every 1::1::l+1 w l ls 1 not,\
'floor.dat' u (($3+$9*a)*mirror):($5+$10*a):(0.2)  every 1::l+1::l+1 w circles fs transparent solid not,\
'floor.dat' u (($3+$11*a)*mirror):($5+$12*a):($13*mirror*b):($14*b)  every 1::l+1::l+1 w vector filled head size 0.4,20,60 lc -1 not,\
'floor.dat' u (($11-$11)*a -8)*mirror:(($12-$12)*a + 5):($13*mirror*b):($14*b)  every 1::l+1::l+1 w vector filled head  lt 2 not,\
"end_of_turn.dat" u (($9*a*d-8)*mirror):($10*a*d*10+4) every 1::1::m+1 pt 4
call 'inset_axis.gnu' ss xmin xmax ymin ymax turn xoff yoff
l=l+lstep
reread
}
#'floor.dat' u 3:5 w l lt 2 lc 1 not,\