module Engine.Camera.Event.Type
  ( Event(..)
  ) where

import RIO

import Geomancy (Vec3)

data Event
  = Zoom Float
  | Pan Vec3
  | PanHorizontal Float
  | PanVertical Float
  | TurnAzimuth Float
  | TurnInclination Float
  deriving (Int -> Event -> ShowS
[Event] -> ShowS
Event -> String
(Int -> Event -> ShowS)
-> (Event -> String) -> ([Event] -> ShowS) -> Show Event
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Event -> ShowS
showsPrec :: Int -> Event -> ShowS
$cshow :: Event -> String
show :: Event -> String
$cshowList :: [Event] -> ShowS
showList :: [Event] -> ShowS
Show)