|
 |
Sorry, I'm not familiar with the macro you mentioned; but your question
intrigued me, so I put together something that looks *very similar* to the
effect. It's meant to be animated, so run 100 frames, clock 0-to-1 (or 200
frames, clock 0-to-2 for an extended version.)
This is just a *basic* idea (there are far more subtleties going on in the
'real' CGI.) IMO, the key to what made that effect look the way it did in the
film was that the distortion applied to the colors (our 'turbulence' in POV-Ray)
was made to stay 'stationary' while the colors moved through it. (IIRC, that
is.) I've tried to duplicate that.
Essentially, here are the steps I used:
1) The various gradient y color_maps have a transparent 'bottom half' (and some
of the top as well.) Then turbulence is added. Then the distorted pigments are
scaled smaller in x, which 'squashes together' the distortions and improves the
look.
2) The final textures are applied to a sphere, using warp{spherical}. This is to
make the distortions look like they're all 'pointing toward the center' (or
rather, the North pole of the sphere.) The bottom half of the sphere is now
transparent.
3) The sphere itself is then squashed flat like a pancake.
4) The flat sphere is scaled up during animation, while the turbulence is
translated in the opposite 'direction' (toward the center, so to speak) to make
it appear to remain stationary. More or less... ;-)
I've added a few bells and whistles like a changing ambient value, just for
interest. There are doubtless other (better?) ways to achieve such an effect,
but this example is pretty straightforward.
Ken
---code---
global_settings{assumed_gamma 2.2 max_trace_level 50}
// assumed_gamma 1.0 will change the colors
#include "math.inc" // for 'clip'
camera {
perspective
location <0, 6*1.3, -20*1.3>
look_at <0, 0, 0>
right x*image_width/image_height
angle 55
}
#declare first_texture =
texture{ // main colors
pigment{
gradient y
pigment_map{
[0.45 rgbt<.5,.3,1,1>]
[0.5 rgb .45*<.5,.3,1>] // dark purple
[0.68*.95 rgb .5*<1,.5,.8>] // reddish
[0.73*.95 rgb 1.2*(<.4,.3,1> + <.2,.2,.2>)/1.2]
[1 - clip(.6*clock,0,1 - .77*.95) rgbt 1]
}
translate -.31*clock*y
scale 30
warp{turbulence 1 omega .59}
scale 1/30
scale 7
warp{turbulence .3*<0,2,0> omega .59}
scale 1/7
translate .31*clock*y
scale <.2,1,1> // to squash turbulence
warp{spherical}
}
finish{ambient 3 - clip(4*clock,0,2) diffuse 0}
}
#declare second_texture =
texture{ // light blue edge streaks
pigment{
gradient y
pigment_map{
[0.44*.95 rgbt <.52,.42,1,1>]
[0.49*.95 rgb <.52,.42,1>]
[0.57*.95 rgbt <.52,.42,1,1>]
}
translate -.45*clock*y
scale 30
warp{turbulence 3 omega .1}
scale 1/30
translate .45*clock*y
scale <.03,1.1,1> // to squash turbulence
warp{spherical}
}
finish{ambient 3 - clip(4*clock,0,2) diffuse 0}
}
#declare third_texture =
texture{ // blue band just at edge
pigment{
gradient y
pigment_map{
[0.47 rgbt <.5,.4,1,1>]
[0.49 rgbt <.5,.4,1,.2>]
[0.51 rgbt <.5,.4,1,.2>]
[0.59 rgbt <.5,.4,1,1>]
}
warp{spherical}
}
finish{ambient 2.3 - clip(2*clock,0,1) diffuse 0}
}
// final effect...
sphere{0,1
texture{first_texture}
texture{second_texture}
texture{third_texture}
scale (.3 + 15*clock)*<1,.05,1>
rotate 17*z
}
Post a reply to this message
|
|
net> wrote: