#version unofficial MegaPov 0.7;

#include "colors.inc"	// Standard Color definitions
#include "textures.inc"	// Standard Texture definitions

/*
global_settings {

    radiosity {
        brightness 3.3
        count 400
        distance_maximum 0 
        error_bound 0.2
        gray_threshold 0.5
        low_error_factor 0.8 
        minimum_reuse 0.015
        nearest_count 6
    }
}
*/


camera {
  location<0,0,-25>
  look_at<0,0,0>
}

light_source { <2000,2000,-2000> color White }
light_source { <-2000,2000,-2000> color White }

//background { color SkyBlue }
background { color White }
//background { color Black }

#declare WhiteMetal = texture {
    pigment {
        //rgb <.9,.9,.9>
        color White
    }
    finish {
        metallic
        ambient 0.2
        diffuse 0.65
        specular 0.85
        roughness 0.01
        //reflection 0.45
        reflection 0.25
        brilliance 1.5
    }
}

#declare R1           = seed(360);
#declare HeightStep   = .15;
#declare CountStep    = 2;
#declare MaxCount     = 720;
#declare MaxTenticles = 100;

#declare crazy = union {
    #declare Count2 = 0;
    #while (Count2 < MaxTenticles)
    union {
        
        #declare Height=0;
        #declare Count = 0;
        #while (Count < MaxCount)

            #declare Here     = <3,Height,0>;
            #declare cPoint   = <0,0,0>;
            #declare Amount   = <0,Count,0>;
            #declare NewPoint = vrotate(Here,Amount);
            #declare NewPoint = <NewPoint.x-3,NewPoint.y,NewPoint.z>;

            #declare There       = <3,Height+HeightStep,0>;
            #declare ThereAmount = <0,Count+CountStep,0>;
            #declare NextPoint   = vrotate(There,ThereAmount);
            #declare NextPoint   = <NextPoint.x-3,NextPoint.y,NextPoint.z>;
    
            #if (Count < MaxCount-CountStep)
                cylinder { NewPoint,NextPoint,.2 }
                sphere { NextPoint,.2 }
            #end

            #declare Height = Height + HeightStep;
            #declare Count = Count + CountStep;
        #end
        rotate <rand(R1)*360,rand(R1)*360,rand(R1)*360>
    }
    #declare Count2 = Count2 + 1;
    #end
   
    #declare Count3 = 0;
    
    #while (Count3 < 300)
        cone { <0,4,0>,.5,<0,4+(rand(R1)*4),0>,.001
        rotate<rand(R1)*360,rand(R1)*360,rand(R1)*360> }
        #declare Count3 = Count3 + 1;
    #end

    sphere { <0,0,0>,5 }
    texture { WhiteMetal }
    pigment { color rgb <.9,.9,.9> }
}

#declare GlowType     = 1;
#declare GlowSize     = .5;
#declare GlowDistance = 5.5;
#declare FadeDistance = .25;
#declare FadePower    = .75;

light_source {
	    <0,0,0> rgb <1,.733,.015>
	    glow {
	        size GlowSize 
	        type GlowType
	    }
	    fade_distance FadeDistance
	    fade_power FadePower
	    
    	translate <0,GlowDistance,0>
}
light_source {
	    <0,0,0> color Red
	    glow {
	        size GlowSize 
	        type GlowType
	    }
	    fade_distance FadeDistance
	    fade_power FadePower
	    
    	translate <GlowDistance,0,0>
	    rotate <0,45,0>
	    rotate <20,0,0>
}

    light_source {
	    <0,0,0> color Green
	    glow {
	        size GlowSize 
	        type GlowType
	    }
	    fade_distance FadeDistance
	    fade_power FadePower
	    
    	translate <GlowDistance,0,0>
	    rotate <0,-200,0>
	}

    light_source {
	    <0,0,0> color Blue
	    glow {
	        size GlowSize 
	        type GlowType
	    }
	    fade_distance FadeDistance
	    fade_power FadePower
	    
    	translate <0,-GlowDistance,0>

	}

/*	
light_source {
    <0,0,0> color White
	glow {
	    size 1
	    type GlowType
	}
	fade_distance FadeDistance
    fade_power .25
}
*/
    
object { crazy }