34 lines
893 B
Haskell
34 lines
893 B
Haskell
{-# LANGUAGE DeriveGeneric #-}
|
|
{-# LANGUAGE DeriveAnyClass #-}
|
|
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
module Dodge.Data.Input where
|
|
import Control.Lens
|
|
import qualified Data.Map.Strict as M
|
|
import Geometry.Data
|
|
import SDL (MouseButton, Scancode)
|
|
|
|
data PressType = InitialPress
|
|
| ShortPress
|
|
| LongPress
|
|
deriving (Eq,Show)
|
|
|
|
data Input = Input
|
|
{ _mousePos :: Point2
|
|
, _mouseMoving :: Bool
|
|
, _pressedKeys :: M.Map Scancode PressType
|
|
, _mouseButtons :: M.Map MouseButton Bool -- shortpress False, repeatpress True
|
|
, _scrollAmount :: Int
|
|
, _previousScrollAmount :: Int
|
|
, _lLine :: (Point2, Point2)
|
|
, _rLine :: (Point2, Point2)
|
|
, _lrLine :: (Point2, Point2)
|
|
, _lSelect :: Point2
|
|
, _rSelect :: Point2
|
|
, _clickMousePos :: Point2
|
|
, _textInput :: String
|
|
, _scrollTestValue :: Float
|
|
}
|
|
|
|
makeLenses ''Input
|