get_parameters()
{
if (getorientation(&gro1,&grp1,&grs1,"orient") < 0)
exit(1);
tofc = getval("tofc");
gro = getval("gro");
grof = getval("grof");
gss = getval("gss");
gssf = getval("gssf");
at = getval("at");
ni = (int) getval("ni");
ni2 = (int) getval("ni2");
phi = getval("phi");
theta = getval("theta");
sw1 = getval("sw1");
sw2 = getval("sw2");
trise = getval("trise");
te = getval("te");
tpe = getval("tpe");
tph = getval("tph");
ti = getval("ti");
tr = getval("tr");
tpwr1 = getval("tpwr1");
tpwri = getval("tpwri");
tpwrj = getval("tpwrj");
pi = getval("pi");
pj = getval("pj");
nsat = getval("nsat");
sat = getval("sat");
getstr("p1pat",p1pat);
getstr("pwpat",pwpat);
getstr("bptype",bptype);
getstr("prep",prep);
}
void pulsesequence()
{
double tro;
char gread,gphase,gslice;
char grdname[MAXSTR];
gread = 'z';
if (getorientation(&gread,&gphase,&gslice,"orient") < 0)
abort_message("illegal value in orient parameter");
gro = getval("gro");
tro = getval("tro");
getstr("gname",grdname);
/* equilibrium period */
status(A);
hsdelay(d1);
/* --- tau delay --- */
status(B);
pulse(p1, zero);
hsdelay(d2);
/* --- observe period --- */
status(C);
pulse(pw,oph);
delay(0.0001);
shapedgradient(grdname,tro,gro,gread,1,1);
hsdelay(d2);
startacq(alfa);
acquire(np,1.0/sw);
endacq();
}
