Making a two-level label for vertices of a tree.

This is a map producing text of size n.

In[212]:=

Size[s_, n_] := StyleForm[s, FontSize n] ;

We define two operator drawing text. The first one draws a two-levels text. The second one draws two texts a, b in the same line, with a hole in between.

In[213]:=

TwoLines[a_, b_] := DisplayForm[GridBox[{{a}, {b}}]] ; OneLine[a_, b_] := DisplayForm[GridBox[{{a, b}}]] ;

Here is an example.

In[215]:=

RowBox[{RowBox[{ShowGraph, [, RowBox[{CompleteGraph[5], ,, EdgeStyleThin, ,, ImageSize ... ertexLabelTwoLines[Size["Formula", 18], Size["index", 12]]}], ]}], }]

[Graphics:../HTMLFiles/index_206.gif]

Out[215]=

⁃Graphics⁃

Created by Mathematica  (October 17, 2006)