#!/bin/sh 
# \
exec tclsh "$0" "$@"

set TIME_start [clock seconds]





set number 2001
set turn0 32
set turn1 [expr $turn0 + 1]
set turn2 [expr $turn0 + 2]
set turn3 [expr $turn0 + 3]

eval exec sddsplot -graph=line -layout=2,2 \
    -col=s,X ${number}_${turn0}merge.sdds -scales=0,570,-90.0,90.0 \
    -title=${turn0}thTurn_ParticleID${number} -end \
    -col=s,X ${number}_${turn1}merge.sdds -scales=0,570,-90.0,90.0 \
    -title=${turn1}thTurn_ParticleID${number} -end \
    -col=s,X ${number}_${turn2}merge.sdds -scales=0,570,-90.0,90.0 \
    -title=${turn2}thTurn_ParticleID${number} -end \
    -col=s,X ${number}_${turn3}merge.sdds -scales=0,570,-90.0,90.0 \
    -title=${turn3}thTurn_ParticleID${number} -end

eval exec sddsplot -graph=line -layout=2,2 \
    -col=X,XP ${number}_${turn0}merge.sdds -scales=-60.0,60.0,-60.0,60.0 \
    -title=${turn0}thTurn_ParticleID${number} -end \
    -col=X,XP ${number}_${turn1}merge.sdds -scales=-60.0,60.0,-60.0,60.0 \
    -title=${turn1}thTurn_ParticleID${number} -end \
    -col=X,XP ${number}_${turn2}merge.sdds -scales=-60.0,60.0,-60.0,60.0 \
    -title=${turn2}thTurn_ParticleID${number} -end \
    -col=X,XP ${number}_${turn3}merge.sdds -scales=-60.0,60.0,-60.0,60.0 \
    -title=${turn3}thTurn_ParticleID${number} -end

eval exec sddsplot -graph=line -layout=2,2 \
    -col=RFphase,DP ${number}_${turn0}merge.sdds -scales=-2.00,2.00,-1.00,1.00 \
    -title=${turn0}thTurn_ParticleID${number} -end \
    -col=RFphase,DP ${number}_${turn1}merge.sdds -scales=-2.00,2.00,-1.00,1.00 \
    -title=${turn1}thTurn_ParticleID${number} -end \
    -col=RFphase,DP ${number}_${turn2}merge.sdds -scales=-2.00,2.00,-1.00,1.00 \
    -title=${turn2}thTurn_ParticleID${number} -end \
    -col=RFphase,DP ${number}_${turn3}merge.sdds -scales=-2.00,2.00,-1.00,1.00 \
    -title=${turn3}thTurn_ParticleID${number} -end





set TIME_end [clock seconds]
set ComputingTime [expr $TIME_end - $TIME_start]
puts stderr "Total computing time is $ComputingTime seconds"
