Internet Submarine Cables

Some time ago Tyler Morgan-Wall made a visualization of all the submarine internet cables with Telegeography data.

Tyler posted the code in this gist. I decided to reproduce the visualization with a little modification to add a title and change earth´s rotation direction.

Here is the modification to the last for loop to add the title:

for(i in seq(1,720,by=1)) {
  tmp <- group_objects(fullcablescene,scale=c(1,1,1)*1.02) %>% 
    add_object(sphere(radius=0.99,material=diffuse(image_texture = "2k_earth_daymap.jpg"),angle=c(0,-90,0))) %>% 
    group_objects(angle=c(0,-i/2,0)) %>% 
    add_object(sphere(y=5,z=5,x=5,material=light(intensity = 80,color="lightblue"))) %>% 
    add_object(sphere(y=5,z=5,x=-5,material=light(intensity = 10,color="orange"))) %>% 
    add_object(sphere(y=-10,material=light(intensity = 3,color="white"))) %>%
    render_scene(samples=64,width=1200,height=1200,fov=0,aperture=0, ortho_dimensions = c(2.3,2.3),
                 sample_method = "sobol_blue",parallel = TRUE,return_raw_array = TRUE)
  rayimage::add_title(image = tmp,
                      title_text = "https://martinolmos.github.io/datos_tic/",
                      title_color = "orange",
                      title_position = "north",
                      filename = sprintf("imgs/smallcables%d.png",i))
}

And here is the code to change the direction of earth´s rotation:

av::av_encode_video(sprintf("imgs/smallcables%d.png", seq(720,1,by=-1)), 
                    framerate = 30, 
                    output = "cables.mp4")

And finally the new visualization: