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

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

-- Constructor

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

class CanvasTextureNewParams t
instance CanvasTextureNewParams JSVal   -- TODO Canvas HTMLElement
instance CanvasTextureNewParams (JSVal, MappingModes)
instance CanvasTextureNewParams (JSVal, MappingModes, WrappingModes)
instance CanvasTextureNewParams (JSVal, MappingModes, WrappingModes, WrappingModes)
instance CanvasTextureNewParams (JSVal, MappingModes, WrappingModes, WrappingModes, MagnificationFilters)
instance CanvasTextureNewParams (JSVal, MappingModes, WrappingModes, WrappingModes, MagnificationFilters, MinificationFilters)
instance CanvasTextureNewParams (JSVal, MappingModes, WrappingModes, WrappingModes, MagnificationFilters, MinificationFilters, Formats)
instance CanvasTextureNewParams (JSVal, MappingModes, WrappingModes, WrappingModes, MagnificationFilters, MinificationFilters, Formats, Types)
instance CanvasTextureNewParams (JSVal, MappingModes, WrappingModes, WrappingModes, MagnificationFilters, MinificationFilters, Formats, Types, Double)