Improve the script for displaying outline fonts

Author: jheinen

examples/user_fonts.jl

@@ -1,10 +1,38 @@
-download("https://gr-framework.org/downloads/gr-fonts.tgz", "fonts.tgz")
-run(`tar xzf fonts.tgz`)
-rm("fonts.tgz")
+ENV["GKS_FONT_DIRS"] = "/usr/local/gr/fonts"
 
-ENV["GKS_FONT_DIRS"] = joinpath(pwd(), "fonts", "urw-base35")
-
-const fonts = ("Times Roman", "Times Italic", "Times Bold", "Times Bold Italic", "Helvetica", "Helvetica Oblique", "Helvetica Bold", "Helvetica Bold Oblique", "Courier", "Courier Oblique", "Courier Bold", "Courier Bold Oblique", "Bookman Light", "Bookman Light Italic", "Bookman Demi", "Bookman Demi Italic", "New Century Schoolbook Roman", "New Century Schoolbook Italic", "New Century Schoolbook Bold", "New Century Schoolbook Bold Italic", "Avantgarde Book", "Avantgarde Book Oblique", "Avantgarde Demi", "Avantgarde Demi Oblique", "Palatino Roman", "Palatino Italic", "Palatino Bold", "Palatino Bold Italic", "Zapf Chancery Medium Italica", "Zapf Dingbats")
+const fonts = (
+    "NimbusRomNo9L-Regu.pfb",       # 1: Times New Roman
+    "NimbusRomNo9L-ReguItal.pfb",
+    "NimbusRomNo9L-Medi.pfb",
+    "NimbusRomNo9L-MediItal.pfb",
+    "NimbusSanL-Regu.pfb",          # 5: Helvetica
+    "NimbusSanL-ReguItal.pfb",
+    "NimbusSanL-Bold.pfb",
+    "NimbusSanL-BoldItal.pfb",
+    "NimbusMonL-Regu.pfb",          # 9: Courier
+    "NimbusMonL-ReguObli.pfb",
+    "NimbusMonL-Bold.pfb",
+    "NimbusMonL-BoldObli.pfb",
+    "Symbola.ttf",                  # 13: Symbol
+    "URWBookmanL-Ligh.pfb",         # 14: Bookman Light
+    "URWBookmanL-LighItal.pfb",
+    "URWBookmanL-DemiBold.pfb",
+    "URWBookmanL-DemiBoldItal.pfb",
+    "CenturySchL-Roma.pfb",         # 18: New Century Schoolbook Roman
+    "CenturySchL-Ital.pfb",
+    "CenturySchL-Bold.pfb",
+    "CenturySchL-BoldItal.pfb",
+    "URWGothicL-Book.pfb",          # 22: Avant Garde Book
+    "URWGothicL-BookObli.pfb",
+    "URWGothicL-Demi.pfb",
+    "URWGothicL-DemiObli.pfb",
+    "URWPalladioL-Roma.pfb",        # 26: Palatino
+    "URWPalladioL-Ital.pfb",
+    "URWPalladioL-Bold.pfb",
+    "URWPalladioL-BoldItal.pfb",
+    "URWChanceryL-MediItal.pfb",    # 30: Zapf Chancery
+    "Dingbats-Regu.ttf",            # 31: Dingbats
+)
 
 using GR
 
@@ -17,8 +45,16 @@ for fontname in fonts
   global y
   font = loadfont(fontname)
   settextfontprec(font, GR.TEXT_PRECISION_OUTLINE)
-  text(0.5, y, "The quick brown fox jumps over the lazy dog")
-  tbx, tby = inqtext(0.5, y, "The quick brown fox jumps over the lazy dog")
+  if startswith(fontname, "Symbol")
+    s = "ABCDEFGHIJKLMNOPQSTUVWXYZabcdefghijklmnopqstuvwxyz"
+  elseif startswith(fontname, "Dingbats")
+    y -= 0.015
+    s = "!\"#\$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNO\nPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~"
+  else
+    s = "The quick brown fox jumps over the lazy dog"
+  end
+  text(0.5, y, s)
+  tbx, tby = inqtext(0.5, y, s)
   fillrect(tbx[1], tbx[2], tby[1], tby[3])
   y -= 0.03
 end