Load an obj file via a filepath. Currently only supports the diffuse texture with the texture argument. Note: light importance sampling currently not supported for this shape.

obj_model(filename, x = 0, y = 0, z = 0, scale_obj = 1,
texture = FALSE, material = lambertian(), angle = c(0, 0, 0),
order_rotation = c(1, 2, 3), flipped = FALSE, scale = c(1, 1, 1))

## Arguments

filename Filename and path to the obj file. Can also be a txt file, if it's in the correct obj internally. Default 0. x-coordinate to offset the model. Default 0. y-coordinate to offset the model. Default 0. z-coordinate to offset the model. Default 1. Amount to scale the model. Use this to scale the object up or down on all axes, as it is more robust to numerical precision errors than the generic scale option. Default FALSE. Whether to load the obj file texture. Default lambertian.The material, called from one of the material functions lambertian, metal, or dielectric. Default c(0, 0, 0). Angle of rotation around the x, y, and z axes, applied in the order specified in order_rotation. Default c(1, 2, 3). The order to apply the rotations, referring to "x", "y", and "z". Default FALSE. Whether to flip the normals. Default c(1, 1, 1). Scale transformation in the x, y, and z directions. If this is a single value, number, the object will be scaled uniformly. Note: emissive objects may not currently function correctly when scaled.

## Value

Single row of a tibble describing the obj model in the scene.

## Examples

#Load the included example R object file, by calling the r_obj() function. This
#returns the local file path to the r.txt obj file. The file extension is "txt"
#due to package constraints, but the file contents are identical and it does not
#affect the function.

generate_ground(material = lambertian(checkercolor = "grey50")) %>%
add_object(obj_model(y = -0.8, filename = r_obj(),
material = metal(color = "gold", fuzz = 0.025))) %>%
add_object(obj_model(x = 1.8, y = -0.8, filename = r_obj(),
material = lambertian(color = "lightblue"))) %>%
add_object(obj_model(x = -1.8, y = -0.8, filename = r_obj() ,
material = dielectric(color = "pink"))) %>%
add_object(sphere(z = 20, x = 20, y = 20, radius = 10,
material = lambertian(lightintensity = 20, implicit_sample = TRUE))) %>%
render_scene(parallel = TRUE, samples = 400,
tonemap = "reinhold", aperture = 0.05, fov = 32, lookfrom = c(0, 2, 10))
#Use scale_obj to make objects bigger--this is more robust than the generic scale argument.
generate_ground(material = lambertian(checkercolor = "grey50")) %>%
add_object(obj_model(y = -0.8, filename = r_obj(), scale_obj = 2,
material = lambertian(noise = TRUE, noiseintensity = 10,noisephase=45))) %>%
add_object(sphere(z = 20, x = 20, y = 20, radius = 10,
material = lambertian(lightintensity = 10, implicit_sample = TRUE))) %>%
render_scene(parallel = TRUE, samples = 400, ambient = TRUE,
backgroundhigh="blue", backgroundlow="red",
aperture = 0.05, fov = 32, lookfrom = c(0, 2, 10),
lookat = c(0,1,0))