{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGPathElement (getTotalLength, getTotalLength_, getPointAtLength, getPointAtLength_, getPointAtLengthUnsafe, getPointAtLengthUnchecked, getPathSegAtLength, getPathSegAtLength_, createSVGPathSegClosePath, createSVGPathSegClosePath_, createSVGPathSegClosePathUnsafe, createSVGPathSegClosePathUnchecked, createSVGPathSegMovetoAbs, createSVGPathSegMovetoAbs_, createSVGPathSegMovetoAbsUnsafe, createSVGPathSegMovetoAbsUnchecked, createSVGPathSegMovetoRel, createSVGPathSegMovetoRel_, createSVGPathSegMovetoRelUnsafe, createSVGPathSegMovetoRelUnchecked, createSVGPathSegLinetoAbs, createSVGPathSegLinetoAbs_, createSVGPathSegLinetoAbsUnsafe, createSVGPathSegLinetoAbsUnchecked, createSVGPathSegLinetoRel, createSVGPathSegLinetoRel_, createSVGPathSegLinetoRelUnsafe, createSVGPathSegLinetoRelUnchecked, createSVGPathSegCurvetoCubicAbs, createSVGPathSegCurvetoCubicAbs_, createSVGPathSegCurvetoCubicAbsUnsafe, createSVGPathSegCurvetoCubicAbsUnchecked, createSVGPathSegCurvetoCubicRel, createSVGPathSegCurvetoCubicRel_, createSVGPathSegCurvetoCubicRelUnsafe, createSVGPathSegCurvetoCubicRelUnchecked, createSVGPathSegCurvetoQuadraticAbs, createSVGPathSegCurvetoQuadraticAbs_, createSVGPathSegCurvetoQuadraticAbsUnsafe, createSVGPathSegCurvetoQuadraticAbsUnchecked, createSVGPathSegCurvetoQuadraticRel, createSVGPathSegCurvetoQuadraticRel_, createSVGPathSegCurvetoQuadraticRelUnsafe, createSVGPathSegCurvetoQuadraticRelUnchecked, createSVGPathSegArcAbs, createSVGPathSegArcAbs_, createSVGPathSegArcAbsUnsafe, createSVGPathSegArcAbsUnchecked, createSVGPathSegArcRel, createSVGPathSegArcRel_, createSVGPathSegArcRelUnsafe, createSVGPathSegArcRelUnchecked, createSVGPathSegLinetoHorizontalAbs, createSVGPathSegLinetoHorizontalAbs_, createSVGPathSegLinetoHorizontalAbsUnsafe, createSVGPathSegLinetoHorizontalAbsUnchecked, createSVGPathSegLinetoHorizontalRel, createSVGPathSegLinetoHorizontalRel_, createSVGPathSegLinetoHorizontalRelUnsafe, createSVGPathSegLinetoHorizontalRelUnchecked, createSVGPathSegLinetoVerticalAbs, createSVGPathSegLinetoVerticalAbs_, createSVGPathSegLinetoVerticalAbsUnsafe, createSVGPathSegLinetoVerticalAbsUnchecked, createSVGPathSegLinetoVerticalRel, createSVGPathSegLinetoVerticalRel_, createSVGPathSegLinetoVerticalRelUnsafe, createSVGPathSegLinetoVerticalRelUnchecked, createSVGPathSegCurvetoCubicSmoothAbs, createSVGPathSegCurvetoCubicSmoothAbs_, createSVGPathSegCurvetoCubicSmoothAbsUnsafe, createSVGPathSegCurvetoCubicSmoothAbsUnchecked, createSVGPathSegCurvetoCubicSmoothRel, createSVGPathSegCurvetoCubicSmoothRel_, createSVGPathSegCurvetoCubicSmoothRelUnsafe, createSVGPathSegCurvetoCubicSmoothRelUnchecked, createSVGPathSegCurvetoQuadraticSmoothAbs, createSVGPathSegCurvetoQuadraticSmoothAbs_, createSVGPathSegCurvetoQuadraticSmoothAbsUnsafe, createSVGPathSegCurvetoQuadraticSmoothAbsUnchecked, createSVGPathSegCurvetoQuadraticSmoothRel, createSVGPathSegCurvetoQuadraticSmoothRel_, createSVGPathSegCurvetoQuadraticSmoothRelUnsafe, createSVGPathSegCurvetoQuadraticSmoothRelUnchecked, getPathLength, getPathLengthUnsafe, getPathLengthUnchecked, getPathSegList, getPathSegListUnsafe, getPathSegListUnchecked, getNormalizedPathSegList, getNormalizedPathSegListUnsafe, getNormalizedPathSegListUnchecked, getAnimatedPathSegList, getAnimatedPathSegListUnsafe, getAnimatedPathSegListUnchecked, getAnimatedNormalizedPathSegList, getAnimatedNormalizedPathSegListUnsafe, getAnimatedNormalizedPathSegListUnchecked, SVGPathElement(..), gTypeSVGPathElement) 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 -- | getTotalLength :: (MonadDOM m) => SVGPathElement -> m Float getTotalLength self = liftDOM (realToFrac <$> ((self ^. jsf "getTotalLength" ()) >>= valToNumber)) -- | getTotalLength_ :: (MonadDOM m) => SVGPathElement -> m () getTotalLength_ self = liftDOM (void (self ^. jsf "getTotalLength" ())) -- | getPointAtLength :: (MonadDOM m) => SVGPathElement -> Float -> m (Maybe SVGPoint) getPointAtLength self distance = liftDOM ((self ^. jsf "getPointAtLength" [toJSVal distance]) >>= fromJSVal) -- | getPointAtLength_ :: (MonadDOM m) => SVGPathElement -> Float -> m () getPointAtLength_ self distance = liftDOM (void (self ^. jsf "getPointAtLength" [toJSVal distance])) -- | getPointAtLengthUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> m SVGPoint getPointAtLengthUnsafe self distance = liftDOM (((self ^. jsf "getPointAtLength" [toJSVal distance]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getPointAtLengthUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> m SVGPoint getPointAtLengthUnchecked self distance = liftDOM ((self ^. jsf "getPointAtLength" [toJSVal distance]) >>= fromJSValUnchecked) -- | getPathSegAtLength :: (MonadDOM m) => SVGPathElement -> Float -> m Word getPathSegAtLength self distance = liftDOM (round <$> ((self ^. jsf "getPathSegAtLength" [toJSVal distance]) >>= valToNumber)) -- | getPathSegAtLength_ :: (MonadDOM m) => SVGPathElement -> Float -> m () getPathSegAtLength_ self distance = liftDOM (void (self ^. jsf "getPathSegAtLength" [toJSVal distance])) -- | createSVGPathSegClosePath :: (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegClosePath) createSVGPathSegClosePath self = liftDOM ((self ^. jsf "createSVGPathSegClosePath" ()) >>= fromJSVal) -- | createSVGPathSegClosePath_ :: (MonadDOM m) => SVGPathElement -> m () createSVGPathSegClosePath_ self = liftDOM (void (self ^. jsf "createSVGPathSegClosePath" ())) -- | createSVGPathSegClosePathUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> m SVGPathSegClosePath createSVGPathSegClosePathUnsafe self = liftDOM (((self ^. jsf "createSVGPathSegClosePath" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegClosePathUnchecked :: (MonadDOM m) => SVGPathElement -> m SVGPathSegClosePath createSVGPathSegClosePathUnchecked self = liftDOM ((self ^. jsf "createSVGPathSegClosePath" ()) >>= fromJSValUnchecked) -- | createSVGPathSegMovetoAbs :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegMovetoAbs) createSVGPathSegMovetoAbs self x y = liftDOM ((self ^. jsf "createSVGPathSegMovetoAbs" [toJSVal x, toJSVal y]) >>= fromJSVal) -- | createSVGPathSegMovetoAbs_ :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m () createSVGPathSegMovetoAbs_ self x y = liftDOM (void (self ^. jsf "createSVGPathSegMovetoAbs" [toJSVal x, toJSVal y])) -- | createSVGPathSegMovetoAbsUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> Float -> m SVGPathSegMovetoAbs createSVGPathSegMovetoAbsUnsafe self x y = liftDOM (((self ^. jsf "createSVGPathSegMovetoAbs" [toJSVal x, toJSVal y]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegMovetoAbsUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m SVGPathSegMovetoAbs createSVGPathSegMovetoAbsUnchecked self x y = liftDOM ((self ^. jsf "createSVGPathSegMovetoAbs" [toJSVal x, toJSVal y]) >>= fromJSValUnchecked) -- | createSVGPathSegMovetoRel :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegMovetoRel) createSVGPathSegMovetoRel self x y = liftDOM ((self ^. jsf "createSVGPathSegMovetoRel" [toJSVal x, toJSVal y]) >>= fromJSVal) -- | createSVGPathSegMovetoRel_ :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m () createSVGPathSegMovetoRel_ self x y = liftDOM (void (self ^. jsf "createSVGPathSegMovetoRel" [toJSVal x, toJSVal y])) -- | createSVGPathSegMovetoRelUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> Float -> m SVGPathSegMovetoRel createSVGPathSegMovetoRelUnsafe self x y = liftDOM (((self ^. jsf "createSVGPathSegMovetoRel" [toJSVal x, toJSVal y]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegMovetoRelUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m SVGPathSegMovetoRel createSVGPathSegMovetoRelUnchecked self x y = liftDOM ((self ^. jsf "createSVGPathSegMovetoRel" [toJSVal x, toJSVal y]) >>= fromJSValUnchecked) -- | createSVGPathSegLinetoAbs :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegLinetoAbs) createSVGPathSegLinetoAbs self x y = liftDOM ((self ^. jsf "createSVGPathSegLinetoAbs" [toJSVal x, toJSVal y]) >>= fromJSVal) -- | createSVGPathSegLinetoAbs_ :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m () createSVGPathSegLinetoAbs_ self x y = liftDOM (void (self ^. jsf "createSVGPathSegLinetoAbs" [toJSVal x, toJSVal y])) -- | createSVGPathSegLinetoAbsUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> Float -> m SVGPathSegLinetoAbs createSVGPathSegLinetoAbsUnsafe self x y = liftDOM (((self ^. jsf "createSVGPathSegLinetoAbs" [toJSVal x, toJSVal y]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegLinetoAbsUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m SVGPathSegLinetoAbs createSVGPathSegLinetoAbsUnchecked self x y = liftDOM ((self ^. jsf "createSVGPathSegLinetoAbs" [toJSVal x, toJSVal y]) >>= fromJSValUnchecked) -- | createSVGPathSegLinetoRel :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegLinetoRel) createSVGPathSegLinetoRel self x y = liftDOM ((self ^. jsf "createSVGPathSegLinetoRel" [toJSVal x, toJSVal y]) >>= fromJSVal) -- | createSVGPathSegLinetoRel_ :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m () createSVGPathSegLinetoRel_ self x y = liftDOM (void (self ^. jsf "createSVGPathSegLinetoRel" [toJSVal x, toJSVal y])) -- | createSVGPathSegLinetoRelUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> Float -> m SVGPathSegLinetoRel createSVGPathSegLinetoRelUnsafe self x y = liftDOM (((self ^. jsf "createSVGPathSegLinetoRel" [toJSVal x, toJSVal y]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegLinetoRelUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m SVGPathSegLinetoRel createSVGPathSegLinetoRelUnchecked self x y = liftDOM ((self ^. jsf "createSVGPathSegLinetoRel" [toJSVal x, toJSVal y]) >>= fromJSValUnchecked) -- | createSVGPathSegCurvetoCubicAbs :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> Float -> Float -> m (Maybe SVGPathSegCurvetoCubicAbs) createSVGPathSegCurvetoCubicAbs self x y x1 y1 x2 y2 = liftDOM ((self ^. jsf "createSVGPathSegCurvetoCubicAbs" [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1, toJSVal x2, toJSVal y2]) >>= fromJSVal) -- | createSVGPathSegCurvetoCubicAbs_ :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> Float -> Float -> m () createSVGPathSegCurvetoCubicAbs_ self x y x1 y1 x2 y2 = liftDOM (void (self ^. jsf "createSVGPathSegCurvetoCubicAbs" [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1, toJSVal x2, toJSVal y2])) -- | createSVGPathSegCurvetoCubicAbsUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> Float -> Float -> Float -> Float -> Float -> m SVGPathSegCurvetoCubicAbs createSVGPathSegCurvetoCubicAbsUnsafe self x y x1 y1 x2 y2 = liftDOM (((self ^. jsf "createSVGPathSegCurvetoCubicAbs" [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1, toJSVal x2, toJSVal y2]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegCurvetoCubicAbsUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> Float -> Float -> m SVGPathSegCurvetoCubicAbs createSVGPathSegCurvetoCubicAbsUnchecked self x y x1 y1 x2 y2 = liftDOM ((self ^. jsf "createSVGPathSegCurvetoCubicAbs" [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1, toJSVal x2, toJSVal y2]) >>= fromJSValUnchecked) -- | createSVGPathSegCurvetoCubicRel :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> Float -> Float -> m (Maybe SVGPathSegCurvetoCubicRel) createSVGPathSegCurvetoCubicRel self x y x1 y1 x2 y2 = liftDOM ((self ^. jsf "createSVGPathSegCurvetoCubicRel" [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1, toJSVal x2, toJSVal y2]) >>= fromJSVal) -- | createSVGPathSegCurvetoCubicRel_ :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> Float -> Float -> m () createSVGPathSegCurvetoCubicRel_ self x y x1 y1 x2 y2 = liftDOM (void (self ^. jsf "createSVGPathSegCurvetoCubicRel" [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1, toJSVal x2, toJSVal y2])) -- | createSVGPathSegCurvetoCubicRelUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> Float -> Float -> Float -> Float -> Float -> m SVGPathSegCurvetoCubicRel createSVGPathSegCurvetoCubicRelUnsafe self x y x1 y1 x2 y2 = liftDOM (((self ^. jsf "createSVGPathSegCurvetoCubicRel" [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1, toJSVal x2, toJSVal y2]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegCurvetoCubicRelUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> Float -> Float -> m SVGPathSegCurvetoCubicRel createSVGPathSegCurvetoCubicRelUnchecked self x y x1 y1 x2 y2 = liftDOM ((self ^. jsf "createSVGPathSegCurvetoCubicRel" [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1, toJSVal x2, toJSVal y2]) >>= fromJSValUnchecked) -- | createSVGPathSegCurvetoQuadraticAbs :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> m (Maybe SVGPathSegCurvetoQuadraticAbs) createSVGPathSegCurvetoQuadraticAbs self x y x1 y1 = liftDOM ((self ^. jsf "createSVGPathSegCurvetoQuadraticAbs" [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1]) >>= fromJSVal) -- | createSVGPathSegCurvetoQuadraticAbs_ :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> m () createSVGPathSegCurvetoQuadraticAbs_ self x y x1 y1 = liftDOM (void (self ^. jsf "createSVGPathSegCurvetoQuadraticAbs" [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1])) -- | createSVGPathSegCurvetoQuadraticAbsUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> Float -> Float -> Float -> m SVGPathSegCurvetoQuadraticAbs createSVGPathSegCurvetoQuadraticAbsUnsafe self x y x1 y1 = liftDOM (((self ^. jsf "createSVGPathSegCurvetoQuadraticAbs" [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegCurvetoQuadraticAbsUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> m SVGPathSegCurvetoQuadraticAbs createSVGPathSegCurvetoQuadraticAbsUnchecked self x y x1 y1 = liftDOM ((self ^. jsf "createSVGPathSegCurvetoQuadraticAbs" [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1]) >>= fromJSValUnchecked) -- | createSVGPathSegCurvetoQuadraticRel :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> m (Maybe SVGPathSegCurvetoQuadraticRel) createSVGPathSegCurvetoQuadraticRel self x y x1 y1 = liftDOM ((self ^. jsf "createSVGPathSegCurvetoQuadraticRel" [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1]) >>= fromJSVal) -- | createSVGPathSegCurvetoQuadraticRel_ :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> m () createSVGPathSegCurvetoQuadraticRel_ self x y x1 y1 = liftDOM (void (self ^. jsf "createSVGPathSegCurvetoQuadraticRel" [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1])) -- | createSVGPathSegCurvetoQuadraticRelUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> Float -> Float -> Float -> m SVGPathSegCurvetoQuadraticRel createSVGPathSegCurvetoQuadraticRelUnsafe self x y x1 y1 = liftDOM (((self ^. jsf "createSVGPathSegCurvetoQuadraticRel" [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegCurvetoQuadraticRelUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> m SVGPathSegCurvetoQuadraticRel createSVGPathSegCurvetoQuadraticRelUnchecked self x y x1 y1 = liftDOM ((self ^. jsf "createSVGPathSegCurvetoQuadraticRel" [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1]) >>= fromJSValUnchecked) -- | createSVGPathSegArcAbs :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> Float -> Bool -> Bool -> m (Maybe SVGPathSegArcAbs) createSVGPathSegArcAbs self x y r1 r2 angle largeArcFlag sweepFlag = liftDOM ((self ^. jsf "createSVGPathSegArcAbs" [toJSVal x, toJSVal y, toJSVal r1, toJSVal r2, toJSVal angle, toJSVal largeArcFlag, toJSVal sweepFlag]) >>= fromJSVal) -- | createSVGPathSegArcAbs_ :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> Float -> Bool -> Bool -> m () createSVGPathSegArcAbs_ self x y r1 r2 angle largeArcFlag sweepFlag = liftDOM (void (self ^. jsf "createSVGPathSegArcAbs" [toJSVal x, toJSVal y, toJSVal r1, toJSVal r2, toJSVal angle, toJSVal largeArcFlag, toJSVal sweepFlag])) -- | createSVGPathSegArcAbsUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> Float -> Float -> Float -> Float -> Bool -> Bool -> m SVGPathSegArcAbs createSVGPathSegArcAbsUnsafe self x y r1 r2 angle largeArcFlag sweepFlag = liftDOM (((self ^. jsf "createSVGPathSegArcAbs" [toJSVal x, toJSVal y, toJSVal r1, toJSVal r2, toJSVal angle, toJSVal largeArcFlag, toJSVal sweepFlag]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegArcAbsUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> Float -> Bool -> Bool -> m SVGPathSegArcAbs createSVGPathSegArcAbsUnchecked self x y r1 r2 angle largeArcFlag sweepFlag = liftDOM ((self ^. jsf "createSVGPathSegArcAbs" [toJSVal x, toJSVal y, toJSVal r1, toJSVal r2, toJSVal angle, toJSVal largeArcFlag, toJSVal sweepFlag]) >>= fromJSValUnchecked) -- | createSVGPathSegArcRel :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> Float -> Bool -> Bool -> m (Maybe SVGPathSegArcRel) createSVGPathSegArcRel self x y r1 r2 angle largeArcFlag sweepFlag = liftDOM ((self ^. jsf "createSVGPathSegArcRel" [toJSVal x, toJSVal y, toJSVal r1, toJSVal r2, toJSVal angle, toJSVal largeArcFlag, toJSVal sweepFlag]) >>= fromJSVal) -- | createSVGPathSegArcRel_ :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> Float -> Bool -> Bool -> m () createSVGPathSegArcRel_ self x y r1 r2 angle largeArcFlag sweepFlag = liftDOM (void (self ^. jsf "createSVGPathSegArcRel" [toJSVal x, toJSVal y, toJSVal r1, toJSVal r2, toJSVal angle, toJSVal largeArcFlag, toJSVal sweepFlag])) -- | createSVGPathSegArcRelUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> Float -> Float -> Float -> Float -> Bool -> Bool -> m SVGPathSegArcRel createSVGPathSegArcRelUnsafe self x y r1 r2 angle largeArcFlag sweepFlag = liftDOM (((self ^. jsf "createSVGPathSegArcRel" [toJSVal x, toJSVal y, toJSVal r1, toJSVal r2, toJSVal angle, toJSVal largeArcFlag, toJSVal sweepFlag]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegArcRelUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> Float -> Bool -> Bool -> m SVGPathSegArcRel createSVGPathSegArcRelUnchecked self x y r1 r2 angle largeArcFlag sweepFlag = liftDOM ((self ^. jsf "createSVGPathSegArcRel" [toJSVal x, toJSVal y, toJSVal r1, toJSVal r2, toJSVal angle, toJSVal largeArcFlag, toJSVal sweepFlag]) >>= fromJSValUnchecked) -- | createSVGPathSegLinetoHorizontalAbs :: (MonadDOM m) => SVGPathElement -> Float -> m (Maybe SVGPathSegLinetoHorizontalAbs) createSVGPathSegLinetoHorizontalAbs self x = liftDOM ((self ^. jsf "createSVGPathSegLinetoHorizontalAbs" [toJSVal x]) >>= fromJSVal) -- | createSVGPathSegLinetoHorizontalAbs_ :: (MonadDOM m) => SVGPathElement -> Float -> m () createSVGPathSegLinetoHorizontalAbs_ self x = liftDOM (void (self ^. jsf "createSVGPathSegLinetoHorizontalAbs" [toJSVal x])) -- | createSVGPathSegLinetoHorizontalAbsUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> m SVGPathSegLinetoHorizontalAbs createSVGPathSegLinetoHorizontalAbsUnsafe self x = liftDOM (((self ^. jsf "createSVGPathSegLinetoHorizontalAbs" [toJSVal x]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegLinetoHorizontalAbsUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> m SVGPathSegLinetoHorizontalAbs createSVGPathSegLinetoHorizontalAbsUnchecked self x = liftDOM ((self ^. jsf "createSVGPathSegLinetoHorizontalAbs" [toJSVal x]) >>= fromJSValUnchecked) -- | createSVGPathSegLinetoHorizontalRel :: (MonadDOM m) => SVGPathElement -> Float -> m (Maybe SVGPathSegLinetoHorizontalRel) createSVGPathSegLinetoHorizontalRel self x = liftDOM ((self ^. jsf "createSVGPathSegLinetoHorizontalRel" [toJSVal x]) >>= fromJSVal) -- | createSVGPathSegLinetoHorizontalRel_ :: (MonadDOM m) => SVGPathElement -> Float -> m () createSVGPathSegLinetoHorizontalRel_ self x = liftDOM (void (self ^. jsf "createSVGPathSegLinetoHorizontalRel" [toJSVal x])) -- | createSVGPathSegLinetoHorizontalRelUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> m SVGPathSegLinetoHorizontalRel createSVGPathSegLinetoHorizontalRelUnsafe self x = liftDOM (((self ^. jsf "createSVGPathSegLinetoHorizontalRel" [toJSVal x]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegLinetoHorizontalRelUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> m SVGPathSegLinetoHorizontalRel createSVGPathSegLinetoHorizontalRelUnchecked self x = liftDOM ((self ^. jsf "createSVGPathSegLinetoHorizontalRel" [toJSVal x]) >>= fromJSValUnchecked) -- | createSVGPathSegLinetoVerticalAbs :: (MonadDOM m) => SVGPathElement -> Float -> m (Maybe SVGPathSegLinetoVerticalAbs) createSVGPathSegLinetoVerticalAbs self y = liftDOM ((self ^. jsf "createSVGPathSegLinetoVerticalAbs" [toJSVal y]) >>= fromJSVal) -- | createSVGPathSegLinetoVerticalAbs_ :: (MonadDOM m) => SVGPathElement -> Float -> m () createSVGPathSegLinetoVerticalAbs_ self y = liftDOM (void (self ^. jsf "createSVGPathSegLinetoVerticalAbs" [toJSVal y])) -- | createSVGPathSegLinetoVerticalAbsUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> m SVGPathSegLinetoVerticalAbs createSVGPathSegLinetoVerticalAbsUnsafe self y = liftDOM (((self ^. jsf "createSVGPathSegLinetoVerticalAbs" [toJSVal y]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegLinetoVerticalAbsUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> m SVGPathSegLinetoVerticalAbs createSVGPathSegLinetoVerticalAbsUnchecked self y = liftDOM ((self ^. jsf "createSVGPathSegLinetoVerticalAbs" [toJSVal y]) >>= fromJSValUnchecked) -- | createSVGPathSegLinetoVerticalRel :: (MonadDOM m) => SVGPathElement -> Float -> m (Maybe SVGPathSegLinetoVerticalRel) createSVGPathSegLinetoVerticalRel self y = liftDOM ((self ^. jsf "createSVGPathSegLinetoVerticalRel" [toJSVal y]) >>= fromJSVal) -- | createSVGPathSegLinetoVerticalRel_ :: (MonadDOM m) => SVGPathElement -> Float -> m () createSVGPathSegLinetoVerticalRel_ self y = liftDOM (void (self ^. jsf "createSVGPathSegLinetoVerticalRel" [toJSVal y])) -- | createSVGPathSegLinetoVerticalRelUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> m SVGPathSegLinetoVerticalRel createSVGPathSegLinetoVerticalRelUnsafe self y = liftDOM (((self ^. jsf "createSVGPathSegLinetoVerticalRel" [toJSVal y]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegLinetoVerticalRelUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> m SVGPathSegLinetoVerticalRel createSVGPathSegLinetoVerticalRelUnchecked self y = liftDOM ((self ^. jsf "createSVGPathSegLinetoVerticalRel" [toJSVal y]) >>= fromJSValUnchecked) -- | createSVGPathSegCurvetoCubicSmoothAbs :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> m (Maybe SVGPathSegCurvetoCubicSmoothAbs) createSVGPathSegCurvetoCubicSmoothAbs self x y x2 y2 = liftDOM ((self ^. jsf "createSVGPathSegCurvetoCubicSmoothAbs" [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2]) >>= fromJSVal) -- | createSVGPathSegCurvetoCubicSmoothAbs_ :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> m () createSVGPathSegCurvetoCubicSmoothAbs_ self x y x2 y2 = liftDOM (void (self ^. jsf "createSVGPathSegCurvetoCubicSmoothAbs" [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2])) -- | createSVGPathSegCurvetoCubicSmoothAbsUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> Float -> Float -> Float -> m SVGPathSegCurvetoCubicSmoothAbs createSVGPathSegCurvetoCubicSmoothAbsUnsafe self x y x2 y2 = liftDOM (((self ^. jsf "createSVGPathSegCurvetoCubicSmoothAbs" [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegCurvetoCubicSmoothAbsUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> m SVGPathSegCurvetoCubicSmoothAbs createSVGPathSegCurvetoCubicSmoothAbsUnchecked self x y x2 y2 = liftDOM ((self ^. jsf "createSVGPathSegCurvetoCubicSmoothAbs" [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2]) >>= fromJSValUnchecked) -- | createSVGPathSegCurvetoCubicSmoothRel :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> m (Maybe SVGPathSegCurvetoCubicSmoothRel) createSVGPathSegCurvetoCubicSmoothRel self x y x2 y2 = liftDOM ((self ^. jsf "createSVGPathSegCurvetoCubicSmoothRel" [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2]) >>= fromJSVal) -- | createSVGPathSegCurvetoCubicSmoothRel_ :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> m () createSVGPathSegCurvetoCubicSmoothRel_ self x y x2 y2 = liftDOM (void (self ^. jsf "createSVGPathSegCurvetoCubicSmoothRel" [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2])) -- | createSVGPathSegCurvetoCubicSmoothRelUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> Float -> Float -> Float -> m SVGPathSegCurvetoCubicSmoothRel createSVGPathSegCurvetoCubicSmoothRelUnsafe self x y x2 y2 = liftDOM (((self ^. jsf "createSVGPathSegCurvetoCubicSmoothRel" [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegCurvetoCubicSmoothRelUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> Float -> Float -> Float -> m SVGPathSegCurvetoCubicSmoothRel createSVGPathSegCurvetoCubicSmoothRelUnchecked self x y x2 y2 = liftDOM ((self ^. jsf "createSVGPathSegCurvetoCubicSmoothRel" [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2]) >>= fromJSValUnchecked) -- | createSVGPathSegCurvetoQuadraticSmoothAbs :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegCurvetoQuadraticSmoothAbs) createSVGPathSegCurvetoQuadraticSmoothAbs self x y = liftDOM ((self ^. jsf "createSVGPathSegCurvetoQuadraticSmoothAbs" [toJSVal x, toJSVal y]) >>= fromJSVal) -- | createSVGPathSegCurvetoQuadraticSmoothAbs_ :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m () createSVGPathSegCurvetoQuadraticSmoothAbs_ self x y = liftDOM (void (self ^. jsf "createSVGPathSegCurvetoQuadraticSmoothAbs" [toJSVal x, toJSVal y])) -- | createSVGPathSegCurvetoQuadraticSmoothAbsUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> Float -> m SVGPathSegCurvetoQuadraticSmoothAbs createSVGPathSegCurvetoQuadraticSmoothAbsUnsafe self x y = liftDOM (((self ^. jsf "createSVGPathSegCurvetoQuadraticSmoothAbs" [toJSVal x, toJSVal y]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegCurvetoQuadraticSmoothAbsUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m SVGPathSegCurvetoQuadraticSmoothAbs createSVGPathSegCurvetoQuadraticSmoothAbsUnchecked self x y = liftDOM ((self ^. jsf "createSVGPathSegCurvetoQuadraticSmoothAbs" [toJSVal x, toJSVal y]) >>= fromJSValUnchecked) -- | createSVGPathSegCurvetoQuadraticSmoothRel :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegCurvetoQuadraticSmoothRel) createSVGPathSegCurvetoQuadraticSmoothRel self x y = liftDOM ((self ^. jsf "createSVGPathSegCurvetoQuadraticSmoothRel" [toJSVal x, toJSVal y]) >>= fromJSVal) -- | createSVGPathSegCurvetoQuadraticSmoothRel_ :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m () createSVGPathSegCurvetoQuadraticSmoothRel_ self x y = liftDOM (void (self ^. jsf "createSVGPathSegCurvetoQuadraticSmoothRel" [toJSVal x, toJSVal y])) -- | createSVGPathSegCurvetoQuadraticSmoothRelUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> Float -> Float -> m SVGPathSegCurvetoQuadraticSmoothRel createSVGPathSegCurvetoQuadraticSmoothRelUnsafe self x y = liftDOM (((self ^. jsf "createSVGPathSegCurvetoQuadraticSmoothRel" [toJSVal x, toJSVal y]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPathSegCurvetoQuadraticSmoothRelUnchecked :: (MonadDOM m) => SVGPathElement -> Float -> Float -> m SVGPathSegCurvetoQuadraticSmoothRel createSVGPathSegCurvetoQuadraticSmoothRelUnchecked self x y = liftDOM ((self ^. jsf "createSVGPathSegCurvetoQuadraticSmoothRel" [toJSVal x, toJSVal y]) >>= fromJSValUnchecked) -- | getPathLength :: (MonadDOM m) => SVGPathElement -> m (Maybe SVGAnimatedNumber) getPathLength self = liftDOM ((self ^. js "pathLength") >>= fromJSVal) -- | getPathLengthUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> m SVGAnimatedNumber getPathLengthUnsafe self = liftDOM (((self ^. js "pathLength") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getPathLengthUnchecked :: (MonadDOM m) => SVGPathElement -> m SVGAnimatedNumber getPathLengthUnchecked self = liftDOM ((self ^. js "pathLength") >>= fromJSValUnchecked) -- | getPathSegList :: (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegList) getPathSegList self = liftDOM ((self ^. js "pathSegList") >>= fromJSVal) -- | getPathSegListUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> m SVGPathSegList getPathSegListUnsafe self = liftDOM (((self ^. js "pathSegList") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getPathSegListUnchecked :: (MonadDOM m) => SVGPathElement -> m SVGPathSegList getPathSegListUnchecked self = liftDOM ((self ^. js "pathSegList") >>= fromJSValUnchecked) -- | getNormalizedPathSegList :: (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegList) getNormalizedPathSegList self = liftDOM ((self ^. js "normalizedPathSegList") >>= fromJSVal) -- | getNormalizedPathSegListUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> m SVGPathSegList getNormalizedPathSegListUnsafe self = liftDOM (((self ^. js "normalizedPathSegList") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getNormalizedPathSegListUnchecked :: (MonadDOM m) => SVGPathElement -> m SVGPathSegList getNormalizedPathSegListUnchecked self = liftDOM ((self ^. js "normalizedPathSegList") >>= fromJSValUnchecked) -- | getAnimatedPathSegList :: (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegList) getAnimatedPathSegList self = liftDOM ((self ^. js "animatedPathSegList") >>= fromJSVal) -- | getAnimatedPathSegListUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> m SVGPathSegList getAnimatedPathSegListUnsafe self = liftDOM (((self ^. js "animatedPathSegList") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getAnimatedPathSegListUnchecked :: (MonadDOM m) => SVGPathElement -> m SVGPathSegList getAnimatedPathSegListUnchecked self = liftDOM ((self ^. js "animatedPathSegList") >>= fromJSValUnchecked) -- | getAnimatedNormalizedPathSegList :: (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegList) getAnimatedNormalizedPathSegList self = liftDOM ((self ^. js "animatedNormalizedPathSegList") >>= fromJSVal) -- | getAnimatedNormalizedPathSegListUnsafe :: (MonadDOM m, HasCallStack) => SVGPathElement -> m SVGPathSegList getAnimatedNormalizedPathSegListUnsafe self = liftDOM (((self ^. js "animatedNormalizedPathSegList") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getAnimatedNormalizedPathSegListUnchecked :: (MonadDOM m) => SVGPathElement -> m SVGPathSegList getAnimatedNormalizedPathSegListUnchecked self = liftDOM ((self ^. js "animatedNormalizedPathSegList") >>= fromJSValUnchecked)