R语言rayrender包，csg_box渲染箱子
1.png
2.png
3.png
4.png
# Mon Jun 14 22:35:43 2021 -
# 字符编码：UTF-8
# R 版本：R x64 1 for window 10
# cgh163email@163.com
# 个人笔记不负责任，拎了个梨🍐🍈
#.rs.restartR()
require(rayrender)
rm(list = ls());gc()
scene = generate_ground(depth=-0.5,material = diffuse(checkercolor="blue")) %>%
add_object(cube(x=0.7,
material=diffuse(noise=5,noisecolor="purple",color="black",noisephase=45),
angle=c(0,-30,0))) %>%
add_object(sphere(x=-0.7,radius=0.5,material=metal(color="gold")))
render_scene(scene,parallel=TRUE)
# Mon Jun 14 22:37:51 2021 --
# 背景色
# 箱子颜色
# 背景
# 展示
generate_ground(material=diffuse(checkercolor="grey20")) %>%
add_object(csg_object(csg_box(), material=glossy(color="#FF69B4"))) %>%
add_object(sphere(y=5,x=5,radius=3,material=light(intensity=5))) %>%
render_scene(clamp_value=10,lookfrom=c(7,6,7))
# 改变箱子尺寸
generate_ground(material=diffuse(checkercolor="grey20")) %>%
add_object(csg_object(csg_box(width = c(2,1,0.5)), material=glossy(color="#FF69B4"))) %>%
add_object(sphere(y=5,x=5,radius=3,material=light(intensity=5))) %>%
render_scene(clamp_value=10,lookfrom=c(7,3,7))
#减去两个框来做楼梯
generate_ground(material=diffuse(checkercolor="grey20")) %>%
add_object(csg_object(csg_combine(
csg_box(),
csg_box(x=0.5,y=0.5,width=c(1,1,1.1)),operation="subtract"),
material=glossy(color="#FF69B4"))) %>%
add_object(sphere(y=5,x=5,radius=3,material=light(intensity=5))) %>%
render_scene(clamp_value=10,lookfrom=c(7,3,7),fov=13)
# Mon Jun 14 22:41:02 2021 --end
dev.copy(png, "5.png");dev.off()
