Copyright	(c) 2016-19 Brian W Bush
License	MIT
Maintainer	Brian W Bush <[email protected]>
Stability	Production
Portability	Portable
Safe Haskell	None
Language	Haskell2010

Network.UI.Kafka.Interpretation

Contents

Description

Interpret user-interfaces events on Kafka topics.

Synopsis

Types

data Interpretation a b Source #

Instructions for interpreting user-interface events from Kafka.

Constructors

TrackInterpretation

Fields

kafka :: TopicConnection
How to connect to Kafka.
sensor :: Sensor
The name of the sensor.
device :: a
The device.
xAxis :: AxisInterpretation b
Interpretation for the x-axis.
yAxis :: AxisInterpretation b
Interpretation for the y-axis.
zAxis :: AxisInterpretation b
Interpretation for the z-axis.
phiAxis :: AxisInterpretation b
Interpretation for the Euler angle about the x-axis.
thetaAxis :: AxisInterpretation b
Interpretation for the Euler angle about the y-axis.
psiAxis :: AxisInterpretation b
Interpretation for the Euler angle about the z-axis.
location :: V3 b
The initial location, (x, y, z).
orientation :: V3 b
The initial orientation, (phi, theta, psi).
flying :: Bool
Whether to interpret displacements as being relative to the current orientation.
resetButton :: Maybe Int
The button number for resetting the location and orientation to their initial values.

Instances

(Eq b, Eq a) => Eq (Interpretation a b) Source #
Methods (==) :: Interpretation a b -> Interpretation a b -> Bool # (/=) :: Interpretation a b -> Interpretation a b -> Bool #
(Read b, Read a) => Read (Interpretation a b) Source #
Methods readsPrec :: Int -> ReadS (Interpretation a b) # readList :: ReadS [Interpretation a b] # readPrec :: ReadPrec (Interpretation a b) # readListPrec :: ReadPrec [Interpretation a b] #
(Show b, Show a) => Show (Interpretation a b) Source #
Methods showsPrec :: Int -> Interpretation a b -> ShowS # show :: Interpretation a b -> String # showList :: [Interpretation a b] -> ShowS #
Generic (Interpretation a b) Source #
Associated Types type Rep (Interpretation a b) :: * -> * # Methods from :: Interpretation a b -> Rep (Interpretation a b) x # to :: Rep (Interpretation a b) x -> Interpretation a b #
(ToJSON a, ToJSON b) => ToJSON (Interpretation a b) Source #
Methods toJSON :: Interpretation a b -> Value # toEncoding :: Interpretation a b -> Encoding # toJSONList :: [Interpretation a b] -> Value # toEncodingList :: [Interpretation a b] -> Encoding #
(FromJSON a, FromJSON b) => FromJSON (Interpretation a b) Source #
Methods parseJSON :: Value -> Parser (Interpretation a b) # parseJSONList :: Value -> Parser [Interpretation a b] #
type Rep (Interpretation a b) Source #
type Rep (Interpretation a b) = D1 * (MetaData "Interpretation" "Network.UI.Kafka.Interpretation" "kafka-device-1.0.0.0-7U9qgkxLORxLpEJz1lnLpE" False) (C1 * (MetaCons "TrackInterpretation" PrefixI True) ((::) ((::) ((::) (S1 * (MetaSel (Just Symbol "kafka") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * TopicConnection)) ((::) (S1 * (MetaSel (Just Symbol "sensor") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * Sensor)) (S1 * (MetaSel (Just Symbol "device") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * a)))) ((::) (S1 * (MetaSel (Just Symbol "xAxis") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (AxisInterpretation b))) ((::) (S1 * (MetaSel (Just Symbol "yAxis") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (AxisInterpretation b))) (S1 * (MetaSel (Just Symbol "zAxis") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (AxisInterpretation b)))))) ((::) ((::) (S1 * (MetaSel (Just Symbol "phiAxis") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (AxisInterpretation b))) ((::) (S1 * (MetaSel (Just Symbol "thetaAxis") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (AxisInterpretation b))) (S1 * (MetaSel (Just Symbol "psiAxis") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (AxisInterpretation b))))) ((::) ((::) (S1 * (MetaSel (Just Symbol "location") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (V3 b))) (S1 * (MetaSel (Just Symbol "orientation") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (V3 b)))) ((::) (S1 * (MetaSel (Just Symbol "flying") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * Bool)) (S1 * (MetaSel (Just Symbol "resetButton") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (Maybe Int))))))))

data AxisInterpretation a Source #

Instructions for interpreting an axis.

Constructors

AxisInterpretation
Fields axisNumber :: Int The axis number. threshold :: Maybe a The threshold for forwarding events. increment :: a How much to increment the axis per unit of change. lowerBound :: Maybe a The minimum value for the axis position. upperBound :: Maybe a The maximum value for the axis position.

Instances

Eq a => Eq (AxisInterpretation a) Source #
Methods (==) :: AxisInterpretation a -> AxisInterpretation a -> Bool # (/=) :: AxisInterpretation a -> AxisInterpretation a -> Bool #
Read a => Read (AxisInterpretation a) Source #
Methods readsPrec :: Int -> ReadS (AxisInterpretation a) # readList :: ReadS [AxisInterpretation a] # readPrec :: ReadPrec (AxisInterpretation a) # readListPrec :: ReadPrec [AxisInterpretation a] #
Show a => Show (AxisInterpretation a) Source #
Methods showsPrec :: Int -> AxisInterpretation a -> ShowS # show :: AxisInterpretation a -> String # showList :: [AxisInterpretation a] -> ShowS #
Generic (AxisInterpretation a) Source #
Associated Types type Rep (AxisInterpretation a) :: * -> * # Methods from :: AxisInterpretation a -> Rep (AxisInterpretation a) x # to :: Rep (AxisInterpretation a) x -> AxisInterpretation a #
ToJSON a => ToJSON (AxisInterpretation a) Source #
Methods toJSON :: AxisInterpretation a -> Value # toEncoding :: AxisInterpretation a -> Encoding # toJSONList :: [AxisInterpretation a] -> Value # toEncodingList :: [AxisInterpretation a] -> Encoding #
FromJSON a => FromJSON (AxisInterpretation a) Source #
Methods parseJSON :: Value -> Parser (AxisInterpretation a) # parseJSONList :: Value -> Parser [AxisInterpretation a] #
type Rep (AxisInterpretation a) Source #
type Rep (AxisInterpretation a) = D1 * (MetaData "AxisInterpretation" "Network.UI.Kafka.Interpretation" "kafka-device-1.0.0.0-7U9qgkxLORxLpEJz1lnLpE" False) (C1 * (MetaCons "AxisInterpretation" PrefixI True) ((::) ((::) (S1 * (MetaSel (Just Symbol "axisNumber") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * Int)) (S1 * (MetaSel (Just Symbol "threshold") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (Maybe a)))) ((::) (S1 * (MetaSel (Just Symbol "increment") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * a)) ((::) (S1 * (MetaSel (Just Symbol "lowerBound") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (Maybe a))) (S1 * (MetaSel (Just Symbol "upperBound") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (Maybe a)))))))

type AnalogHandler a b Source #

Arguments

= b	The raw event.
-> Maybe (Int, a)	The axis number and value.

How to handle raw analog events.

type ButtonHandler a b Source #

Arguments

= b	The raw event.
-> Maybe (Int, Bool)	The button number and whether the button is depressed.

How to handle raw button events.

Event handling

interpretationLoop Source #

Arguments

:: (Conjugate b, Epsilon b, Num b, Ord b, RealFloat b)
=> AnalogHandler b c	How to handle raw analog events.
-> ButtonHandler b c	How to handle raw button events.
-> Interpretation a b	The interpretation.
-> IO c	Action for getting the next raw event.
-> IO (ExitAction, LoopAction)	Action to create the exit and loop actions.

Repeatedly interpret events.

Orphan instances

ToJSON a => ToJSON (Quaternion a) Source #
Methods toJSON :: Quaternion a -> Value # toEncoding :: Quaternion a -> Encoding # toJSONList :: [Quaternion a] -> Value # toEncodingList :: [Quaternion a] -> Encoding #
ToJSON a => ToJSON (V3 a) Source #
Methods toJSON :: V3 a -> Value # toEncoding :: V3 a -> Encoding # toJSONList :: [V3 a] -> Value # toEncodingList :: [V3 a] -> Encoding #
FromJSON a => FromJSON (Quaternion a) Source #
Methods parseJSON :: Value -> Parser (Quaternion a) # parseJSONList :: Value -> Parser [Quaternion a] #
FromJSON a => FromJSON (V3 a) Source #
Methods parseJSON :: Value -> Parser (V3 a) # parseJSONList :: Value -> Parser [V3 a] #