https://github.com/mlverse/logo
An over-engineered hex logo!
https://github.com/mlverse/logo
Last synced: 5 months ago
JSON representation
An over-engineered hex logo!
- Host: GitHub
- URL: https://github.com/mlverse/logo
- Owner: mlverse
- Created: 2019-06-14T05:31:13.000Z (about 7 years ago)
- Default Branch: master
- Last Pushed: 2020-04-22T05:19:11.000Z (about 6 years ago)
- Last Synced: 2025-08-10T00:22:05.579Z (11 months ago)
- Size: 10.9 MB
- Stars: 2
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.Rmd
Awesome Lists containing this project
README
---
title: "Multiverse Logo"
output:
github_document:
fig_width: 4
fig_height: 1
---
Just a project that generates the 'multiverse' logo.
```{r eval=FALSE}
library(tidyverse)
library(rayrender)
set.seed(2019)
spheres <- expand.grid(y = (1:50) / 5 - 5, z = (1:50) / 5 - 5) %>%
tibble::as_tibble()
noise <- ambient::noise_perlin(c(100, 100, 1))
depth <- purrr::map_dbl(
1:nrow(spheres),
function(idx) 20 * noise[floor(spheres$y[idx]*10+50), floor(spheres$z[idx]*10+50), 1])
sphere(material = metal(color="#AAAAFF", implicit_sample = T),
y = spheres$y, z = spheres$z, x= depth, radius = 0.09) %>%
render_scene(width = 4400, height = 2200, focal_distance = 2, aperture = 0.0001,
lookfrom = c(3.25, 3.975, -2.01), lookat = c(-6,3.975,-2.01),
filename = "multiverse.png")
```
```{html eval=FALSE}
mlverse
www.rstudio.com
download
var svg = document.getElementById("multiverse");
var head = '<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" ' +
'width="600" height="600" viewBox="-10,-10,320,320">';
var source = '<?xml version="1.0" standalone="no"?>\r\n' + head + svg.innerHTML + "</svg>"
var url = "data:image/svg+xml;charset=utf-8," + encodeURIComponent(source);
document.getElementById("download").href = url;
```
