{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.SVGMatrix
(multiply, multiply_, inverse, inverse_, translate, translate_,
scale, scale_, scaleNonUniform, scaleNonUniform_, rotate, rotate_,
rotateFromVector, rotateFromVector_, flipX, flipX_, flipY, flipY_,
skewX, skewX_, skewY, skewY_, setA, getA, setB, getB, setC, getC,
setD, getD, setE, getE, setF, getF, SVGMatrix(..), gTypeSVGMatrix)
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
multiply :: (MonadDOM m) => SVGMatrix -> SVGMatrix -> m SVGMatrix
multiply :: forall (m :: * -> *).
MonadDOM m =>
SVGMatrix -> SVGMatrix -> m SVGMatrix
multiply SVGMatrix
self SVGMatrix
secondMatrix
= DOM SVGMatrix -> m SVGMatrix
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"multiply" [SVGMatrix -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGMatrix
secondMatrix]) JSM JSVal -> (JSVal -> DOM SVGMatrix) -> DOM SVGMatrix
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM SVGMatrix
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
multiply_ :: (MonadDOM m) => SVGMatrix -> SVGMatrix -> m ()
multiply_ :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> SVGMatrix -> m ()
multiply_ SVGMatrix
self SVGMatrix
secondMatrix
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"multiply" [SVGMatrix -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGMatrix
secondMatrix]))
inverse :: (MonadDOM m) => SVGMatrix -> m SVGMatrix
inverse :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> m SVGMatrix
inverse SVGMatrix
self
= DOM SVGMatrix -> m SVGMatrix
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"inverse" ()) JSM JSVal -> (JSVal -> DOM SVGMatrix) -> DOM SVGMatrix
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGMatrix
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
inverse_ :: (MonadDOM m) => SVGMatrix -> m ()
inverse_ :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> m ()
inverse_ SVGMatrix
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 (SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"inverse" ()))
translate ::
(MonadDOM m) => SVGMatrix -> Float -> Float -> m SVGMatrix
translate :: forall (m :: * -> *).
MonadDOM m =>
SVGMatrix -> Float -> Float -> m SVGMatrix
translate SVGMatrix
self Float
x Float
y
= DOM SVGMatrix -> m SVGMatrix
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"translate" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
x, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
y]) JSM JSVal -> (JSVal -> DOM SVGMatrix) -> DOM SVGMatrix
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM SVGMatrix
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
translate_ :: (MonadDOM m) => SVGMatrix -> Float -> Float -> m ()
translate_ :: forall (m :: * -> *).
MonadDOM m =>
SVGMatrix -> Float -> Float -> m ()
translate_ SVGMatrix
self Float
x 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 (SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"translate" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
x, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
y]))
scale :: (MonadDOM m) => SVGMatrix -> Float -> m SVGMatrix
scale :: forall (m :: * -> *).
MonadDOM m =>
SVGMatrix -> Float -> m SVGMatrix
scale SVGMatrix
self Float
scaleFactor
= DOM SVGMatrix -> m SVGMatrix
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"scale" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
scaleFactor]) JSM JSVal -> (JSVal -> DOM SVGMatrix) -> DOM SVGMatrix
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM SVGMatrix
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
scale_ :: (MonadDOM m) => SVGMatrix -> Float -> m ()
scale_ :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> Float -> m ()
scale_ SVGMatrix
self Float
scaleFactor
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"scale" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
scaleFactor]))
scaleNonUniform ::
(MonadDOM m) => SVGMatrix -> Float -> Float -> m SVGMatrix
scaleNonUniform :: forall (m :: * -> *).
MonadDOM m =>
SVGMatrix -> Float -> Float -> m SVGMatrix
scaleNonUniform SVGMatrix
self Float
scaleFactorX Float
scaleFactorY
= DOM SVGMatrix -> m SVGMatrix
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"scaleNonUniform"
[Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
scaleFactorX, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
scaleFactorY])
JSM JSVal -> (JSVal -> DOM SVGMatrix) -> DOM SVGMatrix
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGMatrix
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
scaleNonUniform_ ::
(MonadDOM m) => SVGMatrix -> Float -> Float -> m ()
scaleNonUniform_ :: forall (m :: * -> *).
MonadDOM m =>
SVGMatrix -> Float -> Float -> m ()
scaleNonUniform_ SVGMatrix
self Float
scaleFactorX Float
scaleFactorY
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"scaleNonUniform"
[Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
scaleFactorX, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
scaleFactorY]))
rotate :: (MonadDOM m) => SVGMatrix -> Float -> m SVGMatrix
rotate :: forall (m :: * -> *).
MonadDOM m =>
SVGMatrix -> Float -> m SVGMatrix
rotate SVGMatrix
self Float
angle
= DOM SVGMatrix -> m SVGMatrix
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"rotate" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
angle]) JSM JSVal -> (JSVal -> DOM SVGMatrix) -> DOM SVGMatrix
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGMatrix
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
rotate_ :: (MonadDOM m) => SVGMatrix -> Float -> m ()
rotate_ :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> Float -> m ()
rotate_ SVGMatrix
self Float
angle
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"rotate" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
angle]))
rotateFromVector ::
(MonadDOM m) => SVGMatrix -> Float -> Float -> m SVGMatrix
rotateFromVector :: forall (m :: * -> *).
MonadDOM m =>
SVGMatrix -> Float -> Float -> m SVGMatrix
rotateFromVector SVGMatrix
self Float
x Float
y
= DOM SVGMatrix -> m SVGMatrix
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"rotateFromVector" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
x, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
y]) JSM JSVal -> (JSVal -> DOM SVGMatrix) -> DOM SVGMatrix
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM SVGMatrix
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
rotateFromVector_ ::
(MonadDOM m) => SVGMatrix -> Float -> Float -> m ()
rotateFromVector_ :: forall (m :: * -> *).
MonadDOM m =>
SVGMatrix -> Float -> Float -> m ()
rotateFromVector_ SVGMatrix
self Float
x 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 (SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"rotateFromVector" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
x, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
y]))
flipX :: (MonadDOM m) => SVGMatrix -> m SVGMatrix
flipX :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> m SVGMatrix
flipX SVGMatrix
self
= DOM SVGMatrix -> m SVGMatrix
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"flipX" ()) JSM JSVal -> (JSVal -> DOM SVGMatrix) -> DOM SVGMatrix
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGMatrix
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
flipX_ :: (MonadDOM m) => SVGMatrix -> m ()
flipX_ :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> m ()
flipX_ SVGMatrix
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 (SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"flipX" ()))
flipY :: (MonadDOM m) => SVGMatrix -> m SVGMatrix
flipY :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> m SVGMatrix
flipY SVGMatrix
self
= DOM SVGMatrix -> m SVGMatrix
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"flipY" ()) JSM JSVal -> (JSVal -> DOM SVGMatrix) -> DOM SVGMatrix
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGMatrix
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
flipY_ :: (MonadDOM m) => SVGMatrix -> m ()
flipY_ :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> m ()
flipY_ SVGMatrix
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 (SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"flipY" ()))
skewX :: (MonadDOM m) => SVGMatrix -> Float -> m SVGMatrix
skewX :: forall (m :: * -> *).
MonadDOM m =>
SVGMatrix -> Float -> m SVGMatrix
skewX SVGMatrix
self Float
angle
= DOM SVGMatrix -> m SVGMatrix
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"skewX" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
angle]) JSM JSVal -> (JSVal -> DOM SVGMatrix) -> DOM SVGMatrix
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGMatrix
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
skewX_ :: (MonadDOM m) => SVGMatrix -> Float -> m ()
skewX_ :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> Float -> m ()
skewX_ SVGMatrix
self Float
angle
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"skewX" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
angle]))
skewY :: (MonadDOM m) => SVGMatrix -> Float -> m SVGMatrix
skewY :: forall (m :: * -> *).
MonadDOM m =>
SVGMatrix -> Float -> m SVGMatrix
skewY SVGMatrix
self Float
angle
= DOM SVGMatrix -> m SVGMatrix
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"skewY" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
angle]) JSM JSVal -> (JSVal -> DOM SVGMatrix) -> DOM SVGMatrix
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGMatrix
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
skewY_ :: (MonadDOM m) => SVGMatrix -> Float -> m ()
skewY_ :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> Float -> m ()
skewY_ SVGMatrix
self Float
angle
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"skewY" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
angle]))
setA :: (MonadDOM m) => SVGMatrix -> Double -> m ()
setA :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> Double -> m ()
setA SVGMatrix
self Double
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (SVGMatrix
self SVGMatrix -> Getting (DOM ()) SVGMatrix (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"a" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getA :: (MonadDOM m) => SVGMatrix -> m Double
getA :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> m Double
getA SVGMatrix
self = DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGMatrix (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"a") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
setB :: (MonadDOM m) => SVGMatrix -> Double -> m ()
setB :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> Double -> m ()
setB SVGMatrix
self Double
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (SVGMatrix
self SVGMatrix -> Getting (DOM ()) SVGMatrix (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"b" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getB :: (MonadDOM m) => SVGMatrix -> m Double
getB :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> m Double
getB SVGMatrix
self = DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGMatrix (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"b") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
setC :: (MonadDOM m) => SVGMatrix -> Double -> m ()
setC :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> Double -> m ()
setC SVGMatrix
self Double
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (SVGMatrix
self SVGMatrix -> Getting (DOM ()) SVGMatrix (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"c" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getC :: (MonadDOM m) => SVGMatrix -> m Double
getC :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> m Double
getC SVGMatrix
self = DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGMatrix (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"c") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
setD :: (MonadDOM m) => SVGMatrix -> Double -> m ()
setD :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> Double -> m ()
setD SVGMatrix
self Double
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (SVGMatrix
self SVGMatrix -> Getting (DOM ()) SVGMatrix (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"d" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getD :: (MonadDOM m) => SVGMatrix -> m Double
getD :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> m Double
getD SVGMatrix
self = DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGMatrix (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"d") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
setE :: (MonadDOM m) => SVGMatrix -> Double -> m ()
setE :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> Double -> m ()
setE SVGMatrix
self Double
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (SVGMatrix
self SVGMatrix -> Getting (DOM ()) SVGMatrix (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"e" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getE :: (MonadDOM m) => SVGMatrix -> m Double
getE :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> m Double
getE SVGMatrix
self = DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGMatrix (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"e") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
setF :: (MonadDOM m) => SVGMatrix -> Double -> m ()
setF :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> Double -> m ()
setF SVGMatrix
self Double
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (SVGMatrix
self SVGMatrix -> Getting (DOM ()) SVGMatrix (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"f" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getF :: (MonadDOM m) => SVGMatrix -> m Double
getF :: forall (m :: * -> *). MonadDOM m => SVGMatrix -> m Double
getF SVGMatrix
self = DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGMatrix
self SVGMatrix -> Getting (JSM JSVal) SVGMatrix (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGMatrix (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"f") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)