R語(yǔ)言rayrender包户辱，csg_torus圓環(huán)體
image.png
# Thu Jun 17 22:33:20 2021 -
# 字符編碼：UTF-8
# R 版本：R x64 4.1 for window 10
# cgh163email@163.com
# 個(gè)人筆記不負(fù)責(zé)任烫幕，拎了個(gè)梨????
#.rs.restartR()
require(rayrender)
rm(list = ls());gc()
# csg_torus圓環(huán)體
generate_ground(material=diffuse(checkercolor="grey20")) %>%
add_object(csg_object(csg_torus(), material=glossy(color="dodgerblue4"))) %>%
add_object(sphere(y=5,x=5,radius=3,material=light(intensity=10))) %>%
render_scene(clamp_value=10,lookfrom=c(0,5,10),fov=30)
#Change the radius of the torus:
generate_ground(material=diffuse(checkercolor="grey20")) %>%
add_object(csg_object(csg_torus(radius=2), material=glossy(color="dodgerblue4"))) %>%
add_object(sphere(y=5,x=5,radius=3,material=light(intensity=10))) %>%
render_scene(clamp_value=10,lookfrom=c(0,5,10),fov=30)
#Change the minor radius of the torus:
generate_ground(material=diffuse(checkercolor="grey20")) %>%
add_object(csg_object(csg_torus(radius=2, minor_radius=0.25),
material=glossy(color="dodgerblue4"))) %>%
add_object(sphere(y=5,x=5,radius=3,material=light(intensity=10))) %>%
render_scene(clamp_value=10,lookfrom=c(0,5,10),fov=30)
#Generate a rotated torus in the Cornell Box
generate_cornell() %>%
add_object(csg_object(csg_rotate(
csg_torus(x=555/2,y=555/2,z=555/2,radius=100, minor_radius=50),
pivot_point = c(555/2,555/2,555/2), up =c(0,1,-1)),
material=glossy(color="dodgerblue4"))) %>%
render_scene(clamp_value=10)
# Thu Jun 17 22:55:43 2021 --
dev.copy(png, "1.png");dev.off()
