logo <- x3p_read(system.file("csafe-logo.x3p", package="x3ptools"))
dim(logo$surface.matrix)
if (FALSE) {
x3p_image(logo)
}
# flip the y-axis for the old ISO standard:
logoflip <- x3p_flip_y(logo)
dim(logoflip$surface.matrix)
if (FALSE) {
x3p_image(logoflip)
}
Run the code above in your browser using DataLab