// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Label actual dial component bearings
// Not compiled or tested in-world
// Setup: Name up to16 children dial_tick, with centers offset from root. Root owner-touch labels/restores.
// Stop / restore: Touch again to restore labels before removal.
// Notes: Use a spare modifiable build. Snapshot state is held only in script memory; restore before reset/removal. Do not relink during a preview. Uses position bearing, not the child rotation. Text is public and can be occluded by the model.
// License: see LICENSE in this distribution.
// Original Incoprea. MIT. Not compiled or tested in-world.
list links;
list saved;
integer preview;
integer valid=TRUE;
default
{
    touch_start(integer n)
    {
        if(llDetectedKey(0)!=llGetOwner()||llGetLinkNumber()>1||!valid)return;
        integer i;
        if(preview)
        {
            for(i=0;i<llGetListLength(links);++i)llSetLinkPrimitiveParamsFast(llList2Integer(links,i),[PRIM_TEXT]+llList2List(saved,i*3,i*3+2));
            preview=FALSE;
            return;
        }
        links=[];
        saved=[];
        for(i=2;i<=llGetObjectPrimCount(llGetKey())&&llGetListLength(links)<16;++i)if(llGetLinkName(i)=="dial_tick")
        {
            links+=[i];
            saved+=llGetLinkPrimitiveParams(i,[PRIM_TEXT]);
            vector p=llList2Vector(llGetLinkPrimitiveParams(i,[PRIM_POS_LOCAL]),0);
            string label="Center";
            if(p.x*p.x+p.y*p.y>0.0001)label=(string)llRound(llAtan2(p.y,p.x)*RAD_TO_DEG)+" degrees";
            llSetLinkPrimitiveParamsFast(i,[PRIM_TEXT,label,<1.0,1.0,1.0>,1.0]);
        }
        preview=TRUE;
    }
    changed(integer change)
    {
        if(change&CHANGED_LINK)valid=FALSE;
    }
}