kistaro/mmbshmup
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

more experiments with drawing these collision boxes. still sucks

Browse Source
This commit is contained in:
Kistaro Windrider 2025-06-08 14:10:23 -07:00
parent 1ef5b56c58
commit 37d9e3d30e
Signed by: kistaro
SSH Key Fingerprint: SHA256:TBE2ynfmJqsAf0CP6gsflA0q5X5wD5fVKWPsZ7eVUg8
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collisiontest.p8
View File

@ -114,7 +114,7 @@ end
function _draw()
cls(0)
rect(bx0,by0,bx1,by1,6)
zot(lx1,ly1,0,lx1-lx0,ly1-ly0,10,9,8)
quickzot(lx1,ly1,2,lx1-lx0,ly1-ly0,10,9,8)
--line(lx0,ly0,lx1,ly1,2)
local cmin, cmax = collides()
if cmin then
@ -163,6 +163,17 @@ function zot(x,y,r,dx,dy,hot,warm,cold)
line(x0,y0,x-i*sdx,y+ry,hot)
end
end
function quickzot(x,y,r,dx,dy,hot,warm,cold)
local x0, y0, r2 = x-dx, y-dy, r/2
rectfill(x0-0.5-r2, y0-0.5-r2, x0+r2+0.5, y0+r2+0.5, cold)
local a = atan2(dx,dy)-0.25
local tdx,tdy=cos(a), sin(a)
for i=-r*0.65,r*0.65,0.65 do
line(x0+i*tdx, y0+i*tdy, x+i*tdx, y+i*tdy, warm)
end
rectfill(x-r2,y-r2,x+r2,y+r2,hot)
end
__gfx__
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000