|
![](/i/fill.gif) |
Orchid XP v8 <voi### [at] dev null> wrote:
> http://en.wikipedia.org/wiki/Harmonograph
>
> ...does anybody ELSE have a sudden urge to try this??
With a touch of nonlinearity...
Or did you mean physically?
camera{ location 10*y look_at 0}
plane{y,0 pigment{rgb 1} finish{ambient 1}}
#declare s1 = seed(1400);
#declare om1 = 0.5+rand(s1)*2.0;
#declare om2 = 0.5+rand(s1)*2.0;
#declare A1 = 1.5+rand(s1)*1.0;
#declare A2 = 1.5+rand(s1)*1.0;
#declare p11 = rand(s1)*2*pi;
#declare p12 = rand(s1)*2*pi;
#declare p21 = rand(s1)*2*pi;
#declare p22 = rand(s1)*2*pi;
union{
#declare p=0.0;
#while(p<400.0)
sphere{<A1*sin(om1*cos(p)+p11)-A2*sin(om2*p+p21),0,
A1*cos(om1*sin(p)+p12)-A2*cos(om2*p+p22)>,0.01}
#declare p=p+0.005;
#end
pigment{rgb 0}
}
Post a reply to this message
|
![](/i/fill.gif) |