# Polygon splitting (日本語)

このスクリプトは**抗状**の多角形を分割するために使用されます。

```-- 使用方法:
--[[
table_of_polygons = polygoncut(cut_vertices,polygon_vertices)

polygons = polygoncut({x1,y1,x2,y2},{px,py,px1,py1,px2,py2,...})

for i,polygon in ipairs(polygons) do
love.graphics.polygon('fill',unpack(polygon))
end
--]]
```
```local insert= table.insert

local function cross(dx,dy,dx2,dy2)
return dx*dy2-dy*dx2
end

local polygonCut = function(cvertices,pvertices)
local plen     = #pvertices
local x,y,x2,y2= unpack(cvertices)
local dx,dy    = x2-x,y2-y
local polygons = {{},{}}
local set      = polygons[1]
local intersections = 0
for i = 1,plen,2 do
local x3,y3,x4,y4= pvertices[i],pvertices[i+1],pvertices[i+2] or pvertices[1],pvertices[i+3] or pvertices[2]
insert(set,x3) insert(set,y3)
local dx2,dy2    = x4-x3,y4-y3
local denom      = cross(dx,dy,dx2,dy2)
if denom ~= 0 then
local tnum = cross((x3-x),(y3-y),dx2,dy2)
local unum = cross((x3-x),(y3-y),dx,dy)
local ct,pt= tnum/denom,unum/denom
if ct >= 0 and ct <= 1 and pt >= 0 and pt <= 1 then
local ix,iy = x+ct*dx,y+ct*dy
if pt ~= 1 then
if pt ~= 0 then
insert(set,ix) insert(set,iy)
end
set = set == polygons[1] and polygons[2] or polygons[1]
insert(set,ix) insert(set,iy)
intersections = intersections+1

end
end
end
end
if intersections == 2 then return polygons end
end

return polygonCut
```