{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.WebKitCSSMatrix (newWebKitCSSMatrix, setMatrixValue, multiply, inverse, translate, scale, rotate, rotateAxisAngle, skewX, skewY, 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, castToWebKitCSSMatrix, gTypeWebKitCSSMatrix) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) 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 Language.Javascript.JSaddle.DOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName) import Language.Javascript.JSaddle.DOM.Enums -- | newWebKitCSSMatrix :: (MonadDOM m, ToJSString cssValue) => cssValue -> m WebKitCSSMatrix newWebKitCSSMatrix cssValue = liftDOM (WebKitCSSMatrix <$> new (jsg "WebKitCSSMatrix") [toJSVal cssValue]) -- | setMatrixValue :: (MonadDOM m, ToJSString string) => WebKitCSSMatrix -> string -> m () setMatrixValue self string = liftDOM (void (self ^. jsf "setMatrixValue" [toJSVal string])) -- | multiply :: (MonadDOM m) => WebKitCSSMatrix -> Maybe WebKitCSSMatrix -> m (Maybe WebKitCSSMatrix) multiply self secondMatrix = liftDOM ((self ^. jsf "multiply" [toJSVal secondMatrix]) >>= fromJSVal) -- | inverse :: (MonadDOM m) => WebKitCSSMatrix -> m (Maybe WebKitCSSMatrix) inverse self = liftDOM ((self ^. js "inverse") >>= fromJSVal) -- | translate :: (MonadDOM m) => WebKitCSSMatrix -> Double -> Double -> Double -> m (Maybe WebKitCSSMatrix) translate self x y z = liftDOM ((self ^. jsf "translate" [toJSVal x, toJSVal y, toJSVal z]) >>= fromJSVal) -- | scale :: (MonadDOM m) => WebKitCSSMatrix -> Double -> Double -> Double -> m (Maybe WebKitCSSMatrix) scale self scaleX scaleY scaleZ = liftDOM ((self ^. jsf "scale" [toJSVal scaleX, toJSVal scaleY, toJSVal scaleZ]) >>= fromJSVal) -- | rotate :: (MonadDOM m) => WebKitCSSMatrix -> Double -> Double -> Double -> m (Maybe WebKitCSSMatrix) rotate self rotX rotY rotZ = liftDOM ((self ^. jsf "rotate" [toJSVal rotX, toJSVal rotY, toJSVal rotZ]) >>= fromJSVal) -- | rotateAxisAngle :: (MonadDOM m) => WebKitCSSMatrix -> Double -> Double -> Double -> Double -> m (Maybe WebKitCSSMatrix) rotateAxisAngle self x y z angle = liftDOM ((self ^. jsf "rotateAxisAngle" [toJSVal x, toJSVal y, toJSVal z, toJSVal angle]) >>= fromJSVal) -- | skewX :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m (Maybe WebKitCSSMatrix) skewX self angle = liftDOM ((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSVal) -- | skewY :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m (Maybe WebKitCSSMatrix) skewY self angle = liftDOM ((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSVal) -- | toString :: (MonadDOM m, FromJSString result) => WebKitCSSMatrix -> m result toString self = liftDOM ((self ^. js "toString") >>= fromJSValUnchecked) -- | 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)