if (FALSE) {
## first create a raster object that can be used as input
## (making sure that the background is transparent):
rst <- as.raster(simpleSysConfig()$PointerMatrix, "#AAAAAA00")
## now turn it into a hardware sprite:
spr <- rasterToHWSprite(rst)
## and plot it as a check:
plot(spr)
}
Run the code above in your browser using DataLab