module JSDOM.Generated.CanvasRenderingContext2D
(save, restore, scale, rotate, translate, transform, setTransform,
createLinearGradient, createLinearGradient_,
createLinearGradientUnsafe, createLinearGradientUnchecked,
createRadialGradient, createRadialGradient_,
createRadialGradientUnsafe, createRadialGradientUnchecked,
setLineDash, getLineDash, getLineDash_, clearRect, fillRect,
beginPath, closePath, moveTo, lineTo, quadraticCurveTo,
bezierCurveTo, arcTo, rect, arc, fillPath, strokePath, clipPath,
fill, stroke, clip, isPointInPathPath, isPointInPathPath_,
isPointInStrokePath, isPointInStrokePath_, isPointInPath,
isPointInPath_, isPointInStroke, isPointInStroke_, measureText,
measureText_, measureTextUnsafe, measureTextUnchecked, setAlpha,
setCompositeOperation, setLineWidthFunction, setLineCapFunction,
setLineJoinFunction, setMiterLimitFunction, clearShadow, fillText,
strokeText, setStrokeColor, setStrokeColorGray, setStrokeColorRGB,
setStrokeColorCYMK, setFillColor, setFillColorGray,
setFillColorRGB, setFillColorCYMK, strokeRect, drawImage,
drawImageScaled, drawImagePart, drawImageFromCanvas,
drawImageFromCanvasScaled, drawImageFromCanvasPart,
drawImageFromVideo, drawImageFromVideoScaled,
drawImageFromVideoPart, drawImageFromRect, setShadow,
setShadowGray, setShadowRGB, setShadowCYMK, putImageData,
putImageDataDirty, webkitPutImageDataHD, webkitPutImageDataHDDirty,
createPatternFromCanvas, createPatternFromCanvas_,
createPatternFromCanvasUnsafe, createPatternFromCanvasUnchecked,
createPattern, createPattern_, createPatternUnsafe,
createPatternUnchecked, createImageData, createImageData_,
createImageDataUnsafe, createImageDataUnchecked,
createImageDataSize, createImageDataSize_,
createImageDataSizeUnsafe, createImageDataSizeUnchecked,
getImageData, getImageData_, getImageDataUnsafe,
getImageDataUnchecked, webkitGetImageDataHD, webkitGetImageDataHD_,
webkitGetImageDataHDUnsafe, webkitGetImageDataHDUnchecked,
drawFocusIfNeeded, drawFocusIfNeededPath, setGlobalAlpha,
getGlobalAlpha, setGlobalCompositeOperation,
getGlobalCompositeOperation, getGlobalCompositeOperationUnsafe,
getGlobalCompositeOperationUnchecked, setLineWidth, getLineWidth,
setLineCap, getLineCap, getLineCapUnsafe, getLineCapUnchecked,
setLineJoin, getLineJoin, getLineJoinUnsafe, getLineJoinUnchecked,
setMiterLimit, getMiterLimit, setShadowOffsetX, getShadowOffsetX,
setShadowOffsetY, getShadowOffsetY, setShadowBlur, getShadowBlur,
setShadowColor, getShadowColor, getShadowColorUnsafe,
getShadowColorUnchecked, setLineDashOffset, getLineDashOffset,
setWebkitLineDash, getWebkitLineDash, getWebkitLineDashUnsafe,
getWebkitLineDashUnchecked, setWebkitLineDashOffset,
getWebkitLineDashOffset, setFont, getFont, setTextAlign,
getTextAlign, setTextBaseline, getTextBaseline, setDirection,
getDirection, setStrokeStyle, getStrokeStyle, getStrokeStyleUnsafe,
getStrokeStyleUnchecked, setFillStyle, getFillStyle,
getFillStyleUnsafe, getFillStyleUnchecked,
getWebkitBackingStorePixelRatio, setWebkitImageSmoothingEnabled,
getWebkitImageSmoothingEnabled, CanvasRenderingContext2D(..),
gTypeCanvasRenderingContext2D)
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 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 JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
save :: (MonadDOM m) => CanvasRenderingContext2D -> m ()
save self = liftDOM (void (self ^. jsf "save" ()))
restore :: (MonadDOM m) => CanvasRenderingContext2D -> m ()
restore self = liftDOM (void (self ^. jsf "restore" ()))
scale ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()
scale self sx sy
= liftDOM (void (self ^. jsf "scale" [toJSVal sx, toJSVal sy]))
rotate :: (MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()
rotate self angle
= liftDOM (void (self ^. jsf "rotate" [toJSVal angle]))
translate ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()
translate self tx ty
= liftDOM (void (self ^. jsf "translate" [toJSVal tx, toJSVal ty]))
transform ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> Float -> Float -> m ()
transform self m11 m12 m21 m22 dx dy
= liftDOM
(void
(self ^. jsf "transform"
[toJSVal m11, toJSVal m12, toJSVal m21, toJSVal m22, toJSVal dx,
toJSVal dy]))
setTransform ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> Float -> Float -> m ()
setTransform self m11 m12 m21 m22 dx dy
= liftDOM
(void
(self ^. jsf "setTransform"
[toJSVal m11, toJSVal m12, toJSVal m21, toJSVal m22, toJSVal dx,
toJSVal dy]))
createLinearGradient ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m (Maybe CanvasGradient)
createLinearGradient self x0 y0 x1 y1
= liftDOM
((self ^. jsf "createLinearGradient"
[toJSVal x0, toJSVal y0, toJSVal x1, toJSVal y1])
>>= fromJSVal)
createLinearGradient_ ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m ()
createLinearGradient_ self x0 y0 x1 y1
= liftDOM
(void
(self ^. jsf "createLinearGradient"
[toJSVal x0, toJSVal y0, toJSVal x1, toJSVal y1]))
createLinearGradientUnsafe ::
(MonadDOM m, HasCallStack) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m CanvasGradient
createLinearGradientUnsafe self x0 y0 x1 y1
= liftDOM
(((self ^. jsf "createLinearGradient"
[toJSVal x0, toJSVal y0, toJSVal x1, toJSVal y1])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
createLinearGradientUnchecked ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m CanvasGradient
createLinearGradientUnchecked self x0 y0 x1 y1
= liftDOM
((self ^. jsf "createLinearGradient"
[toJSVal x0, toJSVal y0, toJSVal x1, toJSVal y1])
>>= fromJSValUnchecked)
createRadialGradient ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float ->
Float ->
Float -> Float -> Float -> Float -> m (Maybe CanvasGradient)
createRadialGradient self x0 y0 r0 x1 y1 r1
= liftDOM
((self ^. jsf "createRadialGradient"
[toJSVal x0, toJSVal y0, toJSVal r0, toJSVal x1, toJSVal y1,
toJSVal r1])
>>= fromJSVal)
createRadialGradient_ ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> Float -> Float -> m ()
createRadialGradient_ self x0 y0 r0 x1 y1 r1
= liftDOM
(void
(self ^. jsf "createRadialGradient"
[toJSVal x0, toJSVal y0, toJSVal r0, toJSVal x1, toJSVal y1,
toJSVal r1]))
createRadialGradientUnsafe ::
(MonadDOM m, HasCallStack) =>
CanvasRenderingContext2D ->
Float ->
Float -> Float -> Float -> Float -> Float -> m CanvasGradient
createRadialGradientUnsafe self x0 y0 r0 x1 y1 r1
= liftDOM
(((self ^. jsf "createRadialGradient"
[toJSVal x0, toJSVal y0, toJSVal r0, toJSVal x1, toJSVal y1,
toJSVal r1])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
createRadialGradientUnchecked ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float ->
Float -> Float -> Float -> Float -> Float -> m CanvasGradient
createRadialGradientUnchecked self x0 y0 r0 x1 y1 r1
= liftDOM
((self ^. jsf "createRadialGradient"
[toJSVal x0, toJSVal y0, toJSVal r0, toJSVal x1, toJSVal y1,
toJSVal r1])
>>= fromJSValUnchecked)
setLineDash ::
(MonadDOM m) => CanvasRenderingContext2D -> [Float] -> m ()
setLineDash self dash
= liftDOM (void (self ^. jsf "setLineDash" [toJSVal (array dash)]))
getLineDash ::
(MonadDOM m) => CanvasRenderingContext2D -> m [Float]
getLineDash self
= liftDOM ((self ^. jsf "getLineDash" ()) >>= fromJSArrayUnchecked)
getLineDash_ :: (MonadDOM m) => CanvasRenderingContext2D -> m ()
getLineDash_ self = liftDOM (void (self ^. jsf "getLineDash" ()))
clearRect ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m ()
clearRect self x y width height
= liftDOM
(void
(self ^. jsf "clearRect"
[toJSVal x, toJSVal y, toJSVal width, toJSVal height]))
fillRect ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m ()
fillRect self x y width height
= liftDOM
(void
(self ^. jsf "fillRect"
[toJSVal x, toJSVal y, toJSVal width, toJSVal height]))
beginPath :: (MonadDOM m) => CanvasRenderingContext2D -> m ()
beginPath self = liftDOM (void (self ^. jsf "beginPath" ()))
closePath :: (MonadDOM m) => CanvasRenderingContext2D -> m ()
closePath self = liftDOM (void (self ^. jsf "closePath" ()))
moveTo ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()
moveTo self x y
= liftDOM (void (self ^. jsf "moveTo" [toJSVal x, toJSVal y]))
lineTo ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()
lineTo self x y
= liftDOM (void (self ^. jsf "lineTo" [toJSVal x, toJSVal y]))
quadraticCurveTo ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m ()
quadraticCurveTo self cpx cpy x y
= liftDOM
(void
(self ^. jsf "quadraticCurveTo"
[toJSVal cpx, toJSVal cpy, toJSVal x, toJSVal y]))
bezierCurveTo ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> Float -> Float -> m ()
bezierCurveTo self cp1x cp1y cp2x cp2y x y
= liftDOM
(void
(self ^. jsf "bezierCurveTo"
[toJSVal cp1x, toJSVal cp1y, toJSVal cp2x, toJSVal cp2y, toJSVal x,
toJSVal y]))
arcTo ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> Float -> m ()
arcTo self x1 y1 x2 y2 radius
= liftDOM
(void
(self ^. jsf "arcTo"
[toJSVal x1, toJSVal y1, toJSVal x2, toJSVal y2, toJSVal radius]))
rect ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m ()
rect self x y width height
= liftDOM
(void
(self ^. jsf "rect"
[toJSVal x, toJSVal y, toJSVal width, toJSVal height]))
arc ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> Float -> Bool -> m ()
arc self x y radius startAngle endAngle anticlockwise
= liftDOM
(void
(self ^. jsf "arc"
[toJSVal x, toJSVal y, toJSVal radius, toJSVal startAngle,
toJSVal endAngle, toJSVal anticlockwise]))
fillPath ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe Path2D -> CanvasWindingRule -> m ()
fillPath self path winding
= liftDOM
(void (self ^. jsf "fill" [toJSVal path, toJSVal winding]))
strokePath ::
(MonadDOM m) => CanvasRenderingContext2D -> Maybe Path2D -> m ()
strokePath self path
= liftDOM (void (self ^. jsf "stroke" [toJSVal path]))
clipPath ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe Path2D -> CanvasWindingRule -> m ()
clipPath self path winding
= liftDOM
(void (self ^. jsf "clip" [toJSVal path, toJSVal winding]))
fill ::
(MonadDOM m) =>
CanvasRenderingContext2D -> CanvasWindingRule -> m ()
fill self winding
= liftDOM (void (self ^. jsf "fill" [toJSVal winding]))
stroke :: (MonadDOM m) => CanvasRenderingContext2D -> m ()
stroke self = liftDOM (void (self ^. jsf "stroke" ()))
clip ::
(MonadDOM m) =>
CanvasRenderingContext2D -> CanvasWindingRule -> m ()
clip self winding
= liftDOM (void (self ^. jsf "clip" [toJSVal winding]))
isPointInPathPath ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe Path2D -> Float -> Float -> CanvasWindingRule -> m Bool
isPointInPathPath self path x y winding
= liftDOM
((self ^. jsf "isPointInPath"
[toJSVal path, toJSVal x, toJSVal y, toJSVal winding])
>>= valToBool)
isPointInPathPath_ ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe Path2D -> Float -> Float -> CanvasWindingRule -> m ()
isPointInPathPath_ self path x y winding
= liftDOM
(void
(self ^. jsf "isPointInPath"
[toJSVal path, toJSVal x, toJSVal y, toJSVal winding]))
isPointInStrokePath ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe Path2D -> Float -> Float -> m Bool
isPointInStrokePath self path x y
= liftDOM
((self ^. jsf "isPointInStroke"
[toJSVal path, toJSVal x, toJSVal y])
>>= valToBool)
isPointInStrokePath_ ::
(MonadDOM m) =>
CanvasRenderingContext2D -> Maybe Path2D -> Float -> Float -> m ()
isPointInStrokePath_ self path x y
= liftDOM
(void
(self ^. jsf "isPointInStroke"
[toJSVal path, toJSVal x, toJSVal y]))
isPointInPath ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> CanvasWindingRule -> m Bool
isPointInPath self x y winding
= liftDOM
((self ^. jsf "isPointInPath"
[toJSVal x, toJSVal y, toJSVal winding])
>>= valToBool)
isPointInPath_ ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> CanvasWindingRule -> m ()
isPointInPath_ self x y winding
= liftDOM
(void
(self ^. jsf "isPointInPath"
[toJSVal x, toJSVal y, toJSVal winding]))
isPointInStroke ::
(MonadDOM m) =>
CanvasRenderingContext2D -> Float -> Float -> m Bool
isPointInStroke self x y
= liftDOM
((self ^. jsf "isPointInStroke" [toJSVal x, toJSVal y]) >>=
valToBool)
isPointInStroke_ ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()
isPointInStroke_ self x y
= liftDOM
(void (self ^. jsf "isPointInStroke" [toJSVal x, toJSVal y]))
measureText ::
(MonadDOM m, ToJSString text) =>
CanvasRenderingContext2D -> text -> m (Maybe TextMetrics)
measureText self text
= liftDOM
((self ^. jsf "measureText" [toJSVal text]) >>= fromJSVal)
measureText_ ::
(MonadDOM m, ToJSString text) =>
CanvasRenderingContext2D -> text -> m ()
measureText_ self text
= liftDOM (void (self ^. jsf "measureText" [toJSVal text]))
measureTextUnsafe ::
(MonadDOM m, ToJSString text, HasCallStack) =>
CanvasRenderingContext2D -> text -> m TextMetrics
measureTextUnsafe self text
= liftDOM
(((self ^. jsf "measureText" [toJSVal text]) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
measureTextUnchecked ::
(MonadDOM m, ToJSString text) =>
CanvasRenderingContext2D -> text -> m TextMetrics
measureTextUnchecked self text
= liftDOM
((self ^. jsf "measureText" [toJSVal text]) >>= fromJSValUnchecked)
setAlpha ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()
setAlpha self alpha
= liftDOM (void (self ^. jsf "setAlpha" [toJSVal alpha]))
setCompositeOperation ::
(MonadDOM m, ToJSString compositeOperation) =>
CanvasRenderingContext2D -> compositeOperation -> m ()
setCompositeOperation self compositeOperation
= liftDOM
(void
(self ^. jsf "setCompositeOperation" [toJSVal compositeOperation]))
setLineWidthFunction ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()
setLineWidthFunction self width
= liftDOM (void (self ^. jsf "setLineWidth" [toJSVal width]))
setLineCapFunction ::
(MonadDOM m, ToJSString cap) =>
CanvasRenderingContext2D -> cap -> m ()
setLineCapFunction self cap
= liftDOM (void (self ^. jsf "setLineCap" [toJSVal cap]))
setLineJoinFunction ::
(MonadDOM m, ToJSString join) =>
CanvasRenderingContext2D -> join -> m ()
setLineJoinFunction self join
= liftDOM (void (self ^. jsf "setLineJoin" [toJSVal join]))
setMiterLimitFunction ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()
setMiterLimitFunction self limit
= liftDOM (void (self ^. jsf "setMiterLimit" [toJSVal limit]))
clearShadow :: (MonadDOM m) => CanvasRenderingContext2D -> m ()
clearShadow self = liftDOM (void (self ^. jsf "clearShadow" ()))
fillText ::
(MonadDOM m, ToJSString text) =>
CanvasRenderingContext2D -> text -> Float -> Float -> Float -> m ()
fillText self text x y maxWidth
= liftDOM
(void
(self ^. jsf "fillText"
[toJSVal text, toJSVal x, toJSVal y, toJSVal maxWidth]))
strokeText ::
(MonadDOM m, ToJSString text) =>
CanvasRenderingContext2D -> text -> Float -> Float -> Float -> m ()
strokeText self text x y maxWidth
= liftDOM
(void
(self ^. jsf "strokeText"
[toJSVal text, toJSVal x, toJSVal y, toJSVal maxWidth]))
setStrokeColor ::
(MonadDOM m, ToJSString color) =>
CanvasRenderingContext2D -> color -> Float -> m ()
setStrokeColor self color alpha
= liftDOM
(void
(self ^. jsf "setStrokeColor" [toJSVal color, toJSVal alpha]))
setStrokeColorGray ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()
setStrokeColorGray self grayLevel alpha
= liftDOM
(void
(self ^. jsf "setStrokeColor" [toJSVal grayLevel, toJSVal alpha]))
setStrokeColorRGB ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m ()
setStrokeColorRGB self r g b a
= liftDOM
(void
(self ^. jsf "setStrokeColor"
[toJSVal r, toJSVal g, toJSVal b, toJSVal a]))
setStrokeColorCYMK ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> Float -> m ()
setStrokeColorCYMK self c m y k a
= liftDOM
(void
(self ^. jsf "setStrokeColor"
[toJSVal c, toJSVal m, toJSVal y, toJSVal k, toJSVal a]))
setFillColor ::
(MonadDOM m, ToJSString color) =>
CanvasRenderingContext2D -> color -> Float -> m ()
setFillColor self color alpha
= liftDOM
(void (self ^. jsf "setFillColor" [toJSVal color, toJSVal alpha]))
setFillColorGray ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()
setFillColorGray self grayLevel alpha
= liftDOM
(void
(self ^. jsf "setFillColor" [toJSVal grayLevel, toJSVal alpha]))
setFillColorRGB ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m ()
setFillColorRGB self r g b a
= liftDOM
(void
(self ^. jsf "setFillColor"
[toJSVal r, toJSVal g, toJSVal b, toJSVal a]))
setFillColorCYMK ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> Float -> m ()
setFillColorCYMK self c m y k a
= liftDOM
(void
(self ^. jsf "setFillColor"
[toJSVal c, toJSVal m, toJSVal y, toJSVal k, toJSVal a]))
strokeRect ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m ()
strokeRect self x y width height
= liftDOM
(void
(self ^. jsf "strokeRect"
[toJSVal x, toJSVal y, toJSVal width, toJSVal height]))
drawImage ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe HTMLImageElement -> Float -> Float -> m ()
drawImage self image x y
= liftDOM
(void
(self ^. jsf "drawImage" [toJSVal image, toJSVal x, toJSVal y]))
drawImageScaled ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe HTMLImageElement -> Float -> Float -> Float -> Float -> m ()
drawImageScaled self image x y width height
= liftDOM
(void
(self ^. jsf "drawImage"
[toJSVal image, toJSVal x, toJSVal y, toJSVal width,
toJSVal height]))
drawImagePart ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe HTMLImageElement ->
Float ->
Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()
drawImagePart self image sx sy sw sh dx dy dw dh
= liftDOM
(void
(self ^. jsf "drawImage"
[toJSVal image, toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh,
toJSVal dx, toJSVal dy, toJSVal dw, toJSVal dh]))
drawImageFromCanvas ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe HTMLCanvasElement -> Float -> Float -> m ()
drawImageFromCanvas self canvas x y
= liftDOM
(void
(self ^. jsf "drawImage" [toJSVal canvas, toJSVal x, toJSVal y]))
drawImageFromCanvasScaled ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe HTMLCanvasElement -> Float -> Float -> Float -> Float -> m ()
drawImageFromCanvasScaled self canvas x y width height
= liftDOM
(void
(self ^. jsf "drawImage"
[toJSVal canvas, toJSVal x, toJSVal y, toJSVal width,
toJSVal height]))
drawImageFromCanvasPart ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe HTMLCanvasElement ->
Float ->
Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()
drawImageFromCanvasPart self canvas sx sy sw sh dx dy dw dh
= liftDOM
(void
(self ^. jsf "drawImage"
[toJSVal canvas, toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh,
toJSVal dx, toJSVal dy, toJSVal dw, toJSVal dh]))
drawImageFromVideo ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe HTMLVideoElement -> Float -> Float -> m ()
drawImageFromVideo self video x y
= liftDOM
(void
(self ^. jsf "drawImage" [toJSVal video, toJSVal x, toJSVal y]))
drawImageFromVideoScaled ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe HTMLVideoElement -> Float -> Float -> Float -> Float -> m ()
drawImageFromVideoScaled self video x y width height
= liftDOM
(void
(self ^. jsf "drawImage"
[toJSVal video, toJSVal x, toJSVal y, toJSVal width,
toJSVal height]))
drawImageFromVideoPart ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe HTMLVideoElement ->
Float ->
Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()
drawImageFromVideoPart self video sx sy sw sh dx dy dw dh
= liftDOM
(void
(self ^. jsf "drawImage"
[toJSVal video, toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh,
toJSVal dx, toJSVal dy, toJSVal dw, toJSVal dh]))
drawImageFromRect ::
(MonadDOM m, ToJSString compositeOperation) =>
CanvasRenderingContext2D ->
Maybe HTMLImageElement ->
Float ->
Float ->
Float ->
Float ->
Float -> Float -> Float -> Float -> compositeOperation -> m ()
drawImageFromRect self image sx sy sw sh dx dy dw dh
compositeOperation
= liftDOM
(void
(self ^. jsf "drawImageFromRect"
[toJSVal image, toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh,
toJSVal dx, toJSVal dy, toJSVal dw, toJSVal dh,
toJSVal compositeOperation]))
setShadow ::
(MonadDOM m, ToJSString color) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> color -> Float -> m ()
setShadow self width height blur color alpha
= liftDOM
(void
(self ^. jsf "setShadow"
[toJSVal width, toJSVal height, toJSVal blur, toJSVal color,
toJSVal alpha]))
setShadowGray ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> Float -> m ()
setShadowGray self width height blur grayLevel alpha
= liftDOM
(void
(self ^. jsf "setShadow"
[toJSVal width, toJSVal height, toJSVal blur, toJSVal grayLevel,
toJSVal alpha]))
setShadowRGB ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()
setShadowRGB self width height blur r g b a
= liftDOM
(void
(self ^. jsf "setShadow"
[toJSVal width, toJSVal height, toJSVal blur, toJSVal r, toJSVal g,
toJSVal b, toJSVal a]))
setShadowCYMK ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float ->
Float -> Float -> Float -> Float -> Float -> Float -> Float -> m ()
setShadowCYMK self width height blur c m y k a
= liftDOM
(void
(self ^. jsf "setShadow"
[toJSVal width, toJSVal height, toJSVal blur, toJSVal c, toJSVal m,
toJSVal y, toJSVal k, toJSVal a]))
putImageData ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe ImageData -> Float -> Float -> m ()
putImageData self imagedata dx dy
= liftDOM
(void
(self ^. jsf "putImageData"
[toJSVal imagedata, toJSVal dx, toJSVal dy]))
putImageDataDirty ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe ImageData ->
Float -> Float -> Float -> Float -> Float -> Float -> m ()
putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth
dirtyHeight
= liftDOM
(void
(self ^. jsf "putImageData"
[toJSVal imagedata, toJSVal dx, toJSVal dy, toJSVal dirtyX,
toJSVal dirtyY, toJSVal dirtyWidth, toJSVal dirtyHeight]))
webkitPutImageDataHD ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe ImageData -> Float -> Float -> m ()
webkitPutImageDataHD self imagedata dx dy
= liftDOM
(void
(self ^. jsf "webkitPutImageDataHD"
[toJSVal imagedata, toJSVal dx, toJSVal dy]))
webkitPutImageDataHDDirty ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Maybe ImageData ->
Float -> Float -> Float -> Float -> Float -> Float -> m ()
webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY
dirtyWidth dirtyHeight
= liftDOM
(void
(self ^. jsf "webkitPutImageDataHD"
[toJSVal imagedata, toJSVal dx, toJSVal dy, toJSVal dirtyX,
toJSVal dirtyY, toJSVal dirtyWidth, toJSVal dirtyHeight]))
createPatternFromCanvas ::
(MonadDOM m, ToJSString repetitionType) =>
CanvasRenderingContext2D ->
Maybe HTMLCanvasElement ->
Maybe repetitionType -> m (Maybe CanvasPattern)
createPatternFromCanvas self canvas repetitionType
= liftDOM
((self ^. jsf "createPattern"
[toJSVal canvas, toJSVal repetitionType])
>>= fromJSVal)
createPatternFromCanvas_ ::
(MonadDOM m, ToJSString repetitionType) =>
CanvasRenderingContext2D ->
Maybe HTMLCanvasElement -> Maybe repetitionType -> m ()
createPatternFromCanvas_ self canvas repetitionType
= liftDOM
(void
(self ^. jsf "createPattern"
[toJSVal canvas, toJSVal repetitionType]))
createPatternFromCanvasUnsafe ::
(MonadDOM m, ToJSString repetitionType, HasCallStack) =>
CanvasRenderingContext2D ->
Maybe HTMLCanvasElement -> Maybe repetitionType -> m CanvasPattern
createPatternFromCanvasUnsafe self canvas repetitionType
= liftDOM
(((self ^. jsf "createPattern"
[toJSVal canvas, toJSVal repetitionType])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
createPatternFromCanvasUnchecked ::
(MonadDOM m, ToJSString repetitionType) =>
CanvasRenderingContext2D ->
Maybe HTMLCanvasElement ->
Maybe repetitionType -> m CanvasPattern
createPatternFromCanvasUnchecked self canvas repetitionType
= liftDOM
((self ^. jsf "createPattern"
[toJSVal canvas, toJSVal repetitionType])
>>= fromJSValUnchecked)
createPattern ::
(MonadDOM m, ToJSString repetitionType) =>
CanvasRenderingContext2D ->
Maybe HTMLImageElement ->
Maybe repetitionType -> m (Maybe CanvasPattern)
createPattern self image repetitionType
= liftDOM
((self ^. jsf "createPattern"
[toJSVal image, toJSVal repetitionType])
>>= fromJSVal)
createPattern_ ::
(MonadDOM m, ToJSString repetitionType) =>
CanvasRenderingContext2D ->
Maybe HTMLImageElement -> Maybe repetitionType -> m ()
createPattern_ self image repetitionType
= liftDOM
(void
(self ^. jsf "createPattern"
[toJSVal image, toJSVal repetitionType]))
createPatternUnsafe ::
(MonadDOM m, ToJSString repetitionType, HasCallStack) =>
CanvasRenderingContext2D ->
Maybe HTMLImageElement -> Maybe repetitionType -> m CanvasPattern
createPatternUnsafe self image repetitionType
= liftDOM
(((self ^. jsf "createPattern"
[toJSVal image, toJSVal repetitionType])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
createPatternUnchecked ::
(MonadDOM m, ToJSString repetitionType) =>
CanvasRenderingContext2D ->
Maybe HTMLImageElement -> Maybe repetitionType -> m CanvasPattern
createPatternUnchecked self image repetitionType
= liftDOM
((self ^. jsf "createPattern"
[toJSVal image, toJSVal repetitionType])
>>= fromJSValUnchecked)
createImageData ::
(MonadDOM m) =>
CanvasRenderingContext2D -> Maybe ImageData -> m (Maybe ImageData)
createImageData self imagedata
= liftDOM
((self ^. jsf "createImageData" [toJSVal imagedata]) >>= fromJSVal)
createImageData_ ::
(MonadDOM m) => CanvasRenderingContext2D -> Maybe ImageData -> m ()
createImageData_ self imagedata
= liftDOM
(void (self ^. jsf "createImageData" [toJSVal imagedata]))
createImageDataUnsafe ::
(MonadDOM m, HasCallStack) =>
CanvasRenderingContext2D -> Maybe ImageData -> m ImageData
createImageDataUnsafe self imagedata
= liftDOM
(((self ^. jsf "createImageData" [toJSVal imagedata]) >>=
fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
createImageDataUnchecked ::
(MonadDOM m) =>
CanvasRenderingContext2D -> Maybe ImageData -> m ImageData
createImageDataUnchecked self imagedata
= liftDOM
((self ^. jsf "createImageData" [toJSVal imagedata]) >>=
fromJSValUnchecked)
createImageDataSize ::
(MonadDOM m) =>
CanvasRenderingContext2D -> Float -> Float -> m (Maybe ImageData)
createImageDataSize self sw sh
= liftDOM
((self ^. jsf "createImageData" [toJSVal sw, toJSVal sh]) >>=
fromJSVal)
createImageDataSize_ ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m ()
createImageDataSize_ self sw sh
= liftDOM
(void (self ^. jsf "createImageData" [toJSVal sw, toJSVal sh]))
createImageDataSizeUnsafe ::
(MonadDOM m, HasCallStack) =>
CanvasRenderingContext2D -> Float -> Float -> m ImageData
createImageDataSizeUnsafe self sw sh
= liftDOM
(((self ^. jsf "createImageData" [toJSVal sw, toJSVal sh]) >>=
fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
createImageDataSizeUnchecked ::
(MonadDOM m) =>
CanvasRenderingContext2D -> Float -> Float -> m ImageData
createImageDataSizeUnchecked self sw sh
= liftDOM
((self ^. jsf "createImageData" [toJSVal sw, toJSVal sh]) >>=
fromJSValUnchecked)
getImageData ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m (Maybe ImageData)
getImageData self sx sy sw sh
= liftDOM
((self ^. jsf "getImageData"
[toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh])
>>= fromJSVal)
getImageData_ ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m ()
getImageData_ self sx sy sw sh
= liftDOM
(void
(self ^. jsf "getImageData"
[toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh]))
getImageDataUnsafe ::
(MonadDOM m, HasCallStack) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m ImageData
getImageDataUnsafe self sx sy sw sh
= liftDOM
(((self ^. jsf "getImageData"
[toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getImageDataUnchecked ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m ImageData
getImageDataUnchecked self sx sy sw sh
= liftDOM
((self ^. jsf "getImageData"
[toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh])
>>= fromJSValUnchecked)
webkitGetImageDataHD ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m (Maybe ImageData)
webkitGetImageDataHD self sx sy sw sh
= liftDOM
((self ^. jsf "webkitGetImageDataHD"
[toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh])
>>= fromJSVal)
webkitGetImageDataHD_ ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m ()
webkitGetImageDataHD_ self sx sy sw sh
= liftDOM
(void
(self ^. jsf "webkitGetImageDataHD"
[toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh]))
webkitGetImageDataHDUnsafe ::
(MonadDOM m, HasCallStack) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m ImageData
webkitGetImageDataHDUnsafe self sx sy sw sh
= liftDOM
(((self ^. jsf "webkitGetImageDataHD"
[toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
webkitGetImageDataHDUnchecked ::
(MonadDOM m) =>
CanvasRenderingContext2D ->
Float -> Float -> Float -> Float -> m ImageData
webkitGetImageDataHDUnchecked self sx sy sw sh
= liftDOM
((self ^. jsf "webkitGetImageDataHD"
[toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh])
>>= fromJSValUnchecked)
drawFocusIfNeeded ::
(MonadDOM m, IsElement element) =>
CanvasRenderingContext2D -> Maybe element -> m ()
drawFocusIfNeeded self element
= liftDOM
(void (self ^. jsf "drawFocusIfNeeded" [toJSVal element]))
drawFocusIfNeededPath ::
(MonadDOM m, IsElement element) =>
CanvasRenderingContext2D -> Maybe Path2D -> Maybe element -> m ()
drawFocusIfNeededPath self path element
= liftDOM
(void
(self ^. jsf "drawFocusIfNeeded" [toJSVal path, toJSVal element]))
setGlobalAlpha ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()
setGlobalAlpha self val
= liftDOM (self ^. jss "globalAlpha" (toJSVal val))
getGlobalAlpha ::
(MonadDOM m) => CanvasRenderingContext2D -> m Float
getGlobalAlpha self
= liftDOM
(realToFrac <$> ((self ^. js "globalAlpha") >>= valToNumber))
setGlobalCompositeOperation ::
(MonadDOM m, ToJSString val) =>
CanvasRenderingContext2D -> Maybe val -> m ()
setGlobalCompositeOperation self val
= liftDOM (self ^. jss "globalCompositeOperation" (toJSVal val))
getGlobalCompositeOperation ::
(MonadDOM m, FromJSString result) =>
CanvasRenderingContext2D -> m (Maybe result)
getGlobalCompositeOperation self
= liftDOM
((self ^. js "globalCompositeOperation") >>= fromMaybeJSString)
getGlobalCompositeOperationUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
CanvasRenderingContext2D -> m result
getGlobalCompositeOperationUnsafe self
= liftDOM
(((self ^. js "globalCompositeOperation") >>= fromMaybeJSString)
>>= maybe (Prelude.error "Nothing to return") return)
getGlobalCompositeOperationUnchecked ::
(MonadDOM m, FromJSString result) =>
CanvasRenderingContext2D -> m result
getGlobalCompositeOperationUnchecked self
= liftDOM
((self ^. js "globalCompositeOperation") >>= fromJSValUnchecked)
setLineWidth ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()
setLineWidth self val
= liftDOM (self ^. jss "lineWidth" (toJSVal val))
getLineWidth :: (MonadDOM m) => CanvasRenderingContext2D -> m Float
getLineWidth self
= liftDOM
(realToFrac <$> ((self ^. js "lineWidth") >>= valToNumber))
setLineCap ::
(MonadDOM m, ToJSString val) =>
CanvasRenderingContext2D -> Maybe val -> m ()
setLineCap self val = liftDOM (self ^. jss "lineCap" (toJSVal val))
getLineCap ::
(MonadDOM m, FromJSString result) =>
CanvasRenderingContext2D -> m (Maybe result)
getLineCap self
= liftDOM ((self ^. js "lineCap") >>= fromMaybeJSString)
getLineCapUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
CanvasRenderingContext2D -> m result
getLineCapUnsafe self
= liftDOM
(((self ^. js "lineCap") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getLineCapUnchecked ::
(MonadDOM m, FromJSString result) =>
CanvasRenderingContext2D -> m result
getLineCapUnchecked self
= liftDOM ((self ^. js "lineCap") >>= fromJSValUnchecked)
setLineJoin ::
(MonadDOM m, ToJSString val) =>
CanvasRenderingContext2D -> Maybe val -> m ()
setLineJoin self val
= liftDOM (self ^. jss "lineJoin" (toJSVal val))
getLineJoin ::
(MonadDOM m, FromJSString result) =>
CanvasRenderingContext2D -> m (Maybe result)
getLineJoin self
= liftDOM ((self ^. js "lineJoin") >>= fromMaybeJSString)
getLineJoinUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
CanvasRenderingContext2D -> m result
getLineJoinUnsafe self
= liftDOM
(((self ^. js "lineJoin") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getLineJoinUnchecked ::
(MonadDOM m, FromJSString result) =>
CanvasRenderingContext2D -> m result
getLineJoinUnchecked self
= liftDOM ((self ^. js "lineJoin") >>= fromJSValUnchecked)
setMiterLimit ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()
setMiterLimit self val
= liftDOM (self ^. jss "miterLimit" (toJSVal val))
getMiterLimit ::
(MonadDOM m) => CanvasRenderingContext2D -> m Float
getMiterLimit self
= liftDOM
(realToFrac <$> ((self ^. js "miterLimit") >>= valToNumber))
setShadowOffsetX ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()
setShadowOffsetX self val
= liftDOM (self ^. jss "shadowOffsetX" (toJSVal val))
getShadowOffsetX ::
(MonadDOM m) => CanvasRenderingContext2D -> m Float
getShadowOffsetX self
= liftDOM
(realToFrac <$> ((self ^. js "shadowOffsetX") >>= valToNumber))
setShadowOffsetY ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()
setShadowOffsetY self val
= liftDOM (self ^. jss "shadowOffsetY" (toJSVal val))
getShadowOffsetY ::
(MonadDOM m) => CanvasRenderingContext2D -> m Float
getShadowOffsetY self
= liftDOM
(realToFrac <$> ((self ^. js "shadowOffsetY") >>= valToNumber))
setShadowBlur ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()
setShadowBlur self val
= liftDOM (self ^. jss "shadowBlur" (toJSVal val))
getShadowBlur ::
(MonadDOM m) => CanvasRenderingContext2D -> m Float
getShadowBlur self
= liftDOM
(realToFrac <$> ((self ^. js "shadowBlur") >>= valToNumber))
setShadowColor ::
(MonadDOM m, ToJSString val) =>
CanvasRenderingContext2D -> Maybe val -> m ()
setShadowColor self val
= liftDOM (self ^. jss "shadowColor" (toJSVal val))
getShadowColor ::
(MonadDOM m, FromJSString result) =>
CanvasRenderingContext2D -> m (Maybe result)
getShadowColor self
= liftDOM ((self ^. js "shadowColor") >>= fromMaybeJSString)
getShadowColorUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
CanvasRenderingContext2D -> m result
getShadowColorUnsafe self
= liftDOM
(((self ^. js "shadowColor") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getShadowColorUnchecked ::
(MonadDOM m, FromJSString result) =>
CanvasRenderingContext2D -> m result
getShadowColorUnchecked self
= liftDOM ((self ^. js "shadowColor") >>= fromJSValUnchecked)
setLineDashOffset ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()
setLineDashOffset self val
= liftDOM (self ^. jss "lineDashOffset" (toJSVal val))
getLineDashOffset ::
(MonadDOM m) => CanvasRenderingContext2D -> m Float
getLineDashOffset self
= liftDOM
(realToFrac <$> ((self ^. js "lineDashOffset") >>= valToNumber))
setWebkitLineDash ::
(MonadDOM m, IsArray val) =>
CanvasRenderingContext2D -> Maybe val -> m ()
setWebkitLineDash self val
= liftDOM (self ^. jss "webkitLineDash" (toJSVal val))
getWebkitLineDash ::
(MonadDOM m) => CanvasRenderingContext2D -> m (Maybe Array)
getWebkitLineDash self
= liftDOM ((self ^. js "webkitLineDash") >>= fromJSVal)
getWebkitLineDashUnsafe ::
(MonadDOM m, HasCallStack) => CanvasRenderingContext2D -> m Array
getWebkitLineDashUnsafe self
= liftDOM
(((self ^. js "webkitLineDash") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getWebkitLineDashUnchecked ::
(MonadDOM m) => CanvasRenderingContext2D -> m Array
getWebkitLineDashUnchecked self
= liftDOM ((self ^. js "webkitLineDash") >>= fromJSValUnchecked)
setWebkitLineDashOffset ::
(MonadDOM m) => CanvasRenderingContext2D -> Float -> m ()
setWebkitLineDashOffset self val
= liftDOM (self ^. jss "webkitLineDashOffset" (toJSVal val))
getWebkitLineDashOffset ::
(MonadDOM m) => CanvasRenderingContext2D -> m Float
getWebkitLineDashOffset self
= liftDOM
(realToFrac <$>
((self ^. js "webkitLineDashOffset") >>= valToNumber))
setFont ::
(MonadDOM m, ToJSString val) =>
CanvasRenderingContext2D -> val -> m ()
setFont self val = liftDOM (self ^. jss "font" (toJSVal val))
getFont ::
(MonadDOM m, FromJSString result) =>
CanvasRenderingContext2D -> m result
getFont self = liftDOM ((self ^. js "font") >>= fromJSValUnchecked)
setTextAlign ::
(MonadDOM m, ToJSString val) =>
CanvasRenderingContext2D -> val -> m ()
setTextAlign self val
= liftDOM (self ^. jss "textAlign" (toJSVal val))
getTextAlign ::
(MonadDOM m, FromJSString result) =>
CanvasRenderingContext2D -> m result
getTextAlign self
= liftDOM ((self ^. js "textAlign") >>= fromJSValUnchecked)
setTextBaseline ::
(MonadDOM m, ToJSString val) =>
CanvasRenderingContext2D -> val -> m ()
setTextBaseline self val
= liftDOM (self ^. jss "textBaseline" (toJSVal val))
getTextBaseline ::
(MonadDOM m, FromJSString result) =>
CanvasRenderingContext2D -> m result
getTextBaseline self
= liftDOM ((self ^. js "textBaseline") >>= fromJSValUnchecked)
setDirection ::
(MonadDOM m, ToJSString val) =>
CanvasRenderingContext2D -> val -> m ()
setDirection self val
= liftDOM (self ^. jss "direction" (toJSVal val))
getDirection ::
(MonadDOM m, FromJSString result) =>
CanvasRenderingContext2D -> m result
getDirection self
= liftDOM ((self ^. js "direction") >>= fromJSValUnchecked)
setStrokeStyle ::
(MonadDOM m, IsCanvasStyle val) =>
CanvasRenderingContext2D -> Maybe val -> m ()
setStrokeStyle self val
= liftDOM (self ^. jss "strokeStyle" (toJSVal val))
getStrokeStyle ::
(MonadDOM m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle)
getStrokeStyle self
= liftDOM ((self ^. js "strokeStyle") >>= fromJSVal)
getStrokeStyleUnsafe ::
(MonadDOM m, HasCallStack) =>
CanvasRenderingContext2D -> m CanvasStyle
getStrokeStyleUnsafe self
= liftDOM
(((self ^. js "strokeStyle") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getStrokeStyleUnchecked ::
(MonadDOM m) => CanvasRenderingContext2D -> m CanvasStyle
getStrokeStyleUnchecked self
= liftDOM ((self ^. js "strokeStyle") >>= fromJSValUnchecked)
setFillStyle ::
(MonadDOM m, IsCanvasStyle val) =>
CanvasRenderingContext2D -> Maybe val -> m ()
setFillStyle self val
= liftDOM (self ^. jss "fillStyle" (toJSVal val))
getFillStyle ::
(MonadDOM m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle)
getFillStyle self
= liftDOM ((self ^. js "fillStyle") >>= fromJSVal)
getFillStyleUnsafe ::
(MonadDOM m, HasCallStack) =>
CanvasRenderingContext2D -> m CanvasStyle
getFillStyleUnsafe self
= liftDOM
(((self ^. js "fillStyle") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getFillStyleUnchecked ::
(MonadDOM m) => CanvasRenderingContext2D -> m CanvasStyle
getFillStyleUnchecked self
= liftDOM ((self ^. js "fillStyle") >>= fromJSValUnchecked)
getWebkitBackingStorePixelRatio ::
(MonadDOM m) => CanvasRenderingContext2D -> m Float
getWebkitBackingStorePixelRatio self
= liftDOM
(realToFrac <$>
((self ^. js "webkitBackingStorePixelRatio") >>= valToNumber))
setWebkitImageSmoothingEnabled ::
(MonadDOM m) => CanvasRenderingContext2D -> Bool -> m ()
setWebkitImageSmoothingEnabled self val
= liftDOM (self ^. jss "webkitImageSmoothingEnabled" (toJSVal val))
getWebkitImageSmoothingEnabled ::
(MonadDOM m) => CanvasRenderingContext2D -> m Bool
getWebkitImageSmoothingEnabled self
= liftDOM
((self ^. js "webkitImageSmoothingEnabled") >>= valToBool)