{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.SVGFESpotLightElement
(getX, getY, getZ, getPointsAtX, getPointsAtY, getPointsAtZ,
getSpecularExponent, getLimitingConeAngle,
SVGFESpotLightElement(..), gTypeSVGFESpotLightElement)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums
getX ::
(MonadDOM m) => SVGFESpotLightElement -> m SVGAnimatedNumber
getX :: forall (m :: * -> *).
MonadDOM m =>
SVGFESpotLightElement -> m SVGAnimatedNumber
getX SVGFESpotLightElement
self = DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFESpotLightElement
self SVGFESpotLightElement
-> Getting (JSM JSVal) SVGFESpotLightElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGFESpotLightElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"x") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getY ::
(MonadDOM m) => SVGFESpotLightElement -> m SVGAnimatedNumber
getY :: forall (m :: * -> *).
MonadDOM m =>
SVGFESpotLightElement -> m SVGAnimatedNumber
getY SVGFESpotLightElement
self = DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFESpotLightElement
self SVGFESpotLightElement
-> Getting (JSM JSVal) SVGFESpotLightElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGFESpotLightElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"y") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getZ ::
(MonadDOM m) => SVGFESpotLightElement -> m SVGAnimatedNumber
getZ :: forall (m :: * -> *).
MonadDOM m =>
SVGFESpotLightElement -> m SVGAnimatedNumber
getZ SVGFESpotLightElement
self = DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFESpotLightElement
self SVGFESpotLightElement
-> Getting (JSM JSVal) SVGFESpotLightElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGFESpotLightElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"z") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getPointsAtX ::
(MonadDOM m) => SVGFESpotLightElement -> m SVGAnimatedNumber
getPointsAtX :: forall (m :: * -> *).
MonadDOM m =>
SVGFESpotLightElement -> m SVGAnimatedNumber
getPointsAtX SVGFESpotLightElement
self
= DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFESpotLightElement
self SVGFESpotLightElement
-> Getting (JSM JSVal) SVGFESpotLightElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGFESpotLightElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"pointsAtX") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getPointsAtY ::
(MonadDOM m) => SVGFESpotLightElement -> m SVGAnimatedNumber
getPointsAtY :: forall (m :: * -> *).
MonadDOM m =>
SVGFESpotLightElement -> m SVGAnimatedNumber
getPointsAtY SVGFESpotLightElement
self
= DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFESpotLightElement
self SVGFESpotLightElement
-> Getting (JSM JSVal) SVGFESpotLightElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGFESpotLightElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"pointsAtY") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getPointsAtZ ::
(MonadDOM m) => SVGFESpotLightElement -> m SVGAnimatedNumber
getPointsAtZ :: forall (m :: * -> *).
MonadDOM m =>
SVGFESpotLightElement -> m SVGAnimatedNumber
getPointsAtZ SVGFESpotLightElement
self
= DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFESpotLightElement
self SVGFESpotLightElement
-> Getting (JSM JSVal) SVGFESpotLightElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGFESpotLightElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"pointsAtZ") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getSpecularExponent ::
(MonadDOM m) => SVGFESpotLightElement -> m SVGAnimatedNumber
getSpecularExponent :: forall (m :: * -> *).
MonadDOM m =>
SVGFESpotLightElement -> m SVGAnimatedNumber
getSpecularExponent SVGFESpotLightElement
self
= DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFESpotLightElement
self SVGFESpotLightElement
-> Getting (JSM JSVal) SVGFESpotLightElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGFESpotLightElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"specularExponent") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getLimitingConeAngle ::
(MonadDOM m) => SVGFESpotLightElement -> m SVGAnimatedNumber
getLimitingConeAngle :: forall (m :: * -> *).
MonadDOM m =>
SVGFESpotLightElement -> m SVGAnimatedNumber
getLimitingConeAngle SVGFESpotLightElement
self
= DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGFESpotLightElement
self SVGFESpotLightElement
-> Getting (JSM JSVal) SVGFESpotLightElement (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGFESpotLightElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"limitingConeAngle") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)