# RGL-Demo: environment mapping
# Author: Daniel Adler
# $Id$
rgl.demo.envmap <- function()
{
open3d()
# Clear scene:
clear3d("all")
light3d()
bg3d(sphere=T, color="white", back="filled"
, texture=system.file("textures/refmap.png",package="rgl")
)
data(volcano)
surface3d( 10*1:nrow(volcano),10*1:ncol(volcano),5*volcano
, texture=system.file("textures/refmap.png",package="rgl")
, texenvmap=TRUE
, color = "white"
)
}
rgl.demo.envmap()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.