七巧板：七块拼出一只雁

 fx-tangram

local Tangram = {}
local DEFS = {
    { pts = { { 0, 0 }, { 2, 0 }, { 1, 1 } }, color = "red" },
    { pts = { { 0, 0 }, { 2, 0 }, { 1, -1 } }, color = "green" },
    { pts = { { 0, 0 }, { 1, 0 }, { 1, 1 }, { 0, 1 } }, color = "blue" },
    { pts = { { 0, 0 }, { 1, 0 }, { 2, 1 }, { 1, 1 } }, color = "gold" },
    { pts = { { 0, 0 }, { 1, 0 }, { 0, 1 } }, color = "purple" },
    { pts = { { 0, 0 }, { 1, 0 }, { 0, 1 } }, color = "orange" },
    { pts = { { 0, 0 }, { 1, 0 }, { 2, 1 }, { 1, 1 } }, color = "sky" }
}
local TARGET = {
    { x = -1.4, y = -0.4, rot = 0 }, { x = 0.6, y = -0.4, rot = 3.1416 },
    { x = -0.5, y = 0.6, rot = 0 }, { x = 0.5, y = 0.6, rot = 0 },
    { x = -1.4, y = 0.6, rot = 1.5708 }, { x = -0.5, y = 1.6, rot = 0 },
    { x = 1.4, y = 0.2, rot = -1.2 }
}

local placed = 0

function TG.PlaceNext()
    if placed >= #DEFS then return end
    local idx = placed + 1
    local t = TARGET[idx]
    SL:PlayFlyFx("piece" .. idx, 330, 160,
                 330 + t.x * 42, 160 + t.y * 42, 1.2,
                 { rot = t.rot }, function()
        placed = placed + 1
        SL:PlaySfx("place", placed)
        SL:SetFxAlpha("piece" .. idx, 1)
        if placed >= #DEFS then
            SL:PlayFxAt("tangram_done", 330, 160)
            SL:ShowSystemTips("七块归位 — 大雁成形!")
        else
            SL:ShowSystemTips("已归位 " .. placed .. "/7")
        end
    end)
end

function TG.Render(dt)
    -- 剪影底图: 全部板件按目标位低透明预绘
    for i, t in ipairs(TARGET) do
        SL:DrawPoly("piece" .. i, 330 + t.x * 42, 160 + t.y * 42,
                    t.rot, 0.22)
    end
    -- 已归位的板全彩绘制
    for i = 1, placed do
        local t = TARGET[i]
        SL:DrawPoly("piece" .. i, 330 + t.x * 42, 160 + t.y * 42,
                    t.rot, 1)
    end
end

return TG