{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.SVGComponentTransferFunctionElement (pattern SVG_FECOMPONENTTRANSFER_TYPE_UNKNOWN, pattern SVG_FECOMPONENTTRANSFER_TYPE_IDENTITY, pattern SVG_FECOMPONENTTRANSFER_TYPE_TABLE, pattern SVG_FECOMPONENTTRANSFER_TYPE_DISCRETE, pattern SVG_FECOMPONENTTRANSFER_TYPE_LINEAR, pattern SVG_FECOMPONENTTRANSFER_TYPE_GAMMA, getType, getTableValues, getSlope, getIntercept, getAmplitude, getExponent, getOffset, SVGComponentTransferFunctionElement, castToSVGComponentTransferFunctionElement, gTypeSVGComponentTransferFunctionElement, IsSVGComponentTransferFunctionElement, toSVGComponentTransferFunctionElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) import Data.Int (Int64) import Data.Word (Word, Word64) import Language.Javascript.JSaddle.DOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName) import Language.Javascript.JSaddle.DOM.Enums pattern SVG_FECOMPONENTTRANSFER_TYPE_UNKNOWN = 0 pattern SVG_FECOMPONENTTRANSFER_TYPE_IDENTITY = 1 pattern SVG_FECOMPONENTTRANSFER_TYPE_TABLE = 2 pattern SVG_FECOMPONENTTRANSFER_TYPE_DISCRETE = 3 pattern SVG_FECOMPONENTTRANSFER_TYPE_LINEAR = 4 pattern SVG_FECOMPONENTTRANSFER_TYPE_GAMMA = 5 -- | getType :: (MonadDOM m, IsSVGComponentTransferFunctionElement self) => self -> m (Maybe SVGAnimatedEnumeration) getType self = liftDOM (((toSVGComponentTransferFunctionElement self) ^. js "type") >>= fromJSVal) -- | getTableValues :: (MonadDOM m, IsSVGComponentTransferFunctionElement self) => self -> m (Maybe SVGAnimatedNumberList) getTableValues self = liftDOM (((toSVGComponentTransferFunctionElement self) ^. js "tableValues") >>= fromJSVal) -- | getSlope :: (MonadDOM m, IsSVGComponentTransferFunctionElement self) => self -> m (Maybe SVGAnimatedNumber) getSlope self = liftDOM (((toSVGComponentTransferFunctionElement self) ^. js "slope") >>= fromJSVal) -- | getIntercept :: (MonadDOM m, IsSVGComponentTransferFunctionElement self) => self -> m (Maybe SVGAnimatedNumber) getIntercept self = liftDOM (((toSVGComponentTransferFunctionElement self) ^. js "intercept") >>= fromJSVal) -- | getAmplitude :: (MonadDOM m, IsSVGComponentTransferFunctionElement self) => self -> m (Maybe SVGAnimatedNumber) getAmplitude self = liftDOM (((toSVGComponentTransferFunctionElement self) ^. js "amplitude") >>= fromJSVal) -- | getExponent :: (MonadDOM m, IsSVGComponentTransferFunctionElement self) => self -> m (Maybe SVGAnimatedNumber) getExponent self = liftDOM (((toSVGComponentTransferFunctionElement self) ^. js "exponent") >>= fromJSVal) -- | getOffset :: (MonadDOM m, IsSVGComponentTransferFunctionElement self) => self -> m (Maybe SVGAnimatedNumber) getOffset self = liftDOM (((toSVGComponentTransferFunctionElement self) ^. js "offset") >>= fromJSVal)