; scsImgCs00
;  drvd from ~/nmrNyu/ppScs/mri/frqNcdX/scsImgFrqNcdX01
;    s chandra shekar 20100330
;23456789 123456789 123456789 123456789 123456789 123456789 123456789 1234567890

#include<Avance.incl>
#include<Grad.incl>
#include<De.incl>

;#define ONED
#define G1
#define G2
#define G3

"d10=30m"

lgrad r1d<1d> = l1
lgrad r2d<2d> = l2
lgrad r3d<3d> = l3

  10u pl1:f1
  50u UNBLKGRAD
  ze
5 5m
1  5m
2   5m
3    5m

      d1
      (p1 ph4):f1

      100u            grad{ (0)+r1d(cnst1) | (0)            | (0) }
      d11

      100u            grad{ (0)            | (0)+r2d(cnst2) | (0) }
      d12

      100u            grad{ (0)            | (0)            | (0)+r3d(cnst3) }
      d13

      100u            grad{ (0)            | (0)            | (0) }

      d20
       (p2 ph0):f1
      d21

     go=5 ph31

#ifdef ONED
     d11 wr #0
#else
     d11 wr #0 if #0 zd
#endif

#ifdef G1
     5m igrad r1d
    lo to 1 times l1
    5m zgrad r1d
#endif

#ifdef G2
     5m igrad r2d
    lo to 2 times l2
    5m zgrad r2d
#endif

#ifdef G3
   5m igrad r3d
  lo to 3 times l3
  5m zgrad r3d
#endif

50u BLKGRAD

exit

ph0  =     0
ph4  =     0 2 3 1
ph31 =     0 2 1 3

;d1 : recycle delay
;d10:=delay4disk I/O
;d11:=1m; phaseEncodeGradPeriodX
;d12:=1m; phaseEncodeGradPeriodY
;d13:=1m; phaseEncodeGradPeriodZ
;d20:=50-500u(gradStblztn,echo)
;d21:=50-500u(gradStblztn,echo)

;p1 : pi/2
;p2 : pi

;pl1: pwrLvl for 90 (p1)

;l1 : #of x-increments
;l2 : #of y-increments
;l3 : #of z-increments

;cnst1: gradAmp4x
;cnst2: gradAmp4y
;cnst3: gradAmp4z

;ns:= 4n (n=1,2,3...)