|
 |
#version unofficial Megapov 0.5;
$FAST=0;
#if (FAST)
$FastBox=1;
#else
$FastBox=0;
#end
#include "rbox.inc"
global_settings{
assumed_gamma 1.0
ini_option "+qr"
radiosity{
pretrace_start 0.04
pretrace_end 2/300
count 400
recursion_limit 2
nearest_count 1
error_bound 0.2
}
}
#declare txt1=texture{
pigment{crackle solid color_map{[0 rgb 0.6][1 rgb 1]}}
normal{agate 0.4}
finish{ambient 0 diffuse 0.2 brilliance 1}
scale 0.3
}
#macro G(Color,g)
rgb<pow(Color.x,g),pow(Color.y,g),pow(Color.z,g)>
#end
camera
{
location <0.0, 6, -21.0>
direction 1*z
look_at <0, 1.0, 0>
}
$Gamma=2.2;
$SkyColor=G(<132,164,255>/255,Gamma); // @ 15000K rgb white=6500K
$SunColor=G(<255,235,197>/255,Gamma); // @ 5400K rgb white=6500K
$EnergyRatio=9; // sun/sky energy ratio
$EQ=1.18; // normalisation for sun-sky colors
sphere{
<0,0,0>,1
pigment{
image_map{tga "sky2.tga" map_type 1 interpolate 2}
}
finish{diffuse 0 ambient 1}
no_shadow
scale 1000
}
#declare ngr=16
#declare topr=0.7
#declare botr=0.85
#declare grbr=0.12
#declare grtr=grbr*topr/botr
#declare bw=2
#declare bh=0.3
#declare ht=8
#declare tw=18
#declare sh=1
#declare rht=3.5
#declare pylon=
union{
object{RBox(bw,bh,bw,0.1) translate bh/2*y}
object{RBox(bw,bh,bw,0.1) translate (ht-bh/2)*y}
cone{<0,bh,0>,bw/2,<0,bh+0.2,0>,botr}
cone{<0,-bh,0>,bw/2,<0,-bh-0.2,0>,topr translate ht*y}
#if (FAST)
cone{<0,0,0>,botr,<0,ht,0>,topr}
#else
difference{
cone{<0,0,0>,botr,<0,ht,0>,topr}
#declare i=0;#while (i<ngr)
cone{<botr+grbr/2,0,0>,grbr,<topr+grtr/2,ht,0>,grtr rotate i*360/ngr*y}
#declare i=i+1;#end
#declare i=0;#while (i<6)
torus{botr-(botr-topr)*(i/5)+grbr/2,grbr scale 0.5*y translate y*(i*ht/5)}
#declare i=i+1;#end
}
//bounded_by{box{<-1,0,-1>,<1,ht,1>}}
#end
texture{txt1}
}
background{SkyColor}
#declare Ground=
texture{
pigment{rgb<0.2,1,0.2>}
finish{diffuse 0.07 brilliance 1.4 ambient 0.0}
}
light_source{
<0,0,-1000>
color SunColor*EnergyRatio/EQ
area_light 10*x 10*y 8,8 adaptive 2 circular
rotate 30*x
rotate 65*y
}
#declare rd=seed(17);
#declare dis=35;
#declare i=1;
#while (i<10)
object{pylon translate<rand(rd)*15-7.5,0,rand(rd)*15-13>}
#declare i=i+1;
#end
box{<-100,-1,-200>,<100,0,50> texture{txt1}}
_______________________________________________________________________
Kari Kivisalo www.kivisalo.net
Post a reply to this message
|
|
