here's the code several people have asked for - it's a mess.... based on
some code posted by Kevin Ellis a couple of years ago.

difference {
  sphere { 0,Rad}
  sphere {0,Rad-15000}
  material{
    texture{
      pigment{ rgbf 1}
    }
    interior{
      media{
        scattering {2,<.01,.012,.01>/2.75 extinction 1/2.75 }  //was 1.75
        method 3
        samples 15,15
        intervals 1

         density { //one
          wrinkles
          ramp_wave
          //turbulence .3
          color_map {
            [0 rgb 0]
            [0.4 rgb 0] //was .4
            [0.6 rgb 0.275] //0.275
            [1 rgb 0.475]   //0.475
          }//colmap
          scale <10000,5000,9000>/1.5
          rotate y*25
         translate <1000,Rad-30000,0>
        }//density

        density {//2
          //boxed
          marble
          //agate
          //wrinkles
          //spotted
          triangle_wave
          //sine_wave
          turbulence 1.5
          color_map {
            [0 rgb 0]
            [0.3 rgb 0] //was 3
            [0.75 rgb 0.25] //0.2
            [1 rgb 0.5]   //0.4
          }//colmap
          scale <10000,5000,7500>*10  //10
          rotate y*-25
         translate <0,Rad-30000,0>
        }//density

      }//media
    }//interior
  }//material
  hollow
  rotate y*70
  rotate z*15
  translate <0,32000-Rad,0>
}//difference

Mick

Post a reply to this message