// vr-MIP-test.diderot
//
// test version of maximum intensity projection in Diderot
//

string dataFile = "../data/zimg11.nrrd";
int dataSize = 11;
int imgSize = 200;
vec3 orig = [0.0, 0.0, 4.0];
vec3 cVec = [0.0, 1.0, 0.0];
vec3 rVec = [1.0, 0.0, 0.0];
image(3)[] img = load (dataFile);
//field#2(3)[] F = img ⊛ bspln3;
field#0(3)[] F = img ⊛ tent;

strand RayCast (int row, int col)
{
    real rr = real(dataSize)*(real(row)+0.5)/real(imgSize) - 0.5;
    real cc = real(dataSize)*(real(col)+0.5)/real(imgSize) - 0.5;
    vec3 pos = orig + rr*rVec + cc*cVec;
    output real maxval = -∞; 

    update
    {
        if (inside (pos,F)) {
          maxval = F@pos;
	}
        if (1 > 0)
          stabilize;
    }

    /* render: output maxval */
}

initially [ RayCast(r, c) | r in 0..(imgSize-1), c in 0..(imgSize-1) ];

// HEY output should be a single blob in the center of the image;
// an image of the bspln3 kernel