tylermorganwall

library(raster)
library(rayshader)
#Load QGIS georeference image (see https://www.qgistutorials.com/en/docs/3/georeferencing_basics.html)
testindia = raster::stack("1870_southern-india_modified.tif")

#Set bounding box for final map (cut off edges without data, introduced via reprojection)
india_bb = raster::extent(c(68,92,1,20))
cropped_india = raster::crop(testindia, india_bb)

#Convert to RGB array

tylermorganwall

library(rayrender)
library(rayshader)

sizetex = 4000

zval = 100*sinpi(1:360/180)
coordss = expand.grid(x=1:sizetex,y=1:sizetex)

snow_palette = "white"
snow_hs = height_shade(montereybay, texture = snow_palette)

tylermorganwall

library(rayrender)

#Generate a random series that loops
set.seed(5)
perlinnoisex = ambient::noise_perlin(c(1000,1000),frequency = 0.001)
perlinnoisey = ambient::noise_perlin(c(1000,1000),frequency = 0.001)
perlinnoise_rad = ambient::noise_perlin(c(1000,1000),frequency = 0.001)

xvals = rep(0,360)
yvals = rep(0,360)

tylermorganwall

library(rayshader)
library(ggplot2)
library(palmerpenguins)
library(tidyverse)
library(rayrender)
library(rayimage)
library(magick)

penguins

tylermorganwall

library(rayrender)

make_legs  = function(x=0,y=0,z=0) {
  csg_translate(y=-5,
    csg_combine(
      csg_rotate(
        csg_pyramid(z=z,x=x,y=y, height = 10), pivot_point = c(x,5,y),up = c(0,-1,0)),
      csg_box(x=x,z=z,y=2.5, width = c(1,5,1)), operation = "subtract"))
}

tylermorganwall

library(rayrender)

#CSG Pig Elements
leg_scene = list(csg_cylinder(start = c(1,-0.6,0.5), end = c(1,1.,0.5), radius=0.25+0.01),
                 csg_cylinder(start = c(-1,-0.6,0.5), end = c(-1,1.,0.5), radius=0.25+0.01),
                 csg_cylinder(start = c(1,-0.6,-0.5), end = c(1,1.,-0.5), radius=0.25+0.01),
                 csg_cylinder(start = c(-1,-0.6,-0.5), end = c(-1,1.,-0.5), radius=0.25+0.01))
eye_scene = list(csg_sphere(x = 2, y = 2.5, z = 0.3, radius=0.25+0.01),
                 csg_sphere(x = 2, y = 2.5, z = -0.3, radius=0.25+0.01+0.01),
                 csg_sphere(x = 2.2, y = 2.5, z = 0.3, radius=0.1+0.01),

tylermorganwall

library(rayshader)
library(crayon)

ivory <- make_style("ivory")
bgMaroon <- make_style(rgb(0.2,0.2,0.2,0), bg = TRUE)
fancy <- combine_styles(ivory, bgMaroon)
cat(fancy("This will have some fancy colors"), "\n")

tylermorganwall

library(deSolve)
library(rayrender)
parameters = c(a = 0.2, b = 4, c = 8, d = 1)
state = c(X = 1, Y = 0, Z = 1)

Lorenz = function(t, state, parameters) {
  with(as.list(c(state, parameters)), {
    dX = -Y^2 - Z^2 - a*X + a*c
    dY = X * Y - b * X * Z - Y + d
    dZ = b * X * Y + X * Z - Z

tylermorganwall

#You can find the surface textures at the link below:
#http://www.shadedrelief.com/natural3/pages/extra.html
#The background is just starfield image—any will do.
#Note: this uses the latest version of rayrender (0.21.4) on github

library(rayrender)
for(i in 1:360) {
  group_objects(cylinder(angle=c(90,90,0), material=diffuse(image_texture = "8081_earthmap10k.jpg",
                                              bump_texture = "8081_earthbump10k.jpg", bump_intensity = 100),
           radius=12, capped = FALSE, length = 6) %>% 

tylermorganwall

library(rayvertex)

text3d_mesh("A long time ago in a rayverse far,",color=c(75, 213, 238)/255) %>% 
  add_shape(text3d_mesh("far, away...",color=c(75, 213, 238)/255,position=c(-5,-1,0))) %>% 
  rasterize_scene(fov=120,lookat=c(0,-0.5,0),lookfrom=c(0,-0.5,5),
                  filename="start")

for(i in 1:(24*6)) {
  png::readPNG(glue::glue("start.png")) %>% 
    png::writePNG(glue::glue("starwarsvertex{i}.png"))