open3d()
famnum <- rep(1:4, 8)
family <- c("serif", "sans", "mono", "symbol")[famnum]
font <- rep(rep(1:4, each = 4), 2)
cex <- rep(1:2, each = 16)
text3d(font, cex, famnum, text = paste(family, font), adj = 0.5,
color = "blue", family = family, font = font, cex = cex)
## Not run:
# # These FreeType fonts are available from the Amaya project, and are not shipped
# # with rgl. You would normally install them to the rgl/fonts directory
# # and use fully qualified pathnames, e.g.
# # system.file("fonts/FreeSerif.ttf", package = "rgl")
#
# rglFonts(serif = c("FreeSerif.ttf", "FreeSerifBold.ttf", "FreeSerifItalic.ttf",
# "FreeSerifBoldItalic.ttf"),
# sans = c("FreeSans.ttf", "FreeSansBold.ttf", "FreeSansOblique.ttf",
# "FreeSansBoldOblique.ttf"),
# mono = c("FreeMono.ttf", "FreeMonoBold.ttf", "FreeMonoOblique.ttf",
# "FreeMonoBoldOblique.ttf"),
# symbol= c("ESSTIX10.TTF", "ESSTIX12.TTF", "ESSTIX9_.TTF",
# "ESSTIX11.TTF"))
# ## End(Not run)
Run the code above in your browser using DataLab