Perhaps something like this?

camera
{ right x*image_width/image_height
  location <-.5,1.75,-4>*10
  look_at 0
  angle 55
}

background { rgb .4 }

light_source { <0,20,-10>, 1.5 fade_distance 12 fade_power 2 }

#declare Width = 120;
#declare Depth = 120;
#declare Height = .5;
#declare DotStep = .3;
#declare DotRadius = .11;
#declare Offset = <10,0,0>;

#declare Fxy = function(x,y) { sin(sqrt(x*x+y*y)+pi/2) }

union
{ #declare IndZ = 0;
  #while(IndZ <= Depth/DotStep)
    #declare Z = IndZ*DotStep-Depth/2;
    #declare IndX = 0;
    #while(IndX <= Width/DotStep)
      #declare X = IndX*DotStep-Width/2;

      sphere { <X, Fxy(X,Z)*Height, Z>+Offset, DotRadius }

      #declare IndX = IndX+1;
    #end
    #declare IndZ = IndZ+1;
  #end

  pigment { rgb .4 }
  finish { ambient 1 }
}


-- 
#macro N(D)#if(D>99)cylinder{M()#local D=div(D,104);M().5,2pigment{rgb M()}}
N(D)#end#end#macro M()<mod(D,13)-6mod(div(D,13)8)-3,10>#end blob{
N(11117333955)N(4254934330)N(3900569407)N(7382340)N(3358)N(970)}//  - Warp -

Post a reply to this message