fly/fgdata
1
0
Fork 0
Code Activity

Maik JUSTUS: use geodtocart() and carttogeod() functions, rather than

Browse source 
simplified conversion based on a spheroidal Earth
This commit is contained in:
mfranz 2007-06-16 18:26:06 +00:00
parent 59c303bcc1
commit e91115e328
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
Nasal/geo.nas
View file

@ -91,18 +91,18 @@ var Coord = {
},
_cupdate : func {
me._cdirty or return;
var rad = ERAD + me._alt;
var cosphi = cos(me._lat) * rad;
me._x = cosphi * cos(me._lon);
me._y = cosphi * sin(me._lon);
me._z = sin(me._lat) * rad;
var xyz = geodtocart(me._lat * R2D, me._lon * R2D, me._alt);
me._x = xyz[0];
me._y = xyz[1];
me._z = xyz[2];
me._cdirty = 0;
},
_pupdate : func {
me._pdirty or return;
me._lat = atan2(me._z, sqrt(me._x * me._x + me._y * me._y));
me._lon = atan2(me._y, me._x);
me._alt = sqrt(me._x * me._x + me._y * me._y + me._z * me._z) - ERAD;
var lla = carttogeod(me._x, me._y, me._z);
me._lat = lla[0] * D2R;
me._lon = lla[1] * D2R;
me._alt = lla[2];
me._pdirty = 0;
},