## 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