!------------------------------------------------------------------------------------------------------
! ELEGANT lattice for Bubble Chamber Experiment
! December 4, 2013
! C. Tennant
!------------------------------------------------------------------------------------------------------
!
! - using drawings from 12/10/13 (Riad e-mail)

"cle" ! clear whole RPN stack for safety

% 1 atan 4 * sto pi
% pi 180 / sto cdtor 
% 180 pi / sto crtod

TWI: TWISS, BETAX=22.96, ALPHAX=10.14, BETAY=29.69, ALPHAY=-4.56, FROM_BEAM=1
EM:  EMITTANCE, EMITNX=9.55e-007, EMITNY=1.00e-007

W0: WATCH, FILENAME="%s.W0", MODE=COORD
W1: WATCH, FILENAME="%s.W1", MODE=COORD
W2: WATCH, FILENAME="%s.W2", MODE=COORD

!---------------------------------------------------------------
!     Region 0: EXIT OF CRYOUNIT TO ENTRANCE OF 5 MEV DIPOLE
!---------------------------------------------------------------

! DRIFTS

D0:  DRIFT, L=0.305322
D1:  DRIFT, L=0.224795
D2:  DRIFT, L=0.294893
D3:  DRIFT, L=0
D4:  DRIFT, L=0.1068
D5:  DRIFT, L=1.205
D6:  DRIFT, L=0.6788
D7:  DRIFT, L=0.0743
D8:  DRIFT, L=0.8521
D9:  DRIFT, L=0.191895
D10: DRIFT, L=0.132852
D11: DRIFT, L=0.0550586
D12: DRIFT, L=1.01011

! VIEWERS/BPMS/HARPS

ITV0L01: WATCH, FILENAME="%s.TV0L01", MODE=COORD
ITV0L02: WATCH, FILENAME="%s.TV0L02", MODE=COORD
IPM0L01: MONITOR, L=0
IPM0L02: MONITOR, L=0

! CORRECTORS

MBH0L01H:  HKICK, L=0, KICK=0, TILT=0
MBH0L01V:  VKICK, L=0, KICK=0, TILT=0
MHE0L01V:  VKICK, L=0, KICK=0, TILT=0
MHB0L01AH: HKICK, L=0, KICK=0, TILT=0
MHB0L01AV: VKICK, L=0, KICK=0, TILT=0
MBH0L02H:  HKICK, L=0, KICK=0, TILT=0
MBH0L02V:  VKICK, L=0, KICK=0, TILT=0
MHE0L02H:  HKICK, L=0, KICK=0, TILT=0 ! does not appear in any line definition

! QUADRUPOLES

MQS0L01:  KQUAD, L=0.08, K1=0.0, TILT=0.785398163397448
MQS0L01A: KQUAD, L=0.08, K1=0.0, TILT=0.785398163397448
MQS0L02:  KQUAD, L=0.08, K1=0.0, TILT=0.785398163397448

MQJ0L01:  KQUAD, L=0.15, K1=-3
MQJ0L02:  KQUAD, L=0.15, K1= 4
MQJ0L02A: KQUAD, L=0.15, K1=-3

BUBBLE_A: LINE=(D0, ITV0L01, D1, MBH0L01H, MBH0L01V, D2, IPM0L01, D3, MQS0L01, D4, MQJ0L01, D5, MHE0L01V, &
                D6, MQS0L01A, D7, MHB0L01AH, MHB0L01AV, D8, ITV0L02, MQJ0L02, D9, IPM0L02, D3, MQS0L02,   &
                D10, MBH0L02H, MBH0L02V, D11, MQJ0L02A, D12)

!---------------------------------------------------------------
!     Region 1: 5D LINE
!---------------------------------------------------------------

! Used drawing "ACC2008000-1100 BUBBLE CHAMBER BEAMLINE ASSEMBLY.pdf"
! S = 0 starts from starting point of 5 MeV dipole 
! 5 MeV bend, 25 degrees into 5D line

! 5 MeV DIPOLE
! (eventually this will be replaced with a new 5 MeV dipole)

MBV2D01: CSBEND, L=0.12970672, ANGLE="25.0 cdtor * ", E1=" 0.0 cdtor * ", E2="25.0 cdtor * ", &
         EDGE_ORDER=2, HGAP=0.013564, FINT=0.5, NONLINEAR=1, N_KICKS=25, INTEGRATION_ORDER=4

! 45 DEGREE SWEEP DIPOLE
! assume rho = 0.3 m

MBSD:    CSBEND, L=0.23561945, ANGLE="45.0 cdtor * ", E1="22.5 cdtor * ", E2="22.5 cdtor * ", TILT=3.14159265359, &
         EDGE_ORDER=2, HGAP=0.013564, FINT=0.5, NONLINEAR=1, N_KICKS=45, INTEGRATION_ORDER=4

! DRIFTS

D5D00: DRIFT, L=0.17692174 ! subtract off length of straight line from survey center to dipole exit
D5D01: DRIFT, L=0.17678400
D5D02: DRIFT, L=0.19068400
D5D03: DRIFT, L=0.1282
D5D04: DRIFT, L=0
D5D05: DRIFT, L=0
D5D06: DRIFT, L=0
D5D07: DRIFT, L=1.11880000
D5D08: DRIFT, L=0.1282
D5D09: DRIFT, L=0
D5D10: DRIFT, L=0
D5D11: DRIFT, L=0
D5D12: DRIFT, L=0.8382
D5D13: DRIFT, L=0.4572

! QUADRUPOLES

MQD5D00: KQUAD, L=0.15, K1= 5
MQD5D01: KQUAD, L=0.15, K1= 5 

! VIEWERS/SUPERHARPS/BPMS/FARADAY CP

ITV5D00:  WATCH, FILENAME="%s.TV5D00", MODE=COORD
IHA5D00:  WATCH, FILENAME="%s.HA5D00", MODE=COORD
IHA5D01:  WATCH, FILENAME="%s.HA5D01", MODE=COORD 
IPM5D00:  MONITOR, L=0
IPM5D01:  MONITOR, L=0
IFC5D00:  MONITOR, L=0

RADIATOR: MARK, FITPOINT=1
DUMP:     MARK, FITPOINT=1

! CORRECTORS

MBH5D00H: HKICK, L=0, KICK=0, TILT=0
MBH5D00V: VKICK, L=0, KICK=0, TILT=0
MBH5D01H: HKICK, L=0, KICK=0, TILT=0
MBH5D01V: VKICK, L=0, KICK=0, TILT=0
MBH5D02H: HKICK, L=0, KICK=0, TILT=0
MBH5D02V: VKICK, L=0, KICK=0, TILT=0

BUBBLE_B: LINE=(MBV2D01, D5D00, MBH5D00H, MBH5D00V, D5D01, ITV5D00, D5D02, MQD5D00, D5D03, IPM5D00, D5D04,     &
                IHA5D00, D5D05, MBH5D01H, MBH5D01V, D5D06, MBH5D02H, MBH5D02V, D5D07, MQD5D01, D5D08, IPM5D01, &
                D5D09, IHA5D01, D5D10, IFC5D00, D5D11, RADIATOR, D5D12, MBSD, D5D13, DUMP)

!---------------------------------------------------------------
!     LINE DEFINITIONS
!---------------------------------------------------------------

BUBBLE_CHAMBER: LINE=(BUBBLE_A, BUBBLE_B)