|
 |
#version unofficial MegaPov 0.5;
#include "colors.inc"
global_settings
{
assumed_gamma 1.0
max_trace_level 255
}
// ----------------------------------------
#declare Image_Length = 640;
#declare Image_Height = 480;
camera
{
location <0.0, 0, -25.0>
direction 1.5*z
right Image_Length/Image_Height*x
up.6
look_at <0.0, 5, 0.0>
}
sky_sphere
{
pigment
{
gradient y turbulence .3 lambda 3
color_map { [0.0 color rgb <0,.45,.65>] [1.0 color rgb 1] }
}
}
light_source{<0, 93000000,0> color rgb<1,.9,.775/1.125> rotate z*-45 rotate
x*30} // change the highlight colour of the clouds
// ----------------------------------------
#declare R = seed(45376);
#declare Dfoff = 1.5; file://was 1 higher bulks out clouds
#declare FS = 1.25; // .5 wispy 2 very solid default 1
#declare Int_F = 2; // should be 0 or 2 two more solid, rounder
#declare Cloud_form = function { pigment {
blob {
sphere { <0,0,0>, 10, FS density_function Int_F, Dfoff }
sphere { <1,8,0>, 5, FS density_function Int_F, Dfoff }
sphere { <0, 0, 0>, 8, FS density_function Int_F, Dfoff scale <1, .7, 1>
translate<6, 1, 1>}
sphere { <0, 0, 0>, 6, FS density_function Int_F, Dfoff scale <1, .6, 1>
translate<10, 4, -2> }
sphere { <0,0,0>, 13, FS density_function Int_F,Dfoff scale <1, .5, .6>
translate<-10, 3, 4> }
threshold 0.075 file://varying this produces some interesting variations
0 to .05 to .2
// 0 keeps media contained within the sphere?
max_density 1//leave
}
color_map {
[0 rgb 0]
[1 rgb 1]// seems to break up cloud lower more broken up higher more
solid(no higher than 1.1)
}
} }
#declare Cloud_turb = function { pigment { file://Play with this to get
best cloud quality
granite
file://warp{turbulence .25 octaves 3 omega .7 lambda .3}
color_map {
[0 rgb 0]
[.325 rgb .8] // .375generally keep above .325
[1 rgb .5] file://play with
}
scale 15 // size of turbulence 10 to 25
} }
#declare Cloud1 = function { max(0, Cloud_form -.6*(1-Cloud_turb) ) }
file://#declare Cloud = function { min(Cloud1^.3, .07) } file://gives very
hard edges and shapes I havn't used
#declare Cloud_Mass =
intersection {
box { <-20, -15, -20>, <20, 20, 20> } // you can control the shape of the
base of the clouds with this
blob {
sphere { <0,0,0>, 10, 1 }
sphere { <1,8,0>, 5, 1 }
sphere { <0, 0, 0>, 8, 1 scale <1, .7, 1> translate <6, 1, 1>}
sphere { <0, 0, 0>, 6, 1 scale <1, .6, 1> translate <10, 4, -2> }
sphere { <0,0,0>, 13, 1 scale <1, .5, .6> translate <-10, 3, 4> }
threshold .001
}
texture { pigment { color rgbf 1 }}
interior {
media {
method 2
intervals 3 file://3 for final?
scattering { 5, color rgb <.14,.15,.14> extinction .6}// eccentricity
.2 } file://changes colour of clouds raising extinction Darkens Clouds
density {
function { Cloud1 }
color_map {
[0 color rgb 0]
[1 color rgb .05]//was 1 lightens the contrast, the bigger the
number the higher the contrast &
file://the darker the base, more dramatic .01 whispy 1 too
dark 0.05 good .075 darker
}
}
}
}
scale 30
hollow
}
// Comment out for a single cloud use object{Cloud_Mass translate <0, 1200,
2500>}
#declare Xpos = -5000;
#declare Zpos = 15000;
#declare T = 0;
#while (Zpos>1000)
#declare Xpos = -5000;
#while(Xpos<5000)
object{Cloud_Mass translate <Xpos, 1200, Zpos> rotate y*rand(R)*360}
#declare Xpos = Xpos+275;
#end
#declare Zpos = Zpos-300;
#end
Post a reply to this message
|
|
de>
Homepage: http://www.schunter.etc.tu-bs.de/~chris/