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/text_writing_anim.lua | 52 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 examples/text_writing_anim.lua (limited to 'examples/text_writing_anim.lua') diff --git a/examples/text_writing_anim.lua b/examples/text_writing_anim.lua new file mode 100644 index 00000000..37f1efba --- /dev/null +++ b/examples/text_writing_anim.lua @@ -0,0 +1,52 @@ +------------------------------------------------------------------------------------------- +-- +-- raylib [text] example - Text Writing Animation +-- +-- 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 [text] example - text writing anim") + +local message = "This sample illustrates a text writing\nanimation effect! Check it out! )" + +local framesCounter = 0 + +SetTargetFPS(60) -- Set target frames-per-second +------------------------------------------------------------------------------------------- + +-- Main game loop +while not WindowShouldClose() do -- Detect window close button or ESC key + -- Update + --------------------------------------------------------------------------------------- + framesCounter = framesCounter + 1 + + if (IsKeyPressed(KEY.ENTER)) then framesCounter = 0 end + --------------------------------------------------------------------------------------- + + -- Draw + --------------------------------------------------------------------------------------- + BeginDrawing() + + ClearBackground(RAYWHITE) + + DrawText(SubText(message, 0, framesCounter/10), 210, 160, 20, MAROON) + + DrawText("PRESS [ENTER] to RESTART!", 240, 280, 20, LIGHTGRAY) + + EndDrawing() + --------------------------------------------------------------------------------------- +end + +-- De-Initialization +------------------------------------------------------------------------------------------- +CloseWindow() -- Close window and OpenGL context +------------------------------------------------------------------------------------------- \ No newline at end of file -- cgit v1.2.3