Another solution that seems to work: does the color interpolation afterwards:
$pat = noise(10*$u,10*$v);
$a = curve($pat, 0.0, 0.0, 4, 0.5, 1.0, 4);
$color1 * (1-$a) + [0.5,0,0]*$a
Another solution that seems to work: does the color interpolation afterwards:
$pat = noise(10*$u,10*$v);
$a = curve($pat, 0.0, 0.0, 4, 0.5, 1.0, 4);
$color1 * (1-$a) + [0.5,0,0]*$a