## This duplicates "ComputerModernItalic".
CMitalic <- Type1Font("ComputerModern2",
                      c("CM_regular_10.afm", "CM_boldx_10.afm",
                        "cmti10.afm", "cmbxti10.afm",
                        "CM_symbol_10.afm"),
                      encoding = "TeXtext.enc")
## Not run: ------------------------------------
# ## This could be used by
# postscript(family = CMitalic)
# ## or
# postscriptFonts(CMitalic = CMitalic)  # once in a session
# postscript(family = "CMitalic", encoding = "TeXtext.enc")
## ---------------------------------------------Run the code above in your browser using DataLab