UNPKG

wonder.js

Version:
31 lines (25 loc) 911 B
'use strict'; var Caml_option = require("bs-platform/lib/js/caml_option.js"); var AllProgramService$Wonderjs = require("../../../record/all/program/AllProgramService.js"); function _use(gl, program, state) { var programRecord = state[/* programRecord */4]; var match = programRecord[/* lastUsedProgram */1]; var exit = 0; if (match !== undefined && program === Caml_option.valFromOption(match)) { return state; } else { exit = 1; } if (exit === 1) { programRecord[/* lastUsedProgram */1] = Caml_option.some(program); gl.useProgram(program); return state; } } function useByShaderIndex(gl, shaderIndex, state) { var program = AllProgramService$Wonderjs.unsafeGetProgram(shaderIndex, state[/* programRecord */4]); return _use(gl, program, state); } exports._use = _use; exports.useByShaderIndex = useByShaderIndex; /* AllProgramService-Wonderjs Not a pure module */