{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGMatrix (multiply, multiply_, multiplyUnsafe, multiplyUnchecked, inverse, inverse_, inverseUnsafe, inverseUnchecked, translate, translate_, translateUnsafe, translateUnchecked, scale, scale_, scaleUnsafe, scaleUnchecked, scaleNonUniform, scaleNonUniform_, scaleNonUniformUnsafe, scaleNonUniformUnchecked, rotate, rotate_, rotateUnsafe, rotateUnchecked, rotateFromVector, rotateFromVector_, rotateFromVectorUnsafe, rotateFromVectorUnchecked, flipX, flipX_, flipXUnsafe, flipXUnchecked, flipY, flipY_, flipYUnsafe, flipYUnchecked, skewX, skewX_, skewXUnsafe, skewXUnchecked, skewY, skewY_, skewYUnsafe, skewYUnchecked, 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 Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.Enums -- | multiply :: (MonadDOM m) => SVGMatrix -> Maybe SVGMatrix -> m (Maybe SVGMatrix) multiply self secondMatrix = liftDOM ((self ^. jsf "multiply" [toJSVal secondMatrix]) >>= fromJSVal) -- | multiply_ :: (MonadDOM m) => SVGMatrix -> Maybe SVGMatrix -> m () multiply_ self secondMatrix = liftDOM (void (self ^. jsf "multiply" [toJSVal secondMatrix])) -- | multiplyUnsafe :: (MonadDOM m, HasCallStack) => SVGMatrix -> Maybe SVGMatrix -> m SVGMatrix multiplyUnsafe self secondMatrix = liftDOM (((self ^. jsf "multiply" [toJSVal secondMatrix]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | multiplyUnchecked :: (MonadDOM m) => SVGMatrix -> Maybe SVGMatrix -> m SVGMatrix multiplyUnchecked self secondMatrix = liftDOM ((self ^. jsf "multiply" [toJSVal secondMatrix]) >>= fromJSValUnchecked) -- | inverse :: (MonadDOM m) => SVGMatrix -> m (Maybe SVGMatrix) inverse self = liftDOM ((self ^. jsf "inverse" ()) >>= fromJSVal) -- | inverse_ :: (MonadDOM m) => SVGMatrix -> m () inverse_ self = liftDOM (void (self ^. jsf "inverse" ())) -- | inverseUnsafe :: (MonadDOM m, HasCallStack) => SVGMatrix -> m SVGMatrix inverseUnsafe self = liftDOM (((self ^. jsf "inverse" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | inverseUnchecked :: (MonadDOM m) => SVGMatrix -> m SVGMatrix inverseUnchecked self = liftDOM ((self ^. jsf "inverse" ()) >>= fromJSValUnchecked) -- | translate :: (MonadDOM m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix) translate self x y = liftDOM ((self ^. jsf "translate" [toJSVal x, toJSVal y]) >>= fromJSVal) -- | translate_ :: (MonadDOM m) => SVGMatrix -> Float -> Float -> m () translate_ self x y = liftDOM (void (self ^. jsf "translate" [toJSVal x, toJSVal y])) -- | translateUnsafe :: (MonadDOM m, HasCallStack) => SVGMatrix -> Float -> Float -> m SVGMatrix translateUnsafe self x y = liftDOM (((self ^. jsf "translate" [toJSVal x, toJSVal y]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | translateUnchecked :: (MonadDOM m) => SVGMatrix -> Float -> Float -> m SVGMatrix translateUnchecked self x y = liftDOM ((self ^. jsf "translate" [toJSVal x, toJSVal y]) >>= fromJSValUnchecked) -- | scale :: (MonadDOM m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) scale self scaleFactor = liftDOM ((self ^. jsf "scale" [toJSVal scaleFactor]) >>= fromJSVal) -- | scale_ :: (MonadDOM m) => SVGMatrix -> Float -> m () scale_ self scaleFactor = liftDOM (void (self ^. jsf "scale" [toJSVal scaleFactor])) -- | scaleUnsafe :: (MonadDOM m, HasCallStack) => SVGMatrix -> Float -> m SVGMatrix scaleUnsafe self scaleFactor = liftDOM (((self ^. jsf "scale" [toJSVal scaleFactor]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | scaleUnchecked :: (MonadDOM m) => SVGMatrix -> Float -> m SVGMatrix scaleUnchecked self scaleFactor = liftDOM ((self ^. jsf "scale" [toJSVal scaleFactor]) >>= fromJSValUnchecked) -- | scaleNonUniform :: (MonadDOM m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix) scaleNonUniform self scaleFactorX scaleFactorY = liftDOM ((self ^. jsf "scaleNonUniform" [toJSVal scaleFactorX, toJSVal scaleFactorY]) >>= fromJSVal) -- | scaleNonUniform_ :: (MonadDOM m) => SVGMatrix -> Float -> Float -> m () scaleNonUniform_ self scaleFactorX scaleFactorY = liftDOM (void (self ^. jsf "scaleNonUniform" [toJSVal scaleFactorX, toJSVal scaleFactorY])) -- | scaleNonUniformUnsafe :: (MonadDOM m, HasCallStack) => SVGMatrix -> Float -> Float -> m SVGMatrix scaleNonUniformUnsafe self scaleFactorX scaleFactorY = liftDOM (((self ^. jsf "scaleNonUniform" [toJSVal scaleFactorX, toJSVal scaleFactorY]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | scaleNonUniformUnchecked :: (MonadDOM m) => SVGMatrix -> Float -> Float -> m SVGMatrix scaleNonUniformUnchecked self scaleFactorX scaleFactorY = liftDOM ((self ^. jsf "scaleNonUniform" [toJSVal scaleFactorX, toJSVal scaleFactorY]) >>= fromJSValUnchecked) -- | rotate :: (MonadDOM m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) rotate self angle = liftDOM ((self ^. jsf "rotate" [toJSVal angle]) >>= fromJSVal) -- | rotate_ :: (MonadDOM m) => SVGMatrix -> Float -> m () rotate_ self angle = liftDOM (void (self ^. jsf "rotate" [toJSVal angle])) -- | rotateUnsafe :: (MonadDOM m, HasCallStack) => SVGMatrix -> Float -> m SVGMatrix rotateUnsafe self angle = liftDOM (((self ^. jsf "rotate" [toJSVal angle]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | rotateUnchecked :: (MonadDOM m) => SVGMatrix -> Float -> m SVGMatrix rotateUnchecked self angle = liftDOM ((self ^. jsf "rotate" [toJSVal angle]) >>= fromJSValUnchecked) -- | rotateFromVector :: (MonadDOM m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix) rotateFromVector self x y = liftDOM ((self ^. jsf "rotateFromVector" [toJSVal x, toJSVal y]) >>= fromJSVal) -- | rotateFromVector_ :: (MonadDOM m) => SVGMatrix -> Float -> Float -> m () rotateFromVector_ self x y = liftDOM (void (self ^. jsf "rotateFromVector" [toJSVal x, toJSVal y])) -- | rotateFromVectorUnsafe :: (MonadDOM m, HasCallStack) => SVGMatrix -> Float -> Float -> m SVGMatrix rotateFromVectorUnsafe self x y = liftDOM (((self ^. jsf "rotateFromVector" [toJSVal x, toJSVal y]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | rotateFromVectorUnchecked :: (MonadDOM m) => SVGMatrix -> Float -> Float -> m SVGMatrix rotateFromVectorUnchecked self x y = liftDOM ((self ^. jsf "rotateFromVector" [toJSVal x, toJSVal y]) >>= fromJSValUnchecked) -- | flipX :: (MonadDOM m) => SVGMatrix -> m (Maybe SVGMatrix) flipX self = liftDOM ((self ^. jsf "flipX" ()) >>= fromJSVal) -- | flipX_ :: (MonadDOM m) => SVGMatrix -> m () flipX_ self = liftDOM (void (self ^. jsf "flipX" ())) -- | flipXUnsafe :: (MonadDOM m, HasCallStack) => SVGMatrix -> m SVGMatrix flipXUnsafe self = liftDOM (((self ^. jsf "flipX" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | flipXUnchecked :: (MonadDOM m) => SVGMatrix -> m SVGMatrix flipXUnchecked self = liftDOM ((self ^. jsf "flipX" ()) >>= fromJSValUnchecked) -- | flipY :: (MonadDOM m) => SVGMatrix -> m (Maybe SVGMatrix) flipY self = liftDOM ((self ^. jsf "flipY" ()) >>= fromJSVal) -- | flipY_ :: (MonadDOM m) => SVGMatrix -> m () flipY_ self = liftDOM (void (self ^. jsf "flipY" ())) -- | flipYUnsafe :: (MonadDOM m, HasCallStack) => SVGMatrix -> m SVGMatrix flipYUnsafe self = liftDOM (((self ^. jsf "flipY" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | flipYUnchecked :: (MonadDOM m) => SVGMatrix -> m SVGMatrix flipYUnchecked self = liftDOM ((self ^. jsf "flipY" ()) >>= fromJSValUnchecked) -- | skewX :: (MonadDOM m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) skewX self angle = liftDOM ((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSVal) -- | skewX_ :: (MonadDOM m) => SVGMatrix -> Float -> m () skewX_ self angle = liftDOM (void (self ^. jsf "skewX" [toJSVal angle])) -- | skewXUnsafe :: (MonadDOM m, HasCallStack) => SVGMatrix -> Float -> m SVGMatrix skewXUnsafe self angle = liftDOM (((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | skewXUnchecked :: (MonadDOM m) => SVGMatrix -> Float -> m SVGMatrix skewXUnchecked self angle = liftDOM ((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSValUnchecked) -- | skewY :: (MonadDOM m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) skewY self angle = liftDOM ((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSVal) -- | skewY_ :: (MonadDOM m) => SVGMatrix -> Float -> m () skewY_ self angle = liftDOM (void (self ^. jsf "skewY" [toJSVal angle])) -- | skewYUnsafe :: (MonadDOM m, HasCallStack) => SVGMatrix -> Float -> m SVGMatrix skewYUnsafe self angle = liftDOM (((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | skewYUnchecked :: (MonadDOM m) => SVGMatrix -> Float -> m SVGMatrix skewYUnchecked self angle = liftDOM ((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSValUnchecked) -- | 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)