camera {
  location <0, 0, -2.5>
  look_at <0, 0, 0>
}

#declare R1 = seed(12345)
#declare Total = 12

  sphere { 0, 1
    pigment { color rgbt <1, 1, 1, 1> }
    #declare Loop = 0
    #while (Loop < Total)
      #declare MyClock = mod(clock + Loop / Total, 1)
      halo {
        emitting
        spherical_mapping
        linear
        turbulence 1.5
        color_map {
          [ 0.0 color rgbt <1, 0, 0,             1> ]
          [ 0.5 color rgbt <1, 1, 0, MyClock*3 - 2> ]
          [ 1.0 color rgbt <1, 0, 0,             1> ]
        }
        frequency 2
        samples 20
        scale 0.3*MyClock+0.001
        rotate <180*MyClock*(rand(R1)-0.5), 180*MyClock*(rand(R1)-0.5), 180*MyClock*(rand(R1)-0.5)>
      }
      #declare Loop = Loop + 1
    #end
    hollow
    scale 2
  }