Wrapping Lattices around Objects

        vector s = chv('scale');
float t = chf('thickness');

if(f@surface < 0.0){
    int pr;
    vector st;
    float dist = xyzdist(1, v@P, pr, st);
    
    vector uvw = set(dist, st[0], st[1]);
    float x, y, z;
    assign(x, y, z, uvw * s);
    
    float gyroid = sin(x) * cos(y) + sin(y) * cos(z) + sin(z) * cos(x);

    f@surface += (gyroid + t);
}