//
// pebble accretion of giant planets core
//
// pov-ray source code
//
// 12.05.2024 0000.0001
//

 #include "colors.inc"
 #include "rand.inc"
 
 #declare randi1 = seed (1153);
  

 background { color LightBlue }

 sky_sphere {

  pigment { wrinkles
  warp { turbulence 0.33 }
  scale 0.2

  color_map {
  [0 color SkyBlue ]
  [1 color White ]
  }

  }
 }

 camera {
   location <0, 1, -100>
   look_at  <0, 1,  0>
   angle 11
 }

 light_source { <1, 0, -10>*1000*1000*1000 color White}

 sphere {
   <0, 0, 0>, 2
   texture {
     pigment {  gradient y sine_wave
        warp { turbulence y*0.3}
       color_map {
       [0 color Tan ]
       [1 color Brown ]
       }
      }
   
   finish { diffuse 0.6 }

   }

 }

torus {
3.5,0.1

rotate x*90
 scale z*0.1 

texture {
pigment { radial rotate x*90 frequency 12
 color_map {
  [0 color rgbt <0,1,0,0> ]
   [0.5 color rgbt <0,1,0,0> ]
       [0.5 color rgbt <1,1,1,1> ]
    [1 color rgbt <1,1,1,1> ]

 }
}
}

}

1. declare arrow1=union {

   cone {0,1,y,0}
   cylinder {-y,0,0.5}
   pigment { color rgb <1,0,0> }
   finish {ambient 1}
   scale <1,4,1> // size change, longer
   scale 0.25

   rotate <0,0,180> // point in another direction (left)

}

object {arrow1 rotate z*(90-30) translate y*2.5 translate x*-0.5}

1. for (n, 1,3)

object {arrow1 rotate z*90 translate y*3 translate x*-2*n}

1. end

1. for (n, -3,3)

object {arrow1 rotate z*90 translate y*6 translate x*-2*n}

1. end

1. for (n, -3,3)

object {arrow1 rotate z*90 rotate z*(rand(randi1)*64-32) translate y*-3 translate x*-2*n}

1. end

1. declare pebble1= object {

sphere {0,1} pigment { granite } }

object { pebble1 translate y*6 translate x*-7}

object { pebble1 scale 0.6 rotate <10,30,60> translate y*3 translate x*-7}

object { pebble1 scale 0.2 rotate <10,30,60> translate y*-3 translate x*-8} object { pebble1 scale 0.2 rotate <10,30,60> translate y*-2.5 translate x*-7} object { pebble1 scale 0.2 rotate <10,30,60> translate y*-3.5 translate x*-7}