added rspr example

awesome/rspr.lua

@@ -0,0 +1,100 @@
+-- title:  rspr
+-- author: pixelbath
+-- desc:   rotate a sprite (code by ArchaicVirus)
+
+local t = 0
+vec2 = {}
+vec2_mt = {}
+vec2_mt.__index = vec2_mt
+setmetatable(vec2, { __call = function(V, x, y) return setmetatable({ x = x or 0, y = y or x or 0 }, vec2_mt) end })
+
+
+function rspr(id, x, y, colorkey, scaleX, scaleY, flip, rotate, tile_width, tile_height, pivot)
+	colorkey = colorkey or -1
+	scaleX = scaleX or 1
+	scaleY = scaleY or 1
+	flip = flip or 0
+	rotate = rotate or 0
+	tile_width = tile_width or 1
+	tile_height = tile_height or 1
+	pivot = pivot or vec2(0, 0)
+
+	-- Draw a sprite using two textured triangles.
+	-- Apply affine transformations: scale, shear, rotate, flip
+
+	-- scale / flip
+	if flip % 2 == 1 then
+		scaleX = -scaleX
+	end
+	if flip >= 2 then
+		scaleY = -scaleY
+	end
+	local ox = tile_width * 8 // 2
+	local oy = tile_height * 8 // 2
+	local ox = ox * -scaleX
+	local oy = oy * -scaleY
+
+	-- shear / rotate
+	local shx1 = 0
+	local shy1 = 0
+	local shx2 = 0
+	local shy2 = 0
+	local shx1 = shx1 * -scaleX
+	local shy1 = shy1 * -scaleY
+	local shx2 = shx2 * -scaleX
+	local shy2 = shy2 * -scaleY
+	local rr = math.rad(rotate)
+	local sa = math.sin(rr)
+	local ca = math.cos(rr)
+
+	local function rot(x, y, px, py)
+		-- Translate point to origin (pivot)
+		x, y = x - px, y - py
+		-- Rotate
+		local rx, ry = x * ca - y * sa, x * sa + y * ca
+		-- Translate back
+		return rx + px, ry + py
+	end
+
+	local rx1, ry1 = rot(ox + shx1, oy + shy1, pivot.x, pivot.y)
+	local rx2, ry2 = rot(((tile_width * 8) * scaleX) + ox + shx1, oy + shy2, pivot.x, pivot.y)
+	local rx3, ry3 = rot(ox + shx2, ((tile_height * 8) * scaleY) + oy + shy1, pivot.x, pivot.y)
+	local rx4, ry4 = rot(((tile_width * 8) * scaleX) + ox + shx2, ((tile_height * 8) * scaleY) + oy + shy2, pivot.x,
+		pivot.y)
+
+	local x1 = x + rx1 - pivot.x
+	local y1 = y + ry1 - pivot.y
+	local x2 = x + rx2 - pivot.x
+	local y2 = y + ry2 - pivot.y
+	local x3 = x + rx3 - pivot.x
+	local y3 = y + ry3 - pivot.y
+	local x4 = x + rx4 - pivot.x
+	local y4 = y + ry4 - pivot.y
+
+	-- UV coords
+	local u1 = (id % 16) * 8
+	local v1 = math.floor(id / 16) * 8
+	local u2 = u1 + tile_width * 8
+	local v2 = v1 + tile_height * 8
+    ttri(x1, y1, x2, y2, x3, y3, u1, v1, u2, v1, u1, v2, 0, colorkey)
+    ttri(x3, y3, x4, y4, x2, y2, u1, v2, u2, v2, u2, v1, 0, colorkey)
+end
+
+
+function TIC()
+    cls(0)
+    rspr(1, 100, 50, 0, 1, 1, 0, t, 2, 2)
+    t=t+1
+end
+
+-- <TILES>
+-- 001:999900009990000099000000900000000000000000000002000000220000022c
+-- 002:0000333300000333000000330000000300000000200000002200000022200000
+-- 017:00000222000000220000000200000000b0000000bb000000bbb00000bbbb0000
+-- 018:c220000022000000200000000000000000000005000000550000055500005555
+-- </TILES>
+
+-- <PALETTE>
+-- 000:1a1c2c5d275db13e53ef7d57ffcd75a7f07038b76425717929366f3b5dc941a6f673eff7f4f4f494b0c2566c86333c57
+-- </PALETTE>
+