| 556 |
|
VSUM(nv.vp, qtL.wp[li], odir, -1.); |
| 557 |
|
spinvector(nv.vdir, nv.vdir, nv.vup, d); |
| 558 |
|
} else if (orb) { /* orbit up/down */ |
| 559 |
< |
fcross(v1, odir, nv.vup); |
| 560 |
< |
if (normalize(v1) == 0.) |
| 559 |
> |
if (geodesic(odir, odir, nv.vup, |
| 560 |
> |
d=MOVDEG*PI/180.*orb, GEOD_RAD) == 0.0) |
| 561 |
|
return(0); |
| 562 |
– |
spinvector(odir, odir, v1, d=MOVDEG*PI/180.*orb); |
| 562 |
|
VSUM(nv.vp, qtL.wp[li], odir, -1.); |
| 563 |
< |
spinvector(nv.vdir, nv.vdir, v1, d); |
| 563 |
> |
geodesic(nv.vdir, nv.vdir, nv.vup, d, GEOD_RAD); |
| 564 |
|
} else if (mov) { /* move forward/backward */ |
| 565 |
|
d = MOVPCT/100. * mov; |
| 566 |
|
VSUM(nv.vp, nv.vp, odir, d); |
