Skip to content

Instantly share code, notes, and snippets.

@evilpie

evilpie/gist:12680b1d164e294925ed88ddaf795cfe

Created October 28, 2016 16:39
Show Gist options
  • Save evilpie/12680b1d164e294925ed88ddaf795cfe to your computer and use it in GitHub Desktop.
Save evilpie/12680b1d164e294925ed88ddaf795cfe to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
let canvas = Dom_html.getElementById("test-canvas");
let gl = WebGL.getContext(Js.coerce canvas Dom_html.CoerceTo.canvas (fun _ => assert false));
Graphics.clear(gl, {r: 1.0, g: 0.7, b: 1.0, a: 1.0});
gl.clearColor(1.0, 0.7, 1.0, 1.0);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment