Wolfram Function Repository

Instant-use add-on functions for the Wolfram Language

Function Repository Resource:

 CompareFonts

Source Notebook

See the installed fonts on your system

Contributed by: Ed Pegg Jr

ResourceFunction["CompareFonts"][]

list all installed fonts in the style of the font.

ResourceFunction["CompareFonts"]["text"]

shows "text" using all font families.

ResourceFunction["CompareFonts"][text,{font1,font2, font3,...}]

show the String text in a given list of font families fonti.

ResourceFunction["CompareFonts"][text, number]

show a random number of font styles for text.

Details and Options

The system information item $FontFamilies collects the fonts. Your fonts may vary.
Tooltip stacks the font name on top of the stylized name of the font. For example, the legible"Wingdings" is shown over "Wingdings". Tooltip also shows the font family name over a stylized version of the font name.
The number of available font families varies significantly between users.
ResourceFunction["CompareFonts"] supports the option FontSize with a default of 12.

Examples

Basic Examples (3) 

See all the Z's with a Tooltip for each font:

In[1]:=
ResourceFunction["CompareFonts"]["Z"]
Out[1]=

CompareFonts[] lists all fonts in their font style with a Tooltip for the font name:

In[2]:=
Short[ResourceFunction["CompareFonts"][], 12]
Out[2]=

Admire your pipe collection at a different font size:

In[3]:=
Row[ResourceFunction["CompareFonts"]["|", FontSize -> 8]]
Out[3]=

This screenshot shows how the font name and stylized font name are stacked in the Tooltip:

Scope (3) 

See a sampling of all the fonts at a larger font size:

In[4]:=
RandomSample[ResourceFunction["CompareFonts"][FontSize -> 18], 12]
Out[4]=

Get some random fonts:

In[5]:=
randomfonts = RandomSample[$FontFamilies, 15]
Out[5]=

You may specify a custom list of fonts to use for a text string:

In[6]:=
ResourceFunction["CompareFonts"]["Custom List", randomfonts]
Out[6]=

A font size can be specified:

In[7]:=
ResourceFunction["CompareFonts"]["Custom List", randomfonts, FontSize -> 8]
Out[7]=

If a font size is given, it may be followed by the size of a random sampling, shown here twice:

In[8]:=
Row[ResourceFunction["CompareFonts"]["&", 40, FontSize -> 18]]
Out[8]=
In[9]:=
Row[ResourceFunction["CompareFonts"]["&", 40, FontSize -> 18]]
Out[9]=

Possible Issues (2) 

There are many custom characters in the Wolfram Language:

In[10]:=
WolframLanguageCharacters = {"á", "ā", "ă", "ä", "æ", "à", "â", "\[Aleph]", "\[AliasDelimiter]", "\[AliasIndicator]", "\[Alpha]", "\[AltKey]", "\[And]", "\[Angle]", "\[Angstrom]", "å", "\[AscendingEllipsis]", "ã", "\[Backslash]", "\[BeamedEighthNote]", "\[BeamedSixteenthNote]", "\[Because]", "\[Bet]", "\[Beta]", "˘", "\[Bullet]", "ć", "\[Cap]", "Á", "Ā", "Ă", "Ä", "Æ", "À", "Â", "\[CapitalAlpha]", "Å", "Ã", "\[CapitalBeta]", "Ć", "Ç", "Č", "\[CapitalChi]", "\[CapitalDelta]", "\[CapitalDifferentialD]", "\[CapitalDigamma]", "É", "Ē", "Ĕ", "Ë", "È", "Ê", "\[CapitalEpsilon]", "\[CapitalEta]", "Ð", "\[CapitalGamma]", "Í", "Ĭ", "Ï", "Ì", "Î", "\[CapitalIota]", "\[CapitalKappa]", "\[CapitalKoppa]", "\[CapitalLambda]", "Ł", "\[CapitalMu]", "Ñ", "\[CapitalNu]", "Ó", "Ő", "Ö", "Ò", "Ô", "\[CapitalOmega]", "\[CapitalOmicron]", "Ø", "Õ", "\[CapitalPhi]", "\[CapitalPi]", "\[CapitalPsi]", "\[CapitalRho]", "\[CapitalSampi]", "Š", "\[CapitalSigma]", "\[CapitalStigma]", "\[CapitalTau]", "\[CapitalTheta]", "Þ", "Ú", "Ű", "Ü", "Ù", "Û", "\[CapitalUpsilon]", "\[CapitalXi]", "Ý", "\[CapitalZeta]", "ç", "¸", "¢", "\[CenterDot]", "\[CenterEllipsis]", "č", "\[Checkmark]", "\[Chi]", "\[CircleDot]", "\[CircleMinus]", "\[CirclePlus]", "\[CircleTimes]", "\[ClockwiseContourIntegral]", """, "'", "\[CloverLeaf]", "\[ClubSuit]", "\[Colon]", "\[CommandKey]", "\[Congruent]", "\[Conjugate]", "\[ConjugateTranspose]", "\[ConstantC]", "\[Continuation]", "\[ContourIntegral]", "\[ControlKey]", "\[Coproduct]", "©", "\[CounterClockwiseContourIntegral]", "\[Cross]", "\[Cup]", "\[CupCap]", "\[CurlyCapitalUpsilon]", "\[CurlyEpsilon]", "\[CurlyKappa]", "\[CurlyPhi]", "\[CurlyPi]", "\[CurlyRho]", "\[CurlyTheta]", "¤", "\[Dagger]", "\[Dalet]", "\[Dash]", "°", "\[Del]", "\[DeleteKey]", "\[Delta]", "\[DescendingEllipsis]", "\[Diameter]", "\[Diamond]", "\[DiamondSuit]", "\[DifferentialD]", "\[Digamma]", "/", "\[DotEqual]", "ı", "\[DotlessJ]", "\[DottedSquare]", "\[DoubleContourIntegral]", "\[DoubleDagger]", "\[DoubledGamma]", "\[DoubleDownArrow]", "\[DoubledPi]", "\[DoubleLeftArrow]", "\[DoubleLeftRightArrow]", "\[DoubleLeftTee]", "\[DoubleLongLeftArrow]", "\[DoubleLongLeftRightArrow]", "\[DoubleLongRightArrow]", "\[DoublePrime]", "\[DoubleRightArrow]", "\[DoubleRightTee]", "\[DoubleStruckA]", "\[DoubleStruckB]", "\[DoubleStruckC]", "\[DoubleStruckCapitalA]", "\[DoubleStruckCapitalB]", "\[DoubleStruckCapitalC]", "\[DoubleStruckCapitalD]", "\[DoubleStruckCapitalE]", "\[DoubleStruckCapitalF]", "\[DoubleStruckCapitalG]", "\[DoubleStruckCapitalH]", "\[DoubleStruckCapitalI]", "\[DoubleStruckCapitalJ]", "\[DoubleStruckCapitalK]", "\[DoubleStruckCapitalL]", "\[DoubleStruckCapitalM]", "\[DoubleStruckCapitalN]", "\[DoubleStruckCapitalO]", "\[DoubleStruckCapitalP]", "\[DoubleStruckCapitalQ]", "\[DoubleStruckCapitalR]", "\[DoubleStruckCapitalS]", "\[DoubleStruckCapitalT]", "\[DoubleStruckCapitalU]", "\[DoubleStruckCapitalV]", "\[DoubleStruckCapitalW]", "\[DoubleStruckCapitalX]", "\[DoubleStruckCapitalY]", "\[DoubleStruckCapitalZ]", "\[DoubleStruckD]", "\[DoubleStruckE]", "\[DoubleStruckEight]", "\[DoubleStruckF]", "\[DoubleStruckFive]", "\[DoubleStruckFour]", "\[DoubleStruckG]", "\[DoubleStruckH]", "\[DoubleStruckI]", "\[DoubleStruckJ]", "\[DoubleStruckK]", "\[DoubleStruckL]", "\[DoubleStruckM]", "\[DoubleStruckN]", "\[DoubleStruckNine]", "\[DoubleStruckO]", "\[DoubleStruckOne]", "\[DoubleStruckP]", "\[DoubleStruckQ]", "\[DoubleStruckR]", "\[DoubleStruckS]", "\[DoubleStruckSeven]", "\[DoubleStruckSix]", "\[DoubleStruckT]", "\[DoubleStruckThree]", "\[DoubleStruckTwo]", "\[DoubleStruckU]", "\[DoubleStruckV]", "\[DoubleStruckW]", "\[DoubleStruckX]", "\[DoubleStruckY]", "\[DoubleStruckZ]", "\[DoubleStruckZero]", "\[DoubleUpArrow]", "\[DoubleUpDownArrow]", "\[DoubleVerticalBar]", "\[DownArrow]", "\[DownArrowBar]", "\[DownArrowUpArrow]", "\[DownBreve]", "¡", "\[DownLeftRightVector]", "\[DownLeftTeeVector]", "\[DownLeftVector]", "\[DownLeftVectorBar]", "\[DownPointer]", "¿", "\[DownRightTeeVector]", "\[DownRightVector]", "\[DownRightVectorBar]", "\[DownTee]", "\[DownTeeArrow]", "é", "\[Earth]", "ē", "ĕ", "ë", "è", "ê", "\[EighthNote]", "\[Element]", "\[Ellipsis]", "\[EmptyCircle]", "\[EmptyDiamond]", "\[EmptyDownTriangle]", "\[EmptyRectangle]", "\[EmptySet]", "\[EmptySmallCircle]", "\[EmptySmallSquare]", "\[EmptySquare]", "\[EmptyUpTriangle]", "\[EmptyVerySmallSquare]", "\[EnterKey]", "\[EntityEnd]", "\[EntityStart]", "\[Epsilon]", "==", "\[EqualTilde]", "\[Equilibrium]", "\[ErrorIndicator]", "\[EscapeKey]", "\[Eta]", "ð", "€", "\[Exists]", "E", "\[FiLigature]", "\[FilledCircle]", "\[FilledDiamond]", "\[FilledDownTriangle]", "\[FilledLeftTriangle]", "\[FilledRectangle]", "\[FilledRightTriangle]", "\[FilledSmallCircle]", "\[FilledSmallSquare]", "\[FilledSquare]", "\[FilledUpTriangle]", "\[FilledVerySmallSquare]", "\[FinalSigma]", "\[FirstPage]", "\[FivePointedStar]", "\[Flat]", "\[FlLigature]", "ƒ", "\[ForAll]", "\[FreakedSmiley]", "\[Gamma]", "\[Gimel]", "\[GothicA]", "\[GothicB]", "\[GothicC]", "\[GothicCapitalA]", "\[GothicCapitalB]", "\[GothicCapitalC]", "\[GothicCapitalD]", "\[GothicCapitalE]", "\[GothicCapitalF]", "\[GothicCapitalG]", "\[GothicCapitalH]", "\[GothicCapitalI]", "\[GothicCapitalJ]", "\[GothicCapitalK]", "\[GothicCapitalL]", "\[GothicCapitalM]", "\[GothicCapitalN]", "\[GothicCapitalO]", "\[GothicCapitalP]", "\[GothicCapitalQ]", "\[GothicCapitalR]", "\[GothicCapitalS]", "\[GothicCapitalT]", "\[GothicCapitalU]", "\[GothicCapitalV]", "\[GothicCapitalW]", "\[GothicCapitalX]", "\[GothicCapitalY]", "\[GothicCapitalZ]", "\[GothicD]", "\[GothicE]", "\[GothicEight]", "\[GothicF]", "\[GothicFive]", "\[GothicFour]", "\[GothicG]", "\[GothicH]", "\[GothicI]", "\[GothicJ]", "\[GothicK]", "\[GothicL]", "\[GothicM]", "\[GothicN]", "\[GothicNine]", "\[GothicO]", "\[GothicOne]", "\[GothicP]", "\[GothicQ]", "\[GothicR]", "\[GothicS]", "\[GothicSeven]", "\[GothicSix]", "\[GothicT]", "\[GothicThree]", "\[GothicTwo]", "\[GothicU]", "\[GothicV]", "\[GothicW]", "\[GothicX]", "\[GothicY]", "\[GothicZ]", "\[GothicZero]", "\[GrayCircle]", "\[GraySquare]", ">=", "\[GreaterEqualLess]", "\[GreaterFullEqual]", "\[GreaterGreater]", "\[GreaterLess]", "\[GreaterSlantEqual]", "\[GreaterTilde]", "ˇ", "\[HappySmiley]", "\[HBar]", "\[HeartSuit]", "\[HermitianConjugate]", "\[HorizontalLine]", "\[HumpDownHump]", "\[HumpEqual]", "-", "í", "ĭ", "ï", "ì", "î", "I", "\[ImaginaryJ]", "\[Implies]", "\[Integral]", "\[Intersection]", "\[Iota]", "\[Jupiter]", "\[Kappa]", "\[KernelIcon]", "\[Koppa]", "\[Lambda]", "\[LastPage]", "\[LeftAngleBracket]", "\[LeftArrow]", "\[LeftArrowBar]", "\[LeftArrowRightArrow]", "\[LeftBracketingBar]", "\[LeftCeiling]", "[[", "\[LeftDoubleBracketingBar]", "\[LeftDownTeeVector]", "\[LeftDownVector]", "\[LeftDownVectorBar]", "\[LeftFloor]", "«", "\[LeftModified]", "\[LeftPointer]", "\[LeftRightArrow]", "\[LeftRightVector]", "<<", "\[LeftTee]", "\[LeftTeeArrow]", "\[LeftTeeVector]", "\[LeftTriangle]", "\[LeftTriangleBar]", "\[LeftTriangleEqual]", "\[LeftUpDownVector]", "\[LeftUpTeeVector]", "\[LeftUpVector]", "\[LeftUpVectorBar]", "\[LeftVector]", "\[LeftVectorBar]", "<=", "\[LessEqualGreater]", "\[LessFullEqual]", "\[LessGreater]", "\[LessLess]", "\[LessSlantEqual]", "\[LessTilde]", "\[LetterSpace]", "\[LightBulb]", "\[LongDash]", "==", "\[LongLeftArrow]", "\[LongLeftRightArrow]", "\[LongRightArrow]", "\[LowerLeftArrow]", "\[LowerRightArrow]", "ł", "\[Mars]", "\[MathematicaIcon]", "\[MeasuredAngle]", "\[Mercury]", "\[Mho]", "µ", "\[MinusPlus]", "\[Mu]", "\[Nand]", "\[Natural]", "\[Neptune]", "\[NestedGreaterGreater]", "\[NestedLessLess]", "\[NeutralSmiley]", "\[Nor]", "\[Not]", "\[NotCongruent]", "\[NotCupCap]", "\[NotDoubleVerticalBar]", "\[NotElement]", "!=", "\[NotEqualTilde]", "\[NotExists]", "\[NotGreater]", "\[NotGreaterEqual]", "\[NotGreaterFullEqual]", "\[NotGreaterGreater]", "\[NotGreaterLess]", "\[NotGreaterSlantEqual]", "\[NotGreaterTilde]", "\[NotHumpDownHump]", "\[NotHumpEqual]", "\[NotLeftTriangle]", "\[NotLeftTriangleBar]", "\[NotLeftTriangleEqual]", "\[NotLess]", "\[NotLessEqual]", "\[NotLessFullEqual]", "\[NotLessGreater]", "\[NotLessLess]", "\[NotLessSlantEqual]", "\[NotLessTilde]", "\[NotNestedGreaterGreater]", "\[NotNestedLessLess]", "\[NotPrecedes]", "\[NotPrecedesEqual]", "\[NotPrecedesSlantEqual]", "\[NotPrecedesTilde]", "\[NotReverseElement]", "\[NotRightTriangle]", "\[NotRightTriangleBar]", "\[NotRightTriangleEqual]", "\[NotSquareSubset]", "\[NotSquareSubsetEqual]", "\[NotSquareSuperset]", "\[NotSquareSupersetEqual]", "\[NotSubset]", "\[NotSubsetEqual]", "\[NotSucceeds]", "\[NotSucceedsEqual]", "\[NotSucceedsSlantEqual]", "\[NotSucceedsTilde]", "\[NotSuperset]", "\[NotSupersetEqual]", "\[NotTilde]", "\[NotTildeEqual]", "\[NotTildeFullEqual]", "\[NotTildeTilde]", "\[NotVerticalBar]", "ñ", "\[Nu]", "\[Null]", "\[NumberSign]", "ó", "ő", "ö", "ò", "ô", "\[Omega]", "\[Omicron]", """, "'", "\[OptionKey]", "\[Or]", "ø", "õ", "\[OverBrace]", "\[OverBracket]", "\[OverParenthesis]", "¶", "\[PartialD]", "\[Phi]", "\[Pi]", "\[Piecewise]", "\[Placeholder]", "\[PlusMinus]", "\[Pluto]", "\[Precedes]", "\[PrecedesEqual]", "\[PrecedesSlantEqual]", "\[PrecedesTilde]", "\[Prime]", "\[Product]", "\[Proportion]", "\[Proportional]", "\[Psi]", "\[QuarterNote]", "&", "@", "`", "\\", ":", ",", "-", "$", ".", "=", "!", ">", "{", "[", "(", "<", "#", "%", "+", "?", "'", "}", "]", ")", ";", "/", " ", "*", "~", "_", "|", "^", "®", "\[ReturnIndicator]", "\[ReturnKey]", "\[ReverseDoublePrime]", "\[ReverseElement]", "\[ReverseEquilibrium]", "\[ReversePrime]", "\[ReverseUpEquilibrium]", "\[Rho]", "\[RightAngle]", "\[RightAngleBracket]", "\[RightArrow]", "\[RightArrowBar]", "\[RightArrowLeftArrow]", "\[RightBracketingBar]", "\[RightCeiling]", "]]", "\[RightDoubleBracketingBar]", "\[RightDownTeeVector]", "\[RightDownVector]", "\[RightDownVectorBar]", "\[RightFloor]", "»", "\[RightModified]", "\[RightPointer]", ">>", "\[RightTee]", "\[RightTeeArrow]", "\[RightTeeVector]", "\[RightTriangle]", "\[RightTriangleBar]", "\[RightTriangleEqual]", "\[RightUpDownVector]", "\[RightUpTeeVector]", "\[RightUpVector]", "\[RightUpVectorBar]", "\[RightVector]", "\[RightVectorBar]", "\[RoundImplies]", "\[RoundSpaceIndicator]", "->", ":>", "\[SadSmiley]", "\[Sampi]", "\[Saturn]", "\[ScriptA]", "\[ScriptB]", "\[ScriptC]", "\[ScriptCapitalA]", "\[ScriptCapitalB]", "\[ScriptCapitalC]", "\[ScriptCapitalD]", "\[ScriptCapitalE]", "\[ScriptCapitalF]", "\[ScriptCapitalG]", "\[ScriptCapitalH]", "\[ScriptCapitalI]", "\[ScriptCapitalJ]", "\[ScriptCapitalK]", "\[ScriptCapitalL]", "\[ScriptCapitalM]", "\[ScriptCapitalN]", "\[ScriptCapitalO]", "\[ScriptCapitalP]", "\[ScriptCapitalQ]", "\[ScriptCapitalR]", "\[ScriptCapitalS]", "\[ScriptCapitalT]", "\[ScriptCapitalU]", "\[ScriptCapitalV]", "\[ScriptCapitalW]", "\[ScriptCapitalX]", "\[ScriptCapitalY]", "\[ScriptCapitalZ]", "\[ScriptD]", "\[ScriptDotlessI]", "\[ScriptDotlessJ]", "\[ScriptE]", "\[ScriptEight]", "\[ScriptF]", "\[ScriptFive]", "\[ScriptFour]", "\[ScriptG]", "\[ScriptH]", "\[ScriptI]", "\[ScriptJ]", "\[ScriptK]", "\[ScriptL]", "\[ScriptM]", "\[ScriptN]", "\[ScriptNine]", "\[ScriptO]", "\[ScriptOne]", "\[ScriptP]", "\[ScriptQ]", "\[ScriptR]", "\[ScriptS]", "\[ScriptSeven]", "\[ScriptSix]", "\[ScriptT]", "\[ScriptThree]", "\[ScriptTwo]", "\[ScriptU]", "\[ScriptV]", "\[ScriptW]", "\[ScriptX]", "\[ScriptY]", "\[ScriptZ]", "\[ScriptZero]", "§", "\[SelectionPlaceholder]", "š", "\[Sharp]", "\[ShortLeftArrow]", "\[ShortRightArrow]", "\[Sigma]", "\[SixPointedStar]", "\[SkeletonIndicator]", "\[SmallCircle]", "\[SpaceKey]", "\[SpadeSuit]", "\[SpanFromAbove]", "\[SpanFromBoth]", "\[SpanFromLeft]", "\[SphericalAngle]", "\[Sqrt]", "\[Square]", "\[SquareIntersection]", "\[SquareSubset]", "\[SquareSubsetEqual]", "\[SquareSuperset]", "\[SquareSupersetEqual]", "\[SquareUnion]", "\[Star]", "£", "\[Stigma]", "\[Subset]", "\[SubsetEqual]", "\[Succeeds]", "\[SucceedsEqual]", "\[SucceedsSlantEqual]", "\[SucceedsTilde]", "\[SuchThat]", "\[Sum]", "\[Superset]", "\[SupersetEqual]", "\[SystemEnterKey]", "ß", "\[TabKey]", "\[Tau]", "\[Therefore]", "\[Theta]", "þ", "\[Tilde]", "\[TildeEqual]", "\[TildeFullEqual]", "\[TildeTilde]", "*", "\[Trademark]", "\[Transpose]", "ú", "ű", "ü", "ù", "û", "\[UnderBrace]", "\[UnderBracket]", "\[UnderParenthesis]", "\[Union]", "\[UnionPlus]", "\[UpArrow]", "\[UpArrowBar]", "\[UpArrowDownArrow]", "\[UpDownArrow]", "\[UpEquilibrium]", "\[UpperLeftArrow]", "\[UpperRightArrow]", "\[UpPointer]", "\[Upsilon]", "\[UpTee]", "\[UpTeeArrow]", "\[Uranus]", "\[Vee]", "\[Venus]", "\[VerticalBar]", "\[VerticalEllipsis]", "\[VerticalLine]", "\[VerticalSeparator]", "\[VerticalTilde]", "\[WarningSign]", "\[WatchIcon]", "\[Wedge]", "\[WeierstrassP]", "\[Wolf]", "\[Xi]", "\[Xor]", "ý", "ÿ", "¥", "\[Zeta]", "\[Infinity]"}; randomWL = RandomSample[WolframLanguageCharacters, 20]
Out[11]=

Using random fonts on custom characters might give odd behavior (but seems fine here):

In[12]:=
ResourceFunction["CompareFonts"][StringJoin[randomWL], RandomSample[$FontFamilies, 15]]
Out[12]=

Neat Examples (1) 

Neat examples:

In[13]:=
Row[ResourceFunction["CompareFonts"]["Neat! ", FontSize -> 10]]
Out[13]=

Requirements

Wolfram Language 14.0 (January 2024) or above

Version History

  • 1.0.0 – 02 May 2025

Related Resources

License Information