{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGTransform (js_setMatrix, setMatrix, js_setTranslate, setTranslate, js_setScale, setScale, js_setRotate, setRotate, js_setSkewX, setSkewX, js_setSkewY, setSkewY, pattern SVG_TRANSFORM_UNKNOWN, pattern SVG_TRANSFORM_MATRIX, pattern SVG_TRANSFORM_TRANSLATE, pattern SVG_TRANSFORM_SCALE, pattern SVG_TRANSFORM_ROTATE, pattern SVG_TRANSFORM_SKEWX, pattern SVG_TRANSFORM_SKEWY, js_getType, getType, js_getMatrix, getMatrix, js_getAngle, getAngle, SVGTransform, castToSVGTransform, gTypeSVGTransform) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"setMatrix\"]($2)" js_setMatrix :: JSRef SVGTransform -> JSRef SVGMatrix -> IO () -- | setMatrix :: (MonadIO m) => SVGTransform -> Maybe SVGMatrix -> m () setMatrix self matrix = liftIO (js_setMatrix (unSVGTransform self) (maybe jsNull pToJSRef matrix)) foreign import javascript unsafe "$1[\"setTranslate\"]($2, $3)" js_setTranslate :: JSRef SVGTransform -> Float -> Float -> IO () -- | setTranslate :: (MonadIO m) => SVGTransform -> Float -> Float -> m () setTranslate self tx ty = liftIO (js_setTranslate (unSVGTransform self) tx ty) foreign import javascript unsafe "$1[\"setScale\"]($2, $3)" js_setScale :: JSRef SVGTransform -> Float -> Float -> IO () -- | setScale :: (MonadIO m) => SVGTransform -> Float -> Float -> m () setScale self sx sy = liftIO (js_setScale (unSVGTransform self) sx sy) foreign import javascript unsafe "$1[\"setRotate\"]($2, $3, $4)" js_setRotate :: JSRef SVGTransform -> Float -> Float -> Float -> IO () -- | setRotate :: (MonadIO m) => SVGTransform -> Float -> Float -> Float -> m () setRotate self angle cx cy = liftIO (js_setRotate (unSVGTransform self) angle cx cy) foreign import javascript unsafe "$1[\"setSkewX\"]($2)" js_setSkewX :: JSRef SVGTransform -> Float -> IO () -- | setSkewX :: (MonadIO m) => SVGTransform -> Float -> m () setSkewX self angle = liftIO (js_setSkewX (unSVGTransform self) angle) foreign import javascript unsafe "$1[\"setSkewY\"]($2)" js_setSkewY :: JSRef SVGTransform -> Float -> IO () -- | setSkewY :: (MonadIO m) => SVGTransform -> Float -> m () setSkewY self angle = liftIO (js_setSkewY (unSVGTransform self) angle) pattern SVG_TRANSFORM_UNKNOWN = 0 pattern SVG_TRANSFORM_MATRIX = 1 pattern SVG_TRANSFORM_TRANSLATE = 2 pattern SVG_TRANSFORM_SCALE = 3 pattern SVG_TRANSFORM_ROTATE = 4 pattern SVG_TRANSFORM_SKEWX = 5 pattern SVG_TRANSFORM_SKEWY = 6 foreign import javascript unsafe "$1[\"type\"]" js_getType :: JSRef SVGTransform -> IO Word -- | getType :: (MonadIO m) => SVGTransform -> m Word getType self = liftIO (js_getType (unSVGTransform self)) foreign import javascript unsafe "$1[\"matrix\"]" js_getMatrix :: JSRef SVGTransform -> IO (JSRef SVGMatrix) -- | getMatrix :: (MonadIO m) => SVGTransform -> m (Maybe SVGMatrix) getMatrix self = liftIO ((js_getMatrix (unSVGTransform self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"angle\"]" js_getAngle :: JSRef SVGTransform -> IO Float -- | getAngle :: (MonadIO m) => SVGTransform -> m Float getAngle self = liftIO (js_getAngle (unSVGTransform self))