I'm still working on that nuclear explosion, but it would be nice if I could
make the brightest parts of it really glow.  So I made this:

- begin code -

#macro Blur_red(S,RX,RY,Samples,Division)
 #local Seed=seed(S);
    function {
     f_output_red(x,y)
     +( #declare C=0;
      #while (C<Samples)
       #declare X=(rand(Seed)-rand(Seed))*RX;
       #declare RY=rand(Seed)*pi;
       #declare Y=sin(RY)*X;
       #declare X=cos(RY)*X;
       f_output_red(x+X,y+Y)/Division+
       #declare C=C+1;
      #end
    0)/Samples
    }
#end
#macro Blur_green(S,RX,RY,Samples,Division)
 #local Seed=seed(S);
    function {
     f_output_green(x,y)
     +( #declare C=0;
      #while (C<Samples)
       #declare X=(rand(Seed)-rand(Seed))*RX;
       #declare RY=rand(Seed)*pi;
       #declare Y=sin(RY)*X;
       #declare X=cos(RY)*X;
       f_output_green(x+X,y+Y)/Division+
       #declare C=C+1;
      #end
    0)/Samples
    }
#end
#macro Blur_blue(S,RX,RY,Samples,Division)
 #local Seed=seed(S);
    function {
     f_output_blue(x,y)
     +( #declare C=0;
      #while (C<Samples)
       #declare X=(rand(Seed)-rand(Seed))*RX;
       #declare RY=rand(Seed)*pi;
       #declare Y=sin(RY)*X;
       #declare X=cos(RY)*X;
       f_output_blue(x+X,y+Y)/Division+
       #declare C=C+1;
      #end
    0)/Samples
    }
#end


global_settings {
 post_process {
  PP_Init_Alpha_Colors_Outputs()
  Blur_red(1565,.05,.05,50,5)
  Blur_green(1565,.05,.05,50,5)
  Blur_blue(1565,.05,.05,50,5)
  function { f_output_alpha(x,y) }
  save_file "duplication.png"
 }
}

- end code -

But as you probably can imagine, it gets extremely slow at decent settings.

Is there a faster way ?  In case it's not clear, this is what I want:  I want
the original image combined (additive) with a darkened blurred version of the
original.

cu!
--
camera{location-z*3}#macro G(b,e)b+(e-b)*(C/50)#end#macro L(b,e,k,l)#local C=0
;#while(C<50)sphere{G(b,e),.1pigment{rgb G(k,l)}finish{ambient 1}}#local C=C+1
;#end#end L(y-x,y,x,x+y)L(y,-x-y,x+y,y)L(-x-y,-y,y,y+z)L(-y,y,y+z,x+y)L(0,x+y,
<.5,1,.5>,x)L(0,x-y,<.5,1,.5>,x)               // ZK http://www.povplace.be.tf

Post a reply to this message