; scsImgFrqNcdY01
;  drvd from ~/nmrTau/ppScs/fi/vrsns/scsIm01
;    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 G3

"d11=30m"

"p2=p1*2"

lgrad r2d<2d> = l1
lgrad r3d<3d> = l3

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

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

        d11 LOCKH_OFF
        d1
        d11 LOCKH_ON

        (p1 ph4):f1

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

        100u            grad{ (0)+r2d(cnst1) | (0)            | (0) }
        d10

        100u            grad{ (0)            | (cnst0)        | (0) }
        d15
        5u              grad{ (0)            | (0)            | (0) }
        d20
         (p2 ph0):f1
        100u            grad{ (0)            | (cnst2)        | (0) }
        d21
       go=1 ph31
       5u               grad{ (0)            | (0)            | (0) }

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

#ifdef G1
       5m  igrad r2d
      lo to 2 times l1
      5m zgrad r2d
#endif

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

50u BLKGRAD
d11 LOCKH_OFF

exit

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

;d1 : recycle delay
;d5: =1m; phaseEncodeGradPeriodZ
;d10:=1m; phaseEncodeGradPeriodX
;d11:=delay4disk I/O
;d15: echoTime=aq/2(gradAmp=cnst0)
;d20:=50to300u; gradStblztnDelay
;d21:=50to300u; gradStblztnDelay

;p1 : 90deg

;pl1: pwrLvl for 90 (p1)

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

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

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