//#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,-75>
  look_at<0,0,0>
    right <image_width/image_height,0,0>
    up y
}

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

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

#declare WhiteMetal = texture {
    pigment {
        rgb <.9,.9,.9>
    }
    finish {
        metallic
        ambient 0.1
        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 = 75;

#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 sHere   = <.4,0,0>;
            //#declare sAmount = <0,rand(R1)*360,0>;
            //#declare sPoint  = vrotate(sHere,sAmount);
            ////#declare sPoint=<sPoint.x-3,sPoint.y,sPoint.z>
    
    /*
    //union {
    //  sphere { sPoint,.08 translate NewPoint }
    //  cylinder { sPoint+NewPoint,NewPoint,.02 }
    //  texture { Polished_Brass }
    //}
    */
    
            #if (Count >= MaxCount-CountStep)
                //cylinder { NextPoint,<NextPoint.x-1,NextPoint.y,NextPoint.z>,.1 }
                cone { NewPoint,.2,NextPoint,.4 }
            #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 Count = 0;

#while (Count < 10) 
    light_source {
	    <0,0,0> color Blue
	    //glow {
	    //    size 1 
	    //    type 0
	    //}
	    fade_distance .5
	    fade_power 200
	}
	#declare Count = Count + 1;
	//translate <6,0,0>
	//rotate <rand(R1)*360,rand(R1)*360,rand(R1)*360>
#end
    
object { crazy }