macintosh <- function() .Internal(device("Macintosh","",c(0,0,0)))
