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)