module JSDOM.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 JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.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)