interop.re

[@bs.deriving abstract]
type context = {
  mutable font: string,
  mutable fillStyle: string,
};

[@bs.deriving abstract]
type measurement = {width: float};

[@bs.send]
external fillText : (context, string, float, float) => unit = "fillText";
[@bs.send]
external fillRect : (context, float, float, float, float) => unit = "fillRect";
[@bs.send]
external measureText : (context, string) => measurement = "measureText";