{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
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(..), gTypeSVGFETurbulenceElement)
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
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 SVGAnimatedNumber
getBaseFrequencyX self
= liftDOM ((self ^. js "baseFrequencyX") >>= fromJSValUnchecked)
getBaseFrequencyY ::
(MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedNumber
getBaseFrequencyY self
= liftDOM ((self ^. js "baseFrequencyY") >>= fromJSValUnchecked)
getNumOctaves ::
(MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedInteger
getNumOctaves self
= liftDOM ((self ^. js "numOctaves") >>= fromJSValUnchecked)
getSeed ::
(MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedNumber
getSeed self = liftDOM ((self ^. js "seed") >>= fromJSValUnchecked)
getStitchTiles ::
(MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedEnumeration
getStitchTiles self
= liftDOM ((self ^. js "stitchTiles") >>= fromJSValUnchecked)
getType ::
(MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedEnumeration
getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)