Copyright	(c) Dustin Sallings 2020
License	BSD3
Stability	experimental
Safe Haskell	Safe-Inferred
Language	Haskell2010

GoPro.DEVC

Description

DEVC is one of the GPMF data types that contains the bulk of interesting telemetry data from within GPMF streams. This module doesn't currently provide high level access to *all* DEVC data (some of it remains low level), but it currently has useful representations of things that seemed interesting to the author.

Synopsis

mkDEVC :: FourCC -> [Value] -> Maybe DEVC
data DEVC = DEVC {
- _dev_id :: Int
- _dev_name :: String
- _dev_telems :: Map String Telemetry
}
dev_id :: Lens' DEVC Int
dev_name :: Lens' DEVC String
dev_telems :: Lens' DEVC (Map String Telemetry)
data Accelerometer = Accelerometer {
- _acc_temp :: Float
- _acc_vals :: [(Float, Float, Float)]
}
acc_temp :: Lens' Accelerometer Float
acc_vals :: Lens' Accelerometer [(Float, Float, Float)]
data Gyroscope = Gyroscope {
- _gyro_temp :: Float
- _gyro_vals :: [(Float, Float, Float)]
}
gyro_temp :: Lens' Gyroscope Float
gyro_vals :: Lens' Gyroscope [(Float, Float, Float)]
data Face = Face {
- _face_id :: Int
- _face_x :: Float
- _face_y :: Float
- _face_w :: Float
- _face_h :: Float
- _face_smile :: Float
}
face_id :: Lens' Face Int
face_x :: Lens' Face Float
face_y :: Lens' Face Float
face_w :: Lens' Face Float
face_h :: Lens' Face Float
face_smile :: Lens' Face Float
data GPSReading = GPSReading {
- _gpsr_lat :: Double
- _gpsr_lon :: Double
- _gpsr_alt :: Double
- _gpsr_speed2d :: Double
- _gpsr_speed3d :: Double
- _gpsr_time :: UTCTime
- _gpsr_dop :: Double
- _gpsr_fix :: Int
}
gpsr_lat :: Lens' GPSReading Double
gpsr_lon :: Lens' GPSReading Double
gpsr_alt :: Lens' GPSReading Double
gpsr_speed2d :: Lens' GPSReading Double
gpsr_speed3d :: Lens' GPSReading Double
gpsr_time :: Lens' GPSReading UTCTime
gpsr_dop :: Lens' GPSReading Double
gpsr_fix :: Lens' GPSReading Int
gpsReadings :: Getter DEVC [GPSReading]
data AudioLevel = AudioLevel {
- _audio_rms :: [Int]
- _audio_peak :: [Int]
}
audio_rms :: Lens' AudioLevel [Int]
audio_peak :: Lens' AudioLevel [Int]
data Location
- = Snow
- | Urban
- | Indoor
- | Water
- | Vegetation
- | Beach
_Snow :: Prism' Location ()
_Urban :: Prism' Location ()
_Indoor :: Prism' Location ()
_Water :: Prism' Location ()
_Vegetation :: Prism' Location ()
_Beach :: Prism' Location ()
data TVals
- = TVUnknown [Value]
- | TVAccl Accelerometer
- | TVGyro Gyroscope
- | TVFaces [Face]
- | TVGPS5 [GPSReading]
- | TVGPS9 [GPSReading]
- | TVAudioLevel AudioLevel
- | TVScene [Map Location Float]
_TVUnknown :: Prism' TVals [Value]
_TVAccl :: Prism' TVals Accelerometer
_TVGyro :: Prism' TVals Gyroscope
_TVFaces :: Prism' TVals [Face]
_TVGPS5 :: Prism' TVals [GPSReading]
_TVGPS9 :: Prism' TVals [GPSReading]
_TVAudioLevel :: Prism' TVals AudioLevel
_TVScene :: Prism' TVals [Map Location Float]
data Telemetry = Telemetry {
- _tele_stmp :: Word64
- _tele_tsmp :: Int
- _tele_name :: String
- _tele_values :: TVals
}
tele_stmp :: Lens' Telemetry Word64
tele_tsmp :: Lens' Telemetry Int
tele_name :: Lens' Telemetry String
tele_values :: Lens' Telemetry TVals

Documentation

mkDEVC :: FourCC -> [Value] -> Maybe DEVC Source #

Given a FourCC value (specifically, DEVC) and a list of Values, produce a DEVC value.

data DEVC Source #

Constructors

DEVC
Fields _dev_id :: Int _dev_name :: String _dev_telems :: Map String Telemetry

Instances

Instances details

Show DEVC Source #
Instance details Defined in GoPro.DEVC Methods showsPrec :: Int -> DEVC -> ShowS # show :: DEVC -> String # showList :: [DEVC] -> ShowS #

dev_id :: Lens' DEVC Int Source #

dev_name :: Lens' DEVC String Source #

dev_telems :: Lens' DEVC (Map String Telemetry) Source #

data Accelerometer Source #

Constructors

Accelerometer
Fields _acc_temp :: Float _acc_vals :: [(Float, Float, Float)]

Instances

Instances details

Show Accelerometer Source #
Instance details Defined in GoPro.DEVC Methods showsPrec :: Int -> Accelerometer -> ShowS # show :: Accelerometer -> String # showList :: [Accelerometer] -> ShowS #

acc_temp :: Lens' Accelerometer Float Source #

acc_vals :: Lens' Accelerometer [(Float, Float, Float)] Source #

data Gyroscope Source #

Constructors

Gyroscope
Fields _gyro_temp :: Float _gyro_vals :: [(Float, Float, Float)]

Instances

Instances details

Show Gyroscope Source #
Instance details Defined in GoPro.DEVC Methods showsPrec :: Int -> Gyroscope -> ShowS # show :: Gyroscope -> String # showList :: [Gyroscope] -> ShowS #

gyro_temp :: Lens' Gyroscope Float Source #

gyro_vals :: Lens' Gyroscope [(Float, Float, Float)] Source #

data Face Source #

Constructors

Face
Fields _face_id :: Int _face_x :: Float _face_y :: Float _face_w :: Float _face_h :: Float _face_smile :: Float

Instances

Instances details

Show Face Source #
Instance details Defined in GoPro.DEVC Methods showsPrec :: Int -> Face -> ShowS # show :: Face -> String # showList :: [Face] -> ShowS #

face_id :: Lens' Face Int Source #

face_x :: Lens' Face Float Source #

face_y :: Lens' Face Float Source #

face_w :: Lens' Face Float Source #

face_h :: Lens' Face Float Source #

face_smile :: Lens' Face Float Source #

data GPSReading Source #

Constructors

GPSReading
Fields _gpsr_lat :: Double _gpsr_lon :: Double _gpsr_alt :: Double _gpsr_speed2d :: Double _gpsr_speed3d :: Double _gpsr_time :: UTCTime _gpsr_dop :: Double _gpsr_fix :: Int

Instances

Instances details

Show GPSReading Source #
Instance details Defined in GoPro.DEVC Methods showsPrec :: Int -> GPSReading -> ShowS # show :: GPSReading -> String # showList :: [GPSReading] -> ShowS #

gpsr_lat :: Lens' GPSReading Double Source #

gpsr_lon :: Lens' GPSReading Double Source #

gpsr_alt :: Lens' GPSReading Double Source #

gpsr_speed2d :: Lens' GPSReading Double Source #

gpsr_speed3d :: Lens' GPSReading Double Source #

gpsr_time :: Lens' GPSReading UTCTime Source #

gpsr_dop :: Lens' GPSReading Double Source #

gpsr_fix :: Lens' GPSReading Int Source #

gpsReadings :: Getter DEVC [GPSReading] Source #

Get the best GPS readings from a DEVC. This will attempt to return any TVGPS9 readings, but will fall back to GPS5 readings if available.

data AudioLevel Source #

Constructors

AudioLevel
Fields _audio_rms :: [Int] _audio_peak :: [Int]

Instances

Instances details

Show AudioLevel Source #
Instance details Defined in GoPro.DEVC Methods showsPrec :: Int -> AudioLevel -> ShowS # show :: AudioLevel -> String # showList :: [AudioLevel] -> ShowS #

audio_rms :: Lens' AudioLevel [Int] Source #

audio_peak :: Lens' AudioLevel [Int] Source #

data Location Source #

Constructors

Snow
Urban
Indoor
Water
Vegetation
Beach

Instances

Instances details

Read Location Source #
Instance details Defined in GoPro.DEVC Methods readsPrec :: Int -> ReadS Location # readList :: ReadS [Location] # readPrec :: ReadPrec Location # readListPrec :: ReadPrec [Location] #
Show Location Source #
Instance details Defined in GoPro.DEVC Methods showsPrec :: Int -> Location -> ShowS # show :: Location -> String # showList :: [Location] -> ShowS #
Eq Location Source #
Instance details Defined in GoPro.DEVC Methods (==) :: Location -> Location -> Bool # (/=) :: Location -> Location -> Bool #
Ord Location Source #
Instance details Defined in GoPro.DEVC Methods compare :: Location -> Location -> Ordering # (<) :: Location -> Location -> Bool # (<=) :: Location -> Location -> Bool # (>) :: Location -> Location -> Bool # (>=) :: Location -> Location -> Bool # max :: Location -> Location -> Location # min :: Location -> Location -> Location #

_Snow :: Prism' Location () Source #

_Urban :: Prism' Location () Source #

_Indoor :: Prism' Location () Source #

_Water :: Prism' Location () Source #

_Vegetation :: Prism' Location () Source #

_Beach :: Prism' Location () Source #

data TVals Source #

Constructors

TVUnknown [Value]
TVAccl Accelerometer
TVGyro Gyroscope
TVFaces [Face]
TVGPS5 [GPSReading]
TVGPS9 [GPSReading]
TVAudioLevel AudioLevel
TVScene [Map Location Float]

Instances

Instances details

Show TVals Source #
Instance details Defined in GoPro.DEVC Methods showsPrec :: Int -> TVals -> ShowS # show :: TVals -> String # showList :: [TVals] -> ShowS #

_TVUnknown :: Prism' TVals [Value] Source #

_TVAccl :: Prism' TVals Accelerometer Source #

_TVGyro :: Prism' TVals Gyroscope Source #

_TVFaces :: Prism' TVals [Face] Source #

_TVGPS5 :: Prism' TVals [GPSReading] Source #

_TVGPS9 :: Prism' TVals [GPSReading] Source #

_TVAudioLevel :: Prism' TVals AudioLevel Source #

_TVScene :: Prism' TVals [Map Location Float] Source #

data Telemetry Source #

Constructors

Telemetry
Fields _tele_stmp :: Word64 _tele_tsmp :: Int _tele_name :: String _tele_values :: TVals

Instances

Instances details

Show Telemetry Source #
Instance details Defined in GoPro.DEVC Methods showsPrec :: Int -> Telemetry -> ShowS # show :: Telemetry -> String # showList :: [Telemetry] -> ShowS #

tele_stmp :: Lens' Telemetry Word64 Source #

tele_tsmp :: Lens' Telemetry Int Source #

tele_name :: Lens' Telemetry String Source #

tele_values :: Lens' Telemetry TVals Source #