// Entry code: igajsr
// Name      : Greg M. Johnson
// Frame rate: 15
// A longer more verbose version was not supplied
// Here is the short code version
#declare c=clock;  #declare b=c*c*3-2*c*c*c; box{<-9,-9,5>,9  pigment{mandel 32766 pigment_map{ #declare n=.0004; #while (n<99)  [0.05/10, rgb 1][pow(n/70,1.) rgb <abs(sin(n*0.1)),abs(cos(n*0.25)),abs(sin(n*0.39))>] #declare n=n+1; #end [ 1 rgb 0]} translate <0.16377992,0.894961045 ,0> scale 4*pow(10,8.) } finish{ambient rgb 1}}