{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.SVGTransform
(setMatrix, setTranslate, setScale, setRotate, setSkewX, 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, getType, getMatrix, getAngle,
SVGTransform(..), gTypeSVGTransform)
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
setMatrix :: (MonadDOM m) => SVGTransform -> SVGMatrix -> m ()
setMatrix :: SVGTransform -> SVGMatrix -> m ()
setMatrix SVGTransform
self SVGMatrix
matrix
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGTransform
self SVGTransform
-> Getting (JSM JSVal) SVGTransform (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"setMatrix" [SVGMatrix -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGMatrix
matrix]))
setTranslate ::
(MonadDOM m) => SVGTransform -> Float -> Float -> m ()
setTranslate :: SVGTransform -> Float -> Float -> m ()
setTranslate SVGTransform
self Float
tx Float
ty
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGTransform
self SVGTransform
-> Getting (JSM JSVal) SVGTransform (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"setTranslate" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
tx, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
ty]))
setScale :: (MonadDOM m) => SVGTransform -> Float -> Float -> m ()
setScale :: SVGTransform -> Float -> Float -> m ()
setScale SVGTransform
self Float
sx Float
sy
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGTransform
self SVGTransform
-> Getting (JSM JSVal) SVGTransform (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"setScale" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
sx, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
sy]))
setRotate ::
(MonadDOM m) => SVGTransform -> Float -> Float -> Float -> m ()
setRotate :: SVGTransform -> Float -> Float -> Float -> m ()
setRotate SVGTransform
self Float
angle Float
cx Float
cy
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGTransform
self SVGTransform
-> Getting (JSM JSVal) SVGTransform (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"setRotate" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
angle, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
cx, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
cy]))
setSkewX :: (MonadDOM m) => SVGTransform -> Float -> m ()
setSkewX :: SVGTransform -> Float -> m ()
setSkewX SVGTransform
self Float
angle
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGTransform
self SVGTransform
-> Getting (JSM JSVal) SVGTransform (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"setSkewX" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
angle]))
setSkewY :: (MonadDOM m) => SVGTransform -> Float -> m ()
setSkewY :: SVGTransform -> Float -> m ()
setSkewY SVGTransform
self Float
angle
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGTransform
self SVGTransform
-> Getting (JSM JSVal) SVGTransform (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"setSkewY" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
angle]))
pattern $bSVG_TRANSFORM_UNKNOWN :: a
$mSVG_TRANSFORM_UNKNOWN :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SVG_TRANSFORM_UNKNOWN = 0
pattern $bSVG_TRANSFORM_MATRIX :: a
$mSVG_TRANSFORM_MATRIX :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SVG_TRANSFORM_MATRIX = 1
pattern $bSVG_TRANSFORM_TRANSLATE :: a
$mSVG_TRANSFORM_TRANSLATE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SVG_TRANSFORM_TRANSLATE = 2
pattern $bSVG_TRANSFORM_SCALE :: a
$mSVG_TRANSFORM_SCALE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SVG_TRANSFORM_SCALE = 3
pattern $bSVG_TRANSFORM_ROTATE :: a
$mSVG_TRANSFORM_ROTATE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SVG_TRANSFORM_ROTATE = 4
pattern $bSVG_TRANSFORM_SKEWX :: a
$mSVG_TRANSFORM_SKEWX :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SVG_TRANSFORM_SKEWX = 5
pattern $bSVG_TRANSFORM_SKEWY :: a
$mSVG_TRANSFORM_SKEWY :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SVG_TRANSFORM_SKEWY = 6
getType :: (MonadDOM m) => SVGTransform -> m Word
getType :: SVGTransform -> m Word
getType SVGTransform
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Word
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((SVGTransform
self SVGTransform
-> Getting (JSM JSVal) SVGTransform (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGTransform (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"type") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getMatrix :: (MonadDOM m) => SVGTransform -> m SVGMatrix
getMatrix :: SVGTransform -> m SVGMatrix
getMatrix SVGTransform
self
= DOM SVGMatrix -> m SVGMatrix
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGTransform
self SVGTransform
-> Getting (JSM JSVal) SVGTransform (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGTransform (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"matrix") JSM JSVal -> (JSVal -> DOM SVGMatrix) -> DOM SVGMatrix
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGMatrix
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getAngle :: (MonadDOM m) => SVGTransform -> m Float
getAngle :: SVGTransform -> m Float
getAngle SVGTransform
self
= DOM Float -> m Float
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac (Double -> Float) -> JSM Double -> DOM Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((SVGTransform
self SVGTransform
-> Getting (JSM JSVal) SVGTransform (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter SVGTransform (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"angle") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))