// set camera, image, and rendering parameters
input vec3 camEye = [-194.602, -4.82922, 910.873];
input vec3 camAt = [-2.36389, 93.121, 661.166];
input vec3 camUp = [0.0745335, -0.946525, -0.313904];
input real camNearAtRel = -50;
input real camFarAtRel = 20;
input real camFOV = 15.5;
input int iresU = 410;
input int iresV = 450;
input real refStep = 1;
input real rayStep = 0.06;
input vec3 lightVsp = [-2, -3, -4];
input real phongKa = 0.3;
input real phongKd = 0.7;
input real thickness = 0.3;

field#4(3)[] V = bspln5 ⊛ image("moe-iso-b3i5-small.nrrd");
field#0(3)[3] g= ∇V;
field#0(3)[3,3] H =  ∇⊗∇V;
field#0(3)[3,3,3] T =  ∇⊗∇⊗∇V;
field#0(3)[] M = |g|;
field#0(3)[3] N = g/M;
field#0(3)[3] t0 = g•H+ H•g;
field#0(3)[3] t2 = (1/2)*t0/M;
field#0(3)[3,3] t3 = H•H+ g•T+ T•g+H•H;
input real smax = -10;

function real alpha(real v, real g) = clamp(0, 1, 1.3*(1 - |v|/(g*thickness)));

field#0(1)[3] cmap = tent ⊛ image("moe-isobow.nrrd");
function vec3 color(vec3 x) = cmap(clamp(-1200,3300,V(x)));
function real mask(vec3 x) = 1.0 if (N(x)•((1/2)*(t3(x)*M(x)-t0(x)⊗t2(x))/(M(x)*M(x)))•N(x) < smax) else 0.0; // NOTISO

// (boilerplate) computation of camera and light info
real camDist = |camAt - camEye|;
real camNear = camNearAtRel + camDist;
real camFar = camFarAtRel + camDist;
vec3 camN = normalize(camAt - camEye);  // away
vec3 camU = normalize(camN × camUp);    // right
vec3 camV = camU × camN;                // up
real camVmax = tan(camFOV*π/360)*camDist;
real camUmax = camVmax*iresU/iresV;
vec3 light = transpose([camU,camV,camN])•normalize(lightVsp);

strand raycast(int ui, int vi) {
  real rayU = lerp(-camUmax, camUmax, -0.5, ui, iresU-0.5);
  real rayV = lerp(camVmax, -camVmax, -0.5, vi, iresV-0.5);
  real rayN = camNear;
  vec3 rayVec = camN + (rayU*camU + rayV*camV)/camDist;
  real transp = 1;
  vec3 rgb = [0,0,0];
  output vec4 rgba = [0,0,0,0];

  update {
    vec3 x = camEye + rayN*rayVec;
    if (inside(x,V)) {
      real val =  -t2(x)•N(x);
      tensor[3,3] t4 = (H(x)*M(x)- g(x)⊗t2(x))/M(x)*M(x);   // ∇N
      vec3 grad = -(-1/2)*(((t0(x)/M(x))•t4)+N(x)•t3(x));
      real a = alpha(val, |grad|)*mask(x);
      if (a > 0) {  // we have some opacity
        a = 1 - pow(1-a, rayStep*|rayVec|/refStep);
        real depth = lerp(1.1, 0.7, camNear, rayN, camFar);
        real shade = max(0, normalize(grad)•light);
        rgb += transp*a*depth*(phongKa + phongKd*shade)*color(x);
        transp *= 1 - a;
      }
    }
    if (transp < 0.01) {  // early ray termination
      transp = 0;
      stabilize;
    }
    if (rayN > camFar) {
      stabilize;
    }
    rayN = rayN + rayStep;
  }
  stabilize {
    real a = 1-transp;
    if (a > 0) rgba = [rgb[0]/a, rgb[1]/a, rgb[2]/a, a];
  }
}
initially [ raycast(ui, vi) | vi in 0..iresV-1, ui in 0..iresU-1 ];

<script type="text/javascript">//<![CDATA[
		function toggle_ffErrors() {
			var errorsblock = document.getElementById("ffErrorsBlock");
			var errorsgroup = document.getElementById("ffErrors");
			if (errorsblock.style.display == "none") {
				errorsblock.style.display = "block";
				errorsgroup.style.right = "10px";
			} else {
				errorsblock.style.display = "none";
				errorsgroup.style.right = "300px";
			}
		}
//]]></script>
<div id="ffErrors">
<a href="javascript:toggle_ffErrors();">Click to toggle</a>
<div id="ffErrorsBlock">
	<div class="error">does not end with &lt;/html&gt; tag</div>
	<div class="error">does not end with &lt;/body&gt; tag</div>
	<div class="info">The output has ended thus: a, rgb[1]/a, rgb[2]/a, a];
  }
}
initially [ raycast(ui, vi) | vi in 0..iresV-1, ui in 0..iresU-1 ];</div>
</div></div>
</body></html>