{-# 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, getBaseFrequencyXUnsafe, getBaseFrequencyXUnchecked, getBaseFrequencyY, getBaseFrequencyYUnsafe, getBaseFrequencyYUnchecked, getNumOctaves, getNumOctavesUnsafe, getNumOctavesUnchecked, getSeed, getSeedUnsafe, getSeedUnchecked, getStitchTiles, getStitchTilesUnsafe, getStitchTilesUnchecked, getType, getTypeUnsafe, getTypeUnchecked, 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 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) -- | getBaseFrequencyXUnsafe :: (MonadDOM m, HasCallStack) => SVGFETurbulenceElement -> m SVGAnimatedNumber getBaseFrequencyXUnsafe self = liftDOM (((self ^. js "baseFrequencyX") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getBaseFrequencyXUnchecked :: (MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedNumber getBaseFrequencyXUnchecked self = liftDOM ((self ^. js "baseFrequencyX") >>= fromJSValUnchecked) -- | getBaseFrequencyY :: (MonadDOM m) => SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber) getBaseFrequencyY self = liftDOM ((self ^. js "baseFrequencyY") >>= fromJSVal) -- | getBaseFrequencyYUnsafe :: (MonadDOM m, HasCallStack) => SVGFETurbulenceElement -> m SVGAnimatedNumber getBaseFrequencyYUnsafe self = liftDOM (((self ^. js "baseFrequencyY") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getBaseFrequencyYUnchecked :: (MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedNumber getBaseFrequencyYUnchecked self = liftDOM ((self ^. js "baseFrequencyY") >>= fromJSValUnchecked) -- | getNumOctaves :: (MonadDOM m) => SVGFETurbulenceElement -> m (Maybe SVGAnimatedInteger) getNumOctaves self = liftDOM ((self ^. js "numOctaves") >>= fromJSVal) -- | getNumOctavesUnsafe :: (MonadDOM m, HasCallStack) => SVGFETurbulenceElement -> m SVGAnimatedInteger getNumOctavesUnsafe self = liftDOM (((self ^. js "numOctaves") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getNumOctavesUnchecked :: (MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedInteger getNumOctavesUnchecked self = liftDOM ((self ^. js "numOctaves") >>= fromJSValUnchecked) -- | getSeed :: (MonadDOM m) => SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber) getSeed self = liftDOM ((self ^. js "seed") >>= fromJSVal) -- | getSeedUnsafe :: (MonadDOM m, HasCallStack) => SVGFETurbulenceElement -> m SVGAnimatedNumber getSeedUnsafe self = liftDOM (((self ^. js "seed") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getSeedUnchecked :: (MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedNumber getSeedUnchecked self = liftDOM ((self ^. js "seed") >>= fromJSValUnchecked) -- | getStitchTiles :: (MonadDOM m) => SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration) getStitchTiles self = liftDOM ((self ^. js "stitchTiles") >>= fromJSVal) -- | getStitchTilesUnsafe :: (MonadDOM m, HasCallStack) => SVGFETurbulenceElement -> m SVGAnimatedEnumeration getStitchTilesUnsafe self = liftDOM (((self ^. js "stitchTiles") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getStitchTilesUnchecked :: (MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedEnumeration getStitchTilesUnchecked self = liftDOM ((self ^. js "stitchTiles") >>= fromJSValUnchecked) -- | getType :: (MonadDOM m) => SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration) getType self = liftDOM ((self ^. js "type") >>= fromJSVal) -- | getTypeUnsafe :: (MonadDOM m, HasCallStack) => SVGFETurbulenceElement -> m SVGAnimatedEnumeration getTypeUnsafe self = liftDOM (((self ^. js "type") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getTypeUnchecked :: (MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedEnumeration getTypeUnchecked self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked)