// zslice2 
//
// process output with:
// unu reshape -i zslice2.txt -s 200 200 | unu 2op exists - 0.1 | unu quantize -b 8 -o zslice2.png

int dataSize = 11;
int imgSize = 200;
vec3 orig = [0.0, 0.0, 5.0];
vec3 cVec = [0.0, 1.0, 0.0];
vec3 rVec = [1.0, 0.0, 0.0];

image(3)[] img = load("../data/zimg112.nrrd");
// HEY (bug) bspln5 leads to problems:
//  uncaught exception Size [size]
//    raised at c-target/c-target.sml:47.15-47.19
//field#4(3)[] F = img ⊛ bspln5;
field#2(3)[] F = img ⊛ bspln3;
//field#2(3)[] F = img ⊛ ctmr;
//field#0(3)[] F = img ⊛ tent;
//field#1(3)[] F = img ⊛ c1tent;

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

    update
    {
        if (inside (pos,F)) {
          val = F(pos);
	}
        stabilize;
    }
}

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