#macro m_strata (freq, amnt)
  function {f_noise3d(y*freq+f_noise3d(y+f_noise3d(x*1,y*1,z*1),z,x)*amnt,0,0)}
#end

//Base Snow
isosurface {
  function {y - f_snoise3d(x/8.5, y/1, z/10)*0.5*Miles}
  contained_by { box { <-1000, -50, -1000>, <1000, 0, 1000> } }
  accuracy 0.1
  max_gradient 4
texture {
  pigment { 
  m_strata (5,4)
    turbulence 1
    color_map {
      [ 0.00 color rgb <1.000,1.000,1.000>]
      [ 0.35 color rgb <0.990,0.990,1.000>]
      [ 0.63 color rgb <0.980,0.980,0.980>]
      [ 1.00 color rgb <0.970,0.970,0.970>]
    }
    scale 10*Miles
  }
 //finish {diffuse 1.3 brilliance .1}
 //normal { facets .1 }
}
 finish { ambient .5 }
}