// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Tint channel isolation menu
// Not compiled or tested in-world
// Setup: Owner-touch opens R, G, B and Restore. Affects tint components, not image pixel channels.
// Stop / restore: Choose Restore before removal. Menu timeout leaves the selected preview visible.
// Notes: Use a spare modifiable build. Snapshot state is held only in script memory; restore before reset/removal. Do not relink during a preview. This cannot extract RGB channels from a texture image; it operates only on scripted face tint values.
// License: see LICENSE in this distribution.
// Original Incoprea. MIT. Not compiled or tested in-world.
list saved;
integer channel;
integer handle;
close()
{
    if(handle)llListenRemove(handle);
    handle=0;
    llSetTimerEvent(0.0);
}
default
{
    state_entry()
    {
        integer f;
        for(f=0;f<llGetNumberOfSides();++f)saved+=llGetLinkPrimitiveParams(LINK_THIS,[PRIM_COLOR,f]);
    }
    touch_start(integer n)
    {
        if(llDetectedKey(0)!=llGetOwner())return;
        close();
        channel=-1000-(integer)llFrand(1000000.0);
        handle=llListen(channel,"",llGetOwner(),"");
        llDialog(llGetOwner(),"Saved tint component preview",["R","G","B","Restore"],channel);
        llSetTimerEvent(30.0);
    }
    listen(integer ch,string name,key id,string s)
    {
        if(!handle||ch!=channel||id!=llGetOwner()||llListFindList(["R","G","B","Restore"],[s])<0)return;
        integer f;
        for(f=0;f*2+1<llGetListLength(saved)&&f<llGetNumberOfSides();++f)
        {
            vector color=llList2Vector(saved,f*2);
            if(s=="R")
            {
                color.y=0.0;
                color.z=0.0;
            }
            else if(s=="G")
            {
                color.x=0.0;
                color.z=0.0;
            }
            else if(s=="B")
            {
                color.x=0.0;
                color.y=0.0;
            }
            llSetLinkPrimitiveParamsFast(LINK_THIS,[PRIM_COLOR,f,color,llList2Float(saved,f*2+1)]);
        }
        close();
    }
    timer()
    {
        close();
    }
}