CanvasTransform.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.CanvasTransform
       (getTransform, getTransform_, resetTransform, rotate, scale, setTransform, setTransformTransform, transform, translate, CanvasTransform(..), gTypeCanvasTransform, IsCanvasTransform, toCanvasTransform)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getTransform MDN CanvasTransform.getTransform documentation>
getTransform :: (MonadDOM m, IsCanvasTransform self) => self -> m DOMMatrix
getTransform self = liftDOM ((((Types.toCanvasTransform self) ^. jsf "getTransform" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getTransform MDN CanvasTransform.getTransform documentation>
getTransform_ :: (MonadDOM m, IsCanvasTransform self) => self -> m ()
getTransform_ self = liftDOM (void ((Types.toCanvasTransform self) ^. jsf "getTransform" ()))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/resetTransform MDN CanvasTransform.resetTransform documentation>
resetTransform :: (MonadDOM m, IsCanvasTransform self) => self -> m ()
resetTransform self = liftDOM (void ((Types.toCanvasTransform self) ^. jsf "resetTransform" ()))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/rotate MDN CanvasTransform.rotate documentation>
rotate :: (MonadDOM m, IsCanvasTransform self) => self -> Double -> m ()
rotate self angle = liftDOM (void ((Types.toCanvasTransform self) ^. jsf "rotate" [toJSVal angle]))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/scale MDN CanvasTransform.scale documentation>
scale :: (MonadDOM m, IsCanvasTransform self) => self -> Double -> Double -> m ()
scale self x y = liftDOM (void ((Types.toCanvasTransform self) ^. jsf "scale" [toJSVal x, toJSVal y]))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/setTransform MDN CanvasTransform.setTransform documentation>
setTransform :: (MonadDOM m, IsCanvasTransform self) => self -> Double -> Double -> Double -> Double -> Double -> Double -> m ()
setTransform self a b c d e f = liftDOM (void ((Types.toCanvasTransform self) ^. jsf "setTransform" [toJSVal a, toJSVal b, toJSVal c, toJSVal d, toJSVal e, toJSVal f]))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/setTransform MDN CanvasTransform.setTransform documentation>
setTransformTransform :: (MonadDOM m, IsCanvasTransform self, IsDOMMatrix2DInit transform) => self -> Maybe transform -> m ()
setTransformTransform self transform = liftDOM (void ((Types.toCanvasTransform self) ^. jsf "setTransform" [P.maybe (P.return jsUndefined) toJSVal transform]))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/transform MDN CanvasTransform.transform documentation>
transform :: (MonadDOM m, IsCanvasTransform self) => self -> Double -> Double -> Double -> Double -> Double -> Double -> m ()
transform self a b c d e f = liftDOM (void ((Types.toCanvasTransform self) ^. jsf "transform" [toJSVal a, toJSVal b, toJSVal c, toJSVal d, toJSVal e, toJSVal f]))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/translate MDN CanvasTransform.translate documentation>
translate :: (MonadDOM m, IsCanvasTransform self) => self -> Double -> Double -> m ()
translate self x y = liftDOM (void ((Types.toCanvasTransform self) ^. jsf "translate" [toJSVal x, toJSVal y]))