pyrex/chameleonic
1
1
Fork 1
Code Issues Pull Requests 2 Packages Projects Releases Wiki Activity

Golf linefill slightly more

Browse Source
This commit is contained in:
Pyrex 2022-12-22 18:32:14 -08:00
parent f3a0b04cc4
commit 2d565873b3
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
chameleonic.p8
View File

@ -60,12 +60,11 @@ function linefill(ax,ay,bx,by,r,c)
local ca,sa=dx/d,-dy/d local ca,sa=dx/d,-dy/d
-- polygon points -- polygon points
local s={{0,-r},{d,-r},{d,r},{0,r}}
local spans={} local spans={}
local function calcxy(u,v) return ax+u*ca+v*sa,ay-u*sa+v*ca end local function calcxy(u,v) return ax+u*ca+v*sa,ay-u*sa+v*ca end
local x0,y0=calcxy(0,r) local x0,y0=calcxy(0,r)
for i=1,4 do for s in all{{0,-r},{d,-r},{d,r},{0,r}} do
local x1,y1=calcxy(unpack(s[i])) local x1,y1=calcxy(unpack(s))
local _x1,_y1=x1,y1 local _x1,_y1=x1,y1
if(y0>y1) x0,y0,x1,y1=x1,y1,x0,y0 if(y0>y1) x0,y0,x1,y1=x1,y1,x0,y0
local dx=(x1-x0)/(y1-y0) local dx=(x1-x0)/(y1-y0)