From 00c7e54d3c593dbddb036f2185e614e7e4b22a1f Mon Sep 17 00:00:00 2001 From: raysan5 Date: Sat, 6 Aug 2016 11:32:35 +0200 Subject: Add raylib lua examples --- examples/core_mouse_wheel.lua | 50 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 50 insertions(+) create mode 100644 examples/core_mouse_wheel.lua (limited to 'examples/core_mouse_wheel.lua') diff --git a/examples/core_mouse_wheel.lua b/examples/core_mouse_wheel.lua new file mode 100644 index 00000000..92e0a160 --- /dev/null +++ b/examples/core_mouse_wheel.lua @@ -0,0 +1,50 @@ +------------------------------------------------------------------------------------------- +-- +-- raylib [core] examples - Mouse wheel +-- +-- 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) +-- +------------------------------------------------------------------------------------------- + +-- Initialization +------------------------------------------------------------------------------------------- +local screenWidth = 800 +local screenHeight = 450 + +InitWindow(screenWidth, screenHeight, "raylib [core] example - mouse wheel") + +local boxPositionY = screenHeight/2 - 40 +local scrollSpeed = 4 -- Scrolling speed in pixels + +SetTargetFPS(60) -- Set target frames-per-second +---------------------------------------------------------------------------------------- + +-- Main game loop +while not WindowShouldClose() do -- Detect window close button or ESC key + -- Update + ------------------------------------------------------------------------------------ + boxPositionY = boxPositionY - (GetMouseWheelMove()*scrollSpeed) + ------------------------------------------------------------------------------------ + + -- Draw + ------------------------------------------------------------------------------------ + BeginDrawing() + + ClearBackground(RAYWHITE) + + DrawRectangle(screenWidth/2 - 40, boxPositionY, 80, 80, MAROON) + + DrawText("Use mouse wheel to move the cube up and down!", 10, 10, 20, GRAY) + DrawText(string.format("Box position Y: %03i", boxPositionY), 10, 40, 20, LIGHTGRAY) + + EndDrawing() + ------------------------------------------------------------------------------------ +end + +-- De-Initialization +---------------------------------------------------------------------------------------- +CloseWindow() -- Close window and OpenGL context +---------------------------------------------------------------------------------------- \ No newline at end of file -- cgit v1.2.3