spinsys {
    channels 29Si
    nuclei   29Si
    shift   1 0 8000 0.5 0 0 0
}

par {
    crystal_file      zcw4180
    proton_frequency  400e6
    start_operator    I1x
    detect_operator   I1p
    method            direct
    gamma_angles      128
    spin_rate         1000
    verbose           1101
    sw                spin_rate*gamma_angles/2
    variable dw       1e6/sw
    np		  		  512
}

proc pulseq {} {
    global par

    for {set i 0} {$i < $par(np)} {incr i} {
        acq
        delay $par(dw)
    }
}

proc main {} {
    global par

    set f [fsimpson]
    fsave $f $par(name).fid
}
