-----------------------------------------------------------------------------
{-# LANGUAGE ConstrainedClassMethods #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DerivingVia #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE OverloadedStrings #-}
-----------------------------------------------------------------------------
module THREE.VideoTexture
  ( -- * Types
    VideoTexture (..)
  , VideoTextureClass (..)
    -- * Constructors
  , THREE.VideoTexture.new
  ) where
-----------------------------------------------------------------------------
import           Miso
-----------------------------------------------------------------------------
import           THREE.Constants.Textures
import           THREE.Constants.Textures.MagnificationFilters
import           THREE.Constants.Textures.MinificationFilters
import           THREE.EventDispatcher
import           THREE.Internal as THREE
import           THREE.Texture
-----------------------------------------------------------------------------
-- | https://threejs.org/docs/#api/en/textures/VideoTexture
class (TextureClass texture) => VideoTextureClass texture where

  -- Method

  update :: Method texture () ()
  update = MisoString -> Method texture () ()
forall object return args.
(FromJSVal return, ToArgs args, ToObject object) =>
MisoString -> Method object args return
method MisoString
"updateMatrix"

instance VideoTextureClass JSVal

-----------------------------------------------------------------------------

newtype VideoTexture
  = VideoTexture
  { VideoTexture -> JSVal
unTexture :: JSVal
  } deriving newtype (VideoTexture -> IO [JSVal]
(VideoTexture -> IO [JSVal]) -> ToArgs VideoTexture
forall args. (args -> IO [JSVal]) -> ToArgs args
$ctoArgs :: VideoTexture -> IO [JSVal]
toArgs :: VideoTexture -> IO [JSVal]
ToArgs, VideoTexture -> IO Object
(VideoTexture -> IO Object) -> ToObject VideoTexture
forall a. (a -> IO Object) -> ToObject a
$ctoObject :: VideoTexture -> IO Object
toObject :: VideoTexture -> IO Object
ToObject, VideoTexture -> IO JSVal
(VideoTexture -> IO JSVal) -> ToJSVal VideoTexture
forall a. (a -> IO JSVal) -> ToJSVal a
$ctoJSVal :: VideoTexture -> IO JSVal
toJSVal :: VideoTexture -> IO JSVal
ToJSVal)
    deriving anyclass (ToObject VideoTexture
ToJSVal VideoTexture
Method VideoTexture (MisoString, Function) ()
Method VideoTexture Object ()
(ToObject VideoTexture, ToJSVal VideoTexture) =>
Method VideoTexture (MisoString, Function) ()
-> Method VideoTexture (MisoString, Function) ()
-> Method VideoTexture (MisoString, Function) ()
-> Method VideoTexture Object ()
-> EventDispatcher VideoTexture
forall object.
(ToObject object, ToJSVal object) =>
Method object (MisoString, Function) ()
-> Method object (MisoString, Function) ()
-> Method object (MisoString, Function) ()
-> Method object Object ()
-> EventDispatcher object
$caddEventListener :: Method VideoTexture (MisoString, Function) ()
addEventListener :: Method VideoTexture (MisoString, Function) ()
$chasEventListener :: Method VideoTexture (MisoString, Function) ()
hasEventListener :: Method VideoTexture (MisoString, Function) ()
$cremoveEventListener :: Method VideoTexture (MisoString, Function) ()
removeEventListener :: Method VideoTexture (MisoString, Function) ()
$cdispatchEvent :: Method VideoTexture Object ()
dispatchEvent :: Method VideoTexture Object ()
EventDispatcher, Property VideoTexture Bool
Property VideoTexture Double
Property VideoTexture Int
Property VideoTexture [Object]
Property VideoTexture (Maybe Function)
Property VideoTexture MisoString
Property VideoTexture Object
Property VideoTexture ColorSpace
Property VideoTexture Formats
Property VideoTexture InternalFormats
Property VideoTexture MappingModes
Property VideoTexture Types
Property VideoTexture UvChannel
Property VideoTexture WrappingModes
Property VideoTexture MagnificationFilters
Property VideoTexture MinificationFilters
Property VideoTexture Matrix3
Property VideoTexture Source
Property VideoTexture Vector2
ReadOnly VideoTexture Int
ReadOnly VideoTexture MisoString
EventDispatcher VideoTexture
Method VideoTexture () ()
Method VideoTexture Object Object
FromJSVal VideoTexture => Method VideoTexture () VideoTexture
EventDispatcher VideoTexture =>
ReadOnly VideoTexture Int
-> ReadOnly VideoTexture MisoString
-> Property VideoTexture MisoString
-> Property VideoTexture Object
-> Property VideoTexture [Object]
-> Property VideoTexture MappingModes
-> Property VideoTexture UvChannel
-> Property VideoTexture WrappingModes
-> Property VideoTexture WrappingModes
-> Property VideoTexture MagnificationFilters
-> Property VideoTexture MinificationFilters
-> Property VideoTexture Double
-> Property VideoTexture Formats
-> Property VideoTexture InternalFormats
-> Property VideoTexture Types
-> Property VideoTexture Vector2
-> Property VideoTexture Vector2
-> Property VideoTexture Double
-> Property VideoTexture Vector2
-> Property VideoTexture Bool
-> Property VideoTexture Matrix3
-> Property VideoTexture Bool
-> Property VideoTexture Bool
-> Property VideoTexture Bool
-> Property VideoTexture Int
-> Property VideoTexture ColorSpace
-> Property VideoTexture Int
-> Property VideoTexture (Maybe Function)
-> Property VideoTexture Bool
-> Property VideoTexture Object
-> Property VideoTexture Source
-> Method VideoTexture () ()
-> (FromJSVal VideoTexture => Method VideoTexture () VideoTexture)
-> Method VideoTexture Object Object
-> Method VideoTexture () ()
-> Method VideoTexture Vector2 Vector2
-> TextureClass VideoTexture
Method VideoTexture Vector2 Vector2
forall texture.
EventDispatcher texture =>
ReadOnly texture Int
-> ReadOnly texture MisoString
-> Property texture MisoString
-> Property texture Object
-> Property texture [Object]
-> Property texture MappingModes
-> Property texture UvChannel
-> Property texture WrappingModes
-> Property texture WrappingModes
-> Property texture MagnificationFilters
-> Property texture MinificationFilters
-> Property texture Double
-> Property texture Formats
-> Property texture InternalFormats
-> Property texture Types
-> Property texture Vector2
-> Property texture Vector2
-> Property texture Double
-> Property texture Vector2
-> Property texture Bool
-> Property texture Matrix3
-> Property texture Bool
-> Property texture Bool
-> Property texture Bool
-> Property texture Int
-> Property texture ColorSpace
-> Property texture Int
-> Property texture (Maybe Function)
-> Property texture Bool
-> Property texture Object
-> Property texture Source
-> Method texture () ()
-> (FromJSVal texture => Method texture () texture)
-> Method texture Object Object
-> Method texture () ()
-> Method texture Vector2 Vector2
-> TextureClass texture
$cid :: ReadOnly VideoTexture Int
id :: ReadOnly VideoTexture Int
$cuuid :: ReadOnly VideoTexture MisoString
uuid :: ReadOnly VideoTexture MisoString
$cname :: Property VideoTexture MisoString
name :: Property VideoTexture MisoString
$cimage :: Property VideoTexture Object
image :: Property VideoTexture Object
$cmipmaps :: Property VideoTexture [Object]
mipmaps :: Property VideoTexture [Object]
$cmapping :: Property VideoTexture MappingModes
mapping :: Property VideoTexture MappingModes
$cchannel :: Property VideoTexture UvChannel
channel :: Property VideoTexture UvChannel
$cwrapS :: Property VideoTexture WrappingModes
wrapS :: Property VideoTexture WrappingModes
$cwrapT :: Property VideoTexture WrappingModes
wrapT :: Property VideoTexture WrappingModes
$cmagFilter :: Property VideoTexture MagnificationFilters
magFilter :: Property VideoTexture MagnificationFilters
$cminFilter :: Property VideoTexture MinificationFilters
minFilter :: Property VideoTexture MinificationFilters
$canisotropy :: Property VideoTexture Double
anisotropy :: Property VideoTexture Double
$cformat :: Property VideoTexture Formats
format :: Property VideoTexture Formats
$cinternalFormat :: Property VideoTexture InternalFormats
internalFormat :: Property VideoTexture InternalFormats
$ctype_ :: Property VideoTexture Types
type_ :: Property VideoTexture Types
$coffset :: Property VideoTexture Vector2
offset :: Property VideoTexture Vector2
$crepeat :: Property VideoTexture Vector2
repeat :: Property VideoTexture Vector2
$crotation :: Property VideoTexture Double
rotation :: Property VideoTexture Double
$ccenter :: Property VideoTexture Vector2
center :: Property VideoTexture Vector2
$cmatrixAutoUpdate :: Property VideoTexture Bool
matrixAutoUpdate :: Property VideoTexture Bool
$cmatrix :: Property VideoTexture Matrix3
matrix :: Property VideoTexture Matrix3
$cgenerateMipmaps :: Property VideoTexture Bool
generateMipmaps :: Property VideoTexture Bool
$cpremultiplyAlpha :: Property VideoTexture Bool
premultiplyAlpha :: Property VideoTexture Bool
$cflipY :: Property VideoTexture Bool
flipY :: Property VideoTexture Bool
$cunpackAlignment :: Property VideoTexture Int
unpackAlignment :: Property VideoTexture Int
$ccolorSpace :: Property VideoTexture ColorSpace
colorSpace :: Property VideoTexture ColorSpace
$cversion :: Property VideoTexture Int
version :: Property VideoTexture Int
$conUpdate :: Property VideoTexture (Maybe Function)
onUpdate :: Property VideoTexture (Maybe Function)
$cneedsUpdate :: Property VideoTexture Bool
needsUpdate :: Property VideoTexture Bool
$cuserData :: Property VideoTexture Object
userData :: Property VideoTexture Object
$csource :: Property VideoTexture Source
source :: Property VideoTexture Source
$cupdateMatrix :: Method VideoTexture () ()
updateMatrix :: Method VideoTexture () ()
$cclone :: FromJSVal VideoTexture => Method VideoTexture () VideoTexture
clone :: FromJSVal VideoTexture => Method VideoTexture () VideoTexture
$ctoJSON :: Method VideoTexture Object Object
toJSON :: Method VideoTexture Object Object
$cdispose :: Method VideoTexture () ()
dispose :: Method VideoTexture () ()
$ctransformUv :: Method VideoTexture Vector2 Vector2
transformUv :: Method VideoTexture Vector2 Vector2
TextureClass, TextureClass VideoTexture
Method VideoTexture () ()
TextureClass VideoTexture =>
Method VideoTexture () () -> VideoTextureClass VideoTexture
forall texture.
TextureClass texture =>
Method texture () () -> VideoTextureClass texture
$cupdate :: Method VideoTexture () ()
update :: Method VideoTexture () ()
VideoTextureClass)

instance FromJSVal VideoTexture where
  fromJSVal :: JSVal -> IO (Maybe VideoTexture)
fromJSVal = Maybe VideoTexture -> IO (Maybe VideoTexture)
forall a. a -> IO a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe VideoTexture -> IO (Maybe VideoTexture))
-> (JSVal -> Maybe VideoTexture)
-> JSVal
-> IO (Maybe VideoTexture)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. VideoTexture -> Maybe VideoTexture
forall a. a -> Maybe a
Just (VideoTexture -> Maybe VideoTexture)
-> (JSVal -> VideoTexture) -> JSVal -> Maybe VideoTexture
forall b c a. (b -> c) -> (a -> b) -> a -> c
. JSVal -> VideoTexture
VideoTexture

-- Constructor

new :: (VideoTextureNewParams t, ToArgs t) => t -> THREE.Three VideoTexture
new :: forall t.
(VideoTextureNewParams t, ToArgs t) =>
t -> IO VideoTexture
new = (JSVal -> VideoTexture) -> MisoString -> t -> IO VideoTexture
forall args con.
ToArgs args =>
(JSVal -> con) -> MisoString -> args -> Three con
THREE.new JSVal -> VideoTexture
VideoTexture MisoString
"VideoTexture"

class VideoTextureNewParams t
instance VideoTextureNewParams ()
instance VideoTextureNewParams Object  -- TODO HTMLVideoElement?
instance VideoTextureNewParams (Object, MappingModes)
instance VideoTextureNewParams (Object, MappingModes, WrappingModes)
instance VideoTextureNewParams (Object, MappingModes, WrappingModes, WrappingModes)
instance VideoTextureNewParams (Object, MappingModes, WrappingModes, WrappingModes, MagnificationFilters)
instance VideoTextureNewParams (Object, MappingModes, WrappingModes, WrappingModes, MagnificationFilters, MinificationFilters)
instance VideoTextureNewParams (Object, MappingModes, WrappingModes, WrappingModes, MagnificationFilters, MinificationFilters, Formats)
instance VideoTextureNewParams (Object, MappingModes, WrappingModes, WrappingModes, MagnificationFilters, MinificationFilters, Formats, Types)
instance VideoTextureNewParams (Object, MappingModes, WrappingModes, WrappingModes, MagnificationFilters, MinificationFilters, Formats, Types, Double)