starting textures

src/duskgl/display/shader/shadergl.c

@@ -203,6 +203,32 @@ errorret_t shaderSetMatrixGL(
   errorOk();
 }
 
+errorret_t shaderSetTextureGL(
+  shadergl_t *shader,
+  const char_t *name,
+  texture_t *texture
+) {
+  assertNotNull(shader, "Shader cannot be null");
+  assertNotNull(texture, "Texture cannot be null");
+  assertStrLenMin(name, 1, "Uniform name cannot be empty");
+
+  #ifdef DUSK_OPENGL_LEGACY
+    assertUnreachable("Cannot set textures on legacy opengl.");
+  #else
+    GLint location;
+    errorChain(shaderParamGetLocationGL(shader, name, &location));
+
+    glActiveTexture(GL_TEXTURE0);
+    errorChain(errorGLCheck());
+    glBindTexture(GL_TEXTURE_2D, texture->id);
+    errorChain(errorGLCheck());
+    glUniform1i(location, 0);
+    errorChain(errorGLCheck());
+  #endif
+
+  errorOk();
+}
+
 // errorret_t shaderSetColorGL(
 //   shadergl_t *shader,
 //   const char_t *name,