CanvasPath.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.CanvasPath
       (arc, arcTo, bezierCurveTo, closePath, ellipse, lineTo, moveTo, quadraticCurveTo, rect, roundRect, CanvasPath(..), gTypeCanvasPath, IsCanvasPath, toCanvasPath)
       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/arc MDN CanvasPath.arc documentation>
arc :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> Double -> Maybe Bool -> m ()
arc self x y radius startAngle endAngle counterclockwise = liftDOM (void ((Types.toCanvasPath self) ^. jsf "arc" [toJSVal x, toJSVal y, toJSVal radius, toJSVal startAngle, toJSVal endAngle, P.maybe (P.return jsUndefined) toJSVal counterclockwise]))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/arcTo MDN CanvasPath.arcTo documentation>
arcTo :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> Double -> m ()
arcTo self x1 y1 x2 y2 radius = liftDOM (void ((Types.toCanvasPath self) ^. jsf "arcTo" [toJSVal x1, toJSVal y1, toJSVal x2, toJSVal y2, toJSVal radius]))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/bezierCurveTo MDN CanvasPath.bezierCurveTo documentation>
bezierCurveTo :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> Double -> Double -> m ()
bezierCurveTo self cp1x cp1y cp2x cp2y x y = liftDOM (void ((Types.toCanvasPath self) ^. jsf "bezierCurveTo" [toJSVal cp1x, toJSVal cp1y, toJSVal cp2x, toJSVal cp2y, toJSVal x, toJSVal y]))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/closePath MDN CanvasPath.closePath documentation>
closePath :: (MonadDOM m, IsCanvasPath self) => self -> m ()
closePath self = liftDOM (void ((Types.toCanvasPath self) ^. jsf "closePath" ()))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/ellipse MDN CanvasPath.ellipse documentation>
ellipse :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> Double -> Double -> Double -> Maybe Bool -> m ()
ellipse self x y radiusX radiusY rotation startAngle endAngle counterclockwise = liftDOM (void ((Types.toCanvasPath self) ^. jsf "ellipse" [toJSVal x, toJSVal y, toJSVal radiusX, toJSVal radiusY, toJSVal rotation, toJSVal startAngle, toJSVal endAngle, P.maybe (P.return jsUndefined) toJSVal counterclockwise]))

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

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

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/quadraticCurveTo MDN CanvasPath.quadraticCurveTo documentation>
quadraticCurveTo :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> m ()
quadraticCurveTo self cpx cpy x y = liftDOM (void ((Types.toCanvasPath self) ^. jsf "quadraticCurveTo" [toJSVal cpx, toJSVal cpy, toJSVal x, toJSVal y]))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/rect MDN CanvasPath.rect documentation>
rect :: (MonadDOM m, IsCanvasPath self) => self -> Double -> Double -> Double -> Double -> m ()
rect self x y w h = liftDOM (void ((Types.toCanvasPath self) ^. jsf "rect" [toJSVal x, toJSVal y, toJSVal w, toJSVal h]))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/roundRect MDN CanvasPath.roundRect documentation>
roundRect :: (MonadDOM m, IsCanvasPath self, IsDoubleOrDOMPointInitOrSequenceDoubleOrDOMPointInit radii) => self -> Double -> Double -> Double -> Double -> Maybe radii -> m ()
roundRect self x y w h radii = liftDOM (void ((Types.toCanvasPath self) ^. jsf "roundRect" [toJSVal x, toJSVal y, toJSVal w, toJSVal h, P.maybe (P.return jsUndefined) toJSVal radii]))