|
 |
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'
|
|
com> wrote in message
news: