|
 |
I will try height field and lights with this image.
It's rsult is very good,I think.
Y.Tanabe
Kobe,Japan
//code start
// Mega Persistence of Vision Ray Tracer 0.7 Scene Description File
#version unofficial MegaPov 0.7;
global_settings
{
assumed_gamma 1.8
}
camera
{
orthographic
location <0,0,-5>
up <0,5,0>
right <5,0,0> * image_width / image_height
direction <0,0,1>
look_at <0,0,0>
}
sky_sphere {pigment {color rgb <0.25,0.25,0.25>}}
light_source {<0,0,-50> color rgb <1,1,1> parallel point_at <0,0,0>}
light_source {<-50,50,-50> color rgb <1,0,0> * 2.82 parallel point_at <0,0,0>}
light_source {<-50,-50,-50> color rgb <0,0,1> * 2.82 parallel point_at <0,0,0>}
light_source {<50,50,-50> color rgb <0,0,1> * 2.82 parallel point_at <0,0,0>}
light_source {<50,-50,-50> color rgb <1,0,0> * 2.82 parallel point_at <0,0,0>}
light_source {<0,50,-50> color rgb <0,1,0> * 1.414 parallel point_at <0,0,0>}
light_source {<0,-50,-50> color rgb <0,1,0> * 1.414 parallel point_at <0,0,0>}
light_source {<50,0,-50> color rgb <0,1,0> * 1.414 parallel point_at <0,0,0>}
light_source {<-50,0,-50> color rgb <0,1,0> * 1.414 parallel point_at <0,0,0>}
//This determines the final size of the height field.
//It is used used to scale and translate tthe HF so it is centered at the origin
(<0,0,0>).
#declare square_size = 5;
//This reads in the height field data
#debug "\nStart height field parsing....\n"
#declare hf =
height_field
{
png "lights.png"
smooth
pigment
{
gradient y
color_map
{
[0.0 rgb 0]
[0.0625 rgb 0.0625]
[0.125 rgb 0.125]
[0.1875 rgb 0.1875]
[0.25 rgb 0.25]
[0.3125 rgb 0.3125]
[0.375 rgb 0.375]
[0.4375 rgb 0.4375]
[0.5 rgb 0.5]
[0.5625 rgb 0.5625]
[0.625 rgb 0.625]
[0.6875 rgb 0.6875]
[0.75 rgb 0.75]
[0.8125 rgb 0.8125]
[0.875 rgb 0.875]
[0.9375 rgb 0.9375]
[1.0 rgb <1,1,1>]
}
}
scale <square_size,1,square_size>
translate <-square_size/2,0,-square_size/2>
}
#debug "\nFinish height field parsing\n"
//create Mesh
#declare interval = square_size / 80; // the higher the number,the finer the grid
patter
#declare CX = -square_size/2+interval/2; // do not alter
#declare CZ = -square_size/2+interval/2; //do not alter
#declare cyl_width = 0.005; //width of the cylinder components of the
grid
#declare cyl_tex = texture{pigment {color rgb <1,1,1> }} // texture of the grid itself
#debug "\nStarting grid formation\n"
#declare grid =
union
{
#while(CX < square_size/2-interval/2)
#debug concat ( "CX = ",str (CX,3,3)," of ",str(square_size/2,3,3),"\n")
#while(CZ < square_size/2-interval/2)
#declare YValue = trace(hf,<CX,20,CZ>,-y);
#declare YValueX1 = trace(hf,<CX+interval,20,CZ>,-y);
#declare YValueZ1 = trace(hf,<CX,20,CZ+interval>,-y);
#if(YValue.x = 0 & YValue.y = 0 & YValue.z = 0)
//do nothing
#else
cylinder {<CX,YValue.y,CZ>,<CX+interval,YValueX1.y,CZ>,cyl_width texture
{cyl_tex}}
cylinder {<CX,YValue.y,CZ>,<CX,YValueZ1.y,CZ+interval>,cyl_width texture
{cyl_tex}}
#end
#declare CZ = CZ + interval;
#end
#declare CZ = -square_size/2+interval/2;
#declare CX = CX + interval;
#end
// cap off +X axis
#declare CX1 = square_size/2-interval/2;
#declare CZ1 = -square_size/2+interval/2;
#while(CZ1 <= square_size/2-interval/2)
#declare YValue = trace(hf,<CX1,20,CZ1>,-y);
#declare YValueX1 = trace(hf,<CX1+interval,20,CZ1>,-y);
#declare YValueZ1 = trace(hf,<CX1,20,CZ1+interval>,-y);
cylinder {<CX1,YValue.y,CZ1>,<CX1,YValueZ1.y,CZ1+interval>,cyl_width texture
{cyl_tex}}
#declare CZ1 = CZ1 + interval;
#end
// cap off +z axis
#declare CX2 = -square_size/2+interval/2;
#declare CZ2 = square_size/2-interval/2;
#while(CX2 <= square_size/2-interval/2)
#declare YValue = trace (hf,<CX2,20,CZ2>,-y);
#declare YValueX1 = trace (hf,<CX2+interval,20,CZ2>,-y);
#declare YValueZ1 = trace (hf,<CX2,20,CZ2+interval>,-y);
cylinder {<CX2,YValue.y,CZ2>,<CX2+interval,YValueX1.y,CZ2>,cyl_width texture
{cyl_tex}}
#declare CX2 = CX2 + interval;
#end
}
// objects
union
{
//object {grid translate <0,cyl_width,0>}
object {hf}
rotate x*-90
}
//end code
Post a reply to this message
Attachments:
Download 'lighthf.jpg' (311 KB)
Preview of image 'lighthf.jpg'
|
|
|
|
Christoph Hormann wrote:
>
> Interesting. Does it use uv-mapping? It is really not visible that it is
> just a 2D texture and with that geometry this is probably quite difficult.
I used slope pattern to select x, y, or z projection of the texture.
> How did you place the area lights? It is quite astonishing that it looks
> very good without radiosity.
I used net reflectance of 0.3 for the stone which means radiosity
would not make much difference without other objects in the scene.
This was the approximate initial lighting which I fine tuned in
post-process.
sphere{
<0,0.77,0>,0.77
pigment{rgb 1} finish{diffuse 0.3 ambient 0.01}
}
plane{y,0 pigment{checker rgb 1,rgb 0.5 scale 0.8}
finish{diffuse 0.6 ambient 0.01}}
camera{
location<0,10.8,-23>
up y right x
direction 12*z
look_at<0,0.77,0>
}
light_source{
<0,0,-23>
rgb<0.7,1,0.9>*0.8
area_light 8*x,8*y,4,4 adaptive 0 jitter
rotate 5*x
rotate 90*y
}
light_source{
<0,0,-3>
rgb<1,0.7,0.4>*0.8
area_light 0.8*x,0.8*y,4,4 adaptive 0 jitter
rotate 70*x
rotate 30*y
}
light_source{
<0,0,-23>
rgb<1,0.9,0.7>*2.5
area_light 4*x,4*y,4,4 adaptive 0 jitter
rotate 10*x
rotate -80*y
}
light_source{
<0,0,-23>
rgb<0.5,0.7,1>*0.5
area_light 4*x,4*y,4,4 adaptive 0 jitter
rotate 60*x
rotate -30*y
}
_____________
Kari Kivisalo
Post a reply to this message
|
|
