{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WebKitCSSMatrix (newWebKitCSSMatrix, setMatrixValue, multiply, multiply_, inverse, inverse_, translate, translate_, scale, scale_, rotate, rotate_, rotateAxisAngle, rotateAxisAngle_, skewX, skewX_, skewY, skewY_, toString, toString_, setA, getA, setB, getB, setC, getC, setD, getD, setE, getE, setF, getF, setM11, getM11, setM12, getM12, setM13, getM13, setM14, getM14, setM21, getM21, setM22, getM22, setM23, getM23, setM24, getM24, setM31, getM31, setM32, getM32, setM33, getM33, setM34, getM34, setM41, getM41, setM42, getM42, setM43, getM43, setM44, getM44, WebKitCSSMatrix(..), gTypeWebKitCSSMatrix) 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 -- | newWebKitCSSMatrix :: (MonadDOM m, ToJSString cssValue) => Maybe cssValue -> m WebKitCSSMatrix newWebKitCSSMatrix cssValue = liftDOM (WebKitCSSMatrix <$> new (jsg "WebKitCSSMatrix") [toJSVal cssValue]) -- | setMatrixValue :: (MonadDOM m, ToJSString string) => WebKitCSSMatrix -> Maybe string -> m () setMatrixValue self string = liftDOM (void (self ^. jsf "setMatrixValue" [toJSVal string])) -- | multiply :: (MonadDOM m) => WebKitCSSMatrix -> Maybe WebKitCSSMatrix -> m WebKitCSSMatrix multiply self secondMatrix = liftDOM ((self ^. jsf "multiply" [toJSVal secondMatrix]) >>= fromJSValUnchecked) -- | multiply_ :: (MonadDOM m) => WebKitCSSMatrix -> Maybe WebKitCSSMatrix -> m () multiply_ self secondMatrix = liftDOM (void (self ^. jsf "multiply" [toJSVal secondMatrix])) -- | inverse :: (MonadDOM m) => WebKitCSSMatrix -> m WebKitCSSMatrix inverse self = liftDOM ((self ^. jsf "inverse" ()) >>= fromJSValUnchecked) -- | inverse_ :: (MonadDOM m) => WebKitCSSMatrix -> m () inverse_ self = liftDOM (void (self ^. jsf "inverse" ())) -- | translate :: (MonadDOM m) => WebKitCSSMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> m WebKitCSSMatrix translate self x y z = liftDOM ((self ^. jsf "translate" [toJSVal x, toJSVal y, toJSVal z]) >>= fromJSValUnchecked) -- | translate_ :: (MonadDOM m) => WebKitCSSMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> m () translate_ self x y z = liftDOM (void (self ^. jsf "translate" [toJSVal x, toJSVal y, toJSVal z])) -- | scale :: (MonadDOM m) => WebKitCSSMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> m WebKitCSSMatrix scale self scaleX scaleY scaleZ = liftDOM ((self ^. jsf "scale" [toJSVal scaleX, toJSVal scaleY, toJSVal scaleZ]) >>= fromJSValUnchecked) -- | scale_ :: (MonadDOM m) => WebKitCSSMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> m () scale_ self scaleX scaleY scaleZ = liftDOM (void (self ^. jsf "scale" [toJSVal scaleX, toJSVal scaleY, toJSVal scaleZ])) -- | rotate :: (MonadDOM m) => WebKitCSSMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> m WebKitCSSMatrix rotate self rotX rotY rotZ = liftDOM ((self ^. jsf "rotate" [toJSVal rotX, toJSVal rotY, toJSVal rotZ]) >>= fromJSValUnchecked) -- | rotate_ :: (MonadDOM m) => WebKitCSSMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> m () rotate_ self rotX rotY rotZ = liftDOM (void (self ^. jsf "rotate" [toJSVal rotX, toJSVal rotY, toJSVal rotZ])) -- | rotateAxisAngle :: (MonadDOM m) => WebKitCSSMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m WebKitCSSMatrix rotateAxisAngle self x y z angle = liftDOM ((self ^. jsf "rotateAxisAngle" [toJSVal x, toJSVal y, toJSVal z, toJSVal angle]) >>= fromJSValUnchecked) -- | rotateAxisAngle_ :: (MonadDOM m) => WebKitCSSMatrix -> Maybe Double -> Maybe Double -> Maybe Double -> Maybe Double -> m () rotateAxisAngle_ self x y z angle = liftDOM (void (self ^. jsf "rotateAxisAngle" [toJSVal x, toJSVal y, toJSVal z, toJSVal angle])) -- | skewX :: (MonadDOM m) => WebKitCSSMatrix -> Maybe Double -> m WebKitCSSMatrix skewX self angle = liftDOM ((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSValUnchecked) -- | skewX_ :: (MonadDOM m) => WebKitCSSMatrix -> Maybe Double -> m () skewX_ self angle = liftDOM (void (self ^. jsf "skewX" [toJSVal angle])) -- | skewY :: (MonadDOM m) => WebKitCSSMatrix -> Maybe Double -> m WebKitCSSMatrix skewY self angle = liftDOM ((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSValUnchecked) -- | skewY_ :: (MonadDOM m) => WebKitCSSMatrix -> Maybe Double -> m () skewY_ self angle = liftDOM (void (self ^. jsf "skewY" [toJSVal angle])) -- | toString :: (MonadDOM m, FromJSString result) => WebKitCSSMatrix -> m result toString self = liftDOM ((self ^. jsf "toString" ()) >>= fromJSValUnchecked) -- | toString_ :: (MonadDOM m) => WebKitCSSMatrix -> m () toString_ self = liftDOM (void (self ^. jsf "toString" ())) -- | setA :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setA self val = liftDOM (self ^. jss "a" (toJSVal val)) -- | getA :: (MonadDOM m) => WebKitCSSMatrix -> m Double getA self = liftDOM ((self ^. js "a") >>= valToNumber) -- | setB :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setB self val = liftDOM (self ^. jss "b" (toJSVal val)) -- | getB :: (MonadDOM m) => WebKitCSSMatrix -> m Double getB self = liftDOM ((self ^. js "b") >>= valToNumber) -- | setC :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setC self val = liftDOM (self ^. jss "c" (toJSVal val)) -- | getC :: (MonadDOM m) => WebKitCSSMatrix -> m Double getC self = liftDOM ((self ^. js "c") >>= valToNumber) -- | setD :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setD self val = liftDOM (self ^. jss "d" (toJSVal val)) -- | getD :: (MonadDOM m) => WebKitCSSMatrix -> m Double getD self = liftDOM ((self ^. js "d") >>= valToNumber) -- | setE :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setE self val = liftDOM (self ^. jss "e" (toJSVal val)) -- | getE :: (MonadDOM m) => WebKitCSSMatrix -> m Double getE self = liftDOM ((self ^. js "e") >>= valToNumber) -- | setF :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setF self val = liftDOM (self ^. jss "f" (toJSVal val)) -- | getF :: (MonadDOM m) => WebKitCSSMatrix -> m Double getF self = liftDOM ((self ^. js "f") >>= valToNumber) -- | setM11 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM11 self val = liftDOM (self ^. jss "m11" (toJSVal val)) -- | getM11 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM11 self = liftDOM ((self ^. js "m11") >>= valToNumber) -- | setM12 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM12 self val = liftDOM (self ^. jss "m12" (toJSVal val)) -- | getM12 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM12 self = liftDOM ((self ^. js "m12") >>= valToNumber) -- | setM13 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM13 self val = liftDOM (self ^. jss "m13" (toJSVal val)) -- | getM13 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM13 self = liftDOM ((self ^. js "m13") >>= valToNumber) -- | setM14 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM14 self val = liftDOM (self ^. jss "m14" (toJSVal val)) -- | getM14 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM14 self = liftDOM ((self ^. js "m14") >>= valToNumber) -- | setM21 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM21 self val = liftDOM (self ^. jss "m21" (toJSVal val)) -- | getM21 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM21 self = liftDOM ((self ^. js "m21") >>= valToNumber) -- | setM22 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM22 self val = liftDOM (self ^. jss "m22" (toJSVal val)) -- | getM22 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM22 self = liftDOM ((self ^. js "m22") >>= valToNumber) -- | setM23 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM23 self val = liftDOM (self ^. jss "m23" (toJSVal val)) -- | getM23 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM23 self = liftDOM ((self ^. js "m23") >>= valToNumber) -- | setM24 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM24 self val = liftDOM (self ^. jss "m24" (toJSVal val)) -- | getM24 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM24 self = liftDOM ((self ^. js "m24") >>= valToNumber) -- | setM31 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM31 self val = liftDOM (self ^. jss "m31" (toJSVal val)) -- | getM31 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM31 self = liftDOM ((self ^. js "m31") >>= valToNumber) -- | setM32 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM32 self val = liftDOM (self ^. jss "m32" (toJSVal val)) -- | getM32 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM32 self = liftDOM ((self ^. js "m32") >>= valToNumber) -- | setM33 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM33 self val = liftDOM (self ^. jss "m33" (toJSVal val)) -- | getM33 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM33 self = liftDOM ((self ^. js "m33") >>= valToNumber) -- | setM34 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM34 self val = liftDOM (self ^. jss "m34" (toJSVal val)) -- | getM34 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM34 self = liftDOM ((self ^. js "m34") >>= valToNumber) -- | setM41 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM41 self val = liftDOM (self ^. jss "m41" (toJSVal val)) -- | getM41 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM41 self = liftDOM ((self ^. js "m41") >>= valToNumber) -- | setM42 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM42 self val = liftDOM (self ^. jss "m42" (toJSVal val)) -- | getM42 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM42 self = liftDOM ((self ^. js "m42") >>= valToNumber) -- | setM43 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM43 self val = liftDOM (self ^. jss "m43" (toJSVal val)) -- | getM43 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM43 self = liftDOM ((self ^. js "m43") >>= valToNumber) -- | setM44 :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () setM44 self val = liftDOM (self ^. jss "m44" (toJSVal val)) -- | getM44 :: (MonadDOM m) => WebKitCSSMatrix -> m Double getM44 self = liftDOM ((self ^. js "m44") >>= valToNumber)