R语言rayrender包，add_vignette添加渐晕效果

R语言rayrender包，add_vignette添加渐晕效果

# Tue Jun 15 00:16:39 2021 -

# 字符编码：UTF-8
# R 版本：R 4.1 x64 for window 10
# cgh163email@163.com
# 个人笔记不负责任，拎了个梨🍐🍈
#.rs.restartR()
require(rayrender)
rm(list = ls());gc()
# add_vignette添加渐晕效果
#Plot the dragon
plot_image(dragon)

#Add a vignette effect:

add_vignette(dragon, preview = TRUE, vignette = 0.5)

#Darken the vignette effect:

add_vignette(dragon, preview = TRUE, vignette = 1)


#Increase the width of the blur by 50%:

add_vignette(dragon, preview = TRUE, vignette = c(1,1.5))

dev.copy(png, "add_vignette添加渐晕效果.png");dev.off()