// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Radial assembly expansion
// Not compiled or tested in-world
// Setup: Put in root; name up to 16 children expand_part. Owner-touch expands their center offsets by 25 percent, then restores.
// Stop / restore: Owner-touch to stop and restore the captured starting pose before removing, resetting, or relinking.
// Notes: Use a small nonphysical rezzed build with clear space. Actual prim transforms change. Original poses live only in script memory. Do not change physical status or link topology during use. Useful for an exploded assembly view. It scales offsets including height, not the children themselves; keep the root near the assembly center.
// License: see LICENSE in this distribution.
// Original Incoprea. MIT. Not compiled or tested in-world.
list links;
list home;
integer expanded;
default
{
    state_entry()
    {
        integer i;
        for(i=2;i<=llGetObjectPrimCount(llGetKey())&&llGetListLength(links)<16;++i)if(llGetLinkName(i)=="expand_part")
        {
            links+=[i];
            home+=llGetLinkPrimitiveParams(i,[PRIM_POS_LOCAL]);
        }
    }
    touch_start(integer n)
    {
        if(llDetectedKey(0)!=llGetOwner()||llGetLinkNumber()>1||llGetStatus(STATUS_PHYSICS))return;
        expanded=!expanded;
        integer i;
        for(i=0;i<llGetListLength(links);++i)
        {
            vector p=llList2Vector(home,i);
            if(expanded)p*=1.25;
            llSetLinkPrimitiveParamsFast(llList2Integer(links,i),[PRIM_POS_LOCAL,p]);
        }
    }
}