demo/envmap.r

In trestletech/rgl: 3D visualization device system (OpenGL)

# 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()