odometer.ks

//gist 3b1620f874436a5110eac147cc159ef2

odometer on.

set data to lex().
set data:totDist to 0.
set data:minDist to 1.
set data:last to lex("altitude", altitude, "gp", ship:geoposition).

if exists("1:/odometer.json") set data to readjson("1:/odometer.json").


on time:second {
	local current is lex("altitude", altitude, "gp", ship:geoposition).
	local dist is (data:last:gp:altitudeposition(data:last:altitude) - current:gp:altitudeposition(current:altitude)):mag.
	
	if dist > data:minDist {
		set data:totDist to data:totDist + dist.
		set data:last to current.
		writejson(data, "1:/odometer.json").
	}
	
	return odometer.
}