{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D (js_save, save, js_restore, restore, js_commit, commit, js_scale, scale, js_rotate, rotate, js_translate, translate, js_transform, transform, js_setTransform, setTransform, js_resetTransform, resetTransform, js_setLineDash, setLineDash, js_getLineDash, getLineDash, getLineDash_, js_clearRect, clearRect, js_fillRect, fillRect, js_beginPath, beginPath, js_fillPath, fillPath, js_strokePath, strokePath, js_clipPath, clipPath, js_fill, fill, js_stroke, stroke, js_clip, clip, js_isPointInPathPath, isPointInPathPath, isPointInPathPath_, js_isPointInStrokePath, isPointInStrokePath, isPointInStrokePath_, js_isPointInPath, isPointInPath, isPointInPath_, js_isPointInStroke, isPointInStroke, isPointInStroke_, js_measureText, 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_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_createImageData, createImageData, createImageData_, js_createImageDataSize, createImageDataSize, createImageDataSize_, js_createLinearGradient, createLinearGradient, createLinearGradient_, js_createRadialGradient, createRadialGradient, createRadialGradient_, js_createPattern, createPattern, createPattern_, createPatternUnsafe, createPatternUnchecked, js_getImageData, getImageData, getImageData_, js_webkitGetImageDataHD, webkitGetImageDataHD, webkitGetImageDataHD_, js_drawFocusIfNeeded, drawFocusIfNeeded, js_drawFocusIfNeededPath, drawFocusIfNeededPath, js_getCanvas, getCanvas, 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_setImageSmoothingEnabled, setImageSmoothingEnabled, js_getImageSmoothingEnabled, getImageSmoothingEnabled, js_setWebkitImageSmoothingEnabled, setWebkitImageSmoothingEnabled, js_getWebkitImageSmoothingEnabled, getWebkitImageSmoothingEnabled, js_setImageSmoothingQuality, setImageSmoothingQuality, js_getImageSmoothingQuality, getImageSmoothingQuality, CanvasRenderingContext2D(..), gTypeCanvasRenderingContext2D) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "$1[\"save\"]()" js_save :: CanvasRenderingContext2D -> IO () -- | save :: (MonadIO m) => CanvasRenderingContext2D -> m () save self = liftIO (js_save self) foreign import javascript unsafe "$1[\"restore\"]()" js_restore :: CanvasRenderingContext2D -> IO () -- | restore :: (MonadIO m) => CanvasRenderingContext2D -> m () restore self = liftIO (js_restore self) foreign import javascript unsafe "$1[\"commit\"]()" js_commit :: CanvasRenderingContext2D -> IO () -- | commit :: (MonadIO m) => CanvasRenderingContext2D -> m () commit self = liftIO (js_commit self) foreign import javascript unsafe "$1[\"scale\"]($2, $3)" js_scale :: CanvasRenderingContext2D -> Float -> Float -> IO () -- | scale :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () scale self sx sy = liftIO (js_scale self sx sy) foreign import javascript unsafe "$1[\"rotate\"]($2)" js_rotate :: CanvasRenderingContext2D -> Float -> IO () -- | rotate :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () rotate self angle = liftIO (js_rotate self angle) foreign import javascript unsafe "$1[\"translate\"]($2, $3)" js_translate :: CanvasRenderingContext2D -> Float -> Float -> IO () -- | translate :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () translate self tx ty = liftIO (js_translate self tx ty) foreign import javascript unsafe "$1[\"transform\"]($2, $3, $4, $5,\n$6, $7)" js_transform :: 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 self m11 m12 m21 m22 dx dy) foreign import javascript unsafe "$1[\"setTransform\"]($2, $3, $4,\n$5, $6, $7)" js_setTransform :: 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 self m11 m12 m21 m22 dx dy) foreign import javascript unsafe "$1[\"resetTransform\"]()" js_resetTransform :: CanvasRenderingContext2D -> IO () -- | resetTransform :: (MonadIO m) => CanvasRenderingContext2D -> m () resetTransform self = liftIO (js_resetTransform self) foreign import javascript unsafe "$1[\"setLineDash\"]($2)" js_setLineDash :: CanvasRenderingContext2D -> JSVal -> IO () -- | setLineDash :: (MonadIO m) => CanvasRenderingContext2D -> [Float] -> m () setLineDash self dash = liftIO (toJSVal dash >>= \ dash' -> js_setLineDash self dash') foreign import javascript unsafe "$1[\"getLineDash\"]()" js_getLineDash :: CanvasRenderingContext2D -> IO JSVal -- | getLineDash :: (MonadIO m) => CanvasRenderingContext2D -> m [Float] getLineDash self = liftIO ((js_getLineDash self) >>= fromJSValUnchecked) -- | getLineDash_ :: (MonadIO m) => CanvasRenderingContext2D -> m () getLineDash_ self = liftIO (void (js_getLineDash self)) foreign import javascript unsafe "$1[\"clearRect\"]($2, $3, $4, $5)" js_clearRect :: CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO () -- | clearRect :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m () clearRect self x y width height = liftIO (js_clearRect self x y width height) foreign import javascript unsafe "$1[\"fillRect\"]($2, $3, $4, $5)" js_fillRect :: CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO () -- | fillRect :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m () fillRect self x y width height = liftIO (js_fillRect self x y width height) foreign import javascript unsafe "$1[\"beginPath\"]()" js_beginPath :: CanvasRenderingContext2D -> IO () -- | beginPath :: (MonadIO m) => CanvasRenderingContext2D -> m () beginPath self = liftIO (js_beginPath self) foreign import javascript unsafe "$1[\"fill\"]($2, $3)" js_fillPath :: CanvasRenderingContext2D -> Path2D -> Optional CanvasWindingRule -> IO () -- | fillPath :: (MonadIO m) => CanvasRenderingContext2D -> Path2D -> Maybe CanvasWindingRule -> m () fillPath self path winding = liftIO (js_fillPath self path (maybeToOptional winding)) foreign import javascript unsafe "$1[\"stroke\"]($2)" js_strokePath :: CanvasRenderingContext2D -> Path2D -> IO () -- | strokePath :: (MonadIO m) => CanvasRenderingContext2D -> Path2D -> m () strokePath self path = liftIO (js_strokePath self path) foreign import javascript unsafe "$1[\"clip\"]($2, $3)" js_clipPath :: CanvasRenderingContext2D -> Path2D -> Optional CanvasWindingRule -> IO () -- | clipPath :: (MonadIO m) => CanvasRenderingContext2D -> Path2D -> Maybe CanvasWindingRule -> m () clipPath self path winding = liftIO (js_clipPath self path (maybeToOptional winding)) foreign import javascript unsafe "$1[\"fill\"]($2)" js_fill :: CanvasRenderingContext2D -> Optional CanvasWindingRule -> IO () -- | fill :: (MonadIO m) => CanvasRenderingContext2D -> Maybe CanvasWindingRule -> m () fill self winding = liftIO (js_fill self (maybeToOptional winding)) foreign import javascript unsafe "$1[\"stroke\"]()" js_stroke :: CanvasRenderingContext2D -> IO () -- | stroke :: (MonadIO m) => CanvasRenderingContext2D -> m () stroke self = liftIO (js_stroke self) foreign import javascript unsafe "$1[\"clip\"]($2)" js_clip :: CanvasRenderingContext2D -> Optional CanvasWindingRule -> IO () -- | clip :: (MonadIO m) => CanvasRenderingContext2D -> Maybe CanvasWindingRule -> m () clip self winding = liftIO (js_clip self (maybeToOptional winding)) foreign import javascript unsafe "($1[\"isPointInPath\"]($2, $3, $4,\n$5) ? 1 : 0)" js_isPointInPathPath :: CanvasRenderingContext2D -> Path2D -> Float -> Float -> Optional CanvasWindingRule -> IO Bool -- | isPointInPathPath :: (MonadIO m) => CanvasRenderingContext2D -> Path2D -> Float -> Float -> Maybe CanvasWindingRule -> m Bool isPointInPathPath self path x y winding = liftIO (js_isPointInPathPath self path x y (maybeToOptional winding)) -- | isPointInPathPath_ :: (MonadIO m) => CanvasRenderingContext2D -> Path2D -> Float -> Float -> Maybe CanvasWindingRule -> m () isPointInPathPath_ self path x y winding = liftIO (void (js_isPointInPathPath self path x y (maybeToOptional winding))) foreign import javascript unsafe "($1[\"isPointInStroke\"]($2, $3,\n$4) ? 1 : 0)" js_isPointInStrokePath :: CanvasRenderingContext2D -> Path2D -> Float -> Float -> IO Bool -- | isPointInStrokePath :: (MonadIO m) => CanvasRenderingContext2D -> Path2D -> Float -> Float -> m Bool isPointInStrokePath self path x y = liftIO (js_isPointInStrokePath self path x y) -- | isPointInStrokePath_ :: (MonadIO m) => CanvasRenderingContext2D -> Path2D -> Float -> Float -> m () isPointInStrokePath_ self path x y = liftIO (void (js_isPointInStrokePath self path x y)) foreign import javascript unsafe "($1[\"isPointInPath\"]($2, $3,\n$4) ? 1 : 0)" js_isPointInPath :: CanvasRenderingContext2D -> Float -> Float -> Optional CanvasWindingRule -> IO Bool -- | isPointInPath :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Maybe CanvasWindingRule -> m Bool isPointInPath self x y winding = liftIO (js_isPointInPath self x y (maybeToOptional winding)) -- | isPointInPath_ :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Maybe CanvasWindingRule -> m () isPointInPath_ self x y winding = liftIO (void (js_isPointInPath self x y (maybeToOptional winding))) foreign import javascript unsafe "($1[\"isPointInStroke\"]($2,\n$3) ? 1 : 0)" js_isPointInStroke :: CanvasRenderingContext2D -> Float -> Float -> IO Bool -- | isPointInStroke :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m Bool isPointInStroke self x y = liftIO (js_isPointInStroke self x y) -- | isPointInStroke_ :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () isPointInStroke_ self x y = liftIO (void (js_isPointInStroke self x y)) foreign import javascript unsafe "$1[\"measureText\"]($2)" js_measureText :: CanvasRenderingContext2D -> JSString -> IO TextMetrics -- | measureText :: (MonadIO m, ToJSString text) => CanvasRenderingContext2D -> text -> m TextMetrics measureText self text = liftIO (js_measureText self (toJSString text)) -- | measureText_ :: (MonadIO m, ToJSString text) => CanvasRenderingContext2D -> text -> m () measureText_ self text = liftIO (void (js_measureText self (toJSString text))) foreign import javascript unsafe "$1[\"setAlpha\"]($2)" js_setAlpha :: CanvasRenderingContext2D -> Optional Float -> IO () -- | setAlpha :: (MonadIO m) => CanvasRenderingContext2D -> Maybe Float -> m () setAlpha self alpha = liftIO (js_setAlpha self (maybeToOptional alpha)) foreign import javascript unsafe "$1[\"setCompositeOperation\"]($2)" js_setCompositeOperation :: CanvasRenderingContext2D -> Optional JSString -> IO () -- | setCompositeOperation :: (MonadIO m, ToJSString compositeOperation) => CanvasRenderingContext2D -> Maybe compositeOperation -> m () setCompositeOperation self compositeOperation = liftIO (js_setCompositeOperation self (toOptionalJSString compositeOperation)) foreign import javascript unsafe "$1[\"setLineWidth\"]($2)" js_setLineWidthFunction :: CanvasRenderingContext2D -> Optional Float -> IO () -- | setLineWidthFunction :: (MonadIO m) => CanvasRenderingContext2D -> Maybe Float -> m () setLineWidthFunction self width = liftIO (js_setLineWidthFunction self (maybeToOptional width)) foreign import javascript unsafe "$1[\"setLineCap\"]($2)" js_setLineCapFunction :: CanvasRenderingContext2D -> Optional JSString -> IO () -- | setLineCapFunction :: (MonadIO m, ToJSString cap) => CanvasRenderingContext2D -> Maybe cap -> m () setLineCapFunction self cap = liftIO (js_setLineCapFunction self (toOptionalJSString cap)) foreign import javascript unsafe "$1[\"setLineJoin\"]($2)" js_setLineJoinFunction :: CanvasRenderingContext2D -> Optional JSString -> IO () -- | setLineJoinFunction :: (MonadIO m, ToJSString join) => CanvasRenderingContext2D -> Maybe join -> m () setLineJoinFunction self join = liftIO (js_setLineJoinFunction self (toOptionalJSString join)) foreign import javascript unsafe "$1[\"setMiterLimit\"]($2)" js_setMiterLimitFunction :: CanvasRenderingContext2D -> Optional Float -> IO () -- | setMiterLimitFunction :: (MonadIO m) => CanvasRenderingContext2D -> Maybe Float -> m () setMiterLimitFunction self limit = liftIO (js_setMiterLimitFunction self (maybeToOptional limit)) foreign import javascript unsafe "$1[\"clearShadow\"]()" js_clearShadow :: CanvasRenderingContext2D -> IO () -- | clearShadow :: (MonadIO m) => CanvasRenderingContext2D -> m () clearShadow self = liftIO (js_clearShadow self) foreign import javascript unsafe "$1[\"fillText\"]($2, $3, $4, $5)" js_fillText :: CanvasRenderingContext2D -> JSString -> Float -> Float -> Optional Float -> IO () -- | fillText :: (MonadIO m, ToJSString text) => CanvasRenderingContext2D -> text -> Float -> Float -> Maybe Float -> m () fillText self text x y maxWidth = liftIO (js_fillText self (toJSString text) x y (maybeToOptional maxWidth)) foreign import javascript unsafe "$1[\"strokeText\"]($2, $3, $4, $5)" js_strokeText :: CanvasRenderingContext2D -> JSString -> Float -> Float -> Optional Float -> IO () -- | strokeText :: (MonadIO m, ToJSString text) => CanvasRenderingContext2D -> text -> Float -> Float -> Maybe Float -> m () strokeText self text x y maxWidth = liftIO (js_strokeText self (toJSString text) x y (maybeToOptional maxWidth)) foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3)" js_setStrokeColor :: CanvasRenderingContext2D -> JSString -> Optional Float -> IO () -- | setStrokeColor :: (MonadIO m, ToJSString color) => CanvasRenderingContext2D -> color -> Maybe Float -> m () setStrokeColor self color alpha = liftIO (js_setStrokeColor self (toJSString color) (maybeToOptional alpha)) foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3)" js_setStrokeColorGray :: CanvasRenderingContext2D -> Float -> Optional Float -> IO () -- | setStrokeColorGray :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Maybe Float -> m () setStrokeColorGray self grayLevel alpha = liftIO (js_setStrokeColorGray self grayLevel (maybeToOptional alpha)) foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3, $4,\n$5)" js_setStrokeColorRGB :: CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO () -- | setStrokeColorRGB :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m () setStrokeColorRGB self r g b a = liftIO (js_setStrokeColorRGB self r g b a) foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3, $4,\n$5, $6)" js_setStrokeColorCYMK :: 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 self c m y k a) foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3)" js_setFillColor :: CanvasRenderingContext2D -> JSString -> Optional Float -> IO () -- | setFillColor :: (MonadIO m, ToJSString color) => CanvasRenderingContext2D -> color -> Maybe Float -> m () setFillColor self color alpha = liftIO (js_setFillColor self (toJSString color) (maybeToOptional alpha)) foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3)" js_setFillColorGray :: CanvasRenderingContext2D -> Float -> Optional Float -> IO () -- | setFillColorGray :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Maybe Float -> m () setFillColorGray self grayLevel alpha = liftIO (js_setFillColorGray self grayLevel (maybeToOptional alpha)) foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3, $4,\n$5)" js_setFillColorRGB :: CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO () -- | setFillColorRGB :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m () setFillColorRGB self r g b a = liftIO (js_setFillColorRGB self r g b a) foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3, $4,\n$5, $6)" js_setFillColorCYMK :: 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 self c m y k a) foreign import javascript unsafe "$1[\"strokeRect\"]($2, $3, $4, $5)" js_strokeRect :: CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO () -- | strokeRect :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m () strokeRect self x y width height = liftIO (js_strokeRect self x y width height) foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4)" js_drawImage :: CanvasRenderingContext2D -> CanvasImageSource -> Float -> Float -> IO () -- | drawImage :: (MonadIO m, IsCanvasImageSource image) => CanvasRenderingContext2D -> image -> Float -> Float -> m () drawImage self image x y = liftIO (js_drawImage self (toCanvasImageSource image) x y) foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)" js_drawImageScaled :: CanvasRenderingContext2D -> CanvasImageSource -> Float -> Float -> Float -> Float -> IO () -- | drawImageScaled :: (MonadIO m, IsCanvasImageSource image) => CanvasRenderingContext2D -> image -> Float -> Float -> Float -> Float -> m () drawImageScaled self image x y width height = liftIO (js_drawImageScaled self (toCanvasImageSource image) x y width height) foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)" js_drawImagePart :: CanvasRenderingContext2D -> CanvasImageSource -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> IO () -- | drawImagePart :: (MonadIO m, IsCanvasImageSource image) => CanvasRenderingContext2D -> image -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () drawImagePart self image sx sy sw sh dx dy dw dh = liftIO (js_drawImagePart self (toCanvasImageSource image) 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 :: CanvasRenderingContext2D -> HTMLImageElement -> Optional Float -> Optional Float -> Optional Float -> Optional Float -> Optional Float -> Optional Float -> Optional Float -> Optional Float -> Optional JSString -> IO () -- | drawImageFromRect :: (MonadIO m, ToJSString compositeOperation) => CanvasRenderingContext2D -> HTMLImageElement -> Maybe Float -> Maybe Float -> Maybe Float -> Maybe Float -> Maybe Float -> Maybe Float -> Maybe Float -> Maybe Float -> Maybe compositeOperation -> m () drawImageFromRect self image sx sy sw sh dx dy dw dh compositeOperation = liftIO (js_drawImageFromRect self image (maybeToOptional sx) (maybeToOptional sy) (maybeToOptional sw) (maybeToOptional sh) (maybeToOptional dx) (maybeToOptional dy) (maybeToOptional dw) (maybeToOptional dh) (toOptionalJSString compositeOperation)) foreign import javascript unsafe "$1[\"setShadow\"]($2, $3, $4, $5,\n$6)" js_setShadow :: CanvasRenderingContext2D -> Float -> Float -> Float -> Optional JSString -> Optional Float -> IO () -- | setShadow :: (MonadIO m, ToJSString color) => CanvasRenderingContext2D -> Float -> Float -> Float -> Maybe color -> Maybe Float -> m () setShadow self width height blur color alpha = liftIO (js_setShadow self width height blur (toOptionalJSString color) (maybeToOptional alpha)) foreign import javascript unsafe "$1[\"setShadow\"]($2, $3, $4, $5,\n$6)" js_setShadowGray :: CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Optional Float -> IO () -- | setShadowGray :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Maybe Float -> m () setShadowGray self width height blur grayLevel alpha = liftIO (js_setShadowGray self width height blur grayLevel (maybeToOptional alpha)) foreign import javascript unsafe "$1[\"setShadow\"]($2, $3, $4, $5,\n$6, $7, $8)" js_setShadowRGB :: 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 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 :: 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 self width height blur c m y k a) foreign import javascript unsafe "$1[\"putImageData\"]($2, $3, $4)" js_putImageData :: CanvasRenderingContext2D -> ImageData -> Float -> Float -> IO () -- | putImageData :: (MonadIO m) => CanvasRenderingContext2D -> ImageData -> Float -> Float -> m () putImageData self imagedata dx dy = liftIO (js_putImageData self imagedata dx dy) foreign import javascript unsafe "$1[\"putImageData\"]($2, $3, $4,\n$5, $6, $7, $8)" js_putImageDataDirty :: CanvasRenderingContext2D -> ImageData -> Float -> Float -> Float -> Float -> Float -> Float -> IO () -- | putImageDataDirty :: (MonadIO m) => CanvasRenderingContext2D -> ImageData -> Float -> Float -> Float -> Float -> Float -> Float -> m () putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth dirtyHeight = liftIO (js_putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth dirtyHeight) foreign import javascript unsafe "$1[\"webkitPutImageDataHD\"]($2,\n$3, $4)" js_webkitPutImageDataHD :: CanvasRenderingContext2D -> ImageData -> Float -> Float -> IO () -- | webkitPutImageDataHD :: (MonadIO m) => CanvasRenderingContext2D -> ImageData -> Float -> Float -> m () webkitPutImageDataHD self imagedata dx dy = liftIO (js_webkitPutImageDataHD self imagedata dx dy) foreign import javascript unsafe "$1[\"webkitPutImageDataHD\"]($2,\n$3, $4, $5, $6, $7, $8)" js_webkitPutImageDataHDDirty :: CanvasRenderingContext2D -> ImageData -> Float -> Float -> Float -> Float -> Float -> Float -> IO () -- | webkitPutImageDataHDDirty :: (MonadIO m) => CanvasRenderingContext2D -> ImageData -> Float -> Float -> Float -> Float -> Float -> Float -> m () webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY dirtyWidth dirtyHeight = liftIO (js_webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY dirtyWidth dirtyHeight) foreign import javascript unsafe "$1[\"createImageData\"]($2)" js_createImageData :: CanvasRenderingContext2D -> Optional ImageData -> IO ImageData -- | createImageData :: (MonadIO m) => CanvasRenderingContext2D -> Maybe ImageData -> m ImageData createImageData self imagedata = liftIO (js_createImageData self (maybeToOptional imagedata)) -- | createImageData_ :: (MonadIO m) => CanvasRenderingContext2D -> Maybe ImageData -> m () createImageData_ self imagedata = liftIO (void (js_createImageData self (maybeToOptional imagedata))) foreign import javascript unsafe "$1[\"createImageData\"]($2, $3)" js_createImageDataSize :: CanvasRenderingContext2D -> Float -> Float -> IO ImageData -- | createImageDataSize :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ImageData createImageDataSize self sw sh = liftIO (js_createImageDataSize self sw sh) -- | createImageDataSize_ :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () createImageDataSize_ self sw sh = liftIO (void (js_createImageDataSize self sw sh)) foreign import javascript unsafe "$1[\"createLinearGradient\"]($2,\n$3, $4, $5)" js_createLinearGradient :: CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO CanvasGradient -- | createLinearGradient :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m CanvasGradient createLinearGradient self x0 y0 x1 y1 = liftIO (js_createLinearGradient self x0 y0 x1 y1) -- | createLinearGradient_ :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m () createLinearGradient_ self x0 y0 x1 y1 = liftIO (void (js_createLinearGradient self x0 y0 x1 y1)) foreign import javascript unsafe "$1[\"createRadialGradient\"]($2,\n$3, $4, $5, $6, $7)" js_createRadialGradient :: CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Float -> IO CanvasGradient -- | createRadialGradient :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Float -> m CanvasGradient createRadialGradient self x0 y0 r0 x1 y1 r1 = liftIO (js_createRadialGradient self x0 y0 r0 x1 y1 r1) -- | createRadialGradient_ :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> Float -> Float -> m () createRadialGradient_ self x0 y0 r0 x1 y1 r1 = liftIO (void (js_createRadialGradient self x0 y0 r0 x1 y1 r1)) foreign import javascript unsafe "$1[\"createPattern\"]($2, $3)" js_createPattern :: CanvasRenderingContext2D -> CanvasImageSource -> JSString -> IO (Nullable CanvasPattern) -- | createPattern :: (MonadIO m, IsCanvasImageSource image, ToJSString repetition) => CanvasRenderingContext2D -> image -> repetition -> m (Maybe CanvasPattern) createPattern self image repetition = liftIO (nullableToMaybe <$> (js_createPattern self (toCanvasImageSource image) (toJSString repetition))) -- | createPattern_ :: (MonadIO m, IsCanvasImageSource image, ToJSString repetition) => CanvasRenderingContext2D -> image -> repetition -> m () createPattern_ self image repetition = liftIO (void (js_createPattern self (toCanvasImageSource image) (toJSString repetition))) -- | createPatternUnsafe :: (MonadIO m, IsCanvasImageSource image, ToJSString repetition, HasCallStack) => CanvasRenderingContext2D -> image -> repetition -> m CanvasPattern createPatternUnsafe self image repetition = liftIO ((nullableToMaybe <$> (js_createPattern self (toCanvasImageSource image) (toJSString repetition))) >>= maybe (Prelude.error "Nothing to return") return) -- | createPatternUnchecked :: (MonadIO m, IsCanvasImageSource image, ToJSString repetition) => CanvasRenderingContext2D -> image -> repetition -> m CanvasPattern createPatternUnchecked self image repetition = liftIO (fromJust . nullableToMaybe <$> (js_createPattern self (toCanvasImageSource image) (toJSString repetition))) foreign import javascript unsafe "$1[\"getImageData\"]($2, $3, $4,\n$5)" js_getImageData :: CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO ImageData -- | getImageData :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m ImageData getImageData self sx sy sw sh = liftIO (js_getImageData self sx sy sw sh) -- | getImageData_ :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m () getImageData_ self sx sy sw sh = liftIO (void (js_getImageData self sx sy sw sh)) foreign import javascript unsafe "$1[\"webkitGetImageDataHD\"]($2,\n$3, $4, $5)" js_webkitGetImageDataHD :: CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> IO ImageData -- | webkitGetImageDataHD :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m ImageData webkitGetImageDataHD self sx sy sw sh = liftIO (js_webkitGetImageDataHD self sx sy sw sh) -- | webkitGetImageDataHD_ :: (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> Float -> Float -> m () webkitGetImageDataHD_ self sx sy sw sh = liftIO (void (js_webkitGetImageDataHD self sx sy sw sh)) foreign import javascript unsafe "$1[\"drawFocusIfNeeded\"]($2)" js_drawFocusIfNeeded :: CanvasRenderingContext2D -> Element -> IO () -- | drawFocusIfNeeded :: (MonadIO m, IsElement element) => CanvasRenderingContext2D -> element -> m () drawFocusIfNeeded self element = liftIO (js_drawFocusIfNeeded self (toElement element)) foreign import javascript unsafe "$1[\"drawFocusIfNeeded\"]($2, $3)" js_drawFocusIfNeededPath :: CanvasRenderingContext2D -> Path2D -> Element -> IO () -- | drawFocusIfNeededPath :: (MonadIO m, IsElement element) => CanvasRenderingContext2D -> Path2D -> element -> m () drawFocusIfNeededPath self path element = liftIO (js_drawFocusIfNeededPath self path (toElement element)) foreign import javascript unsafe "$1[\"canvas\"]" js_getCanvas :: CanvasRenderingContext2D -> IO HTMLCanvasElement -- | getCanvas :: (MonadIO m) => CanvasRenderingContext2D -> m HTMLCanvasElement getCanvas self = liftIO (js_getCanvas self) foreign import javascript unsafe "$1[\"globalAlpha\"] = $2;" js_setGlobalAlpha :: CanvasRenderingContext2D -> Float -> IO () -- | setGlobalAlpha :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setGlobalAlpha self val = liftIO (js_setGlobalAlpha self val) foreign import javascript unsafe "$1[\"globalAlpha\"]" js_getGlobalAlpha :: CanvasRenderingContext2D -> IO Float -- | getGlobalAlpha :: (MonadIO m) => CanvasRenderingContext2D -> m Float getGlobalAlpha self = liftIO (js_getGlobalAlpha self) foreign import javascript unsafe "$1[\"globalCompositeOperation\"] = $2;" js_setGlobalCompositeOperation :: CanvasRenderingContext2D -> JSString -> IO () -- | setGlobalCompositeOperation :: (MonadIO m, ToJSString val) => CanvasRenderingContext2D -> val -> m () setGlobalCompositeOperation self val = liftIO (js_setGlobalCompositeOperation self (toJSString val)) foreign import javascript unsafe "$1[\"globalCompositeOperation\"]" js_getGlobalCompositeOperation :: CanvasRenderingContext2D -> IO JSString -- | getGlobalCompositeOperation :: (MonadIO m, FromJSString result) => CanvasRenderingContext2D -> m result getGlobalCompositeOperation self = liftIO (fromJSString <$> (js_getGlobalCompositeOperation self)) foreign import javascript unsafe "$1[\"lineWidth\"] = $2;" js_setLineWidth :: CanvasRenderingContext2D -> Float -> IO () -- | setLineWidth :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setLineWidth self val = liftIO (js_setLineWidth self val) foreign import javascript unsafe "$1[\"lineWidth\"]" js_getLineWidth :: CanvasRenderingContext2D -> IO Float -- | getLineWidth :: (MonadIO m) => CanvasRenderingContext2D -> m Float getLineWidth self = liftIO (js_getLineWidth self) foreign import javascript unsafe "$1[\"lineCap\"] = $2;" js_setLineCap :: CanvasRenderingContext2D -> JSString -> IO () -- | setLineCap :: (MonadIO m, ToJSString val) => CanvasRenderingContext2D -> val -> m () setLineCap self val = liftIO (js_setLineCap self (toJSString val)) foreign import javascript unsafe "$1[\"lineCap\"]" js_getLineCap :: CanvasRenderingContext2D -> IO JSString -- | getLineCap :: (MonadIO m, FromJSString result) => CanvasRenderingContext2D -> m result getLineCap self = liftIO (fromJSString <$> (js_getLineCap self)) foreign import javascript unsafe "$1[\"lineJoin\"] = $2;" js_setLineJoin :: CanvasRenderingContext2D -> JSString -> IO () -- | setLineJoin :: (MonadIO m, ToJSString val) => CanvasRenderingContext2D -> val -> m () setLineJoin self val = liftIO (js_setLineJoin self (toJSString val)) foreign import javascript unsafe "$1[\"lineJoin\"]" js_getLineJoin :: CanvasRenderingContext2D -> IO JSString -- | getLineJoin :: (MonadIO m, FromJSString result) => CanvasRenderingContext2D -> m result getLineJoin self = liftIO (fromJSString <$> (js_getLineJoin self)) foreign import javascript unsafe "$1[\"miterLimit\"] = $2;" js_setMiterLimit :: CanvasRenderingContext2D -> Float -> IO () -- | setMiterLimit :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setMiterLimit self val = liftIO (js_setMiterLimit self val) foreign import javascript unsafe "$1[\"miterLimit\"]" js_getMiterLimit :: CanvasRenderingContext2D -> IO Float -- | getMiterLimit :: (MonadIO m) => CanvasRenderingContext2D -> m Float getMiterLimit self = liftIO (js_getMiterLimit self) foreign import javascript unsafe "$1[\"shadowOffsetX\"] = $2;" js_setShadowOffsetX :: CanvasRenderingContext2D -> Float -> IO () -- | setShadowOffsetX :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setShadowOffsetX self val = liftIO (js_setShadowOffsetX self val) foreign import javascript unsafe "$1[\"shadowOffsetX\"]" js_getShadowOffsetX :: CanvasRenderingContext2D -> IO Float -- | getShadowOffsetX :: (MonadIO m) => CanvasRenderingContext2D -> m Float getShadowOffsetX self = liftIO (js_getShadowOffsetX self) foreign import javascript unsafe "$1[\"shadowOffsetY\"] = $2;" js_setShadowOffsetY :: CanvasRenderingContext2D -> Float -> IO () -- | setShadowOffsetY :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setShadowOffsetY self val = liftIO (js_setShadowOffsetY self val) foreign import javascript unsafe "$1[\"shadowOffsetY\"]" js_getShadowOffsetY :: CanvasRenderingContext2D -> IO Float -- | getShadowOffsetY :: (MonadIO m) => CanvasRenderingContext2D -> m Float getShadowOffsetY self = liftIO (js_getShadowOffsetY self) foreign import javascript unsafe "$1[\"shadowBlur\"] = $2;" js_setShadowBlur :: CanvasRenderingContext2D -> Float -> IO () -- | setShadowBlur :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setShadowBlur self val = liftIO (js_setShadowBlur self val) foreign import javascript unsafe "$1[\"shadowBlur\"]" js_getShadowBlur :: CanvasRenderingContext2D -> IO Float -- | getShadowBlur :: (MonadIO m) => CanvasRenderingContext2D -> m Float getShadowBlur self = liftIO (js_getShadowBlur self) foreign import javascript unsafe "$1[\"shadowColor\"] = $2;" js_setShadowColor :: CanvasRenderingContext2D -> JSString -> IO () -- | setShadowColor :: (MonadIO m, ToJSString val) => CanvasRenderingContext2D -> val -> m () setShadowColor self val = liftIO (js_setShadowColor self (toJSString val)) foreign import javascript unsafe "$1[\"shadowColor\"]" js_getShadowColor :: CanvasRenderingContext2D -> IO JSString -- | getShadowColor :: (MonadIO m, FromJSString result) => CanvasRenderingContext2D -> m result getShadowColor self = liftIO (fromJSString <$> (js_getShadowColor self)) foreign import javascript unsafe "$1[\"lineDashOffset\"] = $2;" js_setLineDashOffset :: CanvasRenderingContext2D -> Float -> IO () -- | setLineDashOffset :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setLineDashOffset self val = liftIO (js_setLineDashOffset self val) foreign import javascript unsafe "$1[\"lineDashOffset\"]" js_getLineDashOffset :: CanvasRenderingContext2D -> IO Float -- | getLineDashOffset :: (MonadIO m) => CanvasRenderingContext2D -> m Float getLineDashOffset self = liftIO (js_getLineDashOffset self) foreign import javascript unsafe "$1[\"webkitLineDash\"] = $2;" js_setWebkitLineDash :: CanvasRenderingContext2D -> JSVal -> IO () -- | setWebkitLineDash :: (MonadIO m) => CanvasRenderingContext2D -> [Float] -> m () setWebkitLineDash self val = liftIO (toJSVal val >>= \ val' -> js_setWebkitLineDash self val') foreign import javascript unsafe "$1[\"webkitLineDash\"]" js_getWebkitLineDash :: CanvasRenderingContext2D -> IO JSVal -- | getWebkitLineDash :: (MonadIO m) => CanvasRenderingContext2D -> m [Float] getWebkitLineDash self = liftIO ((js_getWebkitLineDash self) >>= fromJSValUnchecked) foreign import javascript unsafe "$1[\"webkitLineDashOffset\"] = $2;" js_setWebkitLineDashOffset :: CanvasRenderingContext2D -> Float -> IO () -- | setWebkitLineDashOffset :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setWebkitLineDashOffset self val = liftIO (js_setWebkitLineDashOffset self val) foreign import javascript unsafe "$1[\"webkitLineDashOffset\"]" js_getWebkitLineDashOffset :: CanvasRenderingContext2D -> IO Float -- | getWebkitLineDashOffset :: (MonadIO m) => CanvasRenderingContext2D -> m Float getWebkitLineDashOffset self = liftIO (js_getWebkitLineDashOffset self) foreign import javascript unsafe "$1[\"font\"] = $2;" js_setFont :: CanvasRenderingContext2D -> JSString -> IO () -- | setFont :: (MonadIO m, ToJSString val) => CanvasRenderingContext2D -> val -> m () setFont self val = liftIO (js_setFont self (toJSString val)) foreign import javascript unsafe "$1[\"font\"]" js_getFont :: CanvasRenderingContext2D -> IO JSString -- | getFont :: (MonadIO m, FromJSString result) => CanvasRenderingContext2D -> m result getFont self = liftIO (fromJSString <$> (js_getFont self)) foreign import javascript unsafe "$1[\"textAlign\"] = $2;" js_setTextAlign :: CanvasRenderingContext2D -> JSString -> IO () -- | setTextAlign :: (MonadIO m, ToJSString val) => CanvasRenderingContext2D -> val -> m () setTextAlign self val = liftIO (js_setTextAlign self (toJSString val)) foreign import javascript unsafe "$1[\"textAlign\"]" js_getTextAlign :: CanvasRenderingContext2D -> IO JSString -- | getTextAlign :: (MonadIO m, FromJSString result) => CanvasRenderingContext2D -> m result getTextAlign self = liftIO (fromJSString <$> (js_getTextAlign self)) foreign import javascript unsafe "$1[\"textBaseline\"] = $2;" js_setTextBaseline :: CanvasRenderingContext2D -> JSString -> IO () -- | setTextBaseline :: (MonadIO m, ToJSString val) => CanvasRenderingContext2D -> val -> m () setTextBaseline self val = liftIO (js_setTextBaseline self (toJSString val)) foreign import javascript unsafe "$1[\"textBaseline\"]" js_getTextBaseline :: CanvasRenderingContext2D -> IO JSString -- | getTextBaseline :: (MonadIO m, FromJSString result) => CanvasRenderingContext2D -> m result getTextBaseline self = liftIO (fromJSString <$> (js_getTextBaseline self)) foreign import javascript unsafe "$1[\"direction\"] = $2;" js_setDirection :: CanvasRenderingContext2D -> JSString -> IO () -- | setDirection :: (MonadIO m, ToJSString val) => CanvasRenderingContext2D -> val -> m () setDirection self val = liftIO (js_setDirection self (toJSString val)) foreign import javascript unsafe "$1[\"direction\"]" js_getDirection :: CanvasRenderingContext2D -> IO JSString -- | getDirection :: (MonadIO m, FromJSString result) => CanvasRenderingContext2D -> m result getDirection self = liftIO (fromJSString <$> (js_getDirection self)) foreign import javascript unsafe "$1[\"strokeStyle\"] = $2;" js_setStrokeStyle :: CanvasRenderingContext2D -> CanvasStyle -> IO () -- | setStrokeStyle :: (MonadIO m, IsCanvasStyle val) => CanvasRenderingContext2D -> val -> m () setStrokeStyle self val = liftIO (toJSVal val >>= \ val' -> js_setStrokeStyle self (CanvasStyle val')) foreign import javascript unsafe "$1[\"strokeStyle\"]" js_getStrokeStyle :: CanvasRenderingContext2D -> IO CanvasStyle -- | getStrokeStyle :: (MonadIO m) => CanvasRenderingContext2D -> m CanvasStyle getStrokeStyle self = liftIO (js_getStrokeStyle self) foreign import javascript unsafe "$1[\"fillStyle\"] = $2;" js_setFillStyle :: CanvasRenderingContext2D -> CanvasStyle -> IO () -- | setFillStyle :: (MonadIO m, IsCanvasStyle val) => CanvasRenderingContext2D -> val -> m () setFillStyle self val = liftIO (toJSVal val >>= \ val' -> js_setFillStyle self (CanvasStyle val')) foreign import javascript unsafe "$1[\"fillStyle\"]" js_getFillStyle :: CanvasRenderingContext2D -> IO CanvasStyle -- | getFillStyle :: (MonadIO m) => CanvasRenderingContext2D -> m CanvasStyle getFillStyle self = liftIO (js_getFillStyle self) foreign import javascript unsafe "$1[\"webkitBackingStorePixelRatio\"]" js_getWebkitBackingStorePixelRatio :: CanvasRenderingContext2D -> IO Float -- | getWebkitBackingStorePixelRatio :: (MonadIO m) => CanvasRenderingContext2D -> m Float getWebkitBackingStorePixelRatio self = liftIO (js_getWebkitBackingStorePixelRatio self) foreign import javascript unsafe "$1[\"imageSmoothingEnabled\"] = $2;" js_setImageSmoothingEnabled :: CanvasRenderingContext2D -> Bool -> IO () -- | setImageSmoothingEnabled :: (MonadIO m) => CanvasRenderingContext2D -> Bool -> m () setImageSmoothingEnabled self val = liftIO (js_setImageSmoothingEnabled self val) foreign import javascript unsafe "($1[\"imageSmoothingEnabled\"] ? 1 : 0)" js_getImageSmoothingEnabled :: CanvasRenderingContext2D -> IO Bool -- | getImageSmoothingEnabled :: (MonadIO m) => CanvasRenderingContext2D -> m Bool getImageSmoothingEnabled self = liftIO (js_getImageSmoothingEnabled self) foreign import javascript unsafe "$1[\"webkitImageSmoothingEnabled\"] = $2;" js_setWebkitImageSmoothingEnabled :: CanvasRenderingContext2D -> Bool -> IO () -- | setWebkitImageSmoothingEnabled :: (MonadIO m) => CanvasRenderingContext2D -> Bool -> m () setWebkitImageSmoothingEnabled self val = liftIO (js_setWebkitImageSmoothingEnabled self val) foreign import javascript unsafe "($1[\"webkitImageSmoothingEnabled\"] ? 1 : 0)" js_getWebkitImageSmoothingEnabled :: CanvasRenderingContext2D -> IO Bool -- | getWebkitImageSmoothingEnabled :: (MonadIO m) => CanvasRenderingContext2D -> m Bool getWebkitImageSmoothingEnabled self = liftIO (js_getWebkitImageSmoothingEnabled self) foreign import javascript unsafe "$1[\"imageSmoothingQuality\"] = $2;" js_setImageSmoothingQuality :: CanvasRenderingContext2D -> JSVal -> IO () -- | setImageSmoothingQuality :: (MonadIO m) => CanvasRenderingContext2D -> ImageSmoothingQuality -> m () setImageSmoothingQuality self val = liftIO (js_setImageSmoothingQuality self (pToJSVal val)) foreign import javascript unsafe "$1[\"imageSmoothingQuality\"]" js_getImageSmoothingQuality :: CanvasRenderingContext2D -> IO JSVal -- | getImageSmoothingQuality :: (MonadIO m) => CanvasRenderingContext2D -> m ImageSmoothingQuality getImageSmoothingQuality self = liftIO ((js_getImageSmoothingQuality self) >>= fromJSValUnchecked)