{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# 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)