ruby_rpg 0.0.5 → 0.1.0

data/ext/gl_native/gl_native.c

@@ -0,0 +1,563 @@
+#include <ruby.h>
+
+#ifdef __APPLE__
+#include <OpenGL/gl3.h>
+/* Compute shader functions not in macOS gl3.h - declare for API completeness */
+extern void glBindImageTexture(GLuint unit, GLuint texture, GLint level, GLboolean layered, GLint layer, GLenum access, GLenum format);
+extern void glDispatchCompute(GLuint num_groups_x, GLuint num_groups_y, GLuint num_groups_z);
+extern void glMemoryBarrier(GLbitfield barriers);
+#elif defined(_WIN32) || defined(__MINGW32__)
+#include <GL/glew.h>
+#else
+#include <GL/gl.h>
+#endif
+
+/* Module reference */
+static VALUE mGLNative;
+
+/* BindFramebuffer(target, framebuffer) */
+static VALUE rb_gl_bind_framebuffer(VALUE self, VALUE target, VALUE framebuffer) {
+    glBindFramebuffer((GLenum)NUM2INT(target), (GLuint)NUM2UINT(framebuffer));
+    return Qnil;
+}
+
+/* BindVertexArray(array) */
+static VALUE rb_gl_bind_vertex_array(VALUE self, VALUE array) {
+    glBindVertexArray((GLuint)NUM2UINT(array));
+    return Qnil;
+}
+
+/* BindBuffer(target, buffer) */
+static VALUE rb_gl_bind_buffer(VALUE self, VALUE target, VALUE buffer) {
+    glBindBuffer((GLenum)NUM2INT(target), (GLuint)NUM2UINT(buffer));
+    return Qnil;
+}
+
+/* BindTexture(target, texture) */
+static VALUE rb_gl_bind_texture(VALUE self, VALUE target, VALUE texture) {
+    glBindTexture((GLenum)NUM2INT(target), (GLuint)NUM2UINT(texture));
+    return Qnil;
+}
+
+/* ActiveTexture(texture) */
+static VALUE rb_gl_active_texture(VALUE self, VALUE texture) {
+    glActiveTexture((GLenum)NUM2INT(texture));
+    return Qnil;
+}
+
+/* UseProgram(program) */
+static VALUE rb_gl_use_program(VALUE self, VALUE program) {
+    glUseProgram((GLuint)NUM2UINT(program));
+    return Qnil;
+}
+
+/* Enable(cap) */
+static VALUE rb_gl_enable(VALUE self, VALUE cap) {
+    glEnable((GLenum)NUM2INT(cap));
+    return Qnil;
+}
+
+/* Disable(cap) */
+static VALUE rb_gl_disable(VALUE self, VALUE cap) {
+    glDisable((GLenum)NUM2INT(cap));
+    return Qnil;
+}
+
+/* DrawArrays(mode, first, count) */
+static VALUE rb_gl_draw_arrays(VALUE self, VALUE mode, VALUE first, VALUE count) {
+    glDrawArrays((GLenum)NUM2INT(mode), (GLint)NUM2INT(first), (GLsizei)NUM2INT(count));
+    return Qnil;
+}
+
+/* DrawElements(mode, count, type, indices) */
+static VALUE rb_gl_draw_elements(VALUE self, VALUE mode, VALUE count, VALUE type, VALUE indices) {
+    glDrawElements((GLenum)NUM2INT(mode), (GLsizei)NUM2INT(count), (GLenum)NUM2INT(type), (const void*)(uintptr_t)NUM2ULL(indices));
+    return Qnil;
+}
+
+/* DrawElementsInstanced(mode, count, type, indices, instance_count) */
+static VALUE rb_gl_draw_elements_instanced(VALUE self, VALUE mode, VALUE count, VALUE type, VALUE indices, VALUE instance_count) {
+    glDrawElementsInstanced((GLenum)NUM2INT(mode), (GLsizei)NUM2INT(count), (GLenum)NUM2INT(type), (const void*)(uintptr_t)NUM2ULL(indices), (GLsizei)NUM2INT(instance_count));
+    return Qnil;
+}
+
+/* Clear(mask) */
+static VALUE rb_gl_clear(VALUE self, VALUE mask) {
+    glClear((GLbitfield)NUM2UINT(mask));
+    return Qnil;
+}
+
+/* Viewport(x, y, width, height) */
+static VALUE rb_gl_viewport(VALUE self, VALUE x, VALUE y, VALUE width, VALUE height) {
+    glViewport((GLint)NUM2INT(x), (GLint)NUM2INT(y), (GLsizei)NUM2INT(width), (GLsizei)NUM2INT(height));
+    return Qnil;
+}
+
+/* Uniform1f(location, v0) */
+static VALUE rb_gl_uniform1f(VALUE self, VALUE location, VALUE v0) {
+    glUniform1f((GLint)NUM2INT(location), (GLfloat)NUM2DBL(v0));
+    return Qnil;
+}
+
+/* Uniform2f(location, v0, v1) */
+static VALUE rb_gl_uniform2f(VALUE self, VALUE location, VALUE v0, VALUE v1) {
+    glUniform2f((GLint)NUM2INT(location), (GLfloat)NUM2DBL(v0), (GLfloat)NUM2DBL(v1));
+    return Qnil;
+}
+
+/* Uniform3f(location, v0, v1, v2) */
+static VALUE rb_gl_uniform3f(VALUE self, VALUE location, VALUE v0, VALUE v1, VALUE v2) {
+    glUniform3f((GLint)NUM2INT(location), (GLfloat)NUM2DBL(v0), (GLfloat)NUM2DBL(v1), (GLfloat)NUM2DBL(v2));
+    return Qnil;
+}
+
+/* Uniform4f(location, v0, v1, v2, v3) */
+static VALUE rb_gl_uniform4f(VALUE self, VALUE location, VALUE v0, VALUE v1, VALUE v2, VALUE v3) {
+    glUniform4f((GLint)NUM2INT(location), (GLfloat)NUM2DBL(v0), (GLfloat)NUM2DBL(v1), (GLfloat)NUM2DBL(v2), (GLfloat)NUM2DBL(v3));
+    return Qnil;
+}
+
+/* Uniform1i(location, v0) */
+static VALUE rb_gl_uniform1i(VALUE self, VALUE location, VALUE v0) {
+    glUniform1i((GLint)NUM2INT(location), (GLint)NUM2INT(v0));
+    return Qnil;
+}
+
+/* UniformMatrix4fv(location, count, transpose, value) */
+static VALUE rb_gl_uniform_matrix4fv(VALUE self, VALUE location, VALUE count, VALUE transpose, VALUE value) {
+    /* value should be a String containing packed floats */
+    Check_Type(value, T_STRING);
+    const GLfloat *data = (const GLfloat *)RSTRING_PTR(value);
+    glUniformMatrix4fv((GLint)NUM2INT(location), (GLsizei)NUM2INT(count), (GLboolean)NUM2INT(transpose), data);
+    return Qnil;
+}
+
+/* BlitFramebuffer(...) */
+static VALUE rb_gl_blit_framebuffer(VALUE self, VALUE src_x0, VALUE src_y0, VALUE src_x1, VALUE src_y1,
+                                     VALUE dst_x0, VALUE dst_y0, VALUE dst_x1, VALUE dst_y1,
+                                     VALUE mask, VALUE filter) {
+    glBlitFramebuffer(
+        (GLint)NUM2INT(src_x0), (GLint)NUM2INT(src_y0), (GLint)NUM2INT(src_x1), (GLint)NUM2INT(src_y1),
+        (GLint)NUM2INT(dst_x0), (GLint)NUM2INT(dst_y0), (GLint)NUM2INT(dst_x1), (GLint)NUM2INT(dst_y1),
+        (GLbitfield)NUM2UINT(mask), (GLenum)NUM2INT(filter)
+    );
+    return Qnil;
+}
+
+/* AttachShader(program, shader) */
+static VALUE rb_gl_attach_shader(VALUE self, VALUE program, VALUE shader) {
+    glAttachShader((GLuint)NUM2UINT(program), (GLuint)NUM2UINT(shader));
+    return Qnil;
+}
+
+/* BeginQuery(target, id) */
+static VALUE rb_gl_begin_query(VALUE self, VALUE target, VALUE id) {
+    glBeginQuery((GLenum)NUM2INT(target), (GLuint)NUM2UINT(id));
+    return Qnil;
+}
+
+/* BlendFunc(sfactor, dfactor) */
+static VALUE rb_gl_blend_func(VALUE self, VALUE sfactor, VALUE dfactor) {
+    glBlendFunc((GLenum)NUM2INT(sfactor), (GLenum)NUM2INT(dfactor));
+    return Qnil;
+}
+
+/* BufferData(target, size, data, usage) */
+static VALUE rb_gl_buffer_data(VALUE self, VALUE target, VALUE size, VALUE data, VALUE usage) {
+    const void *ptr = NIL_P(data) ? NULL : (const void *)RSTRING_PTR(data);
+    glBufferData((GLenum)NUM2INT(target), (GLsizeiptr)NUM2LONG(size), ptr, (GLenum)NUM2INT(usage));
+    return Qnil;
+}
+
+/* BufferSubData(target, offset, size, data) */
+static VALUE rb_gl_buffer_sub_data(VALUE self, VALUE target, VALUE offset, VALUE size, VALUE data) {
+    const void *ptr = (const void *)RSTRING_PTR(data);
+    glBufferSubData((GLenum)NUM2INT(target), (GLintptr)NUM2LONG(offset), (GLsizeiptr)NUM2LONG(size), ptr);
+    return Qnil;
+}
+
+/* CheckFramebufferStatus(target) */
+static VALUE rb_gl_check_framebuffer_status(VALUE self, VALUE target) {
+    GLenum result = glCheckFramebufferStatus((GLenum)NUM2INT(target));
+    return INT2NUM(result);
+}
+
+/* ClearColor(red, green, blue, alpha) */
+static VALUE rb_gl_clear_color(VALUE self, VALUE red, VALUE green, VALUE blue, VALUE alpha) {
+    glClearColor((GLfloat)NUM2DBL(red), (GLfloat)NUM2DBL(green), (GLfloat)NUM2DBL(blue), (GLfloat)NUM2DBL(alpha));
+    return Qnil;
+}
+
+/* ColorMask(red, green, blue, alpha) */
+static VALUE rb_gl_color_mask(VALUE self, VALUE red, VALUE green, VALUE blue, VALUE alpha) {
+    glColorMask((GLboolean)NUM2INT(red), (GLboolean)NUM2INT(green), (GLboolean)NUM2INT(blue), (GLboolean)NUM2INT(alpha));
+    return Qnil;
+}
+
+/* CompileShader(shader) */
+static VALUE rb_gl_compile_shader(VALUE self, VALUE shader) {
+    glCompileShader((GLuint)NUM2UINT(shader));
+    return Qnil;
+}
+
+/* CreateProgram() */
+static VALUE rb_gl_create_program(VALUE self) {
+    GLuint program = glCreateProgram();
+    return UINT2NUM(program);
+}
+
+/* CreateShader(type) */
+static VALUE rb_gl_create_shader(VALUE self, VALUE type) {
+    GLuint shader = glCreateShader((GLenum)NUM2INT(type));
+    return UINT2NUM(shader);
+}
+
+/* CullFace(mode) */
+static VALUE rb_gl_cull_face(VALUE self, VALUE mode) {
+    glCullFace((GLenum)NUM2INT(mode));
+    return Qnil;
+}
+
+/* DepthFunc(func) */
+static VALUE rb_gl_depth_func(VALUE self, VALUE func) {
+    glDepthFunc((GLenum)NUM2INT(func));
+    return Qnil;
+}
+
+/* DrawBuffer(mode) */
+static VALUE rb_gl_draw_buffer(VALUE self, VALUE mode) {
+    glDrawBuffer((GLenum)NUM2INT(mode));
+    return Qnil;
+}
+
+/* DrawBuffers(n, bufs) */
+static VALUE rb_gl_draw_buffers(VALUE self, VALUE n, VALUE bufs) {
+    const GLenum *ptr = (const GLenum *)RSTRING_PTR(bufs);
+    glDrawBuffers((GLsizei)NUM2INT(n), ptr);
+    return Qnil;
+}
+
+/* EnableVertexAttribArray(index) */
+static VALUE rb_gl_enable_vertex_attrib_array(VALUE self, VALUE index) {
+    glEnableVertexAttribArray((GLuint)NUM2UINT(index));
+    return Qnil;
+}
+
+/* EndQuery(target) */
+static VALUE rb_gl_end_query(VALUE self, VALUE target) {
+    glEndQuery((GLenum)NUM2INT(target));
+    return Qnil;
+}
+
+/* Finish() */
+static VALUE rb_gl_finish(VALUE self) {
+    glFinish();
+    return Qnil;
+}
+
+/* FramebufferTexture2D(target, attachment, textarget, texture, level) */
+static VALUE rb_gl_framebuffer_texture_2d(VALUE self, VALUE target, VALUE attachment, VALUE textarget, VALUE texture, VALUE level) {
+    glFramebufferTexture2D((GLenum)NUM2INT(target), (GLenum)NUM2INT(attachment), (GLenum)NUM2INT(textarget), (GLuint)NUM2UINT(texture), (GLint)NUM2INT(level));
+    return Qnil;
+}
+
+/* FramebufferTextureLayer(target, attachment, texture, level, layer) */
+static VALUE rb_gl_framebuffer_texture_layer(VALUE self, VALUE target, VALUE attachment, VALUE texture, VALUE level, VALUE layer) {
+    glFramebufferTextureLayer((GLenum)NUM2INT(target), (GLenum)NUM2INT(attachment), (GLuint)NUM2UINT(texture), (GLint)NUM2INT(level), (GLint)NUM2INT(layer));
+    return Qnil;
+}
+
+/* GenBuffers(n, buffers) */
+static VALUE rb_gl_gen_buffers(VALUE self, VALUE n, VALUE buffers) {
+    GLuint *ptr = (GLuint *)RSTRING_PTR(buffers);
+    glGenBuffers((GLsizei)NUM2INT(n), ptr);
+    return Qnil;
+}
+
+/* GenerateMipmap(target) */
+static VALUE rb_gl_generate_mipmap(VALUE self, VALUE target) {
+    glGenerateMipmap((GLenum)NUM2INT(target));
+    return Qnil;
+}
+
+/* GenFramebuffers(n, framebuffers) */
+static VALUE rb_gl_gen_framebuffers(VALUE self, VALUE n, VALUE framebuffers) {
+    GLuint *ptr = (GLuint *)RSTRING_PTR(framebuffers);
+    glGenFramebuffers((GLsizei)NUM2INT(n), ptr);
+    return Qnil;
+}
+
+/* GenQueries(n, ids) */
+static VALUE rb_gl_gen_queries(VALUE self, VALUE n, VALUE ids) {
+    GLuint *ptr = (GLuint *)RSTRING_PTR(ids);
+    glGenQueries((GLsizei)NUM2INT(n), ptr);
+    return Qnil;
+}
+
+/* GenTextures(n, textures) */
+static VALUE rb_gl_gen_textures(VALUE self, VALUE n, VALUE textures) {
+    GLuint *ptr = (GLuint *)RSTRING_PTR(textures);
+    glGenTextures((GLsizei)NUM2INT(n), ptr);
+    return Qnil;
+}
+
+/* GenVertexArrays(n, arrays) */
+static VALUE rb_gl_gen_vertex_arrays(VALUE self, VALUE n, VALUE arrays) {
+    GLuint *ptr = (GLuint *)RSTRING_PTR(arrays);
+    glGenVertexArrays((GLsizei)NUM2INT(n), ptr);
+    return Qnil;
+}
+
+/* GetError() */
+static VALUE rb_gl_get_error(VALUE self) {
+    GLenum error = glGetError();
+    return INT2NUM(error);
+}
+
+/* GetProgramInfoLog(program, max_length, length, info_log) */
+static VALUE rb_gl_get_program_info_log(VALUE self, VALUE program, VALUE max_length, VALUE length, VALUE info_log) {
+    GLsizei *len_ptr = (GLsizei *)RSTRING_PTR(length);
+    GLchar *log_ptr = (GLchar *)RSTRING_PTR(info_log);
+    glGetProgramInfoLog((GLuint)NUM2UINT(program), (GLsizei)NUM2INT(max_length), len_ptr, log_ptr);
+    return Qnil;
+}
+
+/* GetProgramiv(program, pname, params) */
+static VALUE rb_gl_get_programiv(VALUE self, VALUE program, VALUE pname, VALUE params) {
+    GLint *ptr = (GLint *)RSTRING_PTR(params);
+    glGetProgramiv((GLuint)NUM2UINT(program), (GLenum)NUM2INT(pname), ptr);
+    return Qnil;
+}
+
+/* GetQueryObjectui64v(id, pname, params) */
+static VALUE rb_gl_get_query_objectui64v(VALUE self, VALUE id, VALUE pname, VALUE params) {
+    GLuint64 *ptr = (GLuint64 *)RSTRING_PTR(params);
+    glGetQueryObjectui64v((GLuint)NUM2UINT(id), (GLenum)NUM2INT(pname), ptr);
+    return Qnil;
+}
+
+/* GetShaderInfoLog(shader, max_length, length, info_log) */
+static VALUE rb_gl_get_shader_info_log(VALUE self, VALUE shader, VALUE max_length, VALUE length, VALUE info_log) {
+    GLsizei *len_ptr = (GLsizei *)RSTRING_PTR(length);
+    GLchar *log_ptr = (GLchar *)RSTRING_PTR(info_log);
+    glGetShaderInfoLog((GLuint)NUM2UINT(shader), (GLsizei)NUM2INT(max_length), len_ptr, log_ptr);
+    return Qnil;
+}
+
+/* GetString(name) */
+static VALUE rb_gl_get_string(VALUE self, VALUE name) {
+    const GLubyte *str = glGetString((GLenum)NUM2INT(name));
+    if (str == NULL) return Qnil;
+    return rb_str_new2((const char *)str);
+}
+
+/* GetUniformLocation(program, name) */
+static VALUE rb_gl_get_uniform_location(VALUE self, VALUE program, VALUE name) {
+    const char *name_str = StringValueCStr(name);
+    GLint location = glGetUniformLocation((GLuint)NUM2UINT(program), name_str);
+    return INT2NUM(location);
+}
+
+/* LinkProgram(program) */
+static VALUE rb_gl_link_program(VALUE self, VALUE program) {
+    glLinkProgram((GLuint)NUM2UINT(program));
+    return Qnil;
+}
+
+/* ReadBuffer(mode) */
+static VALUE rb_gl_read_buffer(VALUE self, VALUE mode) {
+    glReadBuffer((GLenum)NUM2INT(mode));
+    return Qnil;
+}
+
+/* ReadPixels(x, y, width, height, format, type, data) */
+static VALUE rb_gl_read_pixels(VALUE self, VALUE x, VALUE y, VALUE width, VALUE height, VALUE format, VALUE type, VALUE data) {
+    void *ptr = (void *)RSTRING_PTR(data);
+    glReadPixels((GLint)NUM2INT(x), (GLint)NUM2INT(y), (GLsizei)NUM2INT(width), (GLsizei)NUM2INT(height), (GLenum)NUM2INT(format), (GLenum)NUM2INT(type), ptr);
+    return Qnil;
+}
+
+/* ShaderSource(shader, count, string, length) */
+static VALUE rb_gl_shader_source(VALUE self, VALUE shader, VALUE count, VALUE string, VALUE length) {
+    /* string is a packed pointer array (from Ruby's pack('p')) */
+    /* length is a packed int array (from Ruby's pack('I')) */
+    const GLchar **src_ptr = (const GLchar **)RSTRING_PTR(string);
+    const GLint *len_ptr = NIL_P(length) ? NULL : (const GLint *)RSTRING_PTR(length);
+    glShaderSource((GLuint)NUM2UINT(shader), (GLsizei)NUM2INT(count), src_ptr, len_ptr);
+    return Qnil;
+}
+
+/* StencilFunc(func, ref, mask) */
+static VALUE rb_gl_stencil_func(VALUE self, VALUE func, VALUE ref, VALUE mask) {
+    glStencilFunc((GLenum)NUM2INT(func), (GLint)NUM2INT(ref), (GLuint)NUM2UINT(mask));
+    return Qnil;
+}
+
+/* StencilMask(mask) */
+static VALUE rb_gl_stencil_mask(VALUE self, VALUE mask) {
+    glStencilMask((GLuint)NUM2UINT(mask));
+    return Qnil;
+}
+
+/* StencilOp(sfail, dpfail, dppass) */
+static VALUE rb_gl_stencil_op(VALUE self, VALUE sfail, VALUE dpfail, VALUE dppass) {
+    glStencilOp((GLenum)NUM2INT(sfail), (GLenum)NUM2INT(dpfail), (GLenum)NUM2INT(dppass));
+    return Qnil;
+}
+
+/* TexImage2D(target, level, internalformat, width, height, border, format, type, data) */
+static VALUE rb_gl_tex_image_2d(VALUE self, VALUE target, VALUE level, VALUE internalformat,
+                                 VALUE width, VALUE height, VALUE border, VALUE format,
+                                 VALUE type, VALUE data) {
+    const void *ptr = NIL_P(data) ? NULL : (const void *)RSTRING_PTR(data);
+    glTexImage2D((GLenum)NUM2INT(target), (GLint)NUM2INT(level), (GLint)NUM2INT(internalformat),
+                 (GLsizei)NUM2INT(width), (GLsizei)NUM2INT(height), (GLint)NUM2INT(border),
+                 (GLenum)NUM2INT(format), (GLenum)NUM2INT(type), ptr);
+    return Qnil;
+}
+
+/* TexImage3D(target, level, internalformat, width, height, depth, border, format, type, data) */
+static VALUE rb_gl_tex_image_3d(VALUE self, VALUE target, VALUE level, VALUE internalformat,
+                                 VALUE width, VALUE height, VALUE depth, VALUE border,
+                                 VALUE format, VALUE type, VALUE data) {
+    const void *ptr = NIL_P(data) ? NULL : (const void *)RSTRING_PTR(data);
+    glTexImage3D((GLenum)NUM2INT(target), (GLint)NUM2INT(level), (GLint)NUM2INT(internalformat),
+                 (GLsizei)NUM2INT(width), (GLsizei)NUM2INT(height), (GLsizei)NUM2INT(depth),
+                 (GLint)NUM2INT(border), (GLenum)NUM2INT(format), (GLenum)NUM2INT(type), ptr);
+    return Qnil;
+}
+
+/* TexParameterfv(target, pname, params) */
+static VALUE rb_gl_tex_parameterfv(VALUE self, VALUE target, VALUE pname, VALUE params) {
+    const GLfloat *ptr = (const GLfloat *)RSTRING_PTR(params);
+    glTexParameterfv((GLenum)NUM2INT(target), (GLenum)NUM2INT(pname), ptr);
+    return Qnil;
+}
+
+/* TexParameteri(target, pname, param) */
+static VALUE rb_gl_tex_parameteri(VALUE self, VALUE target, VALUE pname, VALUE param) {
+    glTexParameteri((GLenum)NUM2INT(target), (GLenum)NUM2INT(pname), (GLint)NUM2INT(param));
+    return Qnil;
+}
+
+/* VertexAttribDivisor(index, divisor) */
+static VALUE rb_gl_vertex_attrib_divisor(VALUE self, VALUE index, VALUE divisor) {
+    glVertexAttribDivisor((GLuint)NUM2UINT(index), (GLuint)NUM2UINT(divisor));
+    return Qnil;
+}
+
+/* VertexAttribIPointer(index, size, type, stride, pointer) */
+static VALUE rb_gl_vertex_attrib_ipointer(VALUE self, VALUE index, VALUE size, VALUE type, VALUE stride, VALUE pointer) {
+    glVertexAttribIPointer((GLuint)NUM2UINT(index), (GLint)NUM2INT(size), (GLenum)NUM2INT(type),
+                           (GLsizei)NUM2INT(stride), (const void *)(uintptr_t)NUM2ULL(pointer));
+    return Qnil;
+}
+
+/* VertexAttribPointer(index, size, type, normalized, stride, pointer) */
+static VALUE rb_gl_vertex_attrib_pointer(VALUE self, VALUE index, VALUE size, VALUE type, VALUE normalized, VALUE stride, VALUE pointer) {
+    glVertexAttribPointer((GLuint)NUM2UINT(index), (GLint)NUM2INT(size), (GLenum)NUM2INT(type),
+                          (GLboolean)NUM2INT(normalized), (GLsizei)NUM2INT(stride),
+                          (const void *)(uintptr_t)NUM2ULL(pointer));
+    return Qnil;
+}
+
+/* Compute shader functions - OpenGL 4.3+ */
+
+/* BindImageTexture(unit, texture, level, layered, layer, access, format) */
+static VALUE rb_gl_bind_image_texture(VALUE self, VALUE unit, VALUE texture, VALUE level,
+                                       VALUE layered, VALUE layer, VALUE access, VALUE format) {
+    glBindImageTexture((GLuint)NUM2UINT(unit), (GLuint)NUM2UINT(texture), (GLint)NUM2INT(level),
+                       (GLboolean)NUM2INT(layered), (GLint)NUM2INT(layer),
+                       (GLenum)NUM2INT(access), (GLenum)NUM2INT(format));
+    return Qnil;
+}
+
+/* DispatchCompute(num_groups_x, num_groups_y, num_groups_z) */
+static VALUE rb_gl_dispatch_compute(VALUE self, VALUE num_groups_x, VALUE num_groups_y, VALUE num_groups_z) {
+    glDispatchCompute((GLuint)NUM2UINT(num_groups_x), (GLuint)NUM2UINT(num_groups_y), (GLuint)NUM2UINT(num_groups_z));
+    return Qnil;
+}
+
+/* MemoryBarrier(barriers) */
+static VALUE rb_gl_memory_barrier(VALUE self, VALUE barriers) {
+    glMemoryBarrier((GLbitfield)NUM2UINT(barriers));
+    return Qnil;
+}
+
+/* Extension init */
+void Init_gl_native(void) {
+    mGLNative = rb_define_module("GLNative");
+
+    rb_define_module_function(mGLNative, "bind_framebuffer", rb_gl_bind_framebuffer, 2);
+    rb_define_module_function(mGLNative, "bind_vertex_array", rb_gl_bind_vertex_array, 1);
+    rb_define_module_function(mGLNative, "bind_buffer", rb_gl_bind_buffer, 2);
+    rb_define_module_function(mGLNative, "bind_texture", rb_gl_bind_texture, 2);
+    rb_define_module_function(mGLNative, "active_texture", rb_gl_active_texture, 1);
+    rb_define_module_function(mGLNative, "use_program", rb_gl_use_program, 1);
+    rb_define_module_function(mGLNative, "enable", rb_gl_enable, 1);
+    rb_define_module_function(mGLNative, "disable", rb_gl_disable, 1);
+    rb_define_module_function(mGLNative, "draw_arrays", rb_gl_draw_arrays, 3);
+    rb_define_module_function(mGLNative, "draw_elements", rb_gl_draw_elements, 4);
+    rb_define_module_function(mGLNative, "draw_elements_instanced", rb_gl_draw_elements_instanced, 5);
+    rb_define_module_function(mGLNative, "clear", rb_gl_clear, 1);
+    rb_define_module_function(mGLNative, "viewport", rb_gl_viewport, 4);
+    rb_define_module_function(mGLNative, "uniform1f", rb_gl_uniform1f, 2);
+    rb_define_module_function(mGLNative, "uniform2f", rb_gl_uniform2f, 3);
+    rb_define_module_function(mGLNative, "uniform3f", rb_gl_uniform3f, 4);
+    rb_define_module_function(mGLNative, "uniform4f", rb_gl_uniform4f, 5);
+    rb_define_module_function(mGLNative, "uniform1i", rb_gl_uniform1i, 2);
+    rb_define_module_function(mGLNative, "uniform_matrix4fv", rb_gl_uniform_matrix4fv, 4);
+    rb_define_module_function(mGLNative, "blit_framebuffer", rb_gl_blit_framebuffer, 10);
+    rb_define_module_function(mGLNative, "attach_shader", rb_gl_attach_shader, 2);
+    rb_define_module_function(mGLNative, "begin_query", rb_gl_begin_query, 2);
+    rb_define_module_function(mGLNative, "blend_func", rb_gl_blend_func, 2);
+    rb_define_module_function(mGLNative, "buffer_data", rb_gl_buffer_data, 4);
+    rb_define_module_function(mGLNative, "buffer_sub_data", rb_gl_buffer_sub_data, 4);
+    rb_define_module_function(mGLNative, "check_framebuffer_status", rb_gl_check_framebuffer_status, 1);
+    rb_define_module_function(mGLNative, "clear_color", rb_gl_clear_color, 4);
+    rb_define_module_function(mGLNative, "color_mask", rb_gl_color_mask, 4);
+    rb_define_module_function(mGLNative, "compile_shader", rb_gl_compile_shader, 1);
+    rb_define_module_function(mGLNative, "create_program", rb_gl_create_program, 0);
+    rb_define_module_function(mGLNative, "create_shader", rb_gl_create_shader, 1);
+    rb_define_module_function(mGLNative, "cull_face", rb_gl_cull_face, 1);
+    rb_define_module_function(mGLNative, "depth_func", rb_gl_depth_func, 1);
+    rb_define_module_function(mGLNative, "draw_buffer", rb_gl_draw_buffer, 1);
+    rb_define_module_function(mGLNative, "draw_buffers", rb_gl_draw_buffers, 2);
+    rb_define_module_function(mGLNative, "enable_vertex_attrib_array", rb_gl_enable_vertex_attrib_array, 1);
+    rb_define_module_function(mGLNative, "end_query", rb_gl_end_query, 1);
+    rb_define_module_function(mGLNative, "finish", rb_gl_finish, 0);
+    rb_define_module_function(mGLNative, "framebuffer_texture_2d", rb_gl_framebuffer_texture_2d, 5);
+    rb_define_module_function(mGLNative, "framebuffer_texture_layer", rb_gl_framebuffer_texture_layer, 5);
+    rb_define_module_function(mGLNative, "gen_buffers", rb_gl_gen_buffers, 2);
+    rb_define_module_function(mGLNative, "generate_mipmap", rb_gl_generate_mipmap, 1);
+    rb_define_module_function(mGLNative, "gen_framebuffers", rb_gl_gen_framebuffers, 2);
+    rb_define_module_function(mGLNative, "gen_queries", rb_gl_gen_queries, 2);
+    rb_define_module_function(mGLNative, "gen_textures", rb_gl_gen_textures, 2);
+    rb_define_module_function(mGLNative, "gen_vertex_arrays", rb_gl_gen_vertex_arrays, 2);
+    rb_define_module_function(mGLNative, "get_error", rb_gl_get_error, 0);
+    rb_define_module_function(mGLNative, "get_program_info_log", rb_gl_get_program_info_log, 4);
+    rb_define_module_function(mGLNative, "get_programiv", rb_gl_get_programiv, 3);
+    rb_define_module_function(mGLNative, "get_query_objectui64v", rb_gl_get_query_objectui64v, 3);
+    rb_define_module_function(mGLNative, "get_shader_info_log", rb_gl_get_shader_info_log, 4);
+    rb_define_module_function(mGLNative, "get_string", rb_gl_get_string, 1);
+    rb_define_module_function(mGLNative, "get_uniform_location", rb_gl_get_uniform_location, 2);
+    rb_define_module_function(mGLNative, "link_program", rb_gl_link_program, 1);
+    rb_define_module_function(mGLNative, "read_buffer", rb_gl_read_buffer, 1);
+    rb_define_module_function(mGLNative, "read_pixels", rb_gl_read_pixels, 7);
+    rb_define_module_function(mGLNative, "shader_source", rb_gl_shader_source, 4);
+    rb_define_module_function(mGLNative, "stencil_func", rb_gl_stencil_func, 3);
+    rb_define_module_function(mGLNative, "stencil_mask", rb_gl_stencil_mask, 1);
+    rb_define_module_function(mGLNative, "stencil_op", rb_gl_stencil_op, 3);
+    rb_define_module_function(mGLNative, "tex_image_2d", rb_gl_tex_image_2d, 9);
+    rb_define_module_function(mGLNative, "tex_image_3d", rb_gl_tex_image_3d, 10);
+    rb_define_module_function(mGLNative, "tex_parameterfv", rb_gl_tex_parameterfv, 3);
+    rb_define_module_function(mGLNative, "tex_parameteri", rb_gl_tex_parameteri, 3);
+    rb_define_module_function(mGLNative, "vertex_attrib_divisor", rb_gl_vertex_attrib_divisor, 2);
+    rb_define_module_function(mGLNative, "vertex_attrib_ipointer", rb_gl_vertex_attrib_ipointer, 5);
+    rb_define_module_function(mGLNative, "vertex_attrib_pointer", rb_gl_vertex_attrib_pointer, 6);
+
+    /* Compute shader functions - OpenGL 4.3+ */
+    rb_define_module_function(mGLNative, "bind_image_texture", rb_gl_bind_image_texture, 7);
+    rb_define_module_function(mGLNative, "dispatch_compute", rb_gl_dispatch_compute, 3);
+    rb_define_module_function(mGLNative, "memory_barrier", rb_gl_memory_barrier, 1);
+}

data/ext/glfw_native/extconf.rb

@@ -0,0 +1,18 @@
+# frozen_string_literal: true
+
+require 'mkmf'
+
+# We use dlopen to dynamically load GLFW at runtime, so no library linking needed
+# Just need to compile with position-independent code
+
+case RUBY_PLATFORM
+when /darwin/
+  # macOS: we'll dlopen the bundled libglfw.3.dylib
+  $LDFLAGS << " -ldl"
+when /linux/
+  $LDFLAGS << " -ldl"
+when /mingw|mswin/
+  # Windows uses LoadLibrary, no extra flags needed
+end
+
+create_makefile('glfw_native')