|
![](/i/fill.gif) |
As requested ...
Requires an external file named "mozaik.jpg". This file contains
the image to be mosaic-ized.
Aaron
#include "rand.inc"
#include "functions.inc"
camera {
location <0, 0, -65>
look_at <0, 0, 0>
}
light_source {
<-20000, 40000, -30000>
color rgb 2
}
light_source {
<00000, 00000, -30000>
color rgb .5
}
plane {
z, 0
rotate <180, 0, 0>
texture {
pigment {
color rgb <.75, .5, .25>
}
}
}
#local I =
pigment {
image_map {
jpeg "mozaik.jpg"
}
translate <0, -.5, 0>
scale <100, 70, 1> * 2
}
#local Count = 10;
#local SplineX = spline {
natural_spline
#while (Count > 0)
Count * 10, <0, SRand(RdmA), 0>
#local Count = Count - 1;
#end
}
#local Count = 10;
#local SplineY = spline {
natural_spline
#while (Count > 0)
Count * 10, <SRand(RdmA) * 1, 0, 0>
#local Count = Count - 1;
#end
}
#local SizeX = 100;
#local NumX = 100;
#local CountX = NumX;
#while (CountX > 0)
#local SizeY = 100;
#local NumY = 100;
#local CountY = NumX;
#while (CountY > 0)
#local PosX = CountX + SplineY(CountY).x * 2 - (SizeX / 2);
#local PosY = CountY + SplineX(CountX).y * 2 - (SizeY / 2);
#local P = eval_pigment(I, <PosX, PosY, 0>);
superellipsoid {
<.5, .5>
rotate <0, 0, SRand(RdmB) * 15>
scale RRand(.35, .75, RdmB)
translate <PosX, PosY, 0>
texture {
pigment {
marble
turbulence .25
scale 1
color_map {
[0.0 P]
[1.0 P - .125]
}
rotate 45
}
finish {
specular 1
roughness .005
}
normal {
bozo scale .25
}
}
}
#local CountY = CountY - 1;
#end
#local CountX = CountX - 1;
#end
Post a reply to this message
|
![](/i/fill.gif) |