// PoVRay 3.7 Scene File "clouds.pov"
// author:  dookie x
// date: 12:46 am 44h
//       woohoo ShittiestCloud object just built, boy that's pretty shitty!
//       gettin' toward time to fly a camera into that, huh?
//       here comes some freakin' clouds...  sky_sphere's still ther, nut gotta darken it...

#include "camera.pov"
#include "prmntxtr.pov"
#include "prmntobj.pov" 
#include "lightpls.pov" 

#declare ShittiestCloud=sphere { <0,0,0>, 0.5 
         //texture { ShittiestCloudTex } // end of texture
         scale<3,1,1>  rotate<0,0,0>  translate<0,0,0>  }     



         
             
#declare SCInnards= sphere { <0,0,0>, 0.5 
         //texture { ShittiestCloudTex } // end of texture
         scale<2.9,.9,.9>  rotate<0,0,0>  translate<0,0,0>  }
                 
#declare SixTenthsSC=difference{object{ShittiestCloud}
                                box { <-3.1, -.1, -3.1>,< 3.1, -1, 3.1>  }
                                        //texture { ShittiestCloudTex }   
                                     }//end diff..   
                                     
#declare VetteBumper=difference{object{ShittiestCloud scale<.5,1,.5>}  
                                object{ShittiestCloud scale<.45,.9,.45>}
                                  } //end diff    
                                  
#declare VetteBumper2=difference{object{ShittiestCloud scale<.69,1,.69>}  
                                object{ShittiestCloud scale<.63,.9,.63>}
                                  } //end diff  
                                  
#declare POSphere=sphere { <0,0,0>, 0.5 
          scale .8  rotate<0,0,0>  translate<0,0.0,0>  
          }  // end of sphere -----------------------------------                                                                   

#declare LumpyCloud=difference{union{object{ShittiestCloud}
                                     object{VetteBumper translate <-.33,.19,.103>}
                                     object{VetteBumper translate < .36,.17,-.125>}   
                                     object{VetteBumper2 translate <-.37,.19,-.103>}
                                     object{VetteBumper2 translate < .369,.2,.125>} 
                                     object{VetteBumper translate <-.37,-.169,.103>}
                                     object{VetteBumper translate < .34,-.22,-.115>}    
                                     object{VetteBumper2 translate <-.4,-.169,-.103>}
                                     object{VetteBumper2 translate < .34,-.22,.115>}   
                                     object{POSphere scale <1.4,1.1,1.1> translate <-.86,0,-.33>}       
                                     object{POSphere scale <1.5,1.2,1> translate <-.33,0,-.43>}     
                                     object{POSphere scale <1.3,1.1,1.03> translate < .43,0.2,-.43>} 
                                     object{POSphere scale <1.3,1.1,1.03> translate < .83,-0.2,-.43>}                                                               
                                     } 
                               object{SCInnards}      
                                }  //emd diff       
               
#declare Strength = 1.0; //(+ or -) strength of component's radiating density
#declare Radius1  = 1.0; //(0 < Radius) outer sphere of influence on other components
               
#declare BlobCloud=blob{
  threshold 0.6 // threshold (0.0 < threshold <= Strength) surface falloff threshold #
  sphere{< 0.75,  0,   0>, Radius1, Strength scale <1,1,0.5>}
  sphere{<-0.375, 0.65,0>, Radius1, Strength}
  sphere{<-0.375,-0.65,0>, Radius1, Strength}
  //cylinder{<-1.50,0,0>,< -0.25,1.50,0>, Radius1, Strength}
  // sturm 
  scale 1
  rotate<30,0,0>
  translate<0,1.0,-0.3>
  texture{ pigment{ color rgb<1,0.0,0.2> }
           finish { phong 1 }
         }
 } //------------------------------------------------------ end of blob object  

                                
//camera{Camera_F}

#declare NumOfBClouds=13;
#declare BkgdClouds=array[NumOfBClouds] {<-155,73,85>,
                                         <-147,69,125>,
                                         <- 95,69,100>,
                                         < -69,78,130>,
                                         < -30,73, 98>,
                                         < -6,69,75>,
                                         <   0,73,120>,
                                         <  20,69,143>,
                                         <  50,79,95>,
                                         <  80,73,125>,
                                         < 113,69,106>,
                                         < 153,69,128>,
                                         < 165,73,86> }      
                                         
#declare BCScale=array[NumOfBClouds] {<21,6,5>,
                                      <22,8,2.5>,
                                      <17,6,3.5>,
                                      <18,8,2.5>,
                                      <20,6,2.5>,
                                     <22,6,2.0>,
                                     <20,6,2.5>,
                                      <28,9,1.8>,
                                     <20,6,2.5>,
                                      <19,7,2.0>,
                                      <17,8,2.5>, 
                                      <18,9,4.5>,
                                      <16,6,2.5>
                                          }  
//#declare ABCD=array[NumOfBClouds][2] { <-155,73,85>,   <21,6,5>};                                                                          

/*                                      
#declare Looper=0;  
#while (Looper<NumOfBClouds)  
  //#declare ABCD[Looper][1]=BkdgClouds[Looper]; 
  //#declare ABCD[Looper][2]=BCScale[Looper];  
  object{LumpyCloud 
         texture {ShittiestCloudTex}
         scale BCScale[Looper]
         translate BkgdClouds[Looper]
         no_shadow} 
  #declare Looper=Looper+1;
  #end  
  
 */
  
//object{LumpyCloud texture {ShittiestCloudTex} translate <0,2,0>}