if (FALSE) {
filename <- system.file("ball.shp", package = "AmigaFFH")
ball <- read.AmigaBasicShape(filename)
## This is a sprite:
ball$flags[["fVSprite"]]
filename <- system.file("r_logo.shp", package = "AmigaFFH")
## The palette is not stored with an Amiga Basic Shape, so let's provide one:
r_logo <- read.AmigaBasicShape(filename,
palette = c("#FFFFFF", "#2266BB", "#3366BB", "#4477AA",
"#778899", "#999999", "#AAAAAA", "#BBBBBB"))
## This is a blitter object:
r_logo$flags[["fVSprite"]]
## Just for fun, plot it:
plot(r_logo)
}
Run the code above in your browser using DataLab