spinsys {
	channels 29Si
	nuclei   29Si
	shift   1 0 5000 0.3 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
}
