246 lines
19 KiB
Lua
246 lines
19 KiB
Lua
pico-8 cartridge // http://www.pico-8.com
|
|
version 42
|
|
__lua__
|
|
--magnitest.p8
|
|
--accuracy and perf tests for
|
|
--vector calculation logic
|
|
|
|
-- profiler says 67 cycles
|
|
-- 39 lua, 28 system
|
|
function bbs28999alg(dx, dy)
|
|
local d = max(abs(dx),abs(dy))
|
|
local n = min(abs(dx),abs(dy)) / d
|
|
return sqrt(n*n + 1) * d
|
|
end
|
|
|
|
-- profiler says 56 cycles
|
|
-- 24 lua, 32 system
|
|
function bbs28999algopt(dx, dy)
|
|
local d,n=abs(dx),abs(dy)
|
|
if (d<n) d,n=n,d
|
|
n/=d
|
|
return (n*n + 1)^0.5 * d
|
|
end
|
|
|
|
-- profiler says 54 cycles
|
|
-- 26 lua, 28 system
|
|
function bbs28999algopt2(dx, dy)
|
|
local d,n=abs(dx),abs(dy)
|
|
if (d<n) d,n=n,d
|
|
n/=d
|
|
return sqrt(n*n + 1) * d
|
|
end
|
|
|
|
|
|
-- profiler says 18 cycles
|
|
-- 18 lua, 0 system
|
|
function trigalg(dx, dy)
|
|
local s = sin(atan2(dx,dy))
|
|
if (s==0) return abs(dx)
|
|
return abs(dy/s)
|
|
end
|
|
-->8
|
|
function _init()
|
|
gdx,gdy=0,0
|
|
acc=1
|
|
magnitude = 1
|
|
tresult=0
|
|
bresult=0
|
|
delta=0
|
|
dp=0
|
|
end
|
|
|
|
function _update60()
|
|
if (btn(0)) gdx -= acc
|
|
if (btn(1)) gdx += acc
|
|
if (btn(2)) gdy -= acc
|
|
if (btn(3)) gdy += acc
|
|
if (btn(4) and btn(5)) gdx,gdy=0,0
|
|
gdx=mid(-16000,16000,gdx)
|
|
gdy=mid(-16000,16000,gdy)
|
|
|
|
if btn() == 0 or btn(4) then
|
|
acc = 1
|
|
elseif btn(5) then
|
|
acc *= 1.05
|
|
else
|
|
acc *= 1.02
|
|
end
|
|
if (acc > 1024) acc=1024
|
|
|
|
local a,b=abs(gdx),abs(gdy)
|
|
if (b>a) a,b=b,a
|
|
magnitude = 1
|
|
while magnitude < a/64 do
|
|
magnitude *= 2
|
|
end
|
|
|
|
bresult=bbs28999algopt2(gdx,gdy)
|
|
tresult=trigalg(gdx,gdy)
|
|
delta=tresult-bresult
|
|
dp=(2*abs(delta)/abs(abs(bresult)+abs(tresult)))*100
|
|
if (delta == 0) dp=0
|
|
end
|
|
|
|
cols = {
|
|
6,7,
|
|
[4]=10,
|
|
[8]=9,
|
|
[16]=4,
|
|
[32]=14,
|
|
[64]=15,
|
|
[128]=11,
|
|
[256]=12,
|
|
[512]=13,
|
|
[1024]=8,
|
|
}
|
|
|
|
function _draw()
|
|
cls()
|
|
camera()
|
|
print("x: "..tostr(gdx).." y: "..tostr(gdy).."\nbase: "..tostr(bresult).."\ntrig: "..tostr(tresult).."\n\ndiff: "..tostr(delta).."\n %:"..tostr(dp),0,0,13)
|
|
print("⬆️⬇️⬅️➡️:move ❎:fast 🅾️:slow\n❎+🅾️:reset position",0,117,12)
|
|
camera(-63,-63)
|
|
line(0,0,gdx/magnitude,gdy/magnitude,cols[magnitude] or 2)
|
|
rectfill(0,0,gdx/magnitude,0,5)
|
|
rectfill(0,0,0,gdy/magnitude,5)
|
|
end
|
|
|
|
__gfx__
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00700700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00077000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00077000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00700700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
__label__
|
|
d0d000000000ddd0ddd0ddd0d0d00000ddd0d0d0ddd0ddd000000000d0d0000000000000dd00dd00ddd0ddd00000ddd0ddd0ddd0ddd000000000000000000000
|
|
d0d00d00000000d000d0d000d0d00000d0d0d0d000d000d000000000d0d00d00000000000d000d0000d0d0000000d0d0d000d000d00000000000000000000000
|
|
0d00000000000dd000d0ddd0ddd00000d0d0ddd0ddd000d000000000ddd000000000ddd00d000d00ddd0ddd00000ddd0ddd0ddd0ddd000000000000000000000
|
|
d0d00d00000000d000d000d000d00000d0d000d0d00000d00000000000d00d00000000000d000d00d00000d00000d0d000d000d000d000000000000000000000
|
|
d0d000000000ddd000d0ddd000d00d00ddd000d0ddd000d000000000ddd0000000000000ddd0ddd0ddd0ddd00d00ddd0ddd0ddd0ddd000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
ddd0ddd00dd0ddd000000000ddd0ddd0dd00ddd00000dd00ddd0ddd0dd0000000000000000000000000000000000000000000000000000000000000000000000
|
|
d0d0d0d0d000d0000d00000000d0d0d00d00d0d000000d00d0d000d00d0000000000000000000000000000000000000000000000000000000000000000000000
|
|
dd00ddd0ddd0dd00000000000dd0ddd00d00ddd000000d00ddd000d00d0000000000000000000000000000000000000000000000000000000000000000000000
|
|
d0d0d0d000d0d0000d00000000d000d00d0000d000000d00d0d000d00d0000000000000000000000000000000000000000000000000000000000000000000000
|
|
ddd0d0d0dd00ddd000000000ddd000d0ddd000d00d00ddd0ddd000d0ddd000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
ddd0ddd0ddd00dd000000000ddd0ddd0dd00ddd00000ddd0dd00ddd0ddd000000000000000000000000000000000000000000000000000000000000000000000
|
|
0d00d0d00d00d0000d00000000d0d0d00d00d0d00000d0d00d00d00000d000000000000000000000000000000000000000000000000000000000000000000000
|
|
0d00dd000d00d000000000000dd0ddd00d00ddd00000d0d00d00ddd0ddd000000000000000000000000000000000000000000000000000000000000000000000
|
|
0d00d0d00d00d0d00d00000000d000d00d00d0d00000d0d00d0000d0d00000000000000000000000000000000000000000000000000000000000000000000000
|
|
0d00d0d0ddd0ddd000000000ddd000d0ddd0ddd00d00ddd0ddd0ddd0ddd000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
dd00ddd0ddd0ddd0000000000000dd000000dd00ddd0dd00ddd00000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
d0d00d00d000d0000d00000000000d0000000d0000d00d00d0d00000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
d0d00d00dd00dd0000000000ddd00d0000000d0000d00d00ddd00000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
d0d00d00d000d0000d00000000000d0000000d0000d00d0000d00000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
ddd0ddd0d000d000000000000000ddd00d00ddd000d0ddd000d00000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
000000000000d0d00000ddd00000ddd0ddd0ddd00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000d00d00d0d00000d0d000d0d0d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000d000000d0d00000d0d0ddd0ddd00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
000000000000d0000d00d0d00000d0d0d00000d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
000000000000d0d00000ddd00d00ddd0ddd000d00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
000000000000000000000000000000000000000000000000000000000000000500000000000000000000000000000000000000000000000000000000ff000000
|
|
000000000000000000000000000000000000000000000000000000000000000500000000000000000000000000000000000000000000000000000fff00000000
|
|
00000000000000000000000000000000000000000000000000000000000000050000000000000000000000000000000000000000000000000ffff00000000000
|
|
00000000000000000000000000000000000000000000000000000000000000050000000000000000000000000000000000000000000000fff000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000050000000000000000000000000000000000000000000fff000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000050000000000000000000000000000000000000000fff000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000050000000000000000000000000000000000000fff000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000005000000000000000000000000000000000ffff000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000005000000000000000000000000000000fff0000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000005000000000000000000000000000fff0000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000005000000000000000000000000fff0000000000000000000000000000000000000
|
|
000000000000000000000000000000000000000000000000000000000000000500000000000000000000ffff0000000000000000000000000000000000000000
|
|
000000000000000000000000000000000000000000000000000000000000000500000000000000000fff00000000000000000000000000000000000000000000
|
|
000000000000000000000000000000000000000000000000000000000000000500000000000000fff00000000000000000000000000000000000000000000000
|
|
000000000000000000000000000000000000000000000000000000000000000500000000000fff00000000000000000000000000000000000000000000000000
|
|
000000000000000000000000000000000000000000000000000000000000000500000000fff00000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000050000ffff00000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000050fff000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000055555555555555555555555555555555555555555555555555555555555000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0ccccc000ccccc000ccccc000ccccc000000ccc00cc0c0c0ccc0000000000ccccc000000ccc0ccc00cc0ccc000000ccccc0000000cc0c0000cc0c0c000000000
|
|
ccc0ccc0cc000cc0ccc00cc0cc00ccc00c00ccc0c0c0c0c0c00000000000cc0c0cc00c00c000c0c0c0000c000000cc000cc00c00c000c000c0c0c0c000000000
|
|
cc000cc0cc000cc0cc000cc0cc000cc00000c0c0c0c0c0c0cc0000000000ccc0ccc00000cc00ccc0ccc00c000000cc0c0cc00000ccc0c000c0c0c0c000000000
|
|
cc000cc0ccc0ccc0ccc00cc0cc00ccc00c00c0c0c0c0ccc0c00000000000cc0c0cc00c00c000c0c000c00c000000cc000cc00c0000c0c000c0c0ccc000000000
|
|
0ccccc000ccccc000ccccc000ccccc000000c0c0cc000c00ccc0000000000ccccc000000c000c0c0cc000c0000000ccccc000000cc00ccc0cc00ccc000000000
|
|
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
0ccccc0000000ccccc000000ccc0ccc00cc0ccc0ccc00000ccc00cc00cc0ccc0ccc0ccc00cc0cc00000000000000000000000000000000000000000000000000
|
|
cc0c0cc00c00cc000cc00c00c0c0c000c000c0000c000000c0c0c0c0c0000c000c000c00c0c0c0c0000000000000000000000000000000000000000000000000
|
|
ccc0ccc0ccc0cc0c0cc00000cc00cc00ccc0cc000c000000ccc0c0c0ccc00c000c000c00c0c0c0c0000000000000000000000000000000000000000000000000
|
|
cc0c0cc00c00cc000cc00c00c0c0c00000c0c0000c000000c000c0c000c00c000c000c00c0c0c0c0000000000000000000000000000000000000000000000000
|
|
0ccccc0000000ccccc000000c0c0ccc0cc00ccc00c000000c000cc00cc00ccc00c00ccc0cc00c0c0000000000000000000000000000000000000000000000000
|
|
|