/*Solid texture with purturbed shapes*/
/*Hae-jeon Lee*/
#include "rmannotes.sl"

surface hjsolid( float Ka =1, Kd = 1)
{ 
  point PP;
  color ink, paper;
  float ink_opac;
  point NF;
  float fuzz = 0.05;
  float x;
  float turb;

  color coral = color(1, .417, .417);
  color violat = color(.693, 0, .8);
  color cobaltg = color(0, 1, .633);
  color cyan = color(0, .366, 1);

  NF = faceforward(normalize (N), I);
 
  paper = Cs;

  PP = transform ("shader", P)* 2;
  PP = P * 4;
  PP = PP + (noise(PP) * 2 -1) * 4;

  x = repeat(xcomp(PP), 2); 
   
  
  ink_opac = pulse (0.2, 0.5, fuzz,x);
  ink = spline (t, violat, violat, coral,coral, cobaltg, cyan, cyan);
  paper = mix(paper, ink, ink_opac);

  paper = paper * (Ka * ambient() + Kd * diffuse(NF));


  Ci = paper * ink_opac;
  Oi = ink_opac;
}