An attempt at varaible turbulence.  This is the source
for the image over in the binaries group

--
#declare ntsc = false;

global_settings {
  assumed_gamma 2.2
}


camera {
  location 0
  direction <0, 0, 1>
  #if (ntsc = true)
    right <(640 / 400) * (10/11), 0, 0>
  #else
    right <640 / 480, 0, 0>
  #end
  up <0, 1, 0>
  translate <0, 0, -8>
}


plane {
  <0, 0, -1>, 0
  pigment {
    spherical
    scale 5
    pigment_map {
      #declare turb_amount = 0;
      #while (turb_amount < 1)
        [ turb_amount
          radial
          frequency 12
          turbulence 2 * (1 - sqrt(turb_amount))
          color_map {
            [ 0.0 color rgb 1 ]
            [ 0.025 color rgb <0.2, 0.5, 0.8> ]
            [ 0.05 color rgb 0 ]
            [ 0.95 color rgb 0 ]
            [ 0.975 color rgb <0.2, 0.5, 0.8> ]
            [ 1.0 color rgb 1 ]
          }
          scale 1/5
          rotate x*-90
        ]
        #declare turb_amount = turb_amount + (1/30);
      #end
    }
  }
  finish { ambient 1 diffuse 0 }
}


/* actual end of this file */

Post a reply to this message