// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Touch to inspect a bounded fractal plane
// Not compiled or tested in-world
// Setup: Put in a spare ordinary cube you own. Touch different places on one face to sample the procedural pattern at live surface coordinates. Edit the constants to design a pattern.
// Stop / restore: Disable/remove. Only private owner messages are produced; no texture or tint is applied.
// Notes: Coordinates map to real[-2.2,0.8],imaginary[-1.5,1.5]. The forty-iteration cap is a preview; nonescape is not proof of membership. Surface coordinates depend on the viewer and mesh; ordinary prim faces are the clearest test surface.
// License: see LICENSE in this distribution.
// Original Incoprea. MIT. Live surface-coordinate sampler.
default
{
    touch_start(integer detectedCount)
    {
        if(llDetectedKey(0)!=llGetOwner())return;
        vector uv=llDetectedTouchST(0);
        if(llDetectedTouchFace(0)<0||uv==TOUCH_INVALID_TEXCOORD)
        {
            llOwnerSay("Surface coordinates unavailable.");
            return;
        }
        vector p=2.0*uv-<1.0,1.0,0.0>;
        float cr=-2.2+3.0*uv.x;
        float ci=-1.5+3.0*uv.y;
        float x;
        float y;
        integer i;
        while(i<40&&x*x+y*y<=4.0)
        {
            float next=x*x-y*y+cr;
            y=2.0*x*y+ci;
            x=next;
            ++i;
        }
        llOwnerSay("Complex point="+(string)<cr,ci,0.0>+" iterations="+(string)i+" escaped="+(string)(x*x+y*y>4.0));
    }
}