// zslice1.diderot

string dataFile = "../data/zimg.nrrd";
int dataSize = 9;
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;

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
    {
       // HEY region for this should be exactly centered in the image
        if (inside (pos,F)) {
          maxval = 1.0;
	}
        if (1 > 0)
          stabilize;
    }

    /* render: output maxval */
}

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