rayrender orthographic projection example

ortho_example.R

library(rayrender)

#Create base scene
basescene = xz_rect(x=555/2,y=0.1,z=555/2,555,555,
                    material = lambertian(color="#bababa", checkercolor = "grey10", checkerperiod = 100)) %>%
  add_object(xz_rect(x=555/2,y=1000,z=555/2,343,332,
                     material = lambertian(color="white", lightintensity=40,implicit_sample = TRUE),
                     flipped=TRUE)) 

#Function for sphere bouncing
xposfunction = function(x0,v0,a0, loss=1/4, low,starttime,lengthout = 360, cutoff) {
  xpos = rep(x0,lengthout)
  for(i in starttime:lengthout) {
    x0 = x0 + v0
    if(x0 > low) {
      v0 = v0 - a0
    } else {
      x0 = -x0
      v0 = -v0*loss
    }
    xpos[i] = x0
  }
  xpos[(cutoff+starttime):lengthout] = low
  xpos
}

#Function for smooth camera movement
easefunhalf = function(beginning, end, steep = 1, length.out = 180) {
  single = (end) + (beginning - end) * 1/(1 + exp(seq(-10, 10, length.out = length.out)/steep))
  single
}

#Camera position values
xval = c(easefunhalf(-555,555+555, length.out = 90,steep = 1.5), rep(555+555,90), 
         easefunhalf(555+555,-555, length.out = 90,steep = 1.5), rep(-555,90))
zval = rev(c(easefunhalf(-555,555+555, length.out = 90,steep = 1.5), rep(555+555,90), 
             easefunhalf(555+555,-555, length.out = 90,steep = 1.5), rep(-555,90)))

heightvals = xposfunction(0,7,0.2,1/2,0,1,180,170)
heightvals = c(heightvals,heightvals)

for(i in 1:360) {
  basescene %>%
    add_object(ellipsoid(x=555/2,y=100,z=400,a=50,b=100,c=50, material = metal(color="lightblue"), angle=c(0,0,i))) %>%
    add_object(cube(x=100,y=130/2,z=150,xwidth = 130,ywidth=130,zwidth = 130,
                    material=lambertian(noisecolor="black", noise=0.03, noisephase = -45+i),angle=c(0,10,0))) %>%
    add_object(pig(x=100,y=190,z=150,scale=40,angle=c(0,30,0))) %>%
    add_object(cube(x=555/2,y=-400,z=555/2,xwidth=554.999,ywidth=799.9,zwidth=554.999,
                    material = lambertian(color="white", checkercolor = "grey10", checkerperiod = 100)))%>%
    add_object(pig(x=450,y=50,z=350,scale=40,angle=c(0,120,0))) %>%
    add_object(sphere(x=420,y=555/8+1+heightvals[i],z=100,radius=555/8,
                      material = dielectric(color="lightblue"))) %>%
    add_object(sphere(x=1200,y=555/2,z=1200,radius=100,
                      material = lambertian(color="blue",lightintensity = 120, implicit_sample = TRUE))) %>%
    add_object(sphere(x=-1200,y=555/2,z=-1200,radius=100,
                      material = lambertian(color="red",lightintensity = 120, implicit_sample = TRUE))) %>%
    add_object(obj_model(r_obj(), x=100,y=0,z=400,scale_obj = 100, angle=c(0,90,0), material=lambertian(color="lightgreen"))) %>%
    render_scene(lookfrom=c(xval[i],800,zval[i]),lookat = c(555/2,0,555/2), aperture=0, fov=0,  samples = 600,
                 ambient_light=FALSE, parallel=TRUE, width=800, height=800, clamp_value = 10,
                 ortho_dimensions = c(800,800), filename = glue::glue("pigtest{i}"))
}