Network.UI.Kafka.Interpretation

Interpret user-interfaces events on Kafka topics.

Types

data Interpretation a

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.

• path :: FilePath

  The path the the device.

• xAxis :: AxisInterpretation a

  Interpretation for the x-axis.

• yAxis :: AxisInterpretation a

  Interpretation for the y-axis.

• zAxis :: AxisInterpretation a

  Interpretation for the z-axis.

• phiAxis :: AxisInterpretation a

  Interpretation for the Euler angle about the x-axis.

• thetaAxis :: AxisInterpretation a

  Interpretation for the Euler angle about the y-axis.

• psiAxis :: AxisInterpretation a

  Interpretation for the Euler angle about the z-axis.

• location :: V3 a

  The initial location, (x, y, z).

• orientation :: V3 a

  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 a => Eq (Interpretation a)

Methods

(==) :: Interpretation a -> Interpretation a -> Bool

(/=) :: Interpretation a -> Interpretation a -> Bool

Read a => Read (Interpretation a)

Methods

readsPrec :: Int -> ReadS (Interpretation a)

readList :: ReadS [Interpretation a]

readPrec :: ReadPrec (Interpretation a)

readListPrec :: ReadPrec [Interpretation a]

Show a => Show (Interpretation a)

Methods

showsPrec :: Int -> Interpretation a -> ShowS

show :: Interpretation a -> String

showList :: [Interpretation a] -> ShowS

Generic (Interpretation a)

Associated Types

type Rep (Interpretation a) :: * -> *

Methods

from :: Interpretation a -> Rep (Interpretation a) x

to :: Rep (Interpretation a) x -> Interpretation a

ToJSON a => ToJSON (Interpretation a)

Methods

toJSON :: Interpretation a -> Value

toEncoding :: Interpretation a -> Encoding

toJSONList :: [Interpretation a] -> Value

toEncodingList :: [Interpretation a] -> Encoding

FromJSON a => FromJSON (Interpretation a)

Methods

parseJSON :: Value -> Parser (Interpretation a)

parseJSONList :: Value -> Parser [Interpretation a]

type Rep (Interpretation a)

type Rep (Interpretation a) = D1 (MetaData "Interpretation" "Network.UI.Kafka.Interpretation" "kafka-device-0.2.1.0-59TOOcRD1ZyLOqHBhZGRps" 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 "path") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 FilePath)))) ((:*:) (S1 (MetaSel (Just Symbol "xAxis") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (AxisInterpretation a))) ((:*:) (S1 (MetaSel (Just Symbol "yAxis") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (AxisInterpretation a))) (S1 (MetaSel (Just Symbol "zAxis") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (AxisInterpretation a)))))) ((:*:) ((:*:) (S1 (MetaSel (Just Symbol "phiAxis") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (AxisInterpretation a))) ((:*:) (S1 (MetaSel (Just Symbol "thetaAxis") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (AxisInterpretation a))) (S1 (MetaSel (Just Symbol "psiAxis") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (AxisInterpretation a))))) ((:*:) ((:*:) (S1 (MetaSel (Just Symbol "location") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (V3 a))) (S1 (MetaSel (Just Symbol "orientation") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (V3 a)))) ((:*:) (S1 (MetaSel (Just Symbol "flying") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Bool)) (S1 (MetaSel (Just Symbol "resetButton") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe Int))))))))

data AxisInterpretation a

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)

Methods

(==) :: AxisInterpretation a -> AxisInterpretation a -> Bool

(/=) :: AxisInterpretation a -> AxisInterpretation a -> Bool

Read a => Read (AxisInterpretation a)

Methods

readsPrec :: Int -> ReadS (AxisInterpretation a)

readList :: ReadS [AxisInterpretation a]

readPrec :: ReadPrec (AxisInterpretation a)

readListPrec :: ReadPrec [AxisInterpretation a]

Show a => Show (AxisInterpretation a)

Methods

showsPrec :: Int -> AxisInterpretation a -> ShowS

show :: AxisInterpretation a -> String

showList :: [AxisInterpretation a] -> ShowS

Generic (AxisInterpretation a)

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)

Methods

toJSON :: AxisInterpretation a -> Value

toEncoding :: AxisInterpretation a -> Encoding

toJSONList :: [AxisInterpretation a] -> Value

toEncodingList :: [AxisInterpretation a] -> Encoding

FromJSON a => FromJSON (AxisInterpretation a)

Methods

parseJSON :: Value -> Parser (AxisInterpretation a)

parseJSONList :: Value -> Parser [AxisInterpretation a]

type Rep (AxisInterpretation a)

type Rep (AxisInterpretation a) = D1 (MetaData "AxisInterpretation" "Network.UI.Kafka.Interpretation" "kafka-device-0.2.1.0-59TOOcRD1ZyLOqHBhZGRps" 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 = b -> Maybe (Int, a)

How to handle raw analog events.

type ButtonHandler a b = b -> Maybe (Int, Bool)

How to handle raw button events.

Event handling

interpretationLoop

Arguments

:: (Conjugate a, Epsilon a, Num a, Ord a, RealFloat a)

=> AnalogHandler a b

How to handle raw analog events.

-> ButtonHandler a b

How to handle raw button events.

-> Interpretation a

The interpretation.

-> IO b

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)

Methods

toJSON :: Quaternion a -> Value

toEncoding :: Quaternion a -> Encoding

toJSONList :: [Quaternion a] -> Value

toEncodingList :: [Quaternion a] -> Encoding

ToJSON a => ToJSON (V3 a)

Methods

toJSON :: V3 a -> Value

toEncoding :: V3 a -> Encoding

toJSONList :: [V3 a] -> Value

toEncodingList :: [V3 a] -> Encoding

FromJSON a => FromJSON (Quaternion a)

Methods

parseJSON :: Value -> Parser (Quaternion a)

parseJSONList :: Value -> Parser [Quaternion a]

FromJSON a => FromJSON (V3 a)

Methods

parseJSON :: Value -> Parser (V3 a)

parseJSONList :: Value -> Parser [V3 a]