logo <- x3p_read(system.file("csafe-logo.x3p", package="x3ptools"))
dim(logo$surface.matrix)
# down-sample to one-fourth of the image:
logo4 <- x3p_sample(logo, m=4)
dim(logo4$surface.matrix)
if (FALSE) {
x3p_image(logo)
x3p_image(logo4)
}
Run the code above in your browser using DataLab