From debe4baa8c208458f847dd4c89c17f7cc39be559 Mon Sep 17 00:00:00 2001
From: jussi
Date: Sun, 6 Mar 2022 15:01:59 +0200
Subject: Bunnymark.

---
 examples/bunnymark/main.lua | 91 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 91 insertions(+)
 create mode 100644 examples/bunnymark/main.lua

(limited to 'examples/bunnymark')

diff --git a/examples/bunnymark/main.lua b/examples/bunnymark/main.lua
new file mode 100644
index 0000000..50b8f11
--- /dev/null
+++ b/examples/bunnymark/main.lua
@@ -0,0 +1,91 @@
+local MAX_BUNNIES = 100000
+
+-- This is the maximum amount of elements (quads) per batch
+-- NOTE: This value is defined in [rlgl] module and can be changed there
+local MAX_BATCH_ELEMENTS = 8192
+
+-- Create the Bunny class.
+local Bunny = {}
+Bunny.__index = Bunny
+
+function Bunny:new( pos, spd, col )
+	local bunny = {}
+	setmetatable( bunny,Bunny )
+	bunny.position = pos
+	bunny.speed = spd
+	bunny.color = col
+	return bunny
+end
+
+-- Initialization
+local screenWidth = 800
+local screenHeight = 450
+local texSize = { 0, 0 }
+local texBunny = -1
+local bunnies = {}
+
+function Bunny:update( texture )
+	self.position[1] = self.position[1] + self.speed[1]
+	self.position[2] = self.position[2] + self.speed[2]
+
+	if ( ( self.position[1] + texSize[1] / 2 ) > screenWidth )
+	or ( ( self.position[2] + texSize[1] / 2 ) < 0 ) then
+		self.speed[1] = self.speed[1] * -1
+	end
+
+	if ( ( self.position[2] + texSize[2] / 2 ) > screenHeight )
+	or ( ( self.position[2] + texSize[2] / 2 - 40 ) < 0 ) then
+		self.speed[2] = self.speed[2] * -1
+	end
+end
+
+-- Init
+
+function init()
+	RL_SetWindowState( FLAG_VSYNC_HINT )
+	RL_SetWindowSize( { screenWidth, screenHeight } )
+	RL_SetWindowTitle( "raylib [textures] example - bunnymark" )
+	-- Load bunny texture
+	texBunny = RL_LoadTexture( RL_GetBasePath().."../resources/images/wabbit_alpha.png" )
+	texSize = RL_GetTextureSize( texBunny )
+end
+
+-- Update
+
+function process( delta )
+	if RL_IsMouseButtonDown( 0 ) then
+	 	-- Create more bunnies
+		for i = 1, 100 do
+			if #bunnies < MAX_BUNNIES then
+				local speed = { math.random( -250, 250 ) / 60, math.random( -250, 250 ) / 60 }
+				local color = { math.random( 50, 240 ), math.random( 80, 240 ), math.random( 100, 240 ), 255 }
+				table.insert( bunnies, Bunny:new( RL_GetMousePosition(), speed, color) )
+			end
+		end
+	end
+	-- Update bunnies
+	for i = 1, #bunnies do
+	  	bunnies[i]:update( texBunny )
+	end
+end
+
+  -- Draw
+
+function draw()
+	RL_ClearBackground( RAYWHITE )
+
+	for i = 1, #bunnies do
+		-- NOTE: When internal batch buffer limit is reached (MAX_BATCH_ELEMENTS),
+		-- a draw call is launched and buffer starts being filled again;
+		-- before issuing a draw call, updated vertex data from internal CPU buffer is send to GPU...
+		-- Process of sending data is costly and it could happen that GPU data has not been completely
+		-- processed for drawing while new data is tried to be sent (updating current in-use buffers)
+		-- it could generates a stall and consequently a frame drop, limiting the number of drawn bunnies
+		RL_DrawTexture( texBunny, { bunnies[i].position[1], bunnies[i].position[2] }, bunnies[i].color );
+	end
+
+	RL_DrawRectangle( { 0, 0, screenWidth, 40 }, BLACK)
+	RL_DrawText( 0, "bunnies: " .. #bunnies, { 120, 10 }, 20, 2, GREEN )
+	RL_DrawText( 0, "batched draw calls: " .. math.ceil( 1 + #bunnies / MAX_BATCH_ELEMENTS ), { 320, 10 }, 20, 2, RED )
+	RL_DrawFPS( { 10, 10 } )
+end
-- 
cgit v1.2.3