# Windows-specific example
# start word
wrd <- GetNewWrd()
for( i in seq(10, 24, 2)) {
WrdText(gettextf("This is Arial size %s \n", i), appendCR=FALSE,
fontname="Arial", fontsize=i)
}
for( i in seq(10, 24, 2)) {
WrdText(gettextf("This is Times size %s \n", i), appendCR=FALSE,
fontname="Times", fontsize=i)
}
Run the code above in your browser using DataLab