Rayballer sphere animation with two mirrors

rayballer_mirror_animation

library(doParallel)

numbercores = parallel::detectCores()
cl = parallel::makeCluster(numbercores)
doParallel::registerDoParallel(cl, cores = numbercores)

#generate position of spheres
zvec = seq(0+1/120,5,length.out = 120)
generate_y_pos = function(z) {
  -1/1000*z^2
}
xpos = function(i) {
  sin(i/30*pi)
}

#sphere spacing
spacing = 5

foreach(i=1:120, .packages = c("rayballer","raster","rayshader","glue")) %dopar% {
  generate_ground(depth = -0.5) %>%
    add_sphere(metal(x=-1001,radius=1000)) %>%
    add_sphere(metal(x=1001,radius=1000)) %>%
    add_sphere(lambertian(x=xpos(i),y=generate_y_pos(-spacing+zvec[i]),z=-spacing+zvec[i],radius=0.5,color=c(1,0,0))) %>%
    add_sphere(lambertian(x=xpos(i),y=generate_y_pos(spacing+zvec[i]),z=spacing+zvec[i],radius=0.5,color=c(1,0,0))) %>%
    add_sphere(lambertian(x=xpos(i),y=generate_y_pos(-2*spacing+zvec[i]),z=-2*spacing+zvec[i],radius=0.5,color=c(1,0,0))) %>%
    add_sphere(lambertian(x=xpos(i),y=generate_y_pos(2*spacing+zvec[i]),z=2*spacing+zvec[i],radius=0.5,color=c(1,0,0))) %>%
    add_sphere(lambertian(x=xpos(i),y=generate_y_pos(-3*spacing+zvec[i]),z=-3*spacing+zvec[i],radius=0.5,color=c(1,0,0))) %>%
    add_sphere(lambertian(x=xpos(i),y=generate_y_pos(3*spacing+zvec[i]),z=3*spacing+zvec[i],radius=0.5,color=c(1,0,0))) %>%
    add_sphere(lambertian(x=xpos(i),y=generate_y_pos(-4*spacing+zvec[i]),z=-4*spacing+zvec[i],radius=0.5,color=c(1,0,0))) %>%
    add_sphere(lambertian(x=xpos(i),y=generate_y_pos(4*spacing+zvec[i]),z=4*spacing+zvec[i],radius=0.5,color=c(1,0,0))) %>%
    add_sphere(lambertian(x=xpos(i),y=generate_y_pos(-5*spacing+zvec[i]),z=-5*spacing+zvec[i],radius=0.5,color=c(1,0,0))) %>%
    add_sphere(lambertian(x=xpos(i),y=generate_y_pos(5*spacing+zvec[i]),z=5*spacing+zvec[i],radius=0.5,color=c(1,0,0))) %>%
    add_sphere(lambertian(x=xpos(i),y=generate_y_pos(-6*spacing+zvec[i]),z=-6*spacing+zvec[i],radius=0.5,color=c(1,0,0))) %>%
    add_sphere(lambertian(x=xpos(i),y=generate_y_pos(6*spacing+zvec[i]),z=6*spacing+zvec[i],radius=0.5,color=c(1,0,0))) %>%
    add_sphere(lambertian(x=xpos(i),y=generate_y_pos(zvec[i]),z=0+zvec[i],radius=0.5,color=c(1,0,0))) %>%
    render_scene(height=500,width=500,lookfrom = c(0.5,2,0.5),lookat = c(-2,0.8,0),fov=60,aperture = 0.05,samples=100,
                 filename = glue::glue("mirror{i}"))
}