END OF AN ERA, FRACTALFORUMS.COM IS CONTINUED ON FRACTALFORUMS.ORG

#macro OBJ_atom(srodek, promien)
    sphere {
        srodek promien promien*1.5
    }
#end
     
#macro OBJ_punkty(srodek, R, iter)
    #if (iter > 0)                                
        OBJ_punkty(<srodek.x + R, srodek.y, srodek.z>, R*0.8, iter-1)
        OBJ_punkty(<srodek.x - R, srodek.y, srodek.z>, R*0.8, iter-1)
        OBJ_punkty(<srodek.x, srodek.y + R, srodek.z>, R*0.8, iter-1)
        OBJ_punkty(<srodek.x, srodek.y - R, srodek.z>, R*0.8, iter-1)
        OBJ_punkty(<srodek.x, srodek.y, srodek.z + R>, R*0.8, iter-1)
        OBJ_punkty(<srodek.x, srodek.y, srodek.z - R>, R*0.8, iter-1)
        OBJ_atom(srodek, R*0.8)
    #else                        
        OBJ_atom(srodek, R*0.8)
    #end  

#end      


object {
    blob {
        threshold 0.6
        OBJ_punkty(<0, 1, 0>, 1.2, 5)
    }    

     material {
        M_Test1
     }  
     translate <0, 5, 0>
}