{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.SVGFETurbulenceElement (pattern SVG_TURBULENCE_TYPE_UNKNOWN, pattern SVG_TURBULENCE_TYPE_FRACTALNOISE, pattern SVG_TURBULENCE_TYPE_TURBULENCE, pattern SVG_STITCHTYPE_UNKNOWN, pattern SVG_STITCHTYPE_STITCH, pattern SVG_STITCHTYPE_NOSTITCH, getBaseFrequencyX, getBaseFrequencyY, getNumOctaves, getSeed, getStitchTiles, getType, SVGFETurbulenceElement, castToSVGFETurbulenceElement, gTypeSVGFETurbulenceElement) 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_TURBULENCE_TYPE_UNKNOWN = 0 pattern SVG_TURBULENCE_TYPE_FRACTALNOISE = 1 pattern SVG_TURBULENCE_TYPE_TURBULENCE = 2 pattern SVG_STITCHTYPE_UNKNOWN = 0 pattern SVG_STITCHTYPE_STITCH = 1 pattern SVG_STITCHTYPE_NOSTITCH = 2 -- | getBaseFrequencyX :: (MonadDOM m) => SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber) getBaseFrequencyX self = liftDOM ((self ^. js "baseFrequencyX") >>= fromJSVal) -- | getBaseFrequencyY :: (MonadDOM m) => SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber) getBaseFrequencyY self = liftDOM ((self ^. js "baseFrequencyY") >>= fromJSVal) -- | getNumOctaves :: (MonadDOM m) => SVGFETurbulenceElement -> m (Maybe SVGAnimatedInteger) getNumOctaves self = liftDOM ((self ^. js "numOctaves") >>= fromJSVal) -- | getSeed :: (MonadDOM m) => SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber) getSeed self = liftDOM ((self ^. js "seed") >>= fromJSVal) -- | getStitchTiles :: (MonadDOM m) => SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration) getStitchTiles self = liftDOM ((self ^. js "stitchTiles") >>= fromJSVal) -- | getType :: (MonadDOM m) => SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration) getType self = liftDOM ((self ^. js "type") >>= fromJSVal)