123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100 |
- -- 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>
|