// Mega Persistence of Vision Ray Tracer 0.3 Scene Description File
#version 3.1;

global_settings { assumed_gamma 1.8 }

camera 
{  
	location <24, 19, -34>
	angle 20
	look_at <0, 0, 0>
}

light_source { <150, 400, -120> color red 1.0 green 1.0 blue 1.0 }
light_source { <350, 200, -120> color red 1.0 green 1.0 blue 1.0 }

background { color red 0.184314 green 0.309804 blue 0.309804 }

isosurface 
{
	function  {"Algbr_Cyl1", <0.3,15,1,0,0>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign 1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	scale 4
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}

/****************************************************************
isosurface 
{
	function  {"Algbr_Cyl2", <0.015,15,1,0.5,0.5>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,8.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Algbr_Cyl3", <0.015,15,1,0.5,0.5>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,8.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Algbr_Cyl4", <0.015,15,1,0.5,0.5>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,8.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Bicorn", <0.2,0.02>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Bifolia", <0.3,0.9>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,3.0}	}
	method 1
	max_gradient  5
	eval
	scale 8
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Boy_surface", <0.002,0.002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,8.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Crossed_Trough", <0.002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign 1
	bounded_by { sphere { <0.0, 0.0, 0.0>,2.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	rotate y*45
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Cubic_saddle", <0.0002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Cushion", <0.002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,8.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Devils_curve", <0.2>, library "i_algbr"}
	accuracy  0.00001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,1.0}	}
	method 1
	max_gradient  5
	eval
	rotate y*-45
	scale 4
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Devils_curve2D", <0.25,0.25,0.25,0.13,0.13>, library "i_algbr"}
	accuracy  0.00001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,1.0}	}
	method 1
	max_gradient  5
	eval
	scale 4
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Dupin_Cyclid", <0.022,0.022,0.022,0.022,0.022>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign 1
	bounded_by { sphere { <0.0, 0.0, 0.0>,2.0}	}
	method 1
	max_gradient  5
	eval
	scale 3
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Enneper", <0.00002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign 1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Folium_surface", <0.25,0.25,0.25>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign 1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Glob", <0.2>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	rotate y*-45
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Heart", <0.025>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,2.0}	}
	method 1
	max_gradient  5
	eval
	scale 4
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Hunt_surface", <0.002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign 1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Hyperbolic_torus", <0.025,0.025,0.025>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,2.0}	}
	method 1
	max_gradient  5
	eval
	scale 4
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Kampyle_of_Eudoxus", <0.025,0.025,0.025>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,2.0}	}
	method 1
	max_gradient  5
	eval
	scale 4
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Kampyle_of_Eudoxus2D", <0.3,0.3,0.3,0.3,0.3>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	//scale 4
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Klein_Bottle", <0.002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	rotate y*90
	material
	{
		texture 
		{ 
    		pigment { rgbf <1.0, 0.5, 0.0, 0.8> } 
			finish 
			{
				ambient 0.1
    			diffuse 0.1
    			reflection .25
    			specular 1
    			roughness 0.001 
    		}
    	}
    	interior{ ior 1.5}
	}	
	no_shadow
}
isosurface 
{
	function  {"Kummer_Surface_V1", <0.002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,8.0}	}
	method 1
	max_gradient  5
	eval
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Kummer_Surface_V2", <0.002,0.002,0.002,0.002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign 1
	bounded_by { sphere { <0.0, 0.0, 0.0>,2.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Lemniscate_of_Gerono", <0.002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,8.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Lemniscate_of_Gerono2D", <0.2,0.2,0.2,0.2,0.2,0.2>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	scale 4
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Mitre", <0.002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,8.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Nodal_cubic", <0.02>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	rotate y*45
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Odd", <0.002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,8.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Ovals_of_Cassini", <0.2,0.2,0.2,0.2>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	scale 8
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Parabolic_Torus", <0.3,0.3,0.3>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Paraboloid", <0.002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,2.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Pillow", <0.08>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign 1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Piriform2D", <0.4,0.4,0.4,0.2,0.2,0.2,0.2>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign 1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Quartic_Cylinder", <0.3,0.3,0.3>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	scale 4
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Quartic_paraboloid", <0.002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,8.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Quartic_saddle", <0.002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign 1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Steiners_Roman", <0.002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,8.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Strophoid", <0.3,0.3,0.3,0.3>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Strophoid2D", <0.2,0.2,0.2,0.2,0.2,0.2,0.2>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign 1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	//scale 4
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Torus", <0.2,0.2,0.1>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign 1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	scale 8
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Torus_gumdrop", <0.002>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,8.0}	}
	method 1
	max_gradient  5
	eval
	scale 2
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Umbrella", <0.02>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	rotate y*-90
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Witch_of_Agnesi", <0.02,0.02,0.02,0.2,0.2,0.2>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
isosurface 
{
	function  {"Witch_of_Agnesi2D", <0.2,0.2,0.2,0.2,0.2,0.2>, library "i_algbr"}
	accuracy  0.001
	threshold  0.0
	max_trace 5
	sign -1
	bounded_by { sphere { <0.0, 0.0, 0.0>,4.0}	}
	method 1
	max_gradient  5
	eval
	texture 
	{
		pigment { color red 1.0 green 0.8 blue 0.5 }
		finish { phong 0.6}
	}
	no_shadow
}
****************************************************************/