Orchid XP v8 <voi### [at] devnull> 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