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(rayshader)
library(ggplot2)
library(palmerpenguins)
library(tidyverse)
library(rayrender)
library(rayimage)
library(magick)

penguins

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(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(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(sf)
library(dplyr)
library(ggplot2)
library(lubridate)
library(magick)

#Extract state data
us_states = spData::us_states

tylermorganwall

library(rayrender)

pielist = list()
counter = 1
for(i in seq(60-90,360-90,by=60)) {
  angles = seq(i-60,i,by=1)
  xx = 2*sinpi(angles/180)
  yy = 2*cospi(angles/180)
  pielist[[counter]] = data.frame(x=c(0,xx),y=c(0,yy))
  counter = counter + 1

tylermorganwall

library(tidyverse)

dbf = data.frame(color=character(0), x=numeric(0), y=numeric(0), stringsAsFactors = F)


## Distractive woman
# Left arm
dbf = bind_rows(dbf, crossing(color='skin', x=seq(4,5), y=seq(1,9),z=3))
dbf = bind_rows(dbf, data.frame(color='skin', x=5, y=10,z=3))

tylermorganwall

library(rayshader)
library(rayrender)

for(t in 1:90) {
  sliced = matrix(10, 99, 99)
  sliced2 = sliced
  for(i in 1:nrow(sliced)) {
    for(j in 1:ncol(sliced)) {
      sliced2[i,j] = 10+1*cos(-t/90*2*pi + 8*i/nrow(sliced))
      if(i %% 3 == 0 || j %% 3 == 0) {

tylermorganwall

library(rayrender)

drawspiral = function(n, x = 0, material=diffuse(color="white")) {
  segments = list()
  for(i in seq_len(n)) {
    if(i %% 2 != 0) {
      segments[[i]] = cylinder(z=0.5,x=x, length=0.5, radius=0.5*i, material = material, phi_min = 90, phi_max = 270)
    } else {
      segments[[i]] = cylinder(z=0,x=x, length=0.5, radius=0.5*i, material = material, phi_min = 90, phi_max = 270, angle=c(0,180,0))
    }