MousePosition.hs

{-|
  The mouse (position) specific section of input.
-}
module FRP.Spice.Input.MousePosition where

--------------------
-- Global Imports --
import FRP.Elerea.Param
import Data.Default

-------------------
-- Local Imports --
import FRP.Spice.Math.Vector

{-|
  Creating the external for the mouse position.
-}
externals :: IO (Signal (Vector Float), Vector Float -> IO ())
externals = external def

{-|
  Getting the signal from the mouse position external.
-}
signals :: (Signal (Vector Float), Vector Float -> IO ()) -> Signal (Vector Float)
signals = fst

{-|
  Getting the sink from the mouse position external.
-}
sinks :: (Signal (Vector Float), Vector Float -> IO ()) -> Vector Float -> IO ()
sinks = snd