File:Tlp flash on the moon 1.png

1. include "functions.inc"
2. include "shapes.inc"
3. include "rand.inc"

background{ color 0}

camera {

       location <0,100, 0>
       look_at <0, 0, 0>
       angle 25

}

light_source {

       <100,100,100>*1000000
       color rgb<1,1,1>*1.0

}

sky_sphere {

pigment {

bozo

 scale 1/300

color_map { [0 color rgb 1]

[0.1 color rgb 0]

[1 color rgb 0]

} }

}

1. declare f_craters =

function{

 pigment{
   crackle form <1.2, 0, 0> 
   turbulence 0.1 omega 0.6
   scale 0.15
   color_map{
     [0.00 color rgb 1.00] 
     [0.25 color rgb 0.75]
     [0.33 color rgb 0.25]
     [0.40 color rgb 0] 
     [1.00 color rgb 0] 
   }
 }

}

1. declare f_bozo1 = // similar to noise3d

function{

 pigment{
   bozo
   noise_generator 3
   scale 0.35
   turbulence 0.30
   color_map{
     [0 color rgb 0]
     [1 color rgb 1]
   }
 }

}

1. declare f_granite2 =

function{

 pigment{
   granite
   scale 0.08
   color_map{
     [0 color rgb 0]
     [0.5 color rgb 0]
     [1 color rgb 1]
   }
 }

}

1. declare f_moon_surf_1=function{

   f_bozo1(x,y,z).red*0.300

   -f_craters(x,y,z).red*0.030
   -f_craters(x*2,y*2,z*2).red*0.020
   -f_craters(x*6,y*6,z*6).red*0.010
   +f_granite2(x,y,z).red*0.01
   +f_granite2(x*10,y*10,z*10).red*0.01
 }

1. declare sparkpig1 = pigment {

   //function {
   //x*y*z
   ///  (1-sqrt(x*x+y*y))
   //  pow(  (1-sqrt(x*x+y*y)), 3)  
   //    exp(1*  (1-sqrt(x*x+y*y)) )  
   //   1-sqrt(x*x+y*y*y*y) // rod    

   // 1-sqrt(x/y+y/x) // 

   //  (1-sqrt(x/y+y/x))* // 
   //  (1-sqrt(x*x+y*y))
   //  ( 1-sqrt(x/y+y/x ) )
   //}
  
          

//frequency 5 spherical

scale y/50

poly_wave 2

//sine_wave

color_map {

[0 rgb <1,1,1> transmit 1]  
[1 rgb <1,1,1> transmit 0]  

}

}

1. declare sparktex1= pigment { sparkpig1 }

1. macro spark1()

object { disc {0,<0,0,-1>,1 }

   no_shadow
//texture { texas2}

#for (n,1,100)

 #declare fii1= RRand(0, 180, 0);
  #declare rr1= RRand(0, 1, 0);
  #declare rr2= RRand(0, 1, 0);  
   #declare rr3=Rand_Normal(0.5, 0.5, 0);

texture { sparktex1 scale y*rr3 scale x*rr1 rotate z*fii1 scale rr2 
  
    finish {ambient 2}

}

#end

}

1. end

// primary glow

1. declare sparkpig2= pigment {

function {

// 0.1*( + f_bozo( atan2(x,y)*8 ,0,0 )*0.005/(x*x+y*y)+ f_bozo( atan2(x,y)*32 ,0,0 )*0.01/(x*x+y*y)+ f_bozo( atan2(x,y)*720 ,0,0 )*0.01/(x*x+y*y) )

// 0.1*f_bozo( atan2(x,y)*36 ,0,0 )*0.01/(x*x+y*y)

//0.1*f_wrinkles( atan2(x,y)*36 ,0,0 )*0.01/(x*x+y*y)

// 0.2*f_granite( atan2(x,y)*3 ,0,0 )*0.02/(x*x+y*y)+

//  0.01*f_agate( atan2(x,y)*3 ,0,0 )*0.02/(x*x+y*y) 
  
//  0.2*f_granite( atan2(x,y)*3 ,0,0 )*0.001/pow( (x*x+y*y),3) 
//  0.2*f_granite( atan2(x,y)*3 ,0,0 )*1/( exp( (x*x+y*y))*0.005 ) 

    0.09*f_granite( atan2(x,y)*3 ,0,0 )*0.3/pow( (x*x+y*y),1) 

}

/* color_map {

   [0 color <0,0,0>  transmit 0.5 ]
   [0.5 color 0.3 transmit 0.5 ]
   [1 color <1,1,1> transmit 0.5 ]
  
 }
 */

color_map {

// [-1000 color <0,0,0> transmit 1 ]

   [0 color <0,0,0>  transmit 1 ]
   [0.5 color <0.2,0.2,0.3> transmit 0.5 ]
   [1 color <1/2,1/2,1> transmit 0 ]
    [1000 color <1/2,1/2,1> transmit 0 ]  
 }
        
poly_wave 1

}

1. declare ballpig1 = pigment {

spherical

poly_wave 4

//sine_wave

color_map {

[0 rgb <1/2,1/2,1> transmit 1]  
[0.4 rgb <1/2,1/2,1>/2 transmit 0.5] 
[1 rgb <1/2,1/2,1>*5 transmit 0]  
[10 rgb <1/2,1/2,1>*5 transmit 0] 
 [100 rgb <1/2,1/2,1>*5 transmit 0] 

}

}

1. declare sparktex2= pigment { sparkpig2}

1. declare balltex1= pigment { ballpig1 }

1. declare ball1=object {

disc {0, <0,0,-1>,0.999 }

   no_shadow

texture {balltex1}

finish {ambient 8}

}

1. declare spark2=object {

disc {0, <0,0,-1>,0.999 }

   no_shadow

texture {sparktex2}

finish {ambient 10}

}

1. declare nebula1=object {

   disc {0, <0,0,-1>,0.999 }

   no_shadow

   texture {

   pigment {
 

   onion    
   frequency 1

   // scallop_wave 

   turbulence 0.1

   pigment_map 
   {   
   [-1 color rgb <0,0,0> transmit 1]

   [0   
   wrinkles scale 0.1
   color_map {[0 color rgb <0,0,0> transmit 1] [1 color rgb <1,0.2,0.2> transmit 0] }
   //color rgb <1,0,0> transmit 0  
   ]
   

   [1 color rgb <0,0,0> transmit 1]    

   }

   scallop_wave scale 2

   //warp {turbulence 0.2}

   //  warp {turbulence .1 octaves 16 omega .2 lambda 2}
   }

   finish { ambient 1}

   }

   }
 

1. declare moon1=object {

plane {y,0}

   texture { 

   pigment {wrinkles
   color_map {

   [0 color rgb 1.0]
   [1 color rgb 1.0]

   }
   }

   normal {
  //  dents
  function {f_moon_surf_1(x,y,z)}    

scale 30

   bump_size 10
   }

}

}

object {moon1}

object {nebula1 rotate x*90 scale 10 translate y*2 }

object { ball1 rotate x*90 scale 5 scale 1.8 translate y*3} object { spark1() scale 30 rotate x*90 translate y*3.001} object { spark2 scale 30 rotate x*90 translate y*3.002}