{-# 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 self secondMatrix
= liftDOM
((self ^. jsf "multiply" [toJSVal secondMatrix]) >>=
fromJSValUnchecked)
multiply_ :: (MonadDOM m) => SVGMatrix -> SVGMatrix -> m ()
multiply_ self secondMatrix
= liftDOM (void (self ^. jsf "multiply" [toJSVal secondMatrix]))
inverse :: (MonadDOM m) => SVGMatrix -> m SVGMatrix
inverse self
= liftDOM ((self ^. jsf "inverse" ()) >>= fromJSValUnchecked)
inverse_ :: (MonadDOM m) => SVGMatrix -> m ()
inverse_ self = liftDOM (void (self ^. jsf "inverse" ()))
translate ::
(MonadDOM m) => SVGMatrix -> Float -> Float -> m SVGMatrix
translate self x y
= liftDOM
((self ^. jsf "translate" [toJSVal x, toJSVal y]) >>=
fromJSValUnchecked)
translate_ :: (MonadDOM m) => SVGMatrix -> Float -> Float -> m ()
translate_ self x y
= liftDOM (void (self ^. jsf "translate" [toJSVal x, toJSVal y]))
scale :: (MonadDOM m) => SVGMatrix -> Float -> m SVGMatrix
scale self scaleFactor
= liftDOM
((self ^. jsf "scale" [toJSVal scaleFactor]) >>=
fromJSValUnchecked)
scale_ :: (MonadDOM m) => SVGMatrix -> Float -> m ()
scale_ self scaleFactor
= liftDOM (void (self ^. jsf "scale" [toJSVal scaleFactor]))
scaleNonUniform ::
(MonadDOM m) => SVGMatrix -> Float -> Float -> m SVGMatrix
scaleNonUniform self scaleFactorX scaleFactorY
= liftDOM
((self ^. jsf "scaleNonUniform"
[toJSVal scaleFactorX, toJSVal scaleFactorY])
>>= fromJSValUnchecked)
scaleNonUniform_ ::
(MonadDOM m) => SVGMatrix -> Float -> Float -> m ()
scaleNonUniform_ self scaleFactorX scaleFactorY
= liftDOM
(void
(self ^. jsf "scaleNonUniform"
[toJSVal scaleFactorX, toJSVal scaleFactorY]))
rotate :: (MonadDOM m) => SVGMatrix -> Float -> m SVGMatrix
rotate self angle
= liftDOM
((self ^. jsf "rotate" [toJSVal angle]) >>= fromJSValUnchecked)
rotate_ :: (MonadDOM m) => SVGMatrix -> Float -> m ()
rotate_ self angle
= liftDOM (void (self ^. jsf "rotate" [toJSVal angle]))
rotateFromVector ::
(MonadDOM m) => SVGMatrix -> Float -> Float -> m SVGMatrix
rotateFromVector self x y
= liftDOM
((self ^. jsf "rotateFromVector" [toJSVal x, toJSVal y]) >>=
fromJSValUnchecked)
rotateFromVector_ ::
(MonadDOM m) => SVGMatrix -> Float -> Float -> m ()
rotateFromVector_ self x y
= liftDOM
(void (self ^. jsf "rotateFromVector" [toJSVal x, toJSVal y]))
flipX :: (MonadDOM m) => SVGMatrix -> m SVGMatrix
flipX self
= liftDOM ((self ^. jsf "flipX" ()) >>= fromJSValUnchecked)
flipX_ :: (MonadDOM m) => SVGMatrix -> m ()
flipX_ self = liftDOM (void (self ^. jsf "flipX" ()))
flipY :: (MonadDOM m) => SVGMatrix -> m SVGMatrix
flipY self
= liftDOM ((self ^. jsf "flipY" ()) >>= fromJSValUnchecked)
flipY_ :: (MonadDOM m) => SVGMatrix -> m ()
flipY_ self = liftDOM (void (self ^. jsf "flipY" ()))
skewX :: (MonadDOM m) => SVGMatrix -> Float -> m SVGMatrix
skewX self angle
= liftDOM
((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSValUnchecked)
skewX_ :: (MonadDOM m) => SVGMatrix -> Float -> m ()
skewX_ self angle
= liftDOM (void (self ^. jsf "skewX" [toJSVal angle]))
skewY :: (MonadDOM m) => SVGMatrix -> Float -> m SVGMatrix
skewY self angle
= liftDOM
((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSValUnchecked)
skewY_ :: (MonadDOM m) => SVGMatrix -> Float -> m ()
skewY_ self angle
= liftDOM (void (self ^. jsf "skewY" [toJSVal angle]))
setA :: (MonadDOM m) => SVGMatrix -> Double -> m ()
setA self val = liftDOM (self ^. jss "a" (toJSVal val))
getA :: (MonadDOM m) => SVGMatrix -> m Double
getA self = liftDOM ((self ^. js "a") >>= valToNumber)
setB :: (MonadDOM m) => SVGMatrix -> Double -> m ()
setB self val = liftDOM (self ^. jss "b" (toJSVal val))
getB :: (MonadDOM m) => SVGMatrix -> m Double
getB self = liftDOM ((self ^. js "b") >>= valToNumber)
setC :: (MonadDOM m) => SVGMatrix -> Double -> m ()
setC self val = liftDOM (self ^. jss "c" (toJSVal val))
getC :: (MonadDOM m) => SVGMatrix -> m Double
getC self = liftDOM ((self ^. js "c") >>= valToNumber)
setD :: (MonadDOM m) => SVGMatrix -> Double -> m ()
setD self val = liftDOM (self ^. jss "d" (toJSVal val))
getD :: (MonadDOM m) => SVGMatrix -> m Double
getD self = liftDOM ((self ^. js "d") >>= valToNumber)
setE :: (MonadDOM m) => SVGMatrix -> Double -> m ()
setE self val = liftDOM (self ^. jss "e" (toJSVal val))
getE :: (MonadDOM m) => SVGMatrix -> m Double
getE self = liftDOM ((self ^. js "e") >>= valToNumber)
setF :: (MonadDOM m) => SVGMatrix -> Double -> m ()
setF self val = liftDOM (self ^. jss "f" (toJSVal val))
getF :: (MonadDOM m) => SVGMatrix -> m Double
getF self = liftDOM ((self ^. js "f") >>= valToNumber)