A Stereo Surface View

This is a modification of the final example on teh cloud help page: 
par.set <- list(axis.line = list(col = "transparent"))

w <- wireframe(volcano, shade = TRUE, aspect = c(61/87, 0.4),
               light.source = c(10,0,10), scales=list(draw="false"),
               xlab = "", ylab = "", zlab = "", par.settings = par.set,
               par.box = list(col = "transparent"))

print(w, split = c(1,1,2,1), more = TRUE)
print(update(w,screen=list(z=30,x=-60,y=3)), split = c(2,1,2,1))

Luke Tierney 2008-09-25