!
! ATF-DR EXTRACTION LINE
!                  original version                    07/05/1994   by S.Kuroda
!         Redesign from present magnet arrangement
!            and with effective length of Quad.        11/08/1999   by T.Okugi
!
!  change names of MARK: IEX0 --> IEX0, IEX2 --> IP2   11/10/1999  K.Kubo 
!  change Effective Length of BH1X, BH2X               11/11/1999  T.Okugi
!  Added the beamline "EXR", which included "QM5R"     12/02/1999  T.Okugi 
!  change ROTATE of horizontal steers, Z{HXS}*X, 0 --->180 DEG 
!                                                12/08/1999 K.KUBO T.OKUGI 
!
!----For Cavity BPM (unofficial)                        05/25/2000  T.Imai
!		    (re-install,separate sensor cavity) 11/19/2000  T.Imai
!		    (re-install,separate sensor cavity) 04/05/2001  T.Imai
!
! ---- Skew quadrupole magnet QS1X, QS2X were added.    04/24/2001  T.Okugi
!         K1 values for these magnets are K1[1/m]=0.003*I[A] 
! ---- Skew quadrupole magnet QK0X was added.           04/24/2001  T.Okugi
! ---- Compton chamber for polarized positron experiment 
!        was modified                                   06/20/2001  T.Okugi
! --- Add three sextupoles, SD1X SD2X SF1X. QS1X and ZH3X are moved
!                                                       03/07/2005  K.Kubo
! --- Chang the location of QK0X                        12/01/2005  T.Okugi
! --- Change way of coordinate transformation           02/23/2007  S.Kuroda
MOMENTUM = 1.542282 GEV;
OFF ECHO CTIME;ON COD RFSW RADCOD;
 me=0.511e-3;
 gamma=1.542282/me;

!
! ------  Definition of the subsub-line for magnet devices.
!
 LINE	LKE1X	= ( KE1X IP01 KE2X )
	LKE2X	= ( KE3X IP02 KE4X )
	LBS1X	= ( LDBS1X C2 BS1X ZS1X BS1X LDBS1X )
	LBS2X	= ( LDBS2X BS2X ZS2X BS2X LDBS2X )
	LBS3X	= ( LDBS3X BS3X ZS3X BS3X LDBS3X )

	LQM6X	= ( LDQM6R QDR6 IPT1 LDQM6R )
	LQM7X	= ( LDQM7R QDR7 IPT2 LDQM7R )
;
!
!  -----  Definition of the LINE for KEK-ATF extraction line.
!
 LINE	EX0 = ( IEX   LKE1X  C1
                      L001X  LQM6X  L002X  MB1X   L003X  LQM7X  L004X
		      LBS1X  L005X  LBS2X  L006X  MB2X   L007X  LBS3X )

 ;
 COORD  C1      =(DX =.0012500026042     CHI1 =.005     DIR =1 )
        C2      =(DX =.0226850794854     CHI1 =-4.47202058268E-4 )
 ;
 ;
 DRIFT  L001X   =(L =.9125 ) LDQM6R  =(L =.0106275 )     L002X   =(L =1.4525 )
        L003X   =(L =.075 )  LDQM7R  =(L =.0105465 )     L004X   =(L =.12 )
        LDBS1X  =(L =.02 )   L005X   =(L =.16 )   LDBS2X  =(L =.02 )
        L006X   =(L =.08 )   L007X   =(L =.08 )   LDBS3X  =(L =.02 )
 ;
 BEND   KE1X    =(L =.2500010416697 ANGLE =-.0025 )
        KE2X    =(L =.2500010416697 ANGLE =-.0025  E2 =2 )
        BS1X    =(L =.3   ANGLE =-.0140178327098 )
        ZS1X    =(ANGLE =0     ROTATE =180 DEG )
        BS2X    =(L =.4   ANGLE =-.0371716830661 )
        ZS2X    =(ANGLE =0     ROTATE =180 DEG )
        BS3X    =(L =.5   ANGLE =-.1175110129077 )
        ZS3X    =(ANGLE =0     ROTATE =180 DEG )
 ;
 QUAD   QDR6    =(L =.198745   K1 =-.71174 )
        QDR7    =(L =.078907   K1 =.40822 )
 ;
 COORD  C1      =(DX =.0012500026042     CHI1 =.005     DIR =1 )
        C2      =(DX =.0226850794855     CHI1 =-4.47202058263E-4 )
 ;
 MONI   MB1X                            =()
        MB2X                            =()
 ;
 MARK   IEX     =(AX =1.1509975629194    BX =7.2123362234044
           AY =-1.7211735963534     BY =2.9030719347847 DP =6E-4
           EMITX =1.5E-9  EMITY =1E-10 )
        IP01    =(AX =1.0705794899761    BX =6.6569384889519
           PSIX =.0360877978593     AY =-2.0624030894564
           BY =3.8489700474744 PSIY =.074859402369 EX =-3.12501139326E-4
           EPX =-.0024999973958     DP =6E-4  EMITX =1.5E-9  EMITY =1E-10 )
        IPT1    =(AX =-2.7553068371394   BX =4.9811989958725
           PSIX =.2925457105174     AY =3.9108484924834 BY =10.5140915361812
           PSIY =.2782880968751     EX =-.0077519199515 EPX =-.004734613633
           DX =.0073028983759  DPX =.0096314347459 DZ =-1.69131580096E-5
           DP =6E-4  EMITX =1.5E-9  EMITY =1E-10 )
        IPT2    =(AX =1.8573005747883    BX =17.9372762176493
           PSIX =.4628789882712     AY =.6029174319651  BY =1.9524164298576
           PSIY =.6517857365967     EX =-.0302848829796 EPX =.007668478891
           DX =.0226177547741  DPX =4.472020582633E-4   DZ =-9.00759126427E-5
           DP =6E-4  EMITX =1.5E-9  EMITY =1E-10 )
 ;
FFS USE=EX0;
  dr:=(FFS["out '/users/kuroda/a' draw bx &by & ex ey q* term out tdr '/users/kuroda/a'&"]);
  dro:=(FFS["out '/users/kuroda/a' draw dx &dy q* term out tdr '/users/kuroda/a'&"]);
!  Get["/users/atfopr/sad/atfringlib.n"];
  Get["/users/atfopr/sad/atfexlib.n"];
!  Get["/users/atfopr/sad/atfdrexlib.n"];
!  Get["/users/atfopr/sad/kubo/cod.n"];
!  Get["/users/atfopr/sad/kubo/dispersion.n"];
!  Get["/users/kuroda/sad/atf/drextlib.n"];
!  Get["/users/kuroda/sad/atf/wigglerlib.n"];
  LoadExtOptics['07apr06'];LoadExtOptics['EXT_07apr06'];
  Scan[(Element["K0",#]=0)&,Element["NAME","K*"]];
  KickL=.25*5e-3/Sin[5e-3];
  Scan[(Element["L",#]=KickL)&,Element["NAME","K*"]];
  cal;Element["DX","C2"]=Twiss["DX","C2"];
  Element["CHI1","C2"]=-Twiss["DPX","C2"];
cal;end
!STOP;