| 612 |
|
VSUM(nv.vp, qtL.wp[li], odir, -1.); |
| 613 |
|
spinvector(nv.vdir, nv.vdir, nv.vup, d); |
| 614 |
|
} else if (orb) { /* orbit up/down */ |
| 615 |
< |
fcross(v1, odir, nv.vup); |
| 616 |
< |
if (normalize(v1) == 0.) |
| 615 |
> |
if (geodesic(odir, odir, nv.vup, |
| 616 |
> |
d=MOVDEG*PI/180.*orb, GEOD_RAD) == 0.0) |
| 617 |
|
return(0); |
| 618 |
– |
spinvector(odir, odir, v1, d=MOVDEG*PI/180.*orb); |
| 618 |
|
VSUM(nv.vp, qtL.wp[li], odir, -1.); |
| 619 |
< |
spinvector(nv.vdir, nv.vdir, v1, d); |
| 619 |
> |
geodesic(nv.vdir, nv.vdir, nv.vup, d, GEOD_RAD); |
| 620 |
|
} else if (mov) { /* move forward/backward */ |
| 621 |
|
d = MOVPCT/100. * mov; |
| 622 |
|
VSUM(nv.vp, nv.vp, odir, d); |
