logo <- x3p_read(system.file("csafe-logo.x3p", package="x3ptools"))
dim(logo$surface.matrix)
if (FALSE) {
x3p_image(logo)
}
# rotate the image by 90 degrees counter-clockwise:
logo90 <- x3p_rotate(logo, 90)
dim(logo90$surface.matrix)
if (FALSE) {
x3p_image(logo90)
}
Run the code above in your browser using DataLab