|
 |
Hello to everyone,
here is a abstract with a small source.
It's not perfect, but nice enough to show -
#version 3.7;
global_settings {
assumed_gamma 2.2
max_trace_level 5
noise_generator 2
}
#include "stdinc.inc"
camera {
location <0,1,-7.7>
look_at <0,-5.6,0>
angle 30*image_width/image_height
right image_width/image_height*x
rotate z*30
}
#declare p2 = function {pattern {crackle metric 1 translate x*37}}
#declare FN = function (x,y,z) {(sin (p2 (x,0,z)*4*pi)+1)*(1-p2 (x,0,z))}
#declare base_pat =
pigment {
#local Curve = 0.125;
#local Omega = 0.5;
#local Lambda = 2.5;
#local Octaves = 8;
pigment_pattern {
average
pigment_map {
#local octave = 0;
#while (octave < Octaves)
[pow (Omega, octave)
pigment_pattern {
function {FN (x,y,z)}
scale pow (Lambda, -octave)
color_map {
[0 srgb 1]
[1 srgb 0]
}
}
poly_wave 1/Curve
]
#local octave = octave+1;
#end
}
}
poly_wave Curve
color_map {
[0 srgb 1]
[1 srgb 0]
}
}
#declare fac = -0.1;
#declare diff = 0;
#declare Color = <79,171,182>/255;
plane {
y, -0.0001
texture {
pigment {
pigment_pattern {base_pat}
pigment_map {
[0 srgb 0]
[fac+0.36-diff srgb 0]
[fac+0.36+diff srgb Color+<0,40,-40>/255]
[fac+0.42-diff srgb Color+<0,40,-40>/255]
[fac+0.42+diff srgb 0]
[fac+0.56-diff srgb 0]
[fac+0.56+diff srgb Color+<0,-40,40>/255]
[fac+0.62-diff srgb Color+<0,-40,40>/255]
[fac+0.62+diff srgb 0]
[1 srgb 0]
}
}
normal {granite 0.02 scale 0.001}
finish {brilliance 4 diffuse 0 ambient 0 emission 0.7}
}
}
box {
<-20,0.0001,-20>, <20,1,20>
hollow
material {
texture {
pigment {color srgbt 1}
}
interior {
media {
emission srgb 2
density {
pigment_pattern {base_pat}
density_map {
[0 srgb 0]
[fac+0.36-diff srgb 0]
[fac+0.36+diff srgb
Color+<0,40,-40>/255]
[fac+0.42-diff srgb
Color+<0,40,-40>/255]
[fac+0.42+diff srgb 0]
[fac+0.56-diff srgb 0]
[fac+0.56+diff srgb
Color+<0,-40,40>/255]
[fac+0.62-diff srgb
Color+<0,-40,40>/255]
[fac+0.62+diff srgb 0]
[1 srgb 0]
}
}
method 2
intervals 1
samples 1600
}
}
}
}
Norbert
Post a reply to this message
|
|
org> wrote: