14

I'm having trouble finding a complete list of the FontFamily strings that Mathematica supports.

Alexey Popkov
  • 61,809
  • 7
  • 149
  • 368
M.R.
  • 31,425
  • 8
  • 90
  • 281
  • 1
    does this How to find out available fonts from within Mathematica? answer your question? – kglr Feb 02 '13 at 03:21
  • 3
    @kguler. The answer you link to reports all the fonts available to Mathematica on a particular system. That is has many more entries than the list of font families. A font family can contain many fonts. – m_goldberg Feb 02 '13 at 05:14
  • 1
    @m_goldberg, the image in that answer definitely supports your observation. That image is posted by Szabolcs, and, most likely, it is what you get on a Mac system.) On Windows (Vista) I get a list that has only the font family (not family/slant/weight tuples). – kglr Feb 02 '13 at 05:42
  • FontFamily help: "Mathematica will combine settings for FontFamily, FontWeight, FontSlant, FontTracking, and sometimes FontSize to construct a complete name for the font you want. It will then use this name, together with any settings you have specified for FontPostScriptName and FontNativeName to try to locate an appropriate font on your particular computer system." And then there's FontSubstitutions... – cormullion Feb 02 '13 at 09:29

2 Answers2

8

As of version 10.1 you can use $FontFamilies.

From the documentation:

$FontFamilies gives the list of the font families available to the Wolfram System.

For me $FontFamilies yields an accurate representations on the fonts I have installed on my system (v10.3.1 on Win10).

einbandi
  • 4,024
  • 1
  • 23
  • 39
7

On a Windows system, the solution suggested in this answer 

fontlist = FE`Evaluate[FEPrivate`GetPopupList["MenuListFonts"]]

gives the FontFamilys in the form of rules:

fontlist[[;; 5]]

{"Agency FB" -> "Agency FB", "Aharoni" -> "Aharoni", "Algerian" -> "Algerian", "Amienne" -> "Amienne", "Andalus" -> "Andalus"}

and the list of font families can be obtained by taking the first Parts of the elements in fontlist:

fontlist[[;; 5]][[All,1]]

{"Agency FB", "Aharoni", "Algerian", "Amienne", "Andalus"}

As noted by @m_goldberg in the comments above, one gets tuples of FontFamily, FontWeight and FontSlant on a Mac system. The output is similar to what one gets on a Windows system from the following code:

fontlistMac = Thread[# -> #] &[Join @@ ({#, StringJoin[{#, " ", "Bold"}],
    StringJoin[{#, " ", "Italic"}],
    StringJoin[{#, " ", "Bold", " ", "Italic"}]} & /@ 
fontlist[[;; 5]][[All, 1]])];
Panel[%]

enter image description here

So, to get the list of FontFamilys without duplication, one needs to filter the result using something like

DeleteDuplicates[StringTrim@StringReplace[#, "Bold" | "Italic" :> ""] & /@ 
  macFntLst[[All, 1]]]

{"Agency FB", "Aharoni", "Algerian", "Amienne", "Andalus"}

kglr
  • 394,356
  • 18
  • 477
  • 896
  • Interesting, but aren't there lots of duplicates in there? – cormullion Feb 03 '13 at 08:23
  • @cormullion, thank you.. updated with corrections. – kglr Feb 03 '13 at 10:01
  • It's a good first pass for Mac users, so +1, but it would need many more tweaks and additions to do the job 100% accurately. I can see things like Light, Oblique, Black, Heavy, ExtraBlack, Semibold, Condensed, Regular, Demi, Narrow, Ultra - plus abbreviations of these... A mess... :) – cormullion Feb 03 '13 at 10:17