Add raylib lua examples

1 files changed, 134 insertions, 0 deletions

diff --git a/examples/textures_image_processing.lua b/examples/textures_image_processing.lua
new file mode 100644
index 00000000..b7304b37
--- /dev/null
+++ b/examples/textures_image_processing.lua
@@ -0,0 +1,134 @@
+-------------------------------------------------------------------------------------------
+--
+--  raylib [textures] example - Image processing
+--
+--  NOTE: Images are loaded in CPU memory (RAM) textures are loaded in GPU memory (VRAM)
+--
+--  This example has been created using raylib 1.6 (www.raylib.com)
+--  raylib is licensed under an unmodified zlib/libpng license (View raylib.h for details)
+--
+--  Copyright (c) 2014-2016 Ramon Santamaria (@raysan5)
+--
+-------------------------------------------------------------------------------------------
+
+--#include <stdlib.h>     -- Required for: free()
+
+NUM_PROCESSES = 8
+
+-- enum ImageProcess
+local COLOR_NONE = 1
+local COLOR_GRAYSCALE = 2
+local COLOR_TINT = 3
+local COLOR_INVERT = 4
+local COLOR_CONTRAST = 5
+local COLOR_BRIGHTNESS = 6
+local FLIP_VERTICAL = 7
+local FLIP_HORIZONTAL = 8
+
+local processText = {
+    "NO PROCESSING",
+    "COLOR GRAYSCALE",
+    "COLOR TINT",
+    "COLOR INVERT",
+    "COLOR CONTRAST",
+    "COLOR BRIGHTNESS",
+    "FLIP VERTICAL",
+    "FLIP HORIZONTAL"
+}
+
+-- Initialization
+-------------------------------------------------------------------------------------------
+local screenWidth = 800
+local screenHeight = 450
+
+InitWindow(screenWidth, screenHeight, "raylib [textures] example - image processing")
+
+-- NOTE: Textures MUST be loaded after Window initialization (OpenGL context is required)
+
+local image = LoadImage("resources/parrots.png")   -- Loaded in CPU memory (RAM)
+image = ImageFormat(image, TextureFormat.UNCOMPRESSED_R8G8B8A8)         -- Format image to RGBA 32bit (required for texture update)
+local texture = LoadTextureFromImage(image)        -- Image converted to texture, GPU memory (VRAM)
+
+local currentProcess = COLOR_NONE
+local textureReload = false
+
+local selectRecs = {}
+
+for i = 1, NUM_PROCESSES do selectRecs[i] = Rectangle(40, 50 + 32*i, 150, 30) end
+
+SetTargetFPS(60)
+-------------------------------------------------------------------------------------------
+
+-- Main game loop
+while not WindowShouldClose() do            -- Detect window close button or ESC key
+    -- Update
+    ---------------------------------------------------------------------------------------
+    if (IsKeyPressed(KEY.DOWN)) then
+        currentProcess = currentProcess + 1
+        if (currentProcess > NUM_PROCESSES) then currentProcess = 1 end
+        textureReload = true
+    elseif (IsKeyPressed(KEY.UP)) then
+        currentProcess = currentProcess - 1
+        if (currentProcess < 1) then currentProcess = NUM_PROCESSES end
+        textureReload = true
+    end
+    
+    if (textureReload) then
+        UnloadImage(image)                         -- Unload current image data
+        image = LoadImage("resources/parrots.png") -- Re-load image data
+
+        -- NOTE: Image processing is a costly CPU process to be done every frame, 
+        -- If image processing is required in a frame-basis, it should be done 
+        -- with a texture and by shaders
+        if (currentProcess == COLOR_GRAYSCALE) then image = ImageColorGrayscale(image)
+        elseif (currentProcess == COLOR_TINT) then image = ImageColorTint(image, GREEN)
+        elseif (currentProcess == COLOR_INVERT) then image = ImageColorInvert(image)
+        elseif (currentProcess == COLOR_CONTRAST) then image = ImageColorContrast(image, -40)
+        elseif (currentProcess == COLOR_BRIGHTNESS) then image = ImageColorBrightness(image, -80)
+        elseif (currentProcess == FLIP_VERTICAL) then image = ImageFlipVertical(image)
+        elseif (currentProcess == FLIP_HORIZONTAL) then image = ImageFlipHorizontal(image)
+        end
+        
+        local pixels = {}
+        pixels = GetImageData(image)                -- Get pixel data from image (RGBA 32bit)
+        texture = UpdateTexture(texture, pixels)    -- Update texture with new image data
+
+        textureReload = false
+    end
+    ---------------------------------------------------------------------------------------
+
+    -- Draw
+    ---------------------------------------------------------------------------------------
+    BeginDrawing()
+
+        ClearBackground(RAYWHITE)
+        
+        DrawText("IMAGE PROCESSING:", 40, 30, 10, DARKGRAY)
+        
+        -- Draw rectangles
+        for i = 1, NUM_PROCESSES do
+            if (i == currentProcess) then
+                DrawRectangleRec(selectRecs[i], SKYBLUE)
+                DrawRectangleLines(selectRecs[i].x, selectRecs[i].y, selectRecs[i].width, selectRecs[i].height, BLUE)
+                DrawText(processText[i], selectRecs[i].x + selectRecs[i].width/2 - MeasureText(processText[i], 10)//2, selectRecs[i].y + 11, 10, DARKBLUE)
+            else
+                DrawRectangleRec(selectRecs[i], LIGHTGRAY)
+                DrawRectangleLines(selectRecs[i].x, selectRecs[i].y, selectRecs[i].width, selectRecs[i].height, GRAY)
+                DrawText(processText[i], selectRecs[i].x + selectRecs[i].width/2 - MeasureText(processText[i], 10)//2, selectRecs[i].y + 11, 10, DARKGRAY)
+            end
+        end
+
+        DrawTexture(texture, screenWidth - texture.width - 60, screenHeight/2 - texture.height/2, WHITE)
+        DrawRectangleLines(screenWidth - texture.width - 60, screenHeight/2 - texture.height/2, texture.width, texture.height, BLACK)
+        
+    EndDrawing()
+    ---------------------------------------------------------------------------------------
+end
+
+-- De-Initialization
+-------------------------------------------------------------------------------------------
+UnloadTexture(texture)       -- Unload texture from VRAM
+UnloadImage(image)           -- Unload image from RAM
+
+CloseWindow()                -- Close window and OpenGL context
+-------------------------------------------------------------------------------------------
\ No newline at end of file