 |
|
|
|
|
|
| |
| |
|
|
|
|
| |
| |
|
|
camera {
location <(4/3)/2, 1, 0.5>
look_at <(4/3)/2, 0, 0.5>
}
light_source {<1, 5, 5> color rgb 1}
#include "functions.inc"
#macro Painter(pig, painterType, widthX, depthZ, strokesX, strokesZ)
// painterType = 0 - Van Gogh
// painterType = 1 - pointilism (Seurat, Signac, Cross...)
#local cntX = 0;
#local cntZ = 0;
#local lseed = seed(1000);
#local incrX = widthX/strokesX;
#local incrZ = depthZ/strokesZ;
#while(cntX < strokesX)
#local cntZ = 0;
#while(cntZ < strokesZ)
#declare currentPoint = <incrX*cntX, 0, incrZ*cntZ>;
#if(cntZ >= (strokesZ - 5))
#declare P1 = eval_pigment(pig, <currentPoint.x, 0,
currentPoint.z>);
#declare P2 = eval_pigment(pig, <currentPoint.x, 0, currentPoint.z -
incrZ*1>);
#declare P3 = eval_pigment(pig, <currentPoint.x, 0, currentPoint.z -
incrZ*2>);
#declare P4 = eval_pigment(pig, <currentPoint.x, 0, currentPoint.z -
incrZ*3>);
#declare P5 = eval_pigment(pig, <currentPoint.x, 0, currentPoint.z -
incrZ*4>);
#else
#declare P1 = eval_pigment(pig, <currentPoint.x, 0,
currentPoint.z>);
#declare P2 = eval_pigment(pig, <currentPoint.x, 0, currentPoint.z +
incrZ*1>);
#declare P3 = eval_pigment(pig, <currentPoint.x, 0, currentPoint.z +
incrZ*2>);
#declare P4 = eval_pigment(pig, <currentPoint.x, 0, currentPoint.z +
incrZ*3>);
#declare P5 = eval_pigment(pig, <currentPoint.x, 0, currentPoint.z +
incrZ*4>);
#end
#local T1 = texture{pigment{P1} finish{ambient 0.4 phong 0.5}};
#local T2 = texture{pigment{P2} finish{ambient 0.4 phong 0.5}};
#local T3 = texture{pigment{P3} finish{ambient 0.4 phong 0.5}};
#local T4 = texture{pigment{P4} finish{ambient 0.4 phong 0.5}};
#local T5 = texture{pigment{P5} finish{ambient 0.4 phong 0.5}};
#if(painterType = 0)
#declare Stroke = blob {
threshold 0.65
sphere { <0, 0, 0>, 1, 2 scale<5, 1, 1> texture{T5} translate<1, 0,
1.4>}
sphere { <0, 0, 0>, 1, 2 scale<5, 1, 1> texture{T4} translate<2, 0,
0.7>}
sphere { <0, 0, 0>, 1, 2 scale<5, 1, 1> texture{T3}}
sphere { <0, 0, 0>, 1, 2 scale<5, 1, 1> texture{T2} translate<3, 0,
-0.6>}
sphere { <0, 0, 0>, 1, 2 scale<4, 1, 1> texture{T1} translate<0.8,
0, -1.2>}
};
#else
#declare Stroke = sphere{0, 2 texture{T1}};
#end
object{
Stroke
scale<0.02 + (0.01 * rand(lseed)), 0.004, 0.02>
scale 0.25 + (0.15 * rand(lseed))
scale 0.55
rotate -y*(10 + (10 * rand(lseed)))
translate<currentPoint.x + (incrX*rand(lseed)), 0, currentPoint.z +
(incrZ*rand(lseed))>
}
#local cntZ = cntZ + 1;
#end
#local cntX = cntX + 1;
#end
#end
#declare tahoe = pigment {
image_map{
jpeg "tahoe.jpg"
map_type 0
interpolate 0
once
}
scale <4/3, 1, 1>
rotate x*90
}
union {
//Painter(tahoe, 0, 4/3, 1, 120, 90) // Van Gogh
Painter(tahoe, 1, 4/3, 1, 160, 120) // pointilism
}
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
| |
|
|
Very impressive ! Others ?
3D979BBC.35766813@mail.com...
> camera {
> location <(4/3)/2, 1, 0.5>
> look_at <(4/3)/2, 0, 0.5>
> }
>
> light_source {<1, 5, 5> color rgb 1}
>
> #include "functions.inc"
>
> #macro Painter(pig, painterType, widthX, depthZ, strokesX, strokesZ)
>
> // painterType = 0 - Van Gogh
> // painterType = 1 - pointilism (Seurat, Signac, Cross...)
>
> #local cntX = 0;
> #local cntZ = 0;
> #local lseed = seed(1000);
> #local incrX = widthX/strokesX;
> #local incrZ = depthZ/strokesZ;
>
> #while(cntX < strokesX)
> #local cntZ = 0;
> #while(cntZ < strokesZ)
> #declare currentPoint = <incrX*cntX, 0, incrZ*cntZ>;
>
> #if(cntZ >= (strokesZ - 5))
> #declare P1 = eval_pigment(pig, <currentPoint.x, 0,
> currentPoint.z>);
> #declare P2 = eval_pigment(pig, <currentPoint.x, 0, currentPoint.z -
> incrZ*1>);
> #declare P3 = eval_pigment(pig, <currentPoint.x, 0, currentPoint.z -
> incrZ*2>);
> #declare P4 = eval_pigment(pig, <currentPoint.x, 0, currentPoint.z -
> incrZ*3>);
> #declare P5 = eval_pigment(pig, <currentPoint.x, 0, currentPoint.z -
> incrZ*4>);
> #else
> #declare P1 = eval_pigment(pig, <currentPoint.x, 0,
> currentPoint.z>);
> #declare P2 = eval_pigment(pig, <currentPoint.x, 0, currentPoint.z +
> incrZ*1>);
> #declare P3 = eval_pigment(pig, <currentPoint.x, 0, currentPoint.z +
> incrZ*2>);
> #declare P4 = eval_pigment(pig, <currentPoint.x, 0, currentPoint.z +
> incrZ*3>);
> #declare P5 = eval_pigment(pig, <currentPoint.x, 0, currentPoint.z +
> incrZ*4>);
> #end
>
> #local T1 = texture{pigment{P1} finish{ambient 0.4 phong 0.5}};
> #local T2 = texture{pigment{P2} finish{ambient 0.4 phong 0.5}};
> #local T3 = texture{pigment{P3} finish{ambient 0.4 phong 0.5}};
> #local T4 = texture{pigment{P4} finish{ambient 0.4 phong 0.5}};
> #local T5 = texture{pigment{P5} finish{ambient 0.4 phong 0.5}};
>
> #if(painterType = 0)
> #declare Stroke = blob {
> threshold 0.65
> sphere { <0, 0, 0>, 1, 2 scale<5, 1, 1> texture{T5} translate<1, 0,
> 1.4>}
> sphere { <0, 0, 0>, 1, 2 scale<5, 1, 1> texture{T4} translate<2, 0,
> 0.7>}
> sphere { <0, 0, 0>, 1, 2 scale<5, 1, 1> texture{T3}}
> sphere { <0, 0, 0>, 1, 2 scale<5, 1, 1> texture{T2} translate<3, 0,
> -0.6>}
> sphere { <0, 0, 0>, 1, 2 scale<4, 1, 1> texture{T1} translate<0.8,
> 0, -1.2>}
> };
> #else
> #declare Stroke = sphere{0, 2 texture{T1}};
> #end
>
> object{
> Stroke
> scale<0.02 + (0.01 * rand(lseed)), 0.004, 0.02>
> scale 0.25 + (0.15 * rand(lseed))
> scale 0.55
> rotate -y*(10 + (10 * rand(lseed)))
> translate<currentPoint.x + (incrX*rand(lseed)), 0, currentPoint.z +
> (incrZ*rand(lseed))>
> }
>
> #local cntZ = cntZ + 1;
> #end
> #local cntX = cntX + 1;
> #end
> #end
>
> #declare tahoe = pigment {
> image_map{
> jpeg "tahoe.jpg"
> map_type 0
> interpolate 0
> once
> }
> scale <4/3, 1, 1>
> rotate x*90
> }
>
> union {
> //Painter(tahoe, 0, 4/3, 1, 120, 90) // Van Gogh
> Painter(tahoe, 1, 4/3, 1, 160, 120) // pointilism
> }
>
>
Post a reply to this message
|
|
| |
| |
|
|
|
|
| |
|
|
