Draw a pixel: Difference between revisions

m
Line 1,598:
type context = { mutable fillStyle: string, }
 
@bs.val external doc: document = "document"
 
@bs.send external getElementById: (document, string) => Dom.element = "getElementById"
@bs.send external getContext: (Dom.element, string) => context = "getContext"
 
@bs.send external fillRect: (context, int, int, int, int) => unit = "fillRect"
 
let canvas = getElementById(doc, "my_canvas")