Flight.Kml

Provides parsing of dumped tracklogs. In hang gliding and paragliding competitions when FS and GpsDump are paired in competition mode a pilot's tracklog is dumped as KML. This is exlained in detail on the FS wiki.

Usage

Working with the KML tracklog dump from the tracklog file "Phil de Joux.20120114-082221.21437.40.kml".

>>> Right mf@(MarkedFixes{mark0, fixes}) <- parse kml
>>> mark0
2012-01-14 02:12:55 UTC
>>> length fixes
6547
>>> head fixes
Fix {fixMark = 0s, fix = LLA {llaLat = -33.36160000°, llaLng = 147.93205000°, llaAltGps = 237m}, fixAltBaro = Just 239m}
>>> last fixes
Fix {fixMark = 13103s, fix = LLA {llaLat = -33.65073300°, llaLng = 147.56036700°, llaAltGps = 214m}, fixAltBaro = Just 238m}

The newtypes

newtype Seconds

The number of seconds offset from the time of the first fix.

Constructors

Seconds Integer

Instances

Eq Seconds

Defined in Flight.Types

Methods

(==) :: Seconds -> Seconds -> Bool

(/=) :: Seconds -> Seconds -> Bool

Num Seconds

Defined in Flight.Types

Methods

(+) :: Seconds -> Seconds -> Seconds

(-) :: Seconds -> Seconds -> Seconds

(*) :: Seconds -> Seconds -> Seconds

negate :: Seconds -> Seconds

abs :: Seconds -> Seconds

signum :: Seconds -> Seconds

fromInteger :: Integer -> Seconds

Ord Seconds

Defined in Flight.Types

Methods

compare :: Seconds -> Seconds -> Ordering

(<) :: Seconds -> Seconds -> Bool

(<=) :: Seconds -> Seconds -> Bool

(>) :: Seconds -> Seconds -> Bool

(>=) :: Seconds -> Seconds -> Bool

max :: Seconds -> Seconds -> Seconds

min :: Seconds -> Seconds -> Seconds

Show Seconds

Defined in Flight.Types

Methods

showsPrec :: Int -> Seconds -> ShowS

show :: Seconds -> String

showList :: [Seconds] -> ShowS

Generic Seconds

Defined in Flight.Types

Associated Types

type Rep Seconds :: * -> *

Methods

from :: Seconds -> Rep Seconds x

to :: Rep Seconds x -> Seconds

ToJSON Seconds

Defined in Flight.Types

Methods

toJSON :: Seconds -> Value

toEncoding :: Seconds -> Encoding

toJSONList :: [Seconds] -> Value

toEncodingList :: [Seconds] -> Encoding

FromJSON Seconds

Defined in Flight.Types

Methods

parseJSON :: Value -> Parser Seconds

parseJSONList :: Value -> Parser [Seconds]

DefaultDecimalPlaces Seconds

Defined in Flight.Types

Methods

defdp :: Seconds -> DecimalPlaces

type Rep Seconds

Defined in Flight.Types

type Rep Seconds = D1 (MetaData "Seconds" "Flight.Types" "flight-kml-1.0.0-EmlCX9TRxkFGW009dRTfgq" True) (C1 (MetaCons "Seconds" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Integer)))

newtype Latitude

Latitude in degress.

Constructors

Latitude Rational

Instances

Eq Latitude

Defined in Flight.Types

Methods

(==) :: Latitude -> Latitude -> Bool

(/=) :: Latitude -> Latitude -> Bool

Show Latitude

Defined in Flight.Types

Methods

showsPrec :: Int -> Latitude -> ShowS

show :: Latitude -> String

showList :: [Latitude] -> ShowS

Generic Latitude

Defined in Flight.Types

Associated Types

type Rep Latitude :: * -> *

Methods

from :: Latitude -> Rep Latitude x

to :: Rep Latitude x -> Latitude

ToJSON Latitude

Defined in Flight.Types

Methods

toJSON :: Latitude -> Value

toEncoding :: Latitude -> Encoding

toJSONList :: [Latitude] -> Value

toEncodingList :: [Latitude] -> Encoding

FromJSON Latitude

Defined in Flight.Types

Methods

parseJSON :: Value -> Parser Latitude

parseJSONList :: Value -> Parser [Latitude]

DefaultDecimalPlaces Latitude

Defined in Flight.Types

Methods

defdp :: Latitude -> DecimalPlaces

type Rep Latitude

Defined in Flight.Types

type Rep Latitude = D1 (MetaData "Latitude" "Flight.Types" "flight-kml-1.0.0-EmlCX9TRxkFGW009dRTfgq" True) (C1 (MetaCons "Latitude" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Rational)))

newtype Longitude

Longitude in degress.

Constructors

Longitude Rational

Instances

Eq Longitude

Defined in Flight.Types

Methods

(==) :: Longitude -> Longitude -> Bool

(/=) :: Longitude -> Longitude -> Bool

Show Longitude

Defined in Flight.Types

Methods

showsPrec :: Int -> Longitude -> ShowS

show :: Longitude -> String

showList :: [Longitude] -> ShowS

Generic Longitude

Defined in Flight.Types

Associated Types

type Rep Longitude :: * -> *

Methods

from :: Longitude -> Rep Longitude x

to :: Rep Longitude x -> Longitude

ToJSON Longitude

Defined in Flight.Types

Methods

toJSON :: Longitude -> Value

toEncoding :: Longitude -> Encoding

toJSONList :: [Longitude] -> Value

toEncodingList :: [Longitude] -> Encoding

FromJSON Longitude

Defined in Flight.Types

Methods

parseJSON :: Value -> Parser Longitude

parseJSONList :: Value -> Parser [Longitude]

DefaultDecimalPlaces Longitude

Defined in Flight.Types

Methods

defdp :: Longitude -> DecimalPlaces

type Rep Longitude

Defined in Flight.Types

type Rep Longitude = D1 (MetaData "Longitude" "Flight.Types" "flight-kml-1.0.0-EmlCX9TRxkFGW009dRTfgq" True) (C1 (MetaCons "Longitude" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Rational)))

newtype Altitude

Altitude in metres.

Constructors

Altitude Integer

Instances

Eq Altitude

Defined in Flight.Types

Methods

(==) :: Altitude -> Altitude -> Bool

(/=) :: Altitude -> Altitude -> Bool

Num Altitude

Defined in Flight.Types

Methods

(+) :: Altitude -> Altitude -> Altitude

(-) :: Altitude -> Altitude -> Altitude

(*) :: Altitude -> Altitude -> Altitude

negate :: Altitude -> Altitude

abs :: Altitude -> Altitude

signum :: Altitude -> Altitude

fromInteger :: Integer -> Altitude

Ord Altitude

Defined in Flight.Types

Methods

compare :: Altitude -> Altitude -> Ordering

(<) :: Altitude -> Altitude -> Bool

(<=) :: Altitude -> Altitude -> Bool

(>) :: Altitude -> Altitude -> Bool

(>=) :: Altitude -> Altitude -> Bool

max :: Altitude -> Altitude -> Altitude

min :: Altitude -> Altitude -> Altitude

Show Altitude

Defined in Flight.Types

Methods

showsPrec :: Int -> Altitude -> ShowS

show :: Altitude -> String

showList :: [Altitude] -> ShowS

Generic Altitude

Defined in Flight.Types

Associated Types

type Rep Altitude :: * -> *

Methods

from :: Altitude -> Rep Altitude x

to :: Rep Altitude x -> Altitude

ToJSON Altitude

Defined in Flight.Types

Methods

toJSON :: Altitude -> Value

toEncoding :: Altitude -> Encoding

toJSONList :: [Altitude] -> Value

toEncodingList :: [Altitude] -> Encoding

FromJSON Altitude

Defined in Flight.Types

Methods

parseJSON :: Value -> Parser Altitude

parseJSONList :: Value -> Parser [Altitude]

DefaultDecimalPlaces Altitude

Defined in Flight.Types

Methods

defdp :: Altitude -> DecimalPlaces

type Rep Altitude

Defined in Flight.Types

type Rep Altitude = D1 (MetaData "Altitude" "Flight.Types" "flight-kml-1.0.0-EmlCX9TRxkFGW009dRTfgq" True) (C1 (MetaCons "Altitude" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Integer)))

Typeclasses

class LatLngAlt a where

Class for a fix made up of latitude, longitude and GPS altitude.

Minimal complete definition

lat, lng, altGps

Methods

lat :: a -> Latitude

lng :: a -> Longitude

altGps :: a -> Altitude

Instances

LatLngAlt Fix

Defined in Flight.Types

Methods

lat :: Fix -> Latitude

lng :: Fix -> Longitude

altGps :: Fix -> Altitude

LatLngAlt LLA

Defined in Flight.Types

Methods

lat :: LLA -> Latitude

lng :: LLA -> Longitude

altGps :: LLA -> Altitude

class LatLngAlt a => FixMark a where

Class for a tracklog relative fix, offset in seconds, with an optional barometric pressure altitude.

Minimal complete definition

mark, altBaro

Methods

mark :: a -> Seconds

Seconds offset from first fix.

altBaro :: a -> Maybe Altitude

Barometric pressure altitude.

Instances

FixMark Fix

Defined in Flight.Types

Methods

mark :: Fix -> Seconds

altBaro :: Fix -> Maybe Altitude

Tracklog as a list of marked fixes

data LLA

Latitude, longitude and GPS altitude. Use mkPosition to construct a LLA.

Constructors

LLA

Fields

• llaLat :: Latitude
• llaLng :: Longitude
• llaAltGps :: Altitude

Instances

Eq LLA

Defined in Flight.Types

Methods

(==) :: LLA -> LLA -> Bool

(/=) :: LLA -> LLA -> Bool

Show LLA

Defined in Flight.Types

Methods

showsPrec :: Int -> LLA -> ShowS

show :: LLA -> String

showList :: [LLA] -> ShowS

Generic LLA

Defined in Flight.Types

Associated Types

type Rep LLA :: * -> *

Methods

from :: LLA -> Rep LLA x

to :: Rep LLA x -> LLA

ToJSON LLA

Defined in Flight.Types

Methods

toJSON :: LLA -> Value

toEncoding :: LLA -> Encoding

toJSONList :: [LLA] -> Value

toEncodingList :: [LLA] -> Encoding

FromJSON LLA

Defined in Flight.Types

Methods

parseJSON :: Value -> Parser LLA

parseJSONList :: Value -> Parser [LLA]

LatLngAlt LLA

Defined in Flight.Types

Methods

lat :: LLA -> Latitude

lng :: LLA -> Longitude

altGps :: LLA -> Altitude

type Rep LLA

Defined in Flight.Types

type Rep LLA = D1 (MetaData "LLA" "Flight.Types" "flight-kml-1.0.0-EmlCX9TRxkFGW009dRTfgq" False) (C1 (MetaCons "LLA" PrefixI True) (S1 (MetaSel (Just "llaLat") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Latitude) :*: (S1 (MetaSel (Just "llaLng") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Longitude) :*: S1 (MetaSel (Just "llaAltGps") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Altitude))))

mkPosition :: (Latitude, Longitude, Altitude) -> LLA

Constructs a LLA from its parts.

>>> mkPosition (Latitude (-33.65073300), Longitude 147.56036700, Altitude 214)
LLA {llaLat = -33.65073300°, llaLng = 147.56036700°, llaAltGps = 214m}

data Fix

Latitude, longitude and GPS altitude with a relative time offset in seconds and possibly a barometric pressure altitude.

Constructors

Fix

Fields

• fixMark :: Seconds

  A mark in time, seconds offset from the first fix.

• fix :: LLA

  The coordinates of the fix, latitude, longitude and altitude.

• fixAltBaro :: Maybe Altitude

  The barometric pressure altitude of the fix.

Instances

Eq Fix

Defined in Flight.Types

Methods

(==) :: Fix -> Fix -> Bool

(/=) :: Fix -> Fix -> Bool

Show Fix

Defined in Flight.Types

Methods

showsPrec :: Int -> Fix -> ShowS

show :: Fix -> String

showList :: [Fix] -> ShowS

Generic Fix

Defined in Flight.Types

Associated Types

type Rep Fix :: * -> *

Methods

from :: Fix -> Rep Fix x

to :: Rep Fix x -> Fix

ToJSON Fix

Defined in Flight.Types

Methods

toJSON :: Fix -> Value

toEncoding :: Fix -> Encoding

toJSONList :: [Fix] -> Value

toEncodingList :: [Fix] -> Encoding

FromJSON Fix

Defined in Flight.Types

Methods

parseJSON :: Value -> Parser Fix

parseJSONList :: Value -> Parser [Fix]

FixMark Fix

Defined in Flight.Types

Methods

mark :: Fix -> Seconds

altBaro :: Fix -> Maybe Altitude

LatLngAlt Fix

Defined in Flight.Types

Methods

lat :: Fix -> Latitude

lng :: Fix -> Longitude

altGps :: Fix -> Altitude

type Rep Fix

Defined in Flight.Types

type Rep Fix = D1 (MetaData "Fix" "Flight.Types" "flight-kml-1.0.0-EmlCX9TRxkFGW009dRTfgq" False) (C1 (MetaCons "Fix" PrefixI True) (S1 (MetaSel (Just "fixMark") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Seconds) :*: (S1 (MetaSel (Just "fix") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 LLA) :*: S1 (MetaSel (Just "fixAltBaro") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe Altitude)))))

data MarkedFixes

A tracklog is a list of fixes along with the UTC time of the first fix.

Constructors

MarkedFixes

Fields

• mark0 :: UTCTime

  The UTC time of the first fix.

• fixes :: [Fix]

  The fixes of the track log.

Instances

Eq MarkedFixes

Defined in Flight.Types

Methods

(==) :: MarkedFixes -> MarkedFixes -> Bool

(/=) :: MarkedFixes -> MarkedFixes -> Bool

Show MarkedFixes

Defined in Flight.Types

Methods

showsPrec :: Int -> MarkedFixes -> ShowS

show :: MarkedFixes -> String

showList :: [MarkedFixes] -> ShowS

Generic MarkedFixes

Defined in Flight.Types

Associated Types

type Rep MarkedFixes :: * -> *

Methods

from :: MarkedFixes -> Rep MarkedFixes x

to :: Rep MarkedFixes x -> MarkedFixes

ToJSON MarkedFixes

Defined in Flight.Types

Methods

toJSON :: MarkedFixes -> Value

toEncoding :: MarkedFixes -> Encoding

toJSONList :: [MarkedFixes] -> Value

toEncodingList :: [MarkedFixes] -> Encoding

FromJSON MarkedFixes

Defined in Flight.Types

Methods

parseJSON :: Value -> Parser MarkedFixes

parseJSONList :: Value -> Parser [MarkedFixes]

type Rep MarkedFixes

Defined in Flight.Types

type Rep MarkedFixes = D1 (MetaData "MarkedFixes" "Flight.Types" "flight-kml-1.0.0-EmlCX9TRxkFGW009dRTfgq" False) (C1 (MetaCons "MarkedFixes" PrefixI True) (S1 (MetaSel (Just "mark0") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 UTCTime) :*: S1 (MetaSel (Just "fixes") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 [Fix])))

Parsing

parse :: String -> IO (Either String MarkedFixes)

Parse the tracklog from the KML string as MarkedFixes.

>>> Right MarkedFixes{mark0, fixes} <- parse kml
>>> mark0
2012-01-14 02:12:55 UTC
>>> length fixes
6547
>>> head fixes
Fix {fixMark = 0s, fix = LLA {llaLat = -33.36160000°, llaLng = 147.93205000°, llaAltGps = 237m}, fixAltBaro = Just 239m}
>>> last fixes
Fix {fixMark = 13103s, fix = LLA {llaLat = -33.65073300°, llaLng = 147.56036700°, llaAltGps = 214m}, fixAltBaro = Just 238m}

GPSDump KML

Here's an example of a tracklog dump from the last day of the Hang Gliding Pre-Worlds Forbes 2012. The flight instrument is a Flytec 6030. The pilot with CIVL ID 21437 is me, the author of this package, Phil de Joux.

<?xml version="1.0" encoding="UTF-8"?>
<Document>
<open>1</open>
  <Folder>
    <Metadata src="GpsDump" v="4.66" type="trip"/>
    <open>1</open>
    <name>Trip</name>
    <description><![CDATA[Tracklog from GpsDump competition mode
<pre>
Flight statistics
Date                 2012-01-14
Start/finish         02:12:55 - 05:51:18
Duration             3 : 38 : 23
Max.min. height     2392  214 m
Max. meantop speed  72 kmh  82 kmh
Maxmin climb rate   4.35  -4.23 m/s over 60s
Total distance       166.89 km
</pre>]]>
    </description>
...
    <Placemark>
      <Metadata src="GpsDump" v="4.66" type="track">
        <FsInfo time_of_first_point="2012-01-14T02:12:55Z"
                civl_pilot_id="21437" comp_pilot_id="40"
                instrument="6030 SN06451 SW3.30"
                downloaded="2012-01-14T08:22:21Z"
                hash="61168B84FE0DAC55F3D65EFBA888B08F72834DDF">
          <SecondsFromTimeOfFirstPoint>
0 2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48
...
13061 13063 13065 13067 13069 13071 13073 13075 13077 13079 13081 13083 13085 13087 13089 13091 13093 13095 13097 13099 13101 13103
          </SecondsFromTimeOfFirstPoint>
          <PressureAltitude>
239 240 240 239 239 239 239 239 239 240 239 240 239 239 240 239 240 240 240 240 239 239 240 240 240 
...
237 237 237 237 237 237 237 238 238 237 238 237 237 238 237 237 238 238 237 238 237 238
          </PressureAltitude>
        </FsInfo>
      </Metadata>
      <name>Tracklog</name>
      <LineString>
        <altitudeMode>absolute</altitudeMode>
        <coordinates>
147.932050,-33.361600,237 147.932050,-33.361600,238 147.932050,-33.361600,238 147.932050,-33.361600,238 147.932067,-33.361600,238 
...
147.560367,-33.650733,215 147.560367,-33.650733,215 147.560367,-33.650733,214 147.560367,-33.650733,214 147.560367,-33.650733,214 
147.560367,-33.650733,214 147.560367,-33.650733,214
        </coordinates>
      </LineString>
    </Placemark>
  </Folder>
</Document>