more experiments with drawing these collision boxes. still sucks

collisiontest.p8

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