library(grImport)
PostScriptTrace(system.file("extra", "comic_moon.ps",
                            package="RGraphics"),
                "comic_moon.xml")


vectorMoon <- grImport::readPicture("comic_moon.xml")


grImport::grid.picture(vectorMoon)
grImport::grid.picture(vectorMoon, 
                       x=0, y=1, just=c("left", "top"),
                       width=.2, height=.2)
grImport::grid.picture(vectorMoon, 
                       x=1, y=1, just=c("right", "top"),
                       width=.3, height=.1, distort=TRUE)


grid.rect()
grImport::grid.picture(vectorMoon)
grImport::grid.picture(vectorMoon, 
                       x=0, y=1, just=c("left", "top"),
                       width=.2, height=.2)
grImport::grid.picture(vectorMoon, 
                       x=1, y=1, just=c("right", "top"),
                       width=.3, height=.1, distort=TRUE)