#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>
}