--bezier curve time
function clone(t)--clone a table
	return{unpack(t)}
end

function lerp(s,e,m)
	return s*(1-m)+e*m
end

function lerp2d(p1,p2,t)--lerp
	lx=lerp(p1[1],p2[1],t)--two 2d
	ly=lerp(p1[2],p2[2],t)--points
	return lx,ly
end

poke(0x5f2d,1) --devkit mouse
p1={64,64} --first point
ptt={ p1} --point table
pts=0 --number of desired points
ind=1 --index used for selected point
t=.5 --time value used across lerps

function lerpcheck()--lerp the points
	po1=lerp2d(ptt[1],ptt[2],t)
	l=#ptt-2
	for i=0,#ptt-1,1 do
		if(ptt[i+2]~=nil)lx,ly=lerp2d(ptt[i+1],ptt[i+2],t) --lx stands for lerped x
		circ(lx,ly,2,11)
		if(llx and lx~=po1)line(llx,lly,lx,ly,11)
		llx=lx --last lerped x
		lly=ly
		l-=1
	end
	if l>0 then
		lx2,ly2=lerp2d({lx,ly},{llx,lly},t)
		circ(lx2,ly2,2,12)
		line(lx,ly,lx2,ly2,12)
		l-=1
	end
end

function drawp(p)--visualize points
	circ(p[1],p[2],3,7)
	if lp==nil then --last point
	elseif p~=p1 then
		line(lp[1],lp[2],p[1],p[2],7)
		lerpcheck(lp,p,t)
	end
	lp=p --update most recent point
end

function respts()--called when
	for i=1,pts,1do--points get added
		pt=clone(p1)--or removed
		add(ptt,pt)
	end
end

function _update60()
	mx=stat(32)my=stat(33)
	if(btnp(🅾️)and ind>1)ind-=1--change selected
	if(btnp(❎)and ind<#ptt)ind+=1--point
	if(btnp(⬆️))pts+=1ptt={ p1}respts()--add/remove
	if(btnp(⬇️))pts-=1ptt={ p1}respts()--points
	if(btnp(⬅️)and t>.05)t-=.05
	if(btnp(➡️)and t<.95)t+=.05
end

function _draw()
	cls()
	spr(0,mx,my)
	sp=ptt[ind] --selected point
	if(sp)?"\^i#"..ind.." selected",sp[1]+5,sp[2]+5,7
	foreach(ptt,drawp)
	if(stat(34)~=0 and ptt[ind])then
		sp[1]=mx --move point
		sp[2]=my
	end
end