/
HTMLCanvasElement.purs
69 lines (47 loc) · 2.31 KB
/
HTMLCanvasElement.purs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
module Web.HTML.HTMLCanvasElement where
import Data.Maybe (Maybe)
import Effect (Effect)
import Prelude (Unit)
import Unsafe.Coerce (unsafeCoerce)
import Web.DOM (ChildNode, Element, Node, NonDocumentTypeChildNode, ParentNode)
import Web.Event.EventTarget (EventTarget)
import Web.HTML.HTMLElement (HTMLElement)
import Web.Internal.FFI (unsafeReadProtoTagged)
foreign import data HTMLCanvasElement :: Type
fromHTMLElement :: HTMLElement -> Maybe HTMLCanvasElement
fromHTMLElement = unsafeReadProtoTagged "HTMLCanvasElement"
fromElement :: Element -> Maybe HTMLCanvasElement
fromElement = unsafeReadProtoTagged "HTMLCanvasElement"
fromNode :: Node -> Maybe HTMLCanvasElement
fromNode = unsafeReadProtoTagged "HTMLCanvasElement"
fromChildNode :: ChildNode -> Maybe HTMLCanvasElement
fromChildNode = unsafeReadProtoTagged "HTMLCanvasElement"
fromNonDocumentTypeChildNode :: NonDocumentTypeChildNode -> Maybe HTMLCanvasElement
fromNonDocumentTypeChildNode = unsafeReadProtoTagged "HTMLCanvasElement"
fromParentNode :: ParentNode -> Maybe HTMLCanvasElement
fromParentNode = unsafeReadProtoTagged "HTMLCanvasElement"
fromEventTarget :: EventTarget -> Maybe HTMLCanvasElement
fromEventTarget = unsafeReadProtoTagged "HTMLCanvasElement"
toHTMLElement :: HTMLCanvasElement -> HTMLElement
toHTMLElement = unsafeCoerce
toElement :: HTMLCanvasElement -> Element
toElement = unsafeCoerce
toNode :: HTMLCanvasElement -> Node
toNode = unsafeCoerce
toChildNode :: HTMLCanvasElement -> ChildNode
toChildNode = unsafeCoerce
toNonDocumentTypeChildNode :: HTMLCanvasElement -> NonDocumentTypeChildNode
toNonDocumentTypeChildNode = unsafeCoerce
toParentNode :: HTMLCanvasElement -> ParentNode
toParentNode = unsafeCoerce
toEventTarget :: HTMLCanvasElement -> EventTarget
toEventTarget = unsafeCoerce
-- typedef (CanvasRenderingContext2D or WebGLRenderingContext) RenderingContext;
foreign import width :: HTMLCanvasElement -> Effect Int
foreign import setWidth :: Int -> HTMLCanvasElement -> Effect Unit
foreign import height :: HTMLCanvasElement -> Effect Int
foreign import setHeight :: Int -> HTMLCanvasElement -> Effect Unit
-- RenderingContext? getContext(DOMString contextId, any... arguments);
-- DOMString toDataURL(optional DOMString type, any... arguments);
-- void toBlob(FileCallback? _callback, optional DOMString type, any... arguments);
-- };