| 796 |
|
VSUM(nv.vp, wip, odir, -1.); |
| 797 |
|
spinvector(nv.vdir, nv.vdir, nv.vup, d); |
| 798 |
|
} else if (orb) { /* orbit up/down */ |
| 799 |
< |
fcross(v1, odir, nv.vup); |
| 800 |
< |
if (normalize(v1) == 0.) |
| 799 |
> |
if (geodesic(odir, odir, nv.vup, |
| 800 |
> |
d=MOVDEG*PI/180.*orb, GEOD_RAD) == 0.0) |
| 801 |
|
return(0); |
| 802 |
– |
spinvector(odir, odir, v1, d=MOVDEG*PI/180.*orb); |
| 802 |
|
VSUM(nv.vp, wip, odir, -1.); |
| 803 |
< |
spinvector(nv.vdir, nv.vdir, v1, d); |
| 803 |
> |
geodesic(nv.vdir, nv.vdir, nv.vup, d, GEOD_RAD); |
| 804 |
|
} else if (mov) { /* move forward/backward */ |
| 805 |
|
d = MOVPCT/100. * mov; |
| 806 |
|
VSUM(nv.vp, nv.vp, odir, d); |
