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