REVIEWED: example: Compute shader Game-of-life

examples/others/resources/shaders/glsl430/gol.glsl

@@ -0,0 +1,41 @@
+#version 430
+
+// Game of Life logic shader
+
+#define GOL_WIDTH 768
+
+layout (local_size_x = 16, local_size_y = 16, local_size_z = 1) in;
+
+layout(std430, binding = 1) readonly restrict buffer golLayout {
+    uint golBuffer[];       // golBuffer[x, y] = golBuffer[x + gl_NumWorkGroups.x * y]
+};
+
+layout(std430, binding = 2) writeonly restrict buffer golLayout2 {
+    uint golBufferDest[];   // golBufferDest[x, y] = golBufferDest[x + gl_NumWorkGroups.x * y]
+};
+
+#define fetchGol(x, y) ((((x) < 0) || ((y) < 0) || ((x) > GOL_WIDTH) || ((y) > GOL_WIDTH)) \
+    ? (0) \
+    : golBuffer[(x) + GOL_WIDTH * (y)])
+
+#define setGol(x, y, value) golBufferDest[(x) + GOL_WIDTH*(y)] = value
+
+void main()
+{
+    uint neighbourCount = 0;
+    uint x = gl_GlobalInvocationID.x;
+    uint y = gl_GlobalInvocationID.y;
+
+    neighbourCount += fetchGol(x - 1, y - 1);   // Top left
+    neighbourCount += fetchGol(x, y - 1);       // Top middle
+    neighbourCount += fetchGol(x + 1, y - 1);   // Top right
+    neighbourCount += fetchGol(x - 1, y);       // Left
+    neighbourCount += fetchGol(x + 1, y);       // Right
+    neighbourCount += fetchGol(x - 1, y + 1);   // Bottom left
+    neighbourCount += fetchGol(x, y + 1);       // Bottom middle   
+    neighbourCount += fetchGol(x + 1, y + 1);   // Bottom right
+
+    if (neighbourCount == 3) setGol(x, y, 1);
+    else if (neighbourCount == 2) setGol(x, y, fetchGol(x, y));
+    else setGol(x, y, 0);
+}

examples/others/resources/shaders/glsl430/gol_render.glsl

@@ -1,34 +1,29 @@
-// Game of Life rendering shader
+#version 430
-// Just renders the content of the ssbo at binding 1 to screen.
+
-#version 430
+// Game of Life rendering shader
-
+// Just renders the content of the ssbo at binding 1 to screen
-#define GOL_WIDTH 768
+
-
+#define GOL_WIDTH 768
-// Input vertex attributes (from vertex shader)
+
-in vec2 fragTexCoord;
+// Input vertex attributes (from vertex shader)
-
+in vec2 fragTexCoord;
-// Output fragment color
+
-out vec4 finalColor;
+// Output fragment color
-
+out vec4 finalColor;
-// Input game of life grid.
+
-layout(std430, binding = 1) readonly buffer golLayout
+// Input game of life grid.
-{
+layout(std430, binding = 1) readonly buffer golLayout
-    uint golBuffer[];
+{
-};
+    uint golBuffer[];
-
+};
-// Output resolution
+
-uniform vec2 res;
+// Output resolution
-
+uniform vec2 resolution;
-void main()
+
-{
+void main()
-    ivec2 coords = ivec2(fragTexCoord * res);
+{
-
+    ivec2 coords = ivec2(fragTexCoord*resolution);
-    if (golBuffer[coords.x + coords.y * uvec2(res).x] == 1)
+
-    {
+    if ((golBuffer[coords.x + coords.y*uvec2(resolution).x]) == 1) finalColor = vec4(1.0);
-        finalColor = vec4(1.0);
+    else finalColor = vec4(0.0, 0.0, 0.0, 1.0);
-    }
+}
-    else
-    {
-        finalColor = vec4(0.0, 0.0, 0.0, 1.0);
-    }
-}

examples/others/resources/shaders/glsl430/gol_transfert.glsl

@@ -1,54 +1,51 @@
-// Game of life transfert shader.
+#version 430
-#version 430
+
-#define GOL_WIDTH 768
+// Game of life transfert shader
-
+
-// Structure definitions
+#define GOL_WIDTH 768
-struct GolUpdateCmd {
+
-    uint x; // x coordinate of the gol command
+// Game Of Life Update Command
-    uint y; // y coordinate of the gol command
+// NOTE: matches the structure defined on main program
-    uint w; // width of the filled zone
+struct GolUpdateCmd {
-    uint enabled; // whether to enable or disable zone
+    uint x;         // x coordinate of the gol command
-};
+    uint y;         // y coordinate of the gol command
-
+    uint w;         // width of the filled zone
-// Local compute unit size.
+    uint enabled;   // whether to enable or disable zone
-layout (local_size_x = 1, local_size_y = 1, local_size_z = 1) in;
+};
-
+
-// Output game of life grid buffer.
+// Local compute unit size
-layout(std430, binding = 1) buffer golBufferLayout
+layout (local_size_x = 1, local_size_y = 1, local_size_z = 1) in;
-{
+
-    uint golBuffer[]; // golBuffer[x, y] = golBuffer[x + GOL_WIDTH * y]
+// Output game of life grid buffer
-};
+layout(std430, binding = 1) buffer golBufferLayout
-
+{
-// Command buffer
+    uint golBuffer[]; // golBuffer[x, y] = golBuffer[x + GOL_WIDTH * y]
-layout(std430, binding = 3) readonly restrict buffer golUpdateLayout
+};
-{
+
-    uint count;
+// Command buffer
-    GolUpdateCmd commands[];
+layout(std430, binding = 3) readonly restrict buffer golUpdateLayout
-};
+{
-
+    uint count;
-#define isInside(x, y) (((x) >= 0) && ((y) >= 0) && ((x) < GOL_WIDTH) && ((y) < GOL_WIDTH))
+    GolUpdateCmd commands[];
-#define getBufferIndex(x, y) ((x) + GOL_WIDTH * (y))
+};
-
+
-void main()
+#define isInside(x, y) (((x) >= 0) && ((y) >= 0) && ((x) < GOL_WIDTH) && ((y) < GOL_WIDTH))
-{
+#define getBufferIndex(x, y) ((x) + GOL_WIDTH * (y))
-    uint cmd_index = gl_GlobalInvocationID.x;
+
-    GolUpdateCmd cmd = commands[cmd_index];
+void main()
-
+{
-    for (uint x = cmd.x; x < (cmd.x + cmd.w); x++)
+    uint cmdIndex = gl_GlobalInvocationID.x;
-    {
+    GolUpdateCmd cmd = commands[cmdIndex];
-        for (uint y = cmd.y; y < (cmd.y + cmd.w); y++)
+
-        {
+    for (uint x = cmd.x; x < (cmd.x + cmd.w); x++)
-            if (isInside(x, y))
+    {
-            {
+        for (uint y = cmd.y; y < (cmd.y + cmd.w); y++)
-                if (cmd.enabled != 0)
+        {
-                {
+            if (isInside(x, y))
-                    atomicOr(golBuffer[getBufferIndex(x, y)], 1);
+            {
-                }
+                if (cmd.enabled != 0) atomicOr(golBuffer[getBufferIndex(x, y)], 1);
-                else
+                else atomicAnd(golBuffer[getBufferIndex(x, y)], 0);
-                {
+            }
-                    atomicAnd(golBuffer[getBufferIndex(x, y)], 0);
+        }
-                }
+    }
-            }
+}
-        }
-    }
-}

examples/others/rlgl_compute_shader.c

@@ -1,164 +1,173 @@
-/*******************************************************************************************
+/*******************************************************************************************
-*
+*
-*   raylib [shaders] example - Compute shaders Conway's Game of Life
+*   raylib [rlgl] example - compute shader - Conway's Game of Life
-*
+*
-*   NOTE: This example requires raylib OpenGL 4.3 versions for compute shaders support,
+*   NOTE: This example requires raylib OpenGL 4.3 versions for compute shaders support,
-*
+*         shaders used in this example are #version 430 (OpenGL 4.3)
-*   NOTE: Shaders used in this example are #version 430 (OpenGL 4.3).
+*
-*
+*   This example has been created using raylib 4.0 (www.raylib.com)
-*   This example has been created using raylib 4.0 (www.raylib.com)
+*   raylib is licensed under an unmodified zlib/libpng license (View raylib.h for details)
-*   raylib is licensed under an unmodified zlib/libpng license (View raylib.h for details)
+*
-*
+*   Example contributed by Teddy Astie (@tsnake41) and reviewed by Ramon Santamaria (@raysan5)
-*   Example contributed by Teddy Astie (@tsnake41)
+*
-*
+*   Copyright (c) 2021 Teddy Astie (@tsnake41)
-*   Copyright (c) 2021 Teddy Astie (@tsnake41)
+*
-*
+********************************************************************************************/
-********************************************************************************************/
+
-
+#include "raylib.h"
-#include <stdlib.h>
+#include "rlgl.h"
-
+
-#include "raylib.h"
+#include <stdlib.h>
-#include "rlgl.h"
+
-
+// IMPORTANT: This must match gol*.glsl GOL_WIDTH constant.
-// IMPORTANT: This must match gol*.glsl GOL_WIDTH constant.
+// This must be a multiple of 16 (check golLogic compute dispatch).
-//            This must be a multiple of 16 (check golLogic compute dispatch).
+#define GOL_WIDTH 768
-#define GOL_WIDTH 768
+
-
+// Maximum amount of queued draw commands (squares draw from mouse down events).
-// Maximum amount of queued draw commands (squares draw from mouse down events).
+#define MAX_BUFFERED_TRANSFERTS 48
-#define MAX_BUFFERED_TRANSFERTS 48
+
-
+// Game Of Life Update Command
-struct GolUpdateCmd
+typedef struct GolUpdateCmd {
-{
+    unsigned int x;         // x coordinate of the gol command
-    unsigned int x; // x coordinate of the gol command
+    unsigned int y;         // y coordinate of the gol command
-    unsigned int y; // y coordinate of the gol command
+    unsigned int w;         // width of the filled zone
-    unsigned int w; // width of the filled zone
+    unsigned int enabled;   // whether to enable or disable zone
-    unsigned int enabled; // whether to enable or disable zone
+} GolUpdateCmd;
-};
+
-
+// Game Of Life Update Commands SSBO
-struct GolUpdateSSBO
+typedef struct GolUpdateSSBO {
-{
+    unsigned int count;
-    unsigned int count;
+    GolUpdateCmd commands[MAX_BUFFERED_TRANSFERTS];
-    struct GolUpdateCmd commands[MAX_BUFFERED_TRANSFERTS];
+} GolUpdateSSBO;
-};
+
-
+int main(void)
-int main(void)
+{
-{
+    // Initialization
-    // Initialization
+    //--------------------------------------------------------------------------------------
-    //--------------------------------------------------------------------------------------
+    InitWindow(GOL_WIDTH, GOL_WIDTH, "raylib [rlgl] example - compute shader - game of life");
-    InitWindow(GOL_WIDTH, GOL_WIDTH, "raylib [shaders] example - compute shader gol");
+
-
+    const Vector2 resolution = { GOL_WIDTH, GOL_WIDTH };
-    const Vector2 resolution = { GOL_WIDTH, GOL_WIDTH };
+    unsigned int brushSize = 8;
-    unsigned int brushSize = 1;
+
-
+    // Game of Life logic compute shader
-    // Game of Life logic compute shader
+    char *golLogicCode = LoadFileText("resources/shaders/glsl430/gol.glsl");
-    char *golLogicCode = LoadFileText("resources/shaders/glsl430/gol.glsl");
+    unsigned int golLogicShader = rlCompileShader(golLogicCode, RL_COMPUTE_SHADER);
-    unsigned int golLogicShader = rlCompileShader(golLogicCode, RL_COMPUTE_SHADER);
+    unsigned int golLogicProgram = rlLoadComputeShaderProgram(golLogicShader);
-    unsigned int golLogicProgram = rlLoadComputeShaderProgram(golLogicShader);
+    UnloadFileText(golLogicCode);
-    MemFree(golLogicCode);
+
-
+    // Game of Life logic compute shader
-    // Game of Life logic compute shader
+    Shader golRenderShader = LoadShader(NULL, "resources/shaders/glsl430/gol_render.glsl");
-    Shader golRenderShader = LoadShader(NULL, "resources/shaders/glsl430/gol_render.glsl");
+    int resUniformLoc = GetShaderLocation(golRenderShader, "resolution");
-    int resUniformLoc = GetShaderLocation(golRenderShader, "res");
+
-
+    // Game of Life transfert shader
-    // Game of Life transfert shader
+    char *golTransfertCode = LoadFileText("resources/shaders/glsl430/gol_transfert.glsl");
-    char *golTransfertCode = LoadFileText("resources/shaders/glsl430/gol_transfert.glsl");
+    unsigned int golTransfertShader = rlCompileShader(golTransfertCode, RL_COMPUTE_SHADER);
-    unsigned int golTransfertShader = rlCompileShader(golTransfertCode, RL_COMPUTE_SHADER);
+    unsigned int golTransfertProgram = rlLoadComputeShaderProgram(golTransfertShader);
-    unsigned int golTransfertProgram = rlLoadComputeShaderProgram(golTransfertShader);
+    UnloadFileText(golTransfertCode);
-    MemFree(golTransfertCode);
+
-
+    // SSBOs
-    // SSBOs
+    unsigned int ssboA = rlLoadShaderBuffer(GOL_WIDTH*GOL_WIDTH*sizeof(unsigned int), NULL, RL_DYNAMIC_COPY);
-    unsigned int ssboA = rlLoadShaderBuffer(sizeof(unsigned int) * GOL_WIDTH * GOL_WIDTH, NULL, RL_DYNAMIC_COPY);
+    unsigned int ssboB = rlLoadShaderBuffer(GOL_WIDTH*GOL_WIDTH*sizeof(unsigned int), NULL, RL_DYNAMIC_COPY);
-    unsigned int ssboB = rlLoadShaderBuffer(sizeof(unsigned int) * GOL_WIDTH * GOL_WIDTH, NULL, RL_DYNAMIC_COPY);
+
-
+    struct GolUpdateSSBO transfertBuffer;
-    struct GolUpdateSSBO transfertBuffer;
+    transfertBuffer.count = 0;
-    transfertBuffer.count = 0;
+
-
+    int transfertSSBO = rlLoadShaderBuffer(sizeof(struct GolUpdateSSBO), NULL, RL_DYNAMIC_COPY);
-    int transfertSSBO = rlLoadShaderBuffer(sizeof(struct GolUpdateSSBO), NULL, RL_DYNAMIC_COPY);
+
-
+    // Create a white texture of the size of the window to update 
-    // Create a white texture of the size of the window to update 
+    // each pixel of the window using the fragment shader
-    // each pixel of the window using the fragment shader.
+    Image whiteImage = GenImageColor(GOL_WIDTH, GOL_WIDTH, WHITE);
-    Image whiteImage = GenImageColor(GOL_WIDTH, GOL_WIDTH, WHITE);
+    Texture whiteTex = LoadTextureFromImage(whiteImage);
-    Texture whiteTex = LoadTextureFromImage(whiteImage);
+    UnloadImage(whiteImage);
-    UnloadImage(whiteImage);
+    //--------------------------------------------------------------------------------------
-
+
-    while (!WindowShouldClose())
+    // Main game loop
-    {
+    while (!WindowShouldClose())
-        if (IsKeyPressed(KEY_UP))                            brushSize *= 2;
+    {
-        else if (IsKeyPressed(KEY_DOWN) && (brushSize != 1)) brushSize /= 2;
+        // Update
-
+        //----------------------------------------------------------------------------------
-        if ((IsMouseButtonDown(MOUSE_BUTTON_LEFT) || IsMouseButtonDown(MOUSE_BUTTON_RIGHT))
+        brushSize += (int)GetMouseWheelMove();
-            && (transfertBuffer.count < MAX_BUFFERED_TRANSFERTS))
+
-        {
+        if ((IsMouseButtonDown(MOUSE_BUTTON_LEFT) || IsMouseButtonDown(MOUSE_BUTTON_RIGHT))
-            // Buffer a new command
+            && (transfertBuffer.count < MAX_BUFFERED_TRANSFERTS))
-            transfertBuffer.commands[transfertBuffer.count].x = GetMouseX();
+        {
-            transfertBuffer.commands[transfertBuffer.count].y = GetMouseY();
+            // Buffer a new command
-            transfertBuffer.commands[transfertBuffer.count].w = brushSize;
+            transfertBuffer.commands[transfertBuffer.count].x = GetMouseX() - brushSize/2;
-            transfertBuffer.commands[transfertBuffer.count].enabled = IsMouseButtonDown(MOUSE_BUTTON_LEFT);
+            transfertBuffer.commands[transfertBuffer.count].y = GetMouseY() - brushSize/2;
-            transfertBuffer.count++;
+            transfertBuffer.commands[transfertBuffer.count].w = brushSize;
-        }
+            transfertBuffer.commands[transfertBuffer.count].enabled = IsMouseButtonDown(MOUSE_BUTTON_LEFT);
-        else if (transfertBuffer.count > 0)
+            transfertBuffer.count++;
-        {
+        }
-            // Process transfert buffer
+        else if (transfertBuffer.count > 0)
-
+        {
-            // Send SSBO buffer to GPU
+            // Process transfert buffer
-            rlUpdateShaderBufferElements(transfertSSBO, &transfertBuffer, sizeof(struct GolUpdateSSBO), 0);
+
-            // Process ssbo command
+            // Send SSBO buffer to GPU
-            rlEnableShader(golTransfertProgram);
+            rlUpdateShaderBufferElements(transfertSSBO, &transfertBuffer, sizeof(struct GolUpdateSSBO), 0);
-            rlBindShaderBuffer(ssboA, 1);
+            
-            rlBindShaderBuffer(transfertSSBO, 3);
+            // Process ssbo command
-            rlComputeShaderDispatch(transfertBuffer.count, 1, 1); // each GPU unit will process a command
+            rlEnableShader(golTransfertProgram);
-            rlDisableShader();
+            rlBindShaderBuffer(ssboA, 1);
-
+            rlBindShaderBuffer(transfertSSBO, 3);
-            transfertBuffer.count = 0;
+            rlComputeShaderDispatch(transfertBuffer.count, 1, 1); // each GPU unit will process a command
-        }
+            rlDisableShader();
-        else
+
-        {
+            transfertBuffer.count = 0;
-            // Process game of life logic
+        }
-            rlEnableShader(golLogicProgram);
+        else
-            rlBindShaderBuffer(ssboA, 1);
+        {
-            rlBindShaderBuffer(ssboB, 2);
+            // Process game of life logic
-            rlComputeShaderDispatch(GOL_WIDTH / 16, GOL_WIDTH / 16, 1);
+            rlEnableShader(golLogicProgram);
-            rlDisableShader();
+            rlBindShaderBuffer(ssboA, 1);
-
+            rlBindShaderBuffer(ssboB, 2);
-            // ssboA <-> ssboB
+            rlComputeShaderDispatch(GOL_WIDTH/16, GOL_WIDTH/16, 1);
-            int temp = ssboA;
+            rlDisableShader();
-            ssboA = ssboB;
+
-            ssboB = temp;
+            // ssboA <-> ssboB
-        }
+            int temp = ssboA;
-
+            ssboA = ssboB;
-        rlBindShaderBuffer(ssboA, 1);
+            ssboB = temp;
-
+        }
-        BeginDrawing();
+
-
+        rlBindShaderBuffer(ssboA, 1);
-        ClearBackground(BLANK);
+        SetShaderValue(golRenderShader, resUniformLoc, &resolution, SHADER_UNIFORM_VEC2);
-        SetShaderValue(golRenderShader, resUniformLoc, &resolution, SHADER_UNIFORM_VEC2);
+        //----------------------------------------------------------------------------------
-
+
-        BeginShaderMode(golRenderShader);
+        // Draw
-        DrawTexture(whiteTex, 0, 0, WHITE);
+        //----------------------------------------------------------------------------------
-        EndShaderMode();
+        BeginDrawing();
-
+
-        DrawFPS(0, 0);
+            ClearBackground(BLANK);
-
+
-        EndDrawing();
+            BeginShaderMode(golRenderShader);
-    }
+                DrawTexture(whiteTex, 0, 0, WHITE);
-
+            EndShaderMode();
-    // De-Initialization
+            
-    //--------------------------------------------------------------------------------------
+            DrawRectangleLines(GetMouseX() - brushSize/2, GetMouseY() - brushSize/2, brushSize, brushSize, RED);
-
+
-    // Unload shader buffers objects.
+            DrawText("Use Mouse wheel to increase/decrease brush size", 10, 10, 20, WHITE);
-    rlUnloadShaderBuffer(ssboA);
+            DrawFPS(GetScreenWidth() - 100, 10);
-    rlUnloadShaderBuffer(ssboB);
+
-    rlUnloadShaderBuffer(transfertSSBO);
+        EndDrawing();
-
+        //----------------------------------------------------------------------------------
-    // Unload compute shader programs
+    }
-    rlUnloadShaderProgram(golTransfertProgram);
+
-    rlUnloadShaderProgram(golLogicProgram);
+    // De-Initialization
-
+    //--------------------------------------------------------------------------------------
-    UnloadTexture(whiteTex);       // Unload white texture
+    // Unload shader buffers objects.
-    UnloadShader(golRenderShader); // Unload rendering fragment shader
+    rlUnloadShaderBuffer(ssboA);
-
+    rlUnloadShaderBuffer(ssboB);
-    CloseWindow();                 // Close window and OpenGL context
+    rlUnloadShaderBuffer(transfertSSBO);
-    //--------------------------------------------------------------------------------------
+
-
+    // Unload compute shader programs
-    return 0;
+    rlUnloadShaderProgram(golTransfertProgram);
-}
+    rlUnloadShaderProgram(golLogicProgram);
+
+    UnloadTexture(whiteTex);            // Unload white texture
+    UnloadShader(golRenderShader);      // Unload rendering fragment shader
+
+    CloseWindow();                      // Close window and OpenGL context
+    //--------------------------------------------------------------------------------------
+
+    return 0;
+}

examples/shaders/resources/shaders/glsl430/gol.glsl

@@ -1,64 +0,0 @@
-// Game of Life logic shader
-#version 430
-
-#define GOL_WIDTH 768
-
-layout (local_size_x = 16, local_size_y = 16, local_size_z = 1) in;
-
-layout(std430, binding = 1) readonly restrict buffer golLayout {
-    uint golBuffer[]; // golBuffer[x, y] = golBuffer[x + gl_NumWorkGroups.x * y]
-};
-
-layout(std430, binding = 2) writeonly restrict buffer golLayout2 {
-    uint golBufferDest[]; // golBufferDest[x, y] = golBufferDest[x + gl_NumWorkGroups.x * y]
-};
-
-#define fetchGol(x, y) ((((x) < 0) || ((y) < 0) || ((x) > GOL_WIDTH) || ((y) > GOL_WIDTH)) \
-    ? (0) \
-    : golBuffer[(x) + GOL_WIDTH * (y)])
-
-#define setGol(x, y, value) golBufferDest[(x) + GOL_WIDTH * (y)] = value
-
-void main()
-{
-    uint neighbour_count = 0;
-    uint x = gl_GlobalInvocationID.x;
-    uint y = gl_GlobalInvocationID.y;
-
-    // Top left
-    neighbour_count += fetchGol(x - 1, y - 1);
-
-    // Top middle
-    neighbour_count += fetchGol(x, y - 1);
-
-    // Top right
-    neighbour_count += fetchGol(x + 1, y - 1);
-
-    // Left
-    neighbour_count += fetchGol(x - 1, y);
-
-    // Right
-    neighbour_count += fetchGol(x + 1, y);
-
-    // Bottom left
-    neighbour_count += fetchGol(x - 1, y + 1);
-
-    // Bottom middle
-    neighbour_count += fetchGol(x, y + 1);
-
-    // Bottom right
-    neighbour_count += fetchGol(x + 1, y + 1);
-
-    if (neighbour_count == 3)
-    {
-        setGol(x, y, 1);
-    }
-    else if (neighbour_count == 2)
-    {
-        setGol(x, y, fetchGol(x, y));
-    }
-    else
-    {
-        setGol(x, y, 0);
-    }
-}

src/rlgl.h

@@ -662,7 +662,6 @@ RLAPI void rlSetUniformMatrix(int locIndex, Matrix mat);
 RLAPI void rlSetUniformSampler(int locIndex, unsigned int textureId);           // Set shader value sampler
 RLAPI void rlSetShader(unsigned int id, int *locs);                             // Set shader currently active (id and locations)
 
-#if defined(GRAPHICS_API_OPENGL_43)
 // Compute shader management
 RLAPI unsigned int rlLoadComputeShaderProgram(unsigned int shaderId);           // Load compute shader program
 RLAPI void rlComputeShaderDispatch(unsigned int groupX, unsigned int groupY, unsigned int groupZ);  // Dispatch compute shader (equivalent to *draw* for graphics pilepine)
@@ -678,7 +677,6 @@ RLAPI void rlBindShaderBuffer(unsigned int id, unsigned int index);
 // Buffer management
 RLAPI void rlCopyBuffersElements(unsigned int destId, unsigned int srcId, unsigned long long destOffset, unsigned long long srcOffset, unsigned long long count); // Copy SSBO buffer data
 RLAPI void rlBindImageTexture(unsigned int id, unsigned int index, unsigned int format, int readonly);  // Bind image texture
-#endif
 
 // Matrix state management
 RLAPI Matrix rlGetMatrixModelview(void);                                  // Get internal modelview matrix
@@ -3836,12 +3834,12 @@ void rlSetShader(unsigned int id, int *locs)
 #endif
 }
 
-#if defined(GRAPHICS_API_OPENGL_43)
 // Load compute shader program
 unsigned int rlLoadComputeShaderProgram(unsigned int shaderId)
 {
     unsigned int program = 0;
 
+#if defined(GRAPHICS_API_OPENGL_43)
     GLint success = 0;
     program = glCreateProgram();
     glAttachShader(program, shaderId);
@@ -3880,6 +3878,7 @@ unsigned int rlLoadComputeShaderProgram(unsigned int shaderId)
 
         TRACELOG(RL_LOG_INFO, "SHADER: [ID %i] Compute shader program loaded successfully", program);
     }
+#endif
 
     return program;
 }
@@ -3887,17 +3886,21 @@ unsigned int rlLoadComputeShaderProgram(unsigned int shaderId)
 // Dispatch compute shader (equivalent to *draw* for graphics pilepine)
 void rlComputeShaderDispatch(unsigned int groupX, unsigned int groupY, unsigned int groupZ)
 {
+#if defined(GRAPHICS_API_OPENGL_43)
     glDispatchCompute(groupX, groupY, groupZ);
+#endif
 }
 
 // Load shader storage buffer object (SSBO)
 unsigned int rlLoadShaderBuffer(unsigned long long size, const void *data, int usageHint)
 {
     unsigned int ssbo = 0;
-
+    
+#if defined(GRAPHICS_API_OPENGL_43)
     glGenBuffers(1, &ssbo);
     glBindBuffer(GL_SHADER_STORAGE_BUFFER, ssbo);
     glBufferData(GL_SHADER_STORAGE_BUFFER, size, data, usageHint? usageHint : RL_STREAM_COPY);
+#endif
 
     return ssbo;
 }
@@ -3905,23 +3908,29 @@ unsigned int rlLoadShaderBuffer(unsigned long long size, const void *data, int u
 // Unload shader storage buffer object (SSBO)
 void rlUnloadShaderBuffer(unsigned int ssboId)
 {
+#if defined(GRAPHICS_API_OPENGL_43)
     glDeleteBuffers(1, &ssboId);
+#endif
 }
 
 // Update SSBO buffer data
 void rlUpdateShaderBufferElements(unsigned int id, const void *data, unsigned long long dataSize, unsigned long long offset)
 {
+#if defined(GRAPHICS_API_OPENGL_43)
     glBindBuffer(GL_SHADER_STORAGE_BUFFER, id);
     glBufferSubData(GL_SHADER_STORAGE_BUFFER, offset, dataSize, data);
+#endif
 }
 
 // Get SSBO buffer size
 unsigned long long rlGetShaderBufferSize(unsigned int id)
 {
     long long size = 0;
-
+    
+#if defined(GRAPHICS_API_OPENGL_43)
     glBindBuffer(GL_SHADER_STORAGE_BUFFER, id);
     glGetInteger64v(GL_SHADER_STORAGE_BUFFER_SIZE, &size);
+#endif
 
     return (size > 0)? size : 0;
 }
@@ -3929,33 +3938,40 @@ unsigned long long rlGetShaderBufferSize(unsigned int id)
 // Read SSBO buffer data
 void rlReadShaderBufferElements(unsigned int id, void *dest, unsigned long long count, unsigned long long offset)
 {
+#if defined(GRAPHICS_API_OPENGL_43)
     glBindBuffer(GL_SHADER_STORAGE_BUFFER, id);
     glGetBufferSubData(GL_SHADER_STORAGE_BUFFER, offset, count, dest);
+#endif
 }
 
 // Bind SSBO buffer
 void rlBindShaderBuffer(unsigned int id, unsigned int index)
 {
+#if defined(GRAPHICS_API_OPENGL_43)
     glBindBufferBase(GL_SHADER_STORAGE_BUFFER, index, id);
+#endif
 }
 
 // Copy SSBO buffer data
 void rlCopyBuffersElements(unsigned int destId, unsigned int srcId, unsigned long long destOffset, unsigned long long srcOffset, unsigned long long count)
 {
+#if defined(GRAPHICS_API_OPENGL_43)
     glBindBuffer(GL_COPY_READ_BUFFER, srcId);
     glBindBuffer(GL_COPY_WRITE_BUFFER, destId);
     glCopyBufferSubData(GL_COPY_READ_BUFFER, GL_COPY_WRITE_BUFFER, srcOffset, destOffset, count);
+#endif
 }
 
 // Bind image texture
 void rlBindImageTexture(unsigned int id, unsigned int index, unsigned int format, int readonly)
 {
+#if defined(GRAPHICS_API_OPENGL_43)
     int glInternalFormat = 0, glFormat = 0, glType = 0;
 
     rlGetGlTextureFormats(format, &glInternalFormat, &glFormat, &glType);
     glBindImageTexture(index, id, 0, 0, 0, readonly ? GL_READ_ONLY : GL_READ_WRITE, glInternalFormat);
-}
 #endif
+}
 
 // Matrix state management
 //-----------------------------------------------------------------------------------------