/*
 * radial_slope-demo.pov - Radial_slope demo code. 
 *                         Needs patched version of POVRay. 
 * 
 * Written 07/2004 by Wolfgang Wieser. 
 * 
 * This file is put under the public domain. 
 * 
 */

#include "functions.inc"

global_settings { assumed_gamma 2.1 }

plane { z,5 pigment { checker color rgb 0.6 color rgb 0.7 } }

light_source { -40*z+10*y-10*x color rgb <1,1,1> }

camera { location -3*z up y look_at <0,0,0> angle 60 }

isosurface {
	function { f_sphere(x,y,z,1.5)-f_noise3d(2*x,2*y,2*z)*0.7 }
	max_gradient 2.5
	contained_by { sphere { 0, 2.3 } }
	pigment {
		radial_slope
		color_map {
			[0.6 rgb <1,0,0>]
			[0.975 rgb <1,1,1>]
			[1 rgb <0,0,1>]
		}
	}
	scale 0.6
}