{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# 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)