// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Height-derived gallery color ramp
// Not compiled or tested in-world
// Setup: Name up to 32 children height_ramp. Face0 only. Set MIN_Z and MAX_Z in root-local meters.
// Stop / restore: Owner-touch applies/restores.
// Notes: Use a spare modifiable build. Snapshot state is held only in script memory; restore before reset/removal. Do not relink during a preview. Height is clamped to the authored range. This is a tint composition, not a scientific temperature measurement.
// License: see LICENSE in this distribution.
// Original Incoprea. MIT. Not compiled or tested in-world.
float MIN_Z=0.0;
float MAX_Z=2.0;
list links;
list saved;
integer preview;
integer valid=TRUE;
default
{
    touch_start(integer n)
    {
        if(llDetectedKey(0)!=llGetOwner()||llGetLinkNumber()>1||!valid||MAX_Z<=MIN_Z)return;
        integer i;
        if(preview)
        {
            for(i=0;i<llGetListLength(links);++i)llSetLinkPrimitiveParamsFast(llList2Integer(links,i),[PRIM_COLOR,0]+llList2List(saved,i*2,i*2+1));
            preview=FALSE;
            return;
        }
        links=[];
        saved=[];
        for(i=2;i<=llGetObjectPrimCount(llGetKey())&&llGetListLength(links)<32;++i)if(llGetLinkName(i)=="height_ramp")
        {
            links+=[i];
            list color=llGetLinkPrimitiveParams(i,[PRIM_COLOR,0]);
            saved+=color;
            vector p=llList2Vector(llGetLinkPrimitiveParams(i,[PRIM_POS_LOCAL]),0);
            float t=(p.z-MIN_Z)/(MAX_Z-MIN_Z);
            if(t<0.0)t=0.0;
            if(t>1.0)t=1.0;
            vector a=<0.1,0.3,0.8>;
            vector b=<1.0,0.7,0.1>;
            llSetLinkPrimitiveParamsFast(i,[PRIM_COLOR,0,a+(b-a)*t,llList2Float(color,1)]);
        }
        preview=TRUE;
    }
    changed(integer change)
    {
        if(change&CHANGED_LINK)valid=FALSE;
    }
}