# NOT RUN {
library (png)
#adapted from png package
im0 <- readPNG (system.file ("img", "Rlogo.png", package="png") )
#standard raster object
colm <- as.raster (im0)
headt (colm)
#smaller version
I <- seq (1, nrow (colm), 5)
J <- seq (1, ncol (colm), 5)
colm <- colm [I, J]
headt (colm)
#VImage
x <- seq (-1, 1,, ncol (colm) + 1)
y <- seq (-1, 1,, nrow (colm) + 1)
v <- rectVImage (x, y, 0, tf=TRUE, colm=colm)
if (interactive () )
spin3d (v %]*% brot3x (pi / 4), t=10)
# }
Run the code above in your browser using DataLab