// Bernard Hatt 26/11/06
// Another 'cubic space' style image.

// It would be nice if this could be set higher ...
global_settings{max_trace_level 256}

// a (rounded) box scaled by vector V
#macro B(V)
superellipsoid
{
        <0.1, 0.1>
        scale 0.5
        pigment
        {
                function{(pow(x,8)+pow(y,8)+pow(z,8))*89}
        }
        scale 1+V*32
}
#end
union
{
        light_source{7 3}
                // perfectly reflective box for that infinity impression ...
        box
        {
                0,8
                finish{reflection 1}
        }

                // cube at center of intersections
        B(1/12)
                // the connections between centers in each dimension
        B(x)
        B(y)
        B(z)
        pigment{rgb 1}

        // rotate and translate to make view from (default) camera more interesting
        rotate 19
        translate -4
}