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)