{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.SVGPathElement
(getTotalLength, getTotalLength_, getPointAtLength,
getPointAtLength_, getPathSegAtLength, getPathSegAtLength_,
createSVGPathSegClosePath, createSVGPathSegClosePath_,
createSVGPathSegMovetoAbs, createSVGPathSegMovetoAbs_,
createSVGPathSegMovetoRel, createSVGPathSegMovetoRel_,
createSVGPathSegLinetoAbs, createSVGPathSegLinetoAbs_,
createSVGPathSegLinetoRel, createSVGPathSegLinetoRel_,
createSVGPathSegCurvetoCubicAbs, createSVGPathSegCurvetoCubicAbs_,
createSVGPathSegCurvetoCubicRel, createSVGPathSegCurvetoCubicRel_,
createSVGPathSegCurvetoQuadraticAbs,
createSVGPathSegCurvetoQuadraticAbs_,
createSVGPathSegCurvetoQuadraticRel,
createSVGPathSegCurvetoQuadraticRel_, createSVGPathSegArcAbs,
createSVGPathSegArcAbs_, createSVGPathSegArcRel,
createSVGPathSegArcRel_, createSVGPathSegLinetoHorizontalAbs,
createSVGPathSegLinetoHorizontalAbs_,
createSVGPathSegLinetoHorizontalRel,
createSVGPathSegLinetoHorizontalRel_,
createSVGPathSegLinetoVerticalAbs,
createSVGPathSegLinetoVerticalAbs_,
createSVGPathSegLinetoVerticalRel,
createSVGPathSegLinetoVerticalRel_,
createSVGPathSegCurvetoCubicSmoothAbs,
createSVGPathSegCurvetoCubicSmoothAbs_,
createSVGPathSegCurvetoCubicSmoothRel,
createSVGPathSegCurvetoCubicSmoothRel_,
createSVGPathSegCurvetoQuadraticSmoothAbs,
createSVGPathSegCurvetoQuadraticSmoothAbs_,
createSVGPathSegCurvetoQuadraticSmoothRel,
createSVGPathSegCurvetoQuadraticSmoothRel_, getPathLength,
getPathSegList, getNormalizedPathSegList, getAnimatedPathSegList,
getAnimatedNormalizedPathSegList, 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 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
getTotalLength :: (MonadDOM m) => SVGPathElement -> m Float
getTotalLength :: SVGPathElement -> m Float
getTotalLength SVGPathElement
self
= DOM Float -> m Float
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac (Double -> Float) -> JSM Double -> DOM Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getTotalLength" ()) JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getTotalLength_ :: (MonadDOM m) => SVGPathElement -> m ()
getTotalLength_ :: SVGPathElement -> m ()
getTotalLength_ SVGPathElement
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getTotalLength" ()))
getPointAtLength ::
(MonadDOM m) => SVGPathElement -> Maybe Float -> m SVGPoint
getPointAtLength :: SVGPathElement -> Maybe Float -> m SVGPoint
getPointAtLength SVGPathElement
self Maybe Float
distance
= DOM SVGPoint -> m SVGPoint
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getPointAtLength" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
distance]) JSM JSVal -> (JSVal -> DOM SVGPoint) -> DOM SVGPoint
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM SVGPoint
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getPointAtLength_ ::
(MonadDOM m) => SVGPathElement -> Maybe Float -> m ()
getPointAtLength_ :: SVGPathElement -> Maybe Float -> m ()
getPointAtLength_ SVGPathElement
self Maybe Float
distance
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getPointAtLength" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
distance]))
getPathSegAtLength ::
(MonadDOM m) => SVGPathElement -> Maybe Float -> m Word
getPathSegAtLength :: SVGPathElement -> Maybe Float -> m Word
getPathSegAtLength SVGPathElement
self Maybe Float
distance
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Word
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getPathSegAtLength" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
distance]) JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getPathSegAtLength_ ::
(MonadDOM m) => SVGPathElement -> Maybe Float -> m ()
getPathSegAtLength_ :: SVGPathElement -> Maybe Float -> m ()
getPathSegAtLength_ SVGPathElement
self Maybe Float
distance
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getPathSegAtLength" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
distance]))
createSVGPathSegClosePath ::
(MonadDOM m) => SVGPathElement -> m SVGPathSegClosePath
createSVGPathSegClosePath :: SVGPathElement -> m SVGPathSegClosePath
createSVGPathSegClosePath SVGPathElement
self
= DOM SVGPathSegClosePath -> m SVGPathSegClosePath
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegClosePath" ()) JSM JSVal
-> (JSVal -> DOM SVGPathSegClosePath) -> DOM SVGPathSegClosePath
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM SVGPathSegClosePath
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegClosePath_ ::
(MonadDOM m) => SVGPathElement -> m ()
createSVGPathSegClosePath_ :: SVGPathElement -> m ()
createSVGPathSegClosePath_ SVGPathElement
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegClosePath" ()))
createSVGPathSegMovetoAbs ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float -> Maybe Float -> m SVGPathSegMovetoAbs
createSVGPathSegMovetoAbs :: SVGPathElement
-> Maybe Float -> Maybe Float -> m SVGPathSegMovetoAbs
createSVGPathSegMovetoAbs SVGPathElement
self Maybe Float
x Maybe Float
y
= DOM SVGPathSegMovetoAbs -> m SVGPathSegMovetoAbs
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegMovetoAbs" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y])
JSM JSVal
-> (JSVal -> DOM SVGPathSegMovetoAbs) -> DOM SVGPathSegMovetoAbs
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegMovetoAbs
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegMovetoAbs_ ::
(MonadDOM m) =>
SVGPathElement -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegMovetoAbs_ :: SVGPathElement -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegMovetoAbs_ SVGPathElement
self Maybe Float
x Maybe Float
y
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegMovetoAbs" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y]))
createSVGPathSegMovetoRel ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float -> Maybe Float -> m SVGPathSegMovetoRel
createSVGPathSegMovetoRel :: SVGPathElement
-> Maybe Float -> Maybe Float -> m SVGPathSegMovetoRel
createSVGPathSegMovetoRel SVGPathElement
self Maybe Float
x Maybe Float
y
= DOM SVGPathSegMovetoRel -> m SVGPathSegMovetoRel
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegMovetoRel" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y])
JSM JSVal
-> (JSVal -> DOM SVGPathSegMovetoRel) -> DOM SVGPathSegMovetoRel
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegMovetoRel
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegMovetoRel_ ::
(MonadDOM m) =>
SVGPathElement -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegMovetoRel_ :: SVGPathElement -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegMovetoRel_ SVGPathElement
self Maybe Float
x Maybe Float
y
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegMovetoRel" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y]))
createSVGPathSegLinetoAbs ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float -> Maybe Float -> m SVGPathSegLinetoAbs
createSVGPathSegLinetoAbs :: SVGPathElement
-> Maybe Float -> Maybe Float -> m SVGPathSegLinetoAbs
createSVGPathSegLinetoAbs SVGPathElement
self Maybe Float
x Maybe Float
y
= DOM SVGPathSegLinetoAbs -> m SVGPathSegLinetoAbs
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegLinetoAbs" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y])
JSM JSVal
-> (JSVal -> DOM SVGPathSegLinetoAbs) -> DOM SVGPathSegLinetoAbs
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegLinetoAbs
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegLinetoAbs_ ::
(MonadDOM m) =>
SVGPathElement -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegLinetoAbs_ :: SVGPathElement -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegLinetoAbs_ SVGPathElement
self Maybe Float
x Maybe Float
y
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegLinetoAbs" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y]))
createSVGPathSegLinetoRel ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float -> Maybe Float -> m SVGPathSegLinetoRel
createSVGPathSegLinetoRel :: SVGPathElement
-> Maybe Float -> Maybe Float -> m SVGPathSegLinetoRel
createSVGPathSegLinetoRel SVGPathElement
self Maybe Float
x Maybe Float
y
= DOM SVGPathSegLinetoRel -> m SVGPathSegLinetoRel
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegLinetoRel" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y])
JSM JSVal
-> (JSVal -> DOM SVGPathSegLinetoRel) -> DOM SVGPathSegLinetoRel
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegLinetoRel
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegLinetoRel_ ::
(MonadDOM m) =>
SVGPathElement -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegLinetoRel_ :: SVGPathElement -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegLinetoRel_ SVGPathElement
self Maybe Float
x Maybe Float
y
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegLinetoRel" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y]))
createSVGPathSegCurvetoCubicAbs ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float ->
Maybe Float ->
Maybe Float ->
Maybe Float ->
Maybe Float -> m SVGPathSegCurvetoCubicAbs
createSVGPathSegCurvetoCubicAbs :: SVGPathElement
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> m SVGPathSegCurvetoCubicAbs
createSVGPathSegCurvetoCubicAbs SVGPathElement
self Maybe Float
x Maybe Float
y Maybe Float
x1 Maybe Float
y1 Maybe Float
x2 Maybe Float
y2
= DOM SVGPathSegCurvetoCubicAbs -> m SVGPathSegCurvetoCubicAbs
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegCurvetoCubicAbs"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x1, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y1, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x2,
Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y2])
JSM JSVal
-> (JSVal -> DOM SVGPathSegCurvetoCubicAbs)
-> DOM SVGPathSegCurvetoCubicAbs
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegCurvetoCubicAbs
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegCurvetoCubicAbs_ ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float ->
Maybe Float ->
Maybe Float -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegCurvetoCubicAbs_ :: SVGPathElement
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> m ()
createSVGPathSegCurvetoCubicAbs_ SVGPathElement
self Maybe Float
x Maybe Float
y Maybe Float
x1 Maybe Float
y1 Maybe Float
x2 Maybe Float
y2
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegCurvetoCubicAbs"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x1, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y1, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x2,
Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y2]))
createSVGPathSegCurvetoCubicRel ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float ->
Maybe Float ->
Maybe Float ->
Maybe Float ->
Maybe Float -> m SVGPathSegCurvetoCubicRel
createSVGPathSegCurvetoCubicRel :: SVGPathElement
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> m SVGPathSegCurvetoCubicRel
createSVGPathSegCurvetoCubicRel SVGPathElement
self Maybe Float
x Maybe Float
y Maybe Float
x1 Maybe Float
y1 Maybe Float
x2 Maybe Float
y2
= DOM SVGPathSegCurvetoCubicRel -> m SVGPathSegCurvetoCubicRel
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegCurvetoCubicRel"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x1, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y1, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x2,
Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y2])
JSM JSVal
-> (JSVal -> DOM SVGPathSegCurvetoCubicRel)
-> DOM SVGPathSegCurvetoCubicRel
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegCurvetoCubicRel
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegCurvetoCubicRel_ ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float ->
Maybe Float ->
Maybe Float -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegCurvetoCubicRel_ :: SVGPathElement
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> m ()
createSVGPathSegCurvetoCubicRel_ SVGPathElement
self Maybe Float
x Maybe Float
y Maybe Float
x1 Maybe Float
y1 Maybe Float
x2 Maybe Float
y2
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegCurvetoCubicRel"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x1, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y1, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x2,
Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y2]))
createSVGPathSegCurvetoQuadraticAbs ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float ->
Maybe Float ->
Maybe Float -> m SVGPathSegCurvetoQuadraticAbs
createSVGPathSegCurvetoQuadraticAbs :: SVGPathElement
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> m SVGPathSegCurvetoQuadraticAbs
createSVGPathSegCurvetoQuadraticAbs SVGPathElement
self Maybe Float
x Maybe Float
y Maybe Float
x1 Maybe Float
y1
= DOM SVGPathSegCurvetoQuadraticAbs
-> m SVGPathSegCurvetoQuadraticAbs
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegCurvetoQuadraticAbs"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x1, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y1])
JSM JSVal
-> (JSVal -> DOM SVGPathSegCurvetoQuadraticAbs)
-> DOM SVGPathSegCurvetoQuadraticAbs
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegCurvetoQuadraticAbs
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegCurvetoQuadraticAbs_ ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegCurvetoQuadraticAbs_ :: SVGPathElement
-> Maybe Float -> Maybe Float -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegCurvetoQuadraticAbs_ SVGPathElement
self Maybe Float
x Maybe Float
y Maybe Float
x1 Maybe Float
y1
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegCurvetoQuadraticAbs"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x1, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y1]))
createSVGPathSegCurvetoQuadraticRel ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float ->
Maybe Float ->
Maybe Float -> m SVGPathSegCurvetoQuadraticRel
createSVGPathSegCurvetoQuadraticRel :: SVGPathElement
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> m SVGPathSegCurvetoQuadraticRel
createSVGPathSegCurvetoQuadraticRel SVGPathElement
self Maybe Float
x Maybe Float
y Maybe Float
x1 Maybe Float
y1
= DOM SVGPathSegCurvetoQuadraticRel
-> m SVGPathSegCurvetoQuadraticRel
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegCurvetoQuadraticRel"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x1, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y1])
JSM JSVal
-> (JSVal -> DOM SVGPathSegCurvetoQuadraticRel)
-> DOM SVGPathSegCurvetoQuadraticRel
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegCurvetoQuadraticRel
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegCurvetoQuadraticRel_ ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegCurvetoQuadraticRel_ :: SVGPathElement
-> Maybe Float -> Maybe Float -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegCurvetoQuadraticRel_ SVGPathElement
self Maybe Float
x Maybe Float
y Maybe Float
x1 Maybe Float
y1
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegCurvetoQuadraticRel"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x1, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y1]))
createSVGPathSegArcAbs ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float ->
Maybe Float ->
Maybe Float -> Maybe Float -> Bool -> Bool -> m SVGPathSegArcAbs
createSVGPathSegArcAbs :: SVGPathElement
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Bool
-> Bool
-> m SVGPathSegArcAbs
createSVGPathSegArcAbs SVGPathElement
self Maybe Float
x Maybe Float
y Maybe Float
r1 Maybe Float
r2 Maybe Float
angle Bool
largeArcFlag Bool
sweepFlag
= DOM SVGPathSegArcAbs -> m SVGPathSegArcAbs
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegArcAbs"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
r1, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
r2, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
angle,
Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
largeArcFlag, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
sweepFlag])
JSM JSVal
-> (JSVal -> DOM SVGPathSegArcAbs) -> DOM SVGPathSegArcAbs
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegArcAbs
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegArcAbs_ ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float ->
Maybe Float -> Maybe Float -> Maybe Float -> Bool -> Bool -> m ()
createSVGPathSegArcAbs_ :: SVGPathElement
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Bool
-> Bool
-> m ()
createSVGPathSegArcAbs_ SVGPathElement
self Maybe Float
x Maybe Float
y Maybe Float
r1 Maybe Float
r2 Maybe Float
angle Bool
largeArcFlag Bool
sweepFlag
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegArcAbs"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
r1, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
r2, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
angle,
Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
largeArcFlag, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
sweepFlag]))
createSVGPathSegArcRel ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float ->
Maybe Float ->
Maybe Float -> Maybe Float -> Bool -> Bool -> m SVGPathSegArcRel
createSVGPathSegArcRel :: SVGPathElement
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Bool
-> Bool
-> m SVGPathSegArcRel
createSVGPathSegArcRel SVGPathElement
self Maybe Float
x Maybe Float
y Maybe Float
r1 Maybe Float
r2 Maybe Float
angle Bool
largeArcFlag Bool
sweepFlag
= DOM SVGPathSegArcRel -> m SVGPathSegArcRel
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegArcRel"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
r1, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
r2, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
angle,
Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
largeArcFlag, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
sweepFlag])
JSM JSVal
-> (JSVal -> DOM SVGPathSegArcRel) -> DOM SVGPathSegArcRel
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegArcRel
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegArcRel_ ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float ->
Maybe Float -> Maybe Float -> Maybe Float -> Bool -> Bool -> m ()
createSVGPathSegArcRel_ :: SVGPathElement
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Bool
-> Bool
-> m ()
createSVGPathSegArcRel_ SVGPathElement
self Maybe Float
x Maybe Float
y Maybe Float
r1 Maybe Float
r2 Maybe Float
angle Bool
largeArcFlag Bool
sweepFlag
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegArcRel"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
r1, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
r2, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
angle,
Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
largeArcFlag, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
sweepFlag]))
createSVGPathSegLinetoHorizontalAbs ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float -> m SVGPathSegLinetoHorizontalAbs
createSVGPathSegLinetoHorizontalAbs :: SVGPathElement -> Maybe Float -> m SVGPathSegLinetoHorizontalAbs
createSVGPathSegLinetoHorizontalAbs SVGPathElement
self Maybe Float
x
= DOM SVGPathSegLinetoHorizontalAbs
-> m SVGPathSegLinetoHorizontalAbs
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegLinetoHorizontalAbs" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x])
JSM JSVal
-> (JSVal -> DOM SVGPathSegLinetoHorizontalAbs)
-> DOM SVGPathSegLinetoHorizontalAbs
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegLinetoHorizontalAbs
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegLinetoHorizontalAbs_ ::
(MonadDOM m) => SVGPathElement -> Maybe Float -> m ()
createSVGPathSegLinetoHorizontalAbs_ :: SVGPathElement -> Maybe Float -> m ()
createSVGPathSegLinetoHorizontalAbs_ SVGPathElement
self Maybe Float
x
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegLinetoHorizontalAbs" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x]))
createSVGPathSegLinetoHorizontalRel ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float -> m SVGPathSegLinetoHorizontalRel
createSVGPathSegLinetoHorizontalRel :: SVGPathElement -> Maybe Float -> m SVGPathSegLinetoHorizontalRel
createSVGPathSegLinetoHorizontalRel SVGPathElement
self Maybe Float
x
= DOM SVGPathSegLinetoHorizontalRel
-> m SVGPathSegLinetoHorizontalRel
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegLinetoHorizontalRel" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x])
JSM JSVal
-> (JSVal -> DOM SVGPathSegLinetoHorizontalRel)
-> DOM SVGPathSegLinetoHorizontalRel
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegLinetoHorizontalRel
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegLinetoHorizontalRel_ ::
(MonadDOM m) => SVGPathElement -> Maybe Float -> m ()
createSVGPathSegLinetoHorizontalRel_ :: SVGPathElement -> Maybe Float -> m ()
createSVGPathSegLinetoHorizontalRel_ SVGPathElement
self Maybe Float
x
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegLinetoHorizontalRel" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x]))
createSVGPathSegLinetoVerticalAbs ::
(MonadDOM m) =>
SVGPathElement -> Maybe Float -> m SVGPathSegLinetoVerticalAbs
createSVGPathSegLinetoVerticalAbs :: SVGPathElement -> Maybe Float -> m SVGPathSegLinetoVerticalAbs
createSVGPathSegLinetoVerticalAbs SVGPathElement
self Maybe Float
y
= DOM SVGPathSegLinetoVerticalAbs -> m SVGPathSegLinetoVerticalAbs
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegLinetoVerticalAbs" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y]) JSM JSVal
-> (JSVal -> DOM SVGPathSegLinetoVerticalAbs)
-> DOM SVGPathSegLinetoVerticalAbs
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM SVGPathSegLinetoVerticalAbs
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegLinetoVerticalAbs_ ::
(MonadDOM m) => SVGPathElement -> Maybe Float -> m ()
createSVGPathSegLinetoVerticalAbs_ :: SVGPathElement -> Maybe Float -> m ()
createSVGPathSegLinetoVerticalAbs_ SVGPathElement
self Maybe Float
y
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegLinetoVerticalAbs" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y]))
createSVGPathSegLinetoVerticalRel ::
(MonadDOM m) =>
SVGPathElement -> Maybe Float -> m SVGPathSegLinetoVerticalRel
createSVGPathSegLinetoVerticalRel :: SVGPathElement -> Maybe Float -> m SVGPathSegLinetoVerticalRel
createSVGPathSegLinetoVerticalRel SVGPathElement
self Maybe Float
y
= DOM SVGPathSegLinetoVerticalRel -> m SVGPathSegLinetoVerticalRel
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegLinetoVerticalRel" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y]) JSM JSVal
-> (JSVal -> DOM SVGPathSegLinetoVerticalRel)
-> DOM SVGPathSegLinetoVerticalRel
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM SVGPathSegLinetoVerticalRel
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegLinetoVerticalRel_ ::
(MonadDOM m) => SVGPathElement -> Maybe Float -> m ()
createSVGPathSegLinetoVerticalRel_ :: SVGPathElement -> Maybe Float -> m ()
createSVGPathSegLinetoVerticalRel_ SVGPathElement
self Maybe Float
y
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegLinetoVerticalRel" [Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y]))
createSVGPathSegCurvetoCubicSmoothAbs ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float ->
Maybe Float ->
Maybe Float -> m SVGPathSegCurvetoCubicSmoothAbs
createSVGPathSegCurvetoCubicSmoothAbs :: SVGPathElement
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> m SVGPathSegCurvetoCubicSmoothAbs
createSVGPathSegCurvetoCubicSmoothAbs SVGPathElement
self Maybe Float
x Maybe Float
y Maybe Float
x2 Maybe Float
y2
= DOM SVGPathSegCurvetoCubicSmoothAbs
-> m SVGPathSegCurvetoCubicSmoothAbs
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegCurvetoCubicSmoothAbs"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x2, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y2])
JSM JSVal
-> (JSVal -> DOM SVGPathSegCurvetoCubicSmoothAbs)
-> DOM SVGPathSegCurvetoCubicSmoothAbs
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegCurvetoCubicSmoothAbs
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegCurvetoCubicSmoothAbs_ ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegCurvetoCubicSmoothAbs_ :: SVGPathElement
-> Maybe Float -> Maybe Float -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegCurvetoCubicSmoothAbs_ SVGPathElement
self Maybe Float
x Maybe Float
y Maybe Float
x2 Maybe Float
y2
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegCurvetoCubicSmoothAbs"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x2, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y2]))
createSVGPathSegCurvetoCubicSmoothRel ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float ->
Maybe Float ->
Maybe Float -> m SVGPathSegCurvetoCubicSmoothRel
createSVGPathSegCurvetoCubicSmoothRel :: SVGPathElement
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> Maybe Float
-> m SVGPathSegCurvetoCubicSmoothRel
createSVGPathSegCurvetoCubicSmoothRel SVGPathElement
self Maybe Float
x Maybe Float
y Maybe Float
x2 Maybe Float
y2
= DOM SVGPathSegCurvetoCubicSmoothRel
-> m SVGPathSegCurvetoCubicSmoothRel
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegCurvetoCubicSmoothRel"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x2, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y2])
JSM JSVal
-> (JSVal -> DOM SVGPathSegCurvetoCubicSmoothRel)
-> DOM SVGPathSegCurvetoCubicSmoothRel
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegCurvetoCubicSmoothRel
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegCurvetoCubicSmoothRel_ ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegCurvetoCubicSmoothRel_ :: SVGPathElement
-> Maybe Float -> Maybe Float -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegCurvetoCubicSmoothRel_ SVGPathElement
self Maybe Float
x Maybe Float
y Maybe Float
x2 Maybe Float
y2
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegCurvetoCubicSmoothRel"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x2, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y2]))
createSVGPathSegCurvetoQuadraticSmoothAbs ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float -> m SVGPathSegCurvetoQuadraticSmoothAbs
createSVGPathSegCurvetoQuadraticSmoothAbs :: SVGPathElement
-> Maybe Float
-> Maybe Float
-> m SVGPathSegCurvetoQuadraticSmoothAbs
createSVGPathSegCurvetoQuadraticSmoothAbs SVGPathElement
self Maybe Float
x Maybe Float
y
= DOM SVGPathSegCurvetoQuadraticSmoothAbs
-> m SVGPathSegCurvetoQuadraticSmoothAbs
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegCurvetoQuadraticSmoothAbs"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y])
JSM JSVal
-> (JSVal -> DOM SVGPathSegCurvetoQuadraticSmoothAbs)
-> DOM SVGPathSegCurvetoQuadraticSmoothAbs
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegCurvetoQuadraticSmoothAbs
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegCurvetoQuadraticSmoothAbs_ ::
(MonadDOM m) =>
SVGPathElement -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegCurvetoQuadraticSmoothAbs_ :: SVGPathElement -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegCurvetoQuadraticSmoothAbs_ SVGPathElement
self Maybe Float
x Maybe Float
y
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegCurvetoQuadraticSmoothAbs"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y]))
createSVGPathSegCurvetoQuadraticSmoothRel ::
(MonadDOM m) =>
SVGPathElement ->
Maybe Float ->
Maybe Float -> m SVGPathSegCurvetoQuadraticSmoothRel
createSVGPathSegCurvetoQuadraticSmoothRel :: SVGPathElement
-> Maybe Float
-> Maybe Float
-> m SVGPathSegCurvetoQuadraticSmoothRel
createSVGPathSegCurvetoQuadraticSmoothRel SVGPathElement
self Maybe Float
x Maybe Float
y
= DOM SVGPathSegCurvetoQuadraticSmoothRel
-> m SVGPathSegCurvetoQuadraticSmoothRel
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegCurvetoQuadraticSmoothRel"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y])
JSM JSVal
-> (JSVal -> DOM SVGPathSegCurvetoQuadraticSmoothRel)
-> DOM SVGPathSegCurvetoQuadraticSmoothRel
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegCurvetoQuadraticSmoothRel
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGPathSegCurvetoQuadraticSmoothRel_ ::
(MonadDOM m) =>
SVGPathElement -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegCurvetoQuadraticSmoothRel_ :: SVGPathElement -> Maybe Float -> Maybe Float -> m ()
createSVGPathSegCurvetoQuadraticSmoothRel_ SVGPathElement
self Maybe Float
x Maybe Float
y
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSVGPathSegCurvetoQuadraticSmoothRel"
[Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
x, Maybe Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Float
y]))
getPathLength ::
(MonadDOM m) => SVGPathElement -> m SVGAnimatedNumber
getPathLength :: SVGPathElement -> m SVGAnimatedNumber
getPathLength SVGPathElement
self
= DOM SVGAnimatedNumber -> m SVGAnimatedNumber
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGPathElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"pathLength") JSM JSVal
-> (JSVal -> DOM SVGAnimatedNumber) -> DOM SVGAnimatedNumber
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGAnimatedNumber
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getPathSegList ::
(MonadDOM m) => SVGPathElement -> m SVGPathSegList
getPathSegList :: SVGPathElement -> m SVGPathSegList
getPathSegList SVGPathElement
self
= DOM SVGPathSegList -> m SVGPathSegList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGPathElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"pathSegList") JSM JSVal -> (JSVal -> DOM SVGPathSegList) -> DOM SVGPathSegList
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getNormalizedPathSegList ::
(MonadDOM m) => SVGPathElement -> m SVGPathSegList
getNormalizedPathSegList :: SVGPathElement -> m SVGPathSegList
getNormalizedPathSegList SVGPathElement
self
= DOM SVGPathSegList -> m SVGPathSegList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGPathElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"normalizedPathSegList") JSM JSVal -> (JSVal -> DOM SVGPathSegList) -> DOM SVGPathSegList
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getAnimatedPathSegList ::
(MonadDOM m) => SVGPathElement -> m SVGPathSegList
getAnimatedPathSegList :: SVGPathElement -> m SVGPathSegList
getAnimatedPathSegList SVGPathElement
self
= DOM SVGPathSegList -> m SVGPathSegList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGPathElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"animatedPathSegList") JSM JSVal -> (JSVal -> DOM SVGPathSegList) -> DOM SVGPathSegList
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSegList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getAnimatedNormalizedPathSegList ::
(MonadDOM m) => SVGPathElement -> m SVGPathSegList
getAnimatedNormalizedPathSegList :: SVGPathElement -> m SVGPathSegList
getAnimatedNormalizedPathSegList SVGPathElement
self
= DOM SVGPathSegList -> m SVGPathSegList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathElement
self SVGPathElement
-> Getting (JSM JSVal) SVGPathElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGPathElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"animatedNormalizedPathSegList") JSM JSVal -> (JSVal -> DOM SVGPathSegList) -> DOM SVGPathSegList
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM SVGPathSegList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)