# RGL-demo: subdivision surfaces
# author: Daniel Adler
# $Id$
rgl.demo.subdivision <- function()
{
# setup environment
clear3d("all")
view3d()
bg3d(color="gray")
light3d()
# generate basic mesh
obj <- oh3d()
part <- function( level, tx, ... )
{
shade3d( translate3d( obj, tx, 0, 0 )
, color="gray30", front="lines",alpha=0.5,back="lines", override=TRUE
)
shade3d( translate3d( subdivision3d( obj, depth=level ), tx, 0, 0 )
, override=TRUE, ... )
}
common <- c(alpha=0.5)
part(0, -5.50, color="blue" , common )
part(1, -1.75, color="yellow" , common )
part(2, 1.75, color="red" , common )
part(3, 5.50, color="green" , common )
}
open3d()
rgl.demo.subdivision()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.