Zeger your explaining is fine. Only thing is what the heck is double
illuminate flag mean. There is no explaination of it in the povray 3.5 docs.
So the sphere are successively smaller and smaller and in a union. In the
code below the while statment leads to 10 spheres right? I am not really
using animation am I as I just see one frame get rendered. So the first
sphere is scale 125 + 0, the second is 125 + 1/10, the third is 124 "+ /10
and so on so they are really close together. Seems that I could put 10
spheres inside eachother in Moray but not sure how to get the double
illuminate part to work. The pigment could be a material couldn't it, since
there is nothing changing in the while loop? Excuse me if I seem slow
figuring this out.

thanks

Mitch

            #declare c=clock;
            #declare mc=1;

            #declare Min_fil=.6;
            #declare Diffuse=1.5;
            union {
                #declare Layers=10;
                #declare Count=0;
                #while (Count<Layers)
                    #declare T=Count/Layers;
                    sphere {
                        0,1
                        scale 125+T*5
                        double_illuminate
                    }
                    #declare Count=Count+1;
                #end
                hollow
                pigment {
                    average
                    pigment_map {
                        [mc-c
                         bozo
                         color_map {
                             [.6 rgbt 1]
                             [1 rgbt <1,1,1,Min_fil>]
                         }
                         turbulence 1  octaves 4 lambda 3
                         translate c*.1
                         scale 30
                        ]
                        [c
                         bozo
                         color_map {
                             [.6 rgbt 1]
                             [1 rgbt <1,1,1,Min_fil>]
                         }
                         turbulence 1  octaves 4 lambda 3
                         translate (c-mc)*.1
                         scale 30
                        ]
                    }
                }
                finish {ambient .1 diffuse Diffuse}
                translate -y*100
            }
            background {rgb <.5,.6,.8>}

            // create a regular point light source
              light_source {
             0*x                  // light's position (translated below)
             color rgb <1,1,1>    // light's color
             translate <-20, 40, -20>
             }


            global_settings {
            max_trace_level 50  //should be enough
            }

"Zeger Knaepen" <zeg### [at] studentkuleuvenacbe> wrote in message
news:3c55f596$1@news.povray.org...
> > Ah nothing like a little light source to make things visible :)
> > That definitly helped. I also did need the max_trace_level.
> :)
>
> > Now my next request...can you explain a) how this works and b) can I
make it
> > work in Moray?
> a) I'll try to explain it, although I'm not really good at explaining
things :)
> Ok, let's start with 1 layer.  What you get is just a shaded, partially
transparent
> sphere, with a cloud-pattern on it.  Most of the light just falls through
it, because even
> the least transparent parts of the layer still are transparent.  Now add a
second layer.
> The light that passes through the first sphere (we see the shading of the
sphere from the
> inside because of the double_illuminate modifier) now illuminates the
second sphere. But
> the first layer casts a cloud-shaped shadow on the second layer (because
of the used
> pattern).
> Now by adding more layers, we get a cloud-pattern with light edges and
darker parts where
> the clouds are.  More or less.
>
> b) I don't know, I haven't used Moray for 2 years. But it will work if you
can set
> double_illuminate from within Moray.  But it's not easy to switch between
the number of
> layers with Moray.  I would make an inc-file with the clouds and include
it in your
> Moray-scene.
>
> 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