{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module THREE.Sprite
(
Sprite (..)
, THREE.Sprite.new
) where
import Miso
import qualified THREE.Internal as THREE
newtype Sprite
= Sprite
{ Sprite -> JSVal
unSpriteCamera :: JSVal
} deriving (Sprite -> IO Object
(Sprite -> IO Object) -> ToObject Sprite
forall a. (a -> IO Object) -> ToObject a
$ctoObject :: Sprite -> IO Object
toObject :: Sprite -> IO Object
ToObject)
new :: THREE.Three Sprite
new :: Three Sprite
new = (JSVal -> Sprite) -> MisoString -> [MisoString] -> Three Sprite
forall args con.
ToArgs args =>
(JSVal -> con) -> MisoString -> args -> Three con
THREE.new JSVal -> Sprite
Sprite MisoString
"Sprite" ([] :: [MisoString])