{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D (js_save, save, js_restore, restore, js_scale, scale, js_rotate, rotate, js_translate, translate, js_transform, transform, js_setTransform, setTransform, js_createLinearGradient, createLinearGradient, js_createRadialGradient, createRadialGradient, js_setLineDash, setLineDash, js_getLineDash, getLineDash, js_clearRect, clearRect, js_fillRect, fillRect, js_beginPath, beginPath, js_closePath, closePath, js_moveTo, moveTo, js_lineTo, lineTo, js_quadraticCurveTo, quadraticCurveTo, js_bezierCurveTo, bezierCurveTo, js_arcTo, arcTo, js_rect, rect, js_arc, arc, js_fillPath, fillPath, js_strokePath, strokePath, js_clipPath, clipPath, js_fill, fill, js_stroke, stroke, js_clip, clip, js_isPointInPathPath, isPointInPathPath, js_isPointInStrokePath, isPointInStrokePath, js_isPointInPath, isPointInPath, js_isPointInStroke, isPointInStroke, js_measureText, measureText, js_setAlpha, setAlpha, js_setCompositeOperation, setCompositeOperation, js_setLineWidthFunction, setLineWidthFunction, js_setLineCapFunction, setLineCapFunction, js_setLineJoinFunction, setLineJoinFunction, js_setMiterLimitFunction, setMiterLimitFunction, js_clearShadow, clearShadow, js_fillText, fillText, js_strokeText, strokeText, js_setStrokeColor, setStrokeColor, js_setStrokeColorGray, setStrokeColorGray, js_setStrokeColorRGB, setStrokeColorRGB, js_setStrokeColorCYMK, setStrokeColorCYMK, js_setFillColor, setFillColor, js_setFillColorGray, setFillColorGray, js_setFillColorRGB, setFillColorRGB, js_setFillColorCYMK, setFillColorCYMK, js_strokeRect, strokeRect, js_drawImage, drawImage, js_drawImageScaled, drawImageScaled, js_drawImagePart, drawImagePart, js_drawImageFromCanvas, drawImageFromCanvas, js_drawImageFromCanvasScaled, drawImageFromCanvasScaled, js_drawImageFromCanvasPart, drawImageFromCanvasPart, js_drawImageFromVideo, drawImageFromVideo, js_drawImageFromVideoScaled, drawImageFromVideoScaled, js_drawImageFromVideoPart, drawImageFromVideoPart, js_drawImageFromRect, drawImageFromRect, js_setShadow, setShadow, js_setShadowGray, setShadowGray, js_setShadowRGB, setShadowRGB, js_setShadowCYMK, setShadowCYMK, js_putImageData, putImageData, js_putImageDataDirty, putImageDataDirty, js_webkitPutImageDataHD, webkitPutImageDataHD, js_webkitPutImageDataHDDirty, webkitPutImageDataHDDirty, js_createPatternFromCanvas, createPatternFromCanvas, js_createPattern, createPattern, js_createImageData, createImageData, js_createImageDataSize, createImageDataSize, js_getImageData, getImageData, js_webkitGetImageDataHD, webkitGetImageDataHD, js_drawFocusIfNeeded, drawFocusIfNeeded, js_drawFocusIfNeededPath, drawFocusIfNeededPath, js_setGlobalAlpha, setGlobalAlpha, js_getGlobalAlpha, getGlobalAlpha, js_setGlobalCompositeOperation, setGlobalCompositeOperation, js_getGlobalCompositeOperation, getGlobalCompositeOperation, js_setLineWidth, setLineWidth, js_getLineWidth, getLineWidth, js_setLineCap, setLineCap, js_getLineCap, getLineCap, js_setLineJoin, setLineJoin, js_getLineJoin, getLineJoin, js_setMiterLimit, setMiterLimit, js_getMiterLimit, getMiterLimit, js_setShadowOffsetX, setShadowOffsetX, js_getShadowOffsetX, getShadowOffsetX, js_setShadowOffsetY, setShadowOffsetY, js_getShadowOffsetY, getShadowOffsetY, js_setShadowBlur, setShadowBlur, js_getShadowBlur, getShadowBlur, js_setShadowColor, setShadowColor, js_getShadowColor, getShadowColor, js_setLineDashOffset, setLineDashOffset, js_getLineDashOffset, getLineDashOffset, js_setWebkitLineDash, setWebkitLineDash, js_getWebkitLineDash, getWebkitLineDash, js_setWebkitLineDashOffset, setWebkitLineDashOffset, js_getWebkitLineDashOffset, getWebkitLineDashOffset, js_setFont, setFont, js_getFont, getFont, js_setTextAlign, setTextAlign, js_getTextAlign, getTextAlign, js_setTextBaseline, setTextBaseline, js_getTextBaseline, getTextBaseline, js_setDirection, setDirection, js_getDirection, getDirection, js_setStrokeStyle, setStrokeStyle, js_getStrokeStyle, getStrokeStyle, js_setFillStyle, setFillStyle, js_getFillStyle, getFillStyle, js_getWebkitBackingStorePixelRatio, getWebkitBackingStorePixelRatio, js_setWebkitImageSmoothingEnabled, setWebkitImageSmoothingEnabled, js_getWebkitImageSmoothingEnabled, getWebkitImageSmoothingEnabled, CanvasRenderingContext2D, castToCanvasRenderingContext2D, gTypeCanvasRenderingContext2D) 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[\"save\"]()" js_save :: JSRef CanvasRenderingContext2D -> IO () -- | save :: (MonadIO m) => CanvasRenderingContext2D -> m () save self = liftIO (js_save (unCanvasRenderingContext2D self)) foreign import javascript unsafe "$1[\"restore\"]()" js_restore :: JSRef CanvasRenderingContext2D -> IO () -- | restore :: (MonadIO m) => CanvasRenderingContext2D -> m () restore self = liftIO (js_restore (unCanvasRenderingContext2D self)) foreign import javascript unsafe "$1[\"scale\"]($2, $3)" js_scale :: JSRef CanvasRenderingContext2D -> Float -> Float -> IO () -- | scale :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () scale self sx sy = liftIO (js_scale (unCanvasRenderingContext2D self) sx sy) foreign import javascript unsafe "$1[\"rotate\"]($2)" js_rotate :: JSRef CanvasRenderingContext2D -> Float -> IO () -- | rotate :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () rotate self angle = liftIO (js_rotate (unCanvasRenderingContext2D self) angle) foreign import javascript unsafe "$1[\"translate\"]($2, $3)" js_translate :: JSRef CanvasRenderingContext2D -> Float -> Float -> IO () -- | translate :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () translate self tx ty = liftIO (js_translate (unCanvasRenderingContext2D self) tx ty) foreign import javascript unsafe "$1[\"transform\"]($2, $3, $4, $5,\n$6, $7)" js_transform :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Float -> IO () -- | transform :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Float -> m () transform self m11 m12 m21 m22 dx dy = liftIO (js_transform (unCanvasRenderingContext2D self) m11 m12 m21 m22 dx dy) foreign import javascript unsafe "$1[\"setTransform\"]($2, $3, $4,\n$5, $6, $7)" js_setTransform :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Float -> IO () -- | setTransform :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Float -> m () setTransform self m11 m12 m21 m22 dx dy = liftIO (js_setTransform (unCanvasRenderingContext2D self) m11 m12 m21 m22 dx dy) foreign import javascript unsafe "$1[\"createLinearGradient\"]($2,\n$3, $4, $5)" js_createLinearGradient :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO (JSRef CanvasGradient) -- | createLinearGradient :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m (Maybe CanvasGradient) createLinearGradient self x0 y0 x1 y1 = liftIO ((js_createLinearGradient (unCanvasRenderingContext2D self) x0 y0 x1 y1) >>= fromJSRef) foreign import javascript unsafe "$1[\"createRadialGradient\"]($2,\n$3, $4, $5, $6, $7)" js_createRadialGradient :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Float -> IO (JSRef CanvasGradient) -- | createRadialGradient :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Float -> m (Maybe CanvasGradient) createRadialGradient self x0 y0 r0 x1 y1 r1 = liftIO ((js_createRadialGradient (unCanvasRenderingContext2D self) x0 y0 r0 x1 y1 r1) >>= fromJSRef) foreign import javascript unsafe "$1[\"setLineDash\"]($2)" js_setLineDash :: JSRef CanvasRenderingContext2D -> JSRef [Float] -> IO () -- | setLineDash :: (MonadIO m) => CanvasRenderingContext2D -> [Float] -> m () setLineDash self dash = liftIO (toJSRef dash >>= \ dash' -> js_setLineDash (unCanvasRenderingContext2D self) dash') foreign import javascript unsafe "$1[\"getLineDash\"]()" js_getLineDash :: JSRef CanvasRenderingContext2D -> IO (JSRef [Float]) -- | getLineDash :: (MonadIO m) => CanvasRenderingContext2D -> m [Float] getLineDash self = liftIO ((js_getLineDash (unCanvasRenderingContext2D self)) >>= fromJSRefUnchecked) foreign import javascript unsafe "$1[\"clearRect\"]($2, $3, $4, $5)" js_clearRect :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO () -- | clearRect :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m () clearRect self x y width height = liftIO (js_clearRect (unCanvasRenderingContext2D self) x y width height) foreign import javascript unsafe "$1[\"fillRect\"]($2, $3, $4, $5)" js_fillRect :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO () -- | fillRect :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m () fillRect self x y width height = liftIO (js_fillRect (unCanvasRenderingContext2D self) x y width height) foreign import javascript unsafe "$1[\"beginPath\"]()" js_beginPath :: JSRef CanvasRenderingContext2D -> IO () -- | beginPath :: (MonadIO m) => CanvasRenderingContext2D -> m () beginPath self = liftIO (js_beginPath (unCanvasRenderingContext2D self)) foreign import javascript unsafe "$1[\"closePath\"]()" js_closePath :: JSRef CanvasRenderingContext2D -> IO () -- | closePath :: (MonadIO m) => CanvasRenderingContext2D -> m () closePath self = liftIO (js_closePath (unCanvasRenderingContext2D self)) foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)" js_moveTo :: JSRef CanvasRenderingContext2D -> Float -> Float -> IO () -- | moveTo :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () moveTo self x y = liftIO (js_moveTo (unCanvasRenderingContext2D self) x y) foreign import javascript unsafe "$1[\"lineTo\"]($2, $3)" js_lineTo :: JSRef CanvasRenderingContext2D -> Float -> Float -> IO () -- | lineTo :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () lineTo self x y = liftIO (js_lineTo (unCanvasRenderingContext2D self) x y) foreign import javascript unsafe "$1[\"quadraticCurveTo\"]($2, $3,\n$4, $5)" js_quadraticCurveTo :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO () -- | quadraticCurveTo :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m () quadraticCurveTo self cpx cpy x y = liftIO (js_quadraticCurveTo (unCanvasRenderingContext2D self) cpx cpy x y) foreign import javascript unsafe "$1[\"bezierCurveTo\"]($2, $3, $4,\n$5, $6, $7)" js_bezierCurveTo :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Float -> IO () -- | bezierCurveTo :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Float -> m () bezierCurveTo self cp1x cp1y cp2x cp2y x y = liftIO (js_bezierCurveTo (unCanvasRenderingContext2D self) cp1x cp1y cp2x cp2y x y) foreign import javascript unsafe "$1[\"arcTo\"]($2, $3, $4, $5, $6)" js_arcTo :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> IO () -- | arcTo :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> m () arcTo self x1 y1 x2 y2 radius = liftIO (js_arcTo (unCanvasRenderingContext2D self) x1 y1 x2 y2 radius) foreign import javascript unsafe "$1[\"rect\"]($2, $3, $4, $5)" js_rect :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO () -- | rect :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m () rect self x y width height = liftIO (js_rect (unCanvasRenderingContext2D self) x y width height) foreign import javascript unsafe "$1[\"arc\"]($2, $3, $4, $5, $6,\n$7)" js_arc :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Bool -> IO () -- | arc :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Bool -> m () arc self x y radius startAngle endAngle anticlockwise = liftIO (js_arc (unCanvasRenderingContext2D self) x y radius startAngle endAngle anticlockwise) foreign import javascript unsafe "$1[\"fill\"]($2, $3)" js_fillPath :: JSRef CanvasRenderingContext2D -> JSRef Path2D -> JSRef CanvasWindingRule -> IO () -- | fillPath :: (MonadIO m) => CanvasRenderingContext2D -> Maybe Path2D -> CanvasWindingRule -> m () fillPath self path winding = liftIO (js_fillPath (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef path) (pToJSRef winding)) foreign import javascript unsafe "$1[\"stroke\"]($2)" js_strokePath :: JSRef CanvasRenderingContext2D -> JSRef Path2D -> IO () -- | strokePath :: (MonadIO m) => CanvasRenderingContext2D -> Maybe Path2D -> m () strokePath self path = liftIO (js_strokePath (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef path)) foreign import javascript unsafe "$1[\"clip\"]($2, $3)" js_clipPath :: JSRef CanvasRenderingContext2D -> JSRef Path2D -> JSRef CanvasWindingRule -> IO () -- | clipPath :: (MonadIO m) => CanvasRenderingContext2D -> Maybe Path2D -> CanvasWindingRule -> m () clipPath self path winding = liftIO (js_clipPath (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef path) (pToJSRef winding)) foreign import javascript unsafe "$1[\"fill\"]($2)" js_fill :: JSRef CanvasRenderingContext2D -> JSRef CanvasWindingRule -> IO () -- | fill :: (MonadIO m) => CanvasRenderingContext2D -> CanvasWindingRule -> m () fill self winding = liftIO (js_fill (unCanvasRenderingContext2D self) (pToJSRef winding)) foreign import javascript unsafe "$1[\"stroke\"]()" js_stroke :: JSRef CanvasRenderingContext2D -> IO () -- | stroke :: (MonadIO m) => CanvasRenderingContext2D -> m () stroke self = liftIO (js_stroke (unCanvasRenderingContext2D self)) foreign import javascript unsafe "$1[\"clip\"]($2)" js_clip :: JSRef CanvasRenderingContext2D -> JSRef CanvasWindingRule -> IO () -- | clip :: (MonadIO m) => CanvasRenderingContext2D -> CanvasWindingRule -> m () clip self winding = liftIO (js_clip (unCanvasRenderingContext2D self) (pToJSRef winding)) foreign import javascript unsafe "($1[\"isPointInPath\"]($2, $3, $4,\n$5) ? 1 : 0)" js_isPointInPathPath :: JSRef CanvasRenderingContext2D -> JSRef Path2D -> Float -> Float -> JSRef CanvasWindingRule -> IO Bool -- | isPointInPathPath :: (MonadIO m) => CanvasRenderingContext2D -> Maybe Path2D -> Float -> Float -> CanvasWindingRule -> m Bool isPointInPathPath self path x y winding = liftIO (js_isPointInPathPath (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef path) x y (pToJSRef winding)) foreign import javascript unsafe "($1[\"isPointInStroke\"]($2, $3,\n$4) ? 1 : 0)" js_isPointInStrokePath :: JSRef CanvasRenderingContext2D -> JSRef Path2D -> Float -> Float -> IO Bool -- | isPointInStrokePath :: (MonadIO m) => CanvasRenderingContext2D -> Maybe Path2D -> Float -> Float -> m Bool isPointInStrokePath self path x y = liftIO (js_isPointInStrokePath (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef path) x y) foreign import javascript unsafe "($1[\"isPointInPath\"]($2, $3,\n$4) ? 1 : 0)" js_isPointInPath :: JSRef CanvasRenderingContext2D -> Float -> Float -> JSRef CanvasWindingRule -> IO Bool -- | isPointInPath :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> CanvasWindingRule -> m Bool isPointInPath self x y winding = liftIO (js_isPointInPath (unCanvasRenderingContext2D self) x y (pToJSRef winding)) foreign import javascript unsafe "($1[\"isPointInStroke\"]($2,\n$3) ? 1 : 0)" js_isPointInStroke :: JSRef CanvasRenderingContext2D -> Float -> Float -> IO Bool -- | isPointInStroke :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m Bool isPointInStroke self x y = liftIO (js_isPointInStroke (unCanvasRenderingContext2D self) x y) foreign import javascript unsafe "$1[\"measureText\"]($2)" js_measureText :: JSRef CanvasRenderingContext2D -> JSString -> IO (JSRef TextMetrics) -- | measureText :: (MonadIO m, ToJSString text) => CanvasRenderingContext2D -> text -> m (Maybe TextMetrics) measureText self text = liftIO ((js_measureText (unCanvasRenderingContext2D self) (toJSString text)) >>= fromJSRef) foreign import javascript unsafe "$1[\"setAlpha\"]($2)" js_setAlpha :: JSRef CanvasRenderingContext2D -> Float -> IO () -- | setAlpha :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setAlpha self alpha = liftIO (js_setAlpha (unCanvasRenderingContext2D self) alpha) foreign import javascript unsafe "$1[\"setCompositeOperation\"]($2)" js_setCompositeOperation :: JSRef CanvasRenderingContext2D -> JSString -> IO () -- | setCompositeOperation :: (MonadIO m, ToJSString compositeOperation) => CanvasRenderingContext2D -> compositeOperation -> m () setCompositeOperation self compositeOperation = liftIO (js_setCompositeOperation (unCanvasRenderingContext2D self) (toJSString compositeOperation)) foreign import javascript unsafe "$1[\"setLineWidth\"]($2)" js_setLineWidthFunction :: JSRef CanvasRenderingContext2D -> Float -> IO () -- | setLineWidthFunction :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setLineWidthFunction self width = liftIO (js_setLineWidthFunction (unCanvasRenderingContext2D self) width) foreign import javascript unsafe "$1[\"setLineCap\"]($2)" js_setLineCapFunction :: JSRef CanvasRenderingContext2D -> JSString -> IO () -- | setLineCapFunction :: (MonadIO m, ToJSString cap) => CanvasRenderingContext2D -> cap -> m () setLineCapFunction self cap = liftIO (js_setLineCapFunction (unCanvasRenderingContext2D self) (toJSString cap)) foreign import javascript unsafe "$1[\"setLineJoin\"]($2)" js_setLineJoinFunction :: JSRef CanvasRenderingContext2D -> JSString -> IO () -- | setLineJoinFunction :: (MonadIO m, ToJSString join) => CanvasRenderingContext2D -> join -> m () setLineJoinFunction self join = liftIO (js_setLineJoinFunction (unCanvasRenderingContext2D self) (toJSString join)) foreign import javascript unsafe "$1[\"setMiterLimit\"]($2)" js_setMiterLimitFunction :: JSRef CanvasRenderingContext2D -> Float -> IO () -- | setMiterLimitFunction :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setMiterLimitFunction self limit = liftIO (js_setMiterLimitFunction (unCanvasRenderingContext2D self) limit) foreign import javascript unsafe "$1[\"clearShadow\"]()" js_clearShadow :: JSRef CanvasRenderingContext2D -> IO () -- | clearShadow :: (MonadIO m) => CanvasRenderingContext2D -> m () clearShadow self = liftIO (js_clearShadow (unCanvasRenderingContext2D self)) foreign import javascript unsafe "$1[\"fillText\"]($2, $3, $4, $5)" js_fillText :: JSRef CanvasRenderingContext2D -> JSString -> Float -> Float -> Float -> IO () -- | fillText :: (MonadIO m, ToJSString text) => CanvasRenderingContext2D -> text -> Float -> Float -> Float -> m () fillText self text x y maxWidth = liftIO (js_fillText (unCanvasRenderingContext2D self) (toJSString text) x y maxWidth) foreign import javascript unsafe "$1[\"strokeText\"]($2, $3, $4, $5)" js_strokeText :: JSRef CanvasRenderingContext2D -> JSString -> Float -> Float -> Float -> IO () -- | strokeText :: (MonadIO m, ToJSString text) => CanvasRenderingContext2D -> text -> Float -> Float -> Float -> m () strokeText self text x y maxWidth = liftIO (js_strokeText (unCanvasRenderingContext2D self) (toJSString text) x y maxWidth) foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3)" js_setStrokeColor :: JSRef CanvasRenderingContext2D -> JSString -> Float -> IO () -- | setStrokeColor :: (MonadIO m, ToJSString color) => CanvasRenderingContext2D -> color -> Float -> m () setStrokeColor self color alpha = liftIO (js_setStrokeColor (unCanvasRenderingContext2D self) (toJSString color) alpha) foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3)" js_setStrokeColorGray :: JSRef CanvasRenderingContext2D -> Float -> Float -> IO () -- | setStrokeColorGray :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () setStrokeColorGray self grayLevel alpha = liftIO (js_setStrokeColorGray (unCanvasRenderingContext2D self) grayLevel alpha) foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3, $4,\n$5)" js_setStrokeColorRGB :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO () -- | setStrokeColorRGB :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m () setStrokeColorRGB self r g b a = liftIO (js_setStrokeColorRGB (unCanvasRenderingContext2D self) r g b a) foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3, $4,\n$5, $6)" js_setStrokeColorCYMK :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> IO () -- | setStrokeColorCYMK :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> m () setStrokeColorCYMK self c m y k a = liftIO (js_setStrokeColorCYMK (unCanvasRenderingContext2D self) c m y k a) foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3)" js_setFillColor :: JSRef CanvasRenderingContext2D -> JSString -> Float -> IO () -- | setFillColor :: (MonadIO m, ToJSString color) => CanvasRenderingContext2D -> color -> Float -> m () setFillColor self color alpha = liftIO (js_setFillColor (unCanvasRenderingContext2D self) (toJSString color) alpha) foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3)" js_setFillColorGray :: JSRef CanvasRenderingContext2D -> Float -> Float -> IO () -- | setFillColorGray :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () setFillColorGray self grayLevel alpha = liftIO (js_setFillColorGray (unCanvasRenderingContext2D self) grayLevel alpha) foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3, $4,\n$5)" js_setFillColorRGB :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO () -- | setFillColorRGB :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m () setFillColorRGB self r g b a = liftIO (js_setFillColorRGB (unCanvasRenderingContext2D self) r g b a) foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3, $4,\n$5, $6)" js_setFillColorCYMK :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> IO () -- | setFillColorCYMK :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> m () setFillColorCYMK self c m y k a = liftIO (js_setFillColorCYMK (unCanvasRenderingContext2D self) c m y k a) foreign import javascript unsafe "$1[\"strokeRect\"]($2, $3, $4, $5)" js_strokeRect :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO () -- | strokeRect :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m () strokeRect self x y width height = liftIO (js_strokeRect (unCanvasRenderingContext2D self) x y width height) foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4)" js_drawImage :: JSRef CanvasRenderingContext2D -> JSRef HTMLImageElement -> Float -> Float -> IO () -- | drawImage :: (MonadIO m) => CanvasRenderingContext2D -> Maybe HTMLImageElement -> Float -> Float -> m () drawImage self image x y = liftIO (js_drawImage (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef image) x y) foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)" js_drawImageScaled :: JSRef CanvasRenderingContext2D -> JSRef HTMLImageElement -> Float -> Float -> Float -> Float -> IO () -- | drawImageScaled :: (MonadIO m) => CanvasRenderingContext2D -> Maybe HTMLImageElement -> Float -> Float -> Float -> Float -> m () drawImageScaled self image x y width height = liftIO (js_drawImageScaled (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef image) x y width height) foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)" js_drawImagePart :: JSRef CanvasRenderingContext2D -> JSRef HTMLImageElement -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> IO () -- | drawImagePart :: (MonadIO m) => CanvasRenderingContext2D -> Maybe HTMLImageElement -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () drawImagePart self image sx sy sw sh dx dy dw dh = liftIO (js_drawImagePart (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef image) sx sy sw sh dx dy dw dh) foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4)" js_drawImageFromCanvas :: JSRef CanvasRenderingContext2D -> JSRef HTMLCanvasElement -> Float -> Float -> IO () -- | drawImageFromCanvas :: (MonadIO m) => CanvasRenderingContext2D -> Maybe HTMLCanvasElement -> Float -> Float -> m () drawImageFromCanvas self canvas x y = liftIO (js_drawImageFromCanvas (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef canvas) x y) foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)" js_drawImageFromCanvasScaled :: JSRef CanvasRenderingContext2D -> JSRef HTMLCanvasElement -> Float -> Float -> Float -> Float -> IO () -- | drawImageFromCanvasScaled :: (MonadIO m) => CanvasRenderingContext2D -> Maybe HTMLCanvasElement -> Float -> Float -> Float -> Float -> m () drawImageFromCanvasScaled self canvas x y width height = liftIO (js_drawImageFromCanvasScaled (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef canvas) x y width height) foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)" js_drawImageFromCanvasPart :: JSRef CanvasRenderingContext2D -> JSRef HTMLCanvasElement -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> IO () -- | drawImageFromCanvasPart :: (MonadIO m) => CanvasRenderingContext2D -> Maybe HTMLCanvasElement -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () drawImageFromCanvasPart self canvas sx sy sw sh dx dy dw dh = liftIO (js_drawImageFromCanvasPart (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef canvas) sx sy sw sh dx dy dw dh) foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4)" js_drawImageFromVideo :: JSRef CanvasRenderingContext2D -> JSRef HTMLVideoElement -> Float -> Float -> IO () -- | drawImageFromVideo :: (MonadIO m) => CanvasRenderingContext2D -> Maybe HTMLVideoElement -> Float -> Float -> m () drawImageFromVideo self video x y = liftIO (js_drawImageFromVideo (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef video) x y) foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)" js_drawImageFromVideoScaled :: JSRef CanvasRenderingContext2D -> JSRef HTMLVideoElement -> Float -> Float -> Float -> Float -> IO () -- | drawImageFromVideoScaled :: (MonadIO m) => CanvasRenderingContext2D -> Maybe HTMLVideoElement -> Float -> Float -> Float -> Float -> m () drawImageFromVideoScaled self video x y width height = liftIO (js_drawImageFromVideoScaled (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef video) x y width height) foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)" js_drawImageFromVideoPart :: JSRef CanvasRenderingContext2D -> JSRef HTMLVideoElement -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> IO () -- | drawImageFromVideoPart :: (MonadIO m) => CanvasRenderingContext2D -> Maybe HTMLVideoElement -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () drawImageFromVideoPart self video sx sy sw sh dx dy dw dh = liftIO (js_drawImageFromVideoPart (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef video) sx sy sw sh dx dy dw dh) foreign import javascript unsafe "$1[\"drawImageFromRect\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11)" js_drawImageFromRect :: JSRef CanvasRenderingContext2D -> JSRef HTMLImageElement -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> JSString -> IO () -- | drawImageFromRect :: (MonadIO 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 = liftIO (js_drawImageFromRect (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef image) sx sy sw sh dx dy dw dh (toJSString compositeOperation)) foreign import javascript unsafe "$1[\"setShadow\"]($2, $3, $4, $5,\n$6)" js_setShadow :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> JSString -> Float -> IO () -- | setShadow :: (MonadIO m, ToJSString color) => CanvasRenderingContext2D -> Float -> Float -> Float -> color -> Float -> m () setShadow self width height blur color alpha = liftIO (js_setShadow (unCanvasRenderingContext2D self) width height blur (toJSString color) alpha) foreign import javascript unsafe "$1[\"setShadow\"]($2, $3, $4, $5,\n$6)" js_setShadowGray :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> IO () -- | setShadowGray :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> m () setShadowGray self width height blur grayLevel alpha = liftIO (js_setShadowGray (unCanvasRenderingContext2D self) width height blur grayLevel alpha) foreign import javascript unsafe "$1[\"setShadow\"]($2, $3, $4, $5,\n$6, $7, $8)" js_setShadowRGB :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> IO () -- | setShadowRGB :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () setShadowRGB self width height blur r g b a = liftIO (js_setShadowRGB (unCanvasRenderingContext2D self) width height blur r g b a) foreign import javascript unsafe "$1[\"setShadow\"]($2, $3, $4, $5,\n$6, $7, $8, $9)" js_setShadowCYMK :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> IO () -- | setShadowCYMK :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () setShadowCYMK self width height blur c m y k a = liftIO (js_setShadowCYMK (unCanvasRenderingContext2D self) width height blur c m y k a) foreign import javascript unsafe "$1[\"putImageData\"]($2, $3, $4)" js_putImageData :: JSRef CanvasRenderingContext2D -> JSRef ImageData -> Float -> Float -> IO () -- | putImageData :: (MonadIO m) => CanvasRenderingContext2D -> Maybe ImageData -> Float -> Float -> m () putImageData self imagedata dx dy = liftIO (js_putImageData (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef imagedata) dx dy) foreign import javascript unsafe "$1[\"putImageData\"]($2, $3, $4,\n$5, $6, $7, $8)" js_putImageDataDirty :: JSRef CanvasRenderingContext2D -> JSRef ImageData -> Float -> Float -> Float -> Float -> Float -> Float -> IO () -- | putImageDataDirty :: (MonadIO m) => CanvasRenderingContext2D -> Maybe ImageData -> Float -> Float -> Float -> Float -> Float -> Float -> m () putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth dirtyHeight = liftIO (js_putImageDataDirty (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef imagedata) dx dy dirtyX dirtyY dirtyWidth dirtyHeight) foreign import javascript unsafe "$1[\"webkitPutImageDataHD\"]($2,\n$3, $4)" js_webkitPutImageDataHD :: JSRef CanvasRenderingContext2D -> JSRef ImageData -> Float -> Float -> IO () -- | webkitPutImageDataHD :: (MonadIO m) => CanvasRenderingContext2D -> Maybe ImageData -> Float -> Float -> m () webkitPutImageDataHD self imagedata dx dy = liftIO (js_webkitPutImageDataHD (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef imagedata) dx dy) foreign import javascript unsafe "$1[\"webkitPutImageDataHD\"]($2,\n$3, $4, $5, $6, $7, $8)" js_webkitPutImageDataHDDirty :: JSRef CanvasRenderingContext2D -> JSRef ImageData -> Float -> Float -> Float -> Float -> Float -> Float -> IO () -- | webkitPutImageDataHDDirty :: (MonadIO m) => CanvasRenderingContext2D -> Maybe ImageData -> Float -> Float -> Float -> Float -> Float -> Float -> m () webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY dirtyWidth dirtyHeight = liftIO (js_webkitPutImageDataHDDirty (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef imagedata) dx dy dirtyX dirtyY dirtyWidth dirtyHeight) foreign import javascript unsafe "$1[\"createPattern\"]($2, $3)" js_createPatternFromCanvas :: JSRef CanvasRenderingContext2D -> JSRef HTMLCanvasElement -> JSRef (Maybe JSString) -> IO (JSRef CanvasPattern) -- | createPatternFromCanvas :: (MonadIO m, ToJSString repetitionType) => CanvasRenderingContext2D -> Maybe HTMLCanvasElement -> Maybe repetitionType -> m (Maybe CanvasPattern) createPatternFromCanvas self canvas repetitionType = liftIO ((js_createPatternFromCanvas (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef canvas) (toMaybeJSString repetitionType)) >>= fromJSRef) foreign import javascript unsafe "$1[\"createPattern\"]($2, $3)" js_createPattern :: JSRef CanvasRenderingContext2D -> JSRef HTMLImageElement -> JSRef (Maybe JSString) -> IO (JSRef CanvasPattern) -- | createPattern :: (MonadIO m, ToJSString repetitionType) => CanvasRenderingContext2D -> Maybe HTMLImageElement -> Maybe repetitionType -> m (Maybe CanvasPattern) createPattern self image repetitionType = liftIO ((js_createPattern (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef image) (toMaybeJSString repetitionType)) >>= fromJSRef) foreign import javascript unsafe "$1[\"createImageData\"]($2)" js_createImageData :: JSRef CanvasRenderingContext2D -> JSRef ImageData -> IO (JSRef ImageData) -- | createImageData :: (MonadIO m) => CanvasRenderingContext2D -> Maybe ImageData -> m (Maybe ImageData) createImageData self imagedata = liftIO ((js_createImageData (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef imagedata)) >>= fromJSRef) foreign import javascript unsafe "$1[\"createImageData\"]($2, $3)" js_createImageDataSize :: JSRef CanvasRenderingContext2D -> Float -> Float -> IO (JSRef ImageData) -- | createImageDataSize :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m (Maybe ImageData) createImageDataSize self sw sh = liftIO ((js_createImageDataSize (unCanvasRenderingContext2D self) sw sh) >>= fromJSRef) foreign import javascript unsafe "$1[\"getImageData\"]($2, $3, $4,\n$5)" js_getImageData :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO (JSRef ImageData) -- | getImageData :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m (Maybe ImageData) getImageData self sx sy sw sh = liftIO ((js_getImageData (unCanvasRenderingContext2D self) sx sy sw sh) >>= fromJSRef) foreign import javascript unsafe "$1[\"webkitGetImageDataHD\"]($2,\n$3, $4, $5)" js_webkitGetImageDataHD :: JSRef CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO (JSRef ImageData) -- | webkitGetImageDataHD :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m (Maybe ImageData) webkitGetImageDataHD self sx sy sw sh = liftIO ((js_webkitGetImageDataHD (unCanvasRenderingContext2D self) sx sy sw sh) >>= fromJSRef) foreign import javascript unsafe "$1[\"drawFocusIfNeeded\"]($2)" js_drawFocusIfNeeded :: JSRef CanvasRenderingContext2D -> JSRef Element -> IO () -- | drawFocusIfNeeded :: (MonadIO m, IsElement element) => CanvasRenderingContext2D -> Maybe element -> m () drawFocusIfNeeded self element = liftIO (js_drawFocusIfNeeded (unCanvasRenderingContext2D self) (maybe jsNull (unElement . toElement) element)) foreign import javascript unsafe "$1[\"drawFocusIfNeeded\"]($2, $3)" js_drawFocusIfNeededPath :: JSRef CanvasRenderingContext2D -> JSRef Path2D -> JSRef Element -> IO () -- | drawFocusIfNeededPath :: (MonadIO m, IsElement element) => CanvasRenderingContext2D -> Maybe Path2D -> Maybe element -> m () drawFocusIfNeededPath self path element = liftIO (js_drawFocusIfNeededPath (unCanvasRenderingContext2D self) (maybe jsNull pToJSRef path) (maybe jsNull (unElement . toElement) element)) foreign import javascript unsafe "$1[\"globalAlpha\"] = $2;" js_setGlobalAlpha :: JSRef CanvasRenderingContext2D -> Float -> IO () -- | setGlobalAlpha :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setGlobalAlpha self val = liftIO (js_setGlobalAlpha (unCanvasRenderingContext2D self) val) foreign import javascript unsafe "$1[\"globalAlpha\"]" js_getGlobalAlpha :: JSRef CanvasRenderingContext2D -> IO Float -- | getGlobalAlpha :: (MonadIO m) => CanvasRenderingContext2D -> m Float getGlobalAlpha self = liftIO (js_getGlobalAlpha (unCanvasRenderingContext2D self)) foreign import javascript unsafe "$1[\"globalCompositeOperation\"] = $2;" js_setGlobalCompositeOperation :: JSRef CanvasRenderingContext2D -> JSRef (Maybe JSString) -> IO () -- | setGlobalCompositeOperation :: (MonadIO m, ToJSString val) => CanvasRenderingContext2D -> Maybe val -> m () setGlobalCompositeOperation self val = liftIO (js_setGlobalCompositeOperation (unCanvasRenderingContext2D self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"globalCompositeOperation\"]" js_getGlobalCompositeOperation :: JSRef CanvasRenderingContext2D -> IO (JSRef (Maybe JSString)) -- | getGlobalCompositeOperation :: (MonadIO m, FromJSString result) => CanvasRenderingContext2D -> m (Maybe result) getGlobalCompositeOperation self = liftIO (fromMaybeJSString <$> (js_getGlobalCompositeOperation (unCanvasRenderingContext2D self))) foreign import javascript unsafe "$1[\"lineWidth\"] = $2;" js_setLineWidth :: JSRef CanvasRenderingContext2D -> Float -> IO () -- | setLineWidth :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setLineWidth self val = liftIO (js_setLineWidth (unCanvasRenderingContext2D self) val) foreign import javascript unsafe "$1[\"lineWidth\"]" js_getLineWidth :: JSRef CanvasRenderingContext2D -> IO Float -- | getLineWidth :: (MonadIO m) => CanvasRenderingContext2D -> m Float getLineWidth self = liftIO (js_getLineWidth (unCanvasRenderingContext2D self)) foreign import javascript unsafe "$1[\"lineCap\"] = $2;" js_setLineCap :: JSRef CanvasRenderingContext2D -> JSRef (Maybe JSString) -> IO () -- | setLineCap :: (MonadIO m, ToJSString val) => CanvasRenderingContext2D -> Maybe val -> m () setLineCap self val = liftIO (js_setLineCap (unCanvasRenderingContext2D self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"lineCap\"]" js_getLineCap :: JSRef CanvasRenderingContext2D -> IO (JSRef (Maybe JSString)) -- | getLineCap :: (MonadIO m, FromJSString result) => CanvasRenderingContext2D -> m (Maybe result) getLineCap self = liftIO (fromMaybeJSString <$> (js_getLineCap (unCanvasRenderingContext2D self))) foreign import javascript unsafe "$1[\"lineJoin\"] = $2;" js_setLineJoin :: JSRef CanvasRenderingContext2D -> JSRef (Maybe JSString) -> IO () -- | setLineJoin :: (MonadIO m, ToJSString val) => CanvasRenderingContext2D -> Maybe val -> m () setLineJoin self val = liftIO (js_setLineJoin (unCanvasRenderingContext2D self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"lineJoin\"]" js_getLineJoin :: JSRef CanvasRenderingContext2D -> IO (JSRef (Maybe JSString)) -- | getLineJoin :: (MonadIO m, FromJSString result) => CanvasRenderingContext2D -> m (Maybe result) getLineJoin self = liftIO (fromMaybeJSString <$> (js_getLineJoin (unCanvasRenderingContext2D self))) foreign import javascript unsafe "$1[\"miterLimit\"] = $2;" js_setMiterLimit :: JSRef CanvasRenderingContext2D -> Float -> IO () -- | setMiterLimit :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setMiterLimit self val = liftIO (js_setMiterLimit (unCanvasRenderingContext2D self) val) foreign import javascript unsafe "$1[\"miterLimit\"]" js_getMiterLimit :: JSRef CanvasRenderingContext2D -> IO Float -- | getMiterLimit :: (MonadIO m) => CanvasRenderingContext2D -> m Float getMiterLimit self = liftIO (js_getMiterLimit (unCanvasRenderingContext2D self)) foreign import javascript unsafe "$1[\"shadowOffsetX\"] = $2;" js_setShadowOffsetX :: JSRef CanvasRenderingContext2D -> Float -> IO () -- | setShadowOffsetX :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setShadowOffsetX self val = liftIO (js_setShadowOffsetX (unCanvasRenderingContext2D self) val) foreign import javascript unsafe "$1[\"shadowOffsetX\"]" js_getShadowOffsetX :: JSRef CanvasRenderingContext2D -> IO Float -- | getShadowOffsetX :: (MonadIO m) => CanvasRenderingContext2D -> m Float getShadowOffsetX self = liftIO (js_getShadowOffsetX (unCanvasRenderingContext2D self)) foreign import javascript unsafe "$1[\"shadowOffsetY\"] = $2;" js_setShadowOffsetY :: JSRef CanvasRenderingContext2D -> Float -> IO () -- | setShadowOffsetY :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setShadowOffsetY self val = liftIO (js_setShadowOffsetY (unCanvasRenderingContext2D self) val) foreign import javascript unsafe "$1[\"shadowOffsetY\"]" js_getShadowOffsetY :: JSRef CanvasRenderingContext2D -> IO Float -- | getShadowOffsetY :: (MonadIO m) => CanvasRenderingContext2D -> m Float getShadowOffsetY self = liftIO (js_getShadowOffsetY (unCanvasRenderingContext2D self)) foreign import javascript unsafe "$1[\"shadowBlur\"] = $2;" js_setShadowBlur :: JSRef CanvasRenderingContext2D -> Float -> IO () -- | setShadowBlur :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setShadowBlur self val = liftIO (js_setShadowBlur (unCanvasRenderingContext2D self) val) foreign import javascript unsafe "$1[\"shadowBlur\"]" js_getShadowBlur :: JSRef CanvasRenderingContext2D -> IO Float -- | getShadowBlur :: (MonadIO m) => CanvasRenderingContext2D -> m Float getShadowBlur self = liftIO (js_getShadowBlur (unCanvasRenderingContext2D self)) foreign import javascript unsafe "$1[\"shadowColor\"] = $2;" js_setShadowColor :: JSRef CanvasRenderingContext2D -> JSRef (Maybe JSString) -> IO () -- | setShadowColor :: (MonadIO m, ToJSString val) => CanvasRenderingContext2D -> Maybe val -> m () setShadowColor self val = liftIO (js_setShadowColor (unCanvasRenderingContext2D self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"shadowColor\"]" js_getShadowColor :: JSRef CanvasRenderingContext2D -> IO (JSRef (Maybe JSString)) -- | getShadowColor :: (MonadIO m, FromJSString result) => CanvasRenderingContext2D -> m (Maybe result) getShadowColor self = liftIO (fromMaybeJSString <$> (js_getShadowColor (unCanvasRenderingContext2D self))) foreign import javascript unsafe "$1[\"lineDashOffset\"] = $2;" js_setLineDashOffset :: JSRef CanvasRenderingContext2D -> Float -> IO () -- | setLineDashOffset :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setLineDashOffset self val = liftIO (js_setLineDashOffset (unCanvasRenderingContext2D self) val) foreign import javascript unsafe "$1[\"lineDashOffset\"]" js_getLineDashOffset :: JSRef CanvasRenderingContext2D -> IO Float -- | getLineDashOffset :: (MonadIO m) => CanvasRenderingContext2D -> m Float getLineDashOffset self = liftIO (js_getLineDashOffset (unCanvasRenderingContext2D self)) foreign import javascript unsafe "$1[\"webkitLineDash\"] = $2;" js_setWebkitLineDash :: JSRef CanvasRenderingContext2D -> JSRef Array -> IO () -- | setWebkitLineDash :: (MonadIO m, IsArray val) => CanvasRenderingContext2D -> Maybe val -> m () setWebkitLineDash self val = liftIO (js_setWebkitLineDash (unCanvasRenderingContext2D self) (maybe jsNull (unArray . toArray) val)) foreign import javascript unsafe "$1[\"webkitLineDash\"]" js_getWebkitLineDash :: JSRef CanvasRenderingContext2D -> IO (JSRef Array) -- | getWebkitLineDash :: (MonadIO m) => CanvasRenderingContext2D -> m (Maybe Array) getWebkitLineDash self = liftIO ((js_getWebkitLineDash (unCanvasRenderingContext2D self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"webkitLineDashOffset\"] = $2;" js_setWebkitLineDashOffset :: JSRef CanvasRenderingContext2D -> Float -> IO () -- | setWebkitLineDashOffset :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setWebkitLineDashOffset self val = liftIO (js_setWebkitLineDashOffset (unCanvasRenderingContext2D self) val) foreign import javascript unsafe "$1[\"webkitLineDashOffset\"]" js_getWebkitLineDashOffset :: JSRef CanvasRenderingContext2D -> IO Float -- | getWebkitLineDashOffset :: (MonadIO m) => CanvasRenderingContext2D -> m Float getWebkitLineDashOffset self = liftIO (js_getWebkitLineDashOffset (unCanvasRenderingContext2D self)) foreign import javascript unsafe "$1[\"font\"] = $2;" js_setFont :: JSRef CanvasRenderingContext2D -> JSString -> IO () -- | setFont :: (MonadIO m, ToJSString val) => CanvasRenderingContext2D -> val -> m () setFont self val = liftIO (js_setFont (unCanvasRenderingContext2D self) (toJSString val)) foreign import javascript unsafe "$1[\"font\"]" js_getFont :: JSRef CanvasRenderingContext2D -> IO JSString -- | getFont :: (MonadIO m, FromJSString result) => CanvasRenderingContext2D -> m result getFont self = liftIO (fromJSString <$> (js_getFont (unCanvasRenderingContext2D self))) foreign import javascript unsafe "$1[\"textAlign\"] = $2;" js_setTextAlign :: JSRef CanvasRenderingContext2D -> JSString -> IO () -- | setTextAlign :: (MonadIO m, ToJSString val) => CanvasRenderingContext2D -> val -> m () setTextAlign self val = liftIO (js_setTextAlign (unCanvasRenderingContext2D self) (toJSString val)) foreign import javascript unsafe "$1[\"textAlign\"]" js_getTextAlign :: JSRef CanvasRenderingContext2D -> IO JSString -- | getTextAlign :: (MonadIO m, FromJSString result) => CanvasRenderingContext2D -> m result getTextAlign self = liftIO (fromJSString <$> (js_getTextAlign (unCanvasRenderingContext2D self))) foreign import javascript unsafe "$1[\"textBaseline\"] = $2;" js_setTextBaseline :: JSRef CanvasRenderingContext2D -> JSString -> IO () -- | setTextBaseline :: (MonadIO m, ToJSString val) => CanvasRenderingContext2D -> val -> m () setTextBaseline self val = liftIO (js_setTextBaseline (unCanvasRenderingContext2D self) (toJSString val)) foreign import javascript unsafe "$1[\"textBaseline\"]" js_getTextBaseline :: JSRef CanvasRenderingContext2D -> IO JSString -- | getTextBaseline :: (MonadIO m, FromJSString result) => CanvasRenderingContext2D -> m result getTextBaseline self = liftIO (fromJSString <$> (js_getTextBaseline (unCanvasRenderingContext2D self))) foreign import javascript unsafe "$1[\"direction\"] = $2;" js_setDirection :: JSRef CanvasRenderingContext2D -> JSString -> IO () -- | setDirection :: (MonadIO m, ToJSString val) => CanvasRenderingContext2D -> val -> m () setDirection self val = liftIO (js_setDirection (unCanvasRenderingContext2D self) (toJSString val)) foreign import javascript unsafe "$1[\"direction\"]" js_getDirection :: JSRef CanvasRenderingContext2D -> IO JSString -- | getDirection :: (MonadIO m, FromJSString result) => CanvasRenderingContext2D -> m result getDirection self = liftIO (fromJSString <$> (js_getDirection (unCanvasRenderingContext2D self))) foreign import javascript unsafe "$1[\"strokeStyle\"] = $2;" js_setStrokeStyle :: JSRef CanvasRenderingContext2D -> JSRef CanvasStyle -> IO () -- | setStrokeStyle :: (MonadIO m, IsCanvasStyle val) => CanvasRenderingContext2D -> Maybe val -> m () setStrokeStyle self val = liftIO (js_setStrokeStyle (unCanvasRenderingContext2D self) (maybe jsNull (unCanvasStyle . toCanvasStyle) val)) foreign import javascript unsafe "$1[\"strokeStyle\"]" js_getStrokeStyle :: JSRef CanvasRenderingContext2D -> IO (JSRef CanvasStyle) -- | getStrokeStyle :: (MonadIO m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle) getStrokeStyle self = liftIO ((js_getStrokeStyle (unCanvasRenderingContext2D self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"fillStyle\"] = $2;" js_setFillStyle :: JSRef CanvasRenderingContext2D -> JSRef CanvasStyle -> IO () -- | setFillStyle :: (MonadIO m, IsCanvasStyle val) => CanvasRenderingContext2D -> Maybe val -> m () setFillStyle self val = liftIO (js_setFillStyle (unCanvasRenderingContext2D self) (maybe jsNull (unCanvasStyle . toCanvasStyle) val)) foreign import javascript unsafe "$1[\"fillStyle\"]" js_getFillStyle :: JSRef CanvasRenderingContext2D -> IO (JSRef CanvasStyle) -- | getFillStyle :: (MonadIO m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle) getFillStyle self = liftIO ((js_getFillStyle (unCanvasRenderingContext2D self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"webkitBackingStorePixelRatio\"]" js_getWebkitBackingStorePixelRatio :: JSRef CanvasRenderingContext2D -> IO Float -- | getWebkitBackingStorePixelRatio :: (MonadIO m) => CanvasRenderingContext2D -> m Float getWebkitBackingStorePixelRatio self = liftIO (js_getWebkitBackingStorePixelRatio (unCanvasRenderingContext2D self)) foreign import javascript unsafe "$1[\"webkitImageSmoothingEnabled\"] = $2;" js_setWebkitImageSmoothingEnabled :: JSRef CanvasRenderingContext2D -> Bool -> IO () -- | setWebkitImageSmoothingEnabled :: (MonadIO m) => CanvasRenderingContext2D -> Bool -> m () setWebkitImageSmoothingEnabled self val = liftIO (js_setWebkitImageSmoothingEnabled (unCanvasRenderingContext2D self) val) foreign import javascript unsafe "($1[\"webkitImageSmoothingEnabled\"] ? 1 : 0)" js_getWebkitImageSmoothingEnabled :: JSRef CanvasRenderingContext2D -> IO Bool -- | getWebkitImageSmoothingEnabled :: (MonadIO m) => CanvasRenderingContext2D -> m Bool getWebkitImageSmoothingEnabled self = liftIO (js_getWebkitImageSmoothingEnabled (unCanvasRenderingContext2D self))