// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Replace only matching face tints
// Not compiled or tested in-world
// Setup: Put inside one test prim with at most32 faces. Set SOURCE_TINT, TARGET_TINT and TOLERANCE; owner-touch toggles preview.
// Stop / restore: Owner-touch again to restore before removing, resetting, relinking or transferring. Snapshots are memory-only; deletion/reset does not undo changes. Keep an untouched backup.
// Notes: Uses Euclidean RGB distance, not perceptual color distance. Does not change textures or PBR material factors.
// License: see LICENSE in this distribution.
// Original Incoprea. MIT. Test on a spare copy first.
vector SOURCE_TINT=<1.0,1.0,1.0>;
vector TARGET_TINT=<0.2,0.7,0.5>;
float TOLERANCE=0.05;
list saved;
integer active;
default
{
    touch_start(integer n)
    {
        if(llDetectedKey(0)!=llGetOwner())return;
        integer i;
        if(active)
        {
            for(i=0;i<llGetListLength(saved);i+=3)llSetLinkPrimitiveParamsFast(LINK_THIS,[PRIM_COLOR,llList2Integer(saved,i),llList2Vector(saved,i+1),llList2Float(saved,i+2)]);
            saved=[];
            active=FALSE;
            return;
        }
        integer faces=llGetNumberOfSides();
        if(faces>32||TOLERANCE<0.0||TOLERANCE>0.5)return;
        for(i=0;i<faces;++i)
        {
            list data=llGetLinkPrimitiveParams(LINK_THIS,[PRIM_COLOR,i]);
            vector tint=llList2Vector(data,0);
            float alpha=llList2Float(data,1);
            if(llVecDist(tint,SOURCE_TINT)<=TOLERANCE)
            {
                saved += [i,tint,alpha];
                llSetLinkPrimitiveParamsFast(LINK_THIS,[PRIM_COLOR,i,TARGET_TINT,alpha]);
            }
        }
        active=TRUE;
        llOwnerSay("Changed faces="+(string)(llGetListLength(saved)/3));
    }
    changed(integer flags)
    {
        if(flags&CHANGED_OWNER)llResetScript();
    }
}