How do you procedurally transform sphere into half sphere shape but with smooth bevel

[kfu]

Here is the images of what I mean. Transform a sphere to this shape, modified it without point count or point number changes  Ignore the center core.  I'm having a hard time getting that nice round bevel around middle section

[konstantin magnus]

Hi kfu,

perhaps you could flatten one half and smooth the surface a bit.

cells.hip

[animatrix]

vector C = getbbox_center(0);
float R = getbbox_size(0).x * 0.5;
float x = @P.x - C.x;

if (x > 0.0)
{
    float u = clamp(x / R, 0.0, 1.0);

    float w = chramp("profile", u);
    float squeeze = max(ch("squeeze"), 0.0);
    float scale = 1.0 / (1.0 + squeeze * w);

    @P.x = C.x + x * scale;
}