//////////////////
#declare EKS = 0;
#while ( EKS < 1.33 )
    #declare WHY = 0;
    #while ( WHY < 1 )

    /////////////////
        isosurface { function((x^2+y^2+z^2)

+(noise3d(x*(WHY*5),y*(WHY*5),z*(WHY*5))*(EKS*5))
                             )
                             threshold 1
                        scale      < 1.0, 1.0, 1.0 >
                        translate  < EKS*20, WHY*20, 0.0 >

                        pigment{rgb < 1.0, 1.0, 1.0 >}
                        finish { ambient 0.5 }
                                               }
    /////////////////

    #declare WHY = WHY + 0.1;
    #end//WHY
#declare EKS = EKS + 0.1;
#end//EKS
//////////////////

Post a reply to this message

Attachments:
Download 'noise3d0011x1.jpg' (55 KB)

Preview of image 'noise3d0011x1.jpg'