git.iko.soy/elk
on 4f4e6ac help sign in
elk/libraries/Native/Graphics/WebGL.js
51 lines 1.4 kB history raw
1Elm.Native.Graphics.WebGL = {};
2Elm.Native.Graphics.WebGL.make = function(elm) {
4 elm.Native = elm.Native || {};
5 elm.Native.Graphics = elm.Native.Graphics || {};
6 elm.Native.Graphics.WebGL = elm.Native.Graphics.WebGL || {};
7 if (elm.Native.Graphics.WebGL.values) return elm.Native.Graphics.WebGL.values;
9 //var Render = ElmRuntime.use(ElmRuntime.Render.Element);
10 var newNode = ElmRuntime.use(ElmRuntime.Render.Utils).newElement;
12 //var Signal = Elm.Signal.make(elm);
13 var newElement = Elm.Graphics.Element.make(elm).newElement;
14 //var JS = Elm.Native.JavaScript.make(elm);
15 //var Utils = Elm.Native.Utils.make(elm);
16 //var Tuple2 = Utils.Tuple2;
18 function drawGL(ctx,model) {
19 var scene = model.scene;
20 console.log(scene);
21 }
23 function render(model) {
24 var canvas = newNode('canvas');
25 gl = canvas.getContext("webgl");
26 drawGL(gl,model);
27 return canvas;
28 }
30 function update(canvasNode, _oldModel, newModel) {
31 gl = canvasNode.getContext("webgl");
32 drawGL(gl,newModel)
33 }
35 function glContext(w,h,scene) {
37 return A3(newElement, w, h, {
38 ctor: 'Custom',
39 type: 'WebGL',
40 render: render,
41 update: update,
42 model: {scene:scene},
43 });
45 }
47 return elm.Native.Graphics.WebGL.values = {
48 glContext:F3(glContext),
49 };
51};