PostScriptTrace("importtest.ps", "importtest.xml")
test <- grImport::readPicture("importtest.xml")
grImport::grid.picture(test)