# Reset fonts to defaults (Please!)
windowsFonts(sans = "TT Arial")        # Reset fonts back to defaults
windowsFonts(serif = "TT Times New Roman")  

# 14.2c The Rdevga method for Windows ==================================== 14.2c

# Note that this method requires editing your Rdevga file so that lines
# 15 - 18 (not include blank and comment lines read: 
# TT Century Gothic : plain
# TT Century Gothic : bold
# TT Century Gothic : italic
# TT Century Gothic : bold&italic
# (but without the hashtag at the beginning).

png(filename = "illustrations/fig-14-4-Rdevga method.png",
  units = "in",                        # Set measurements in inches
  res = 1200,                          # Set resolution at 1200dpi
  width = 6,                           # Width at 6 inches
  height = 4)                          # Height at 4 inches

par(mfcol = c(1, 1))                   # Reset mfcol for just one plot
plot(myV1, myV2, type = "b",           # A simple plot 
  main = "The Rdevga method",          # A Title
  font.main = 15,                      # This should be Century Gothic bold
  font.lab = 12,                       # This should be Courier italic
  font.axis = 7)                       # This should be Times bold

dev.off()                              # Output png file