wait this version of zot actually looks good

performance impact is probably not acceptable though

collisiontest.p8

@@ -0,0 +1,172 @@
+pico-8 cartridge // http://www.pico-8.com
+version 42
+__lua__
+bx0=0
+by0=0
+bx1=127
+by1=127
+lx0=0
+ly0=0
+lx1=127
+ly1=127
+
+-->8
+
+function collides()
+	local tmin,tmax=0,1
+	
+	local ldx,ldy=lx1-lx0,ly1-ly0
+	
+	
+	-- x
+	if ldx==0 then
+		if (lx0<bx0 or lx0>bx1) return
+	else
+ 	local tx0=(bx0-lx0)/ldx
+ 	local tx1=(bx1-lx0)/ldx
+ 	if (tx0 > tx1) tx0,tx1=tx1,tx0
+ 	if (tmin < tx0) tmin=tx0
+ 	if (tmax > tx1) tmax=tx1
+ end
+ 
+	if ldy==0 then
+		if (ly0<by0 or ly0>by1) return
+	else
+ 	local ty0=(by0-ly0)/ldy
+ 	local ty1=(by1-ly0)/ldy
+ 	if (ty0 > ty1) ty0,ty1=ty1,ty0
+ 	if (tmin < ty0) tmin=ty0
+ 	if (tmax > ty1) tmax=ty1
+ end 
+ 
+ if (tmax < tmin) return
+ return tmin,tmax
+end
+
+
+-->8
+function _init()
+	poke(0x5f2d,1) -- enable mouse
+end
+
+function _bounce_screen(x)
+ return _bounce(x*128,128)
+end
+function _bounce(x,mx)
+	x=x%(mx * 2)
+	if (x>=mx)return mx-(x-mx)
+	return x
+end
+
+function _to_halfopen(x0,x1)
+ -- turn two numbers into a
+ -- half-open integer range
+ x0=flr(x0)
+ x1=flr(x1)
+ local lo=min(x0,x1)
+ local hi=max(x0,x1)
+ if (hi==lo) return lo,hi
+ return lo,hi-1
+end
+
+function _update60()
+ local t=time()/16
+ 
+	local bx0_=_bounce_screen(t*1)
+	local by0_=_bounce_screen(t*2)
+	local bx1_=_bounce_screen(t*3)
+	local by1_=_bounce_screen(t*4)
+	
+	bx0,bx1=_to_halfopen(bx0_,bx1_)
+	by0,by1=_to_halfopen(by0_,by1_)
+	
+	update_line()
+	
+	--[[
+ local lx0_=_bounce_screen(t*1.5)
+ local ly0_=_bounce_screen(t*2.5)
+ local lx1_=_bounce_screen(t*3.5)
+ local ly1_=_bounce_screen(t*4.5)
+	
+	lx0,lx1=lx0_,lx1_
+	ly0,ly1=ly0_,ly1_
+	]]--
+end
+
+was_down=false
+last_mx,last_my=nil,nil
+
+function update_line()
+ local mx,my=stat(32),stat(33)
+ local is_down=stat(34)!=0
+
+ if is_down then
+  if was_down then
+   lx1,ly1=mx,my
+  else
+  	lx0,ly0=mx,my
+  end
+ end
+ was_down=is_down
+ last_mx,last_my=mx,my
+end
+-->8
+function _draw()
+ cls(0)
+	rect(bx0,by0,bx1,by1,6)
+	zot(lx1,ly1,0,lx1-lx0,ly1-ly0,10,9,8)
+	--line(lx0,ly0,lx1,ly1,2)
+	local cmin, cmax = collides()
+	if cmin then
+	 local dx,dy=lx1-lx0,ly1-ly0
+	 line(lx0 + dx*cmin,
+	      ly0 + dy*cmin,
+	      lx0 + dx*cmax,
+	      ly0 + dy*cmax,
+	      11)
+	 pset(lx0 + dx*cmin,
+	      ly0 + dy*cmin,
+	      12)
+	end
+	
+	pset(last_mx,last_my,7)
+end
+-->8
+function zot_one(x, y, r, ir, dx, dy, hot, warm)
+ local x0, y0 = x-dx, y-dy
+ local rx,ry,irx,iry=r*sgn(dx),r*sgn(dy),ir*sgn(dx),ir*sgn(dy)
+ if warm then
+  line(x0+irx,y0-ry,x+rx,y-iry,warm)
+  line(x0-rx,y0+iry,x-irx,y+ry,warm)
+  --line(x0-rx,y0-ry,x+rx,y+ry,warm)
+ end
+ line(x0,y0,x+rx,y-iry,hot)
+ line(x0,y0,x-irx,y+ry,hot)
+ --line(x0,y0,x+rx,y+ry,hot)
+end
+
+function zot(x,y,r,dx,dy,hot,warm,cold)
+ local x0,y0,sdx,sdy=x-dx,y-dy,sgn(dx),sgn(dy)
+ local rx,ry=r*sdx,r*sdy
+ if cold then
+  rectfill(x0-rx,y0-ry,x0+rx,y0+ry,cold)
+  local sdxh,sdyh=sdx/2,sdy/2
+  line(x0-rx-sdxh,y0+ry+sdyh,x-rx,y+ry,cold)
+  line(x0+rx+sdxh,y0-ry-sdyh,x+rx,y-ry,cold)
+ end
+ for i=-r,r do
+  line(x0+i*sdx,y0-ry,x+rx,y-i*sdy,warm)
+  line(x0-rx,y0+i*sdy,x-i*sdx,y+ry,warm)
+ end
+ for i=-r,r do
+  line(x0,y0,x+rx,y-i*sdy,hot)
+  line(x0,y0,x-i*sdx,y+ry,hot)
+ end
+end
+__gfx__
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00700700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00077000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00077000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+00700700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000