In a complicated mathlet, you might want to include text labels for certain points, curves, or other objects. We will illustrate the process here by adding text to the mathlet from the introduction. You may wish to review the construction of this mathlet in the first few pages of the article. Since we will only add text primitives to the scene, most of the code from those pages can be reused. Only the last two commands need to be replaced.
With LiveGraphics3D you can label the whole plot and individual axes, and you can put text labels at arbitrary three-dimensional points in your scene. For example, in order to label the blue and green sections with labels
and
, respectively, we only need to insert two
primitives. The arguments of each
primitive specify the text to be displayed, a three-dimensional point determining the position of the label, and (optionally) a two-dimensional vector specifying the horizontal and vertical alignment with respect to the projected three-dimensional position. The default value for this 2D vector is
, specifying that the text is centered horizontally and vertically. For the first label we use
to align the right and top edges of the text with the projected three-dimensional point, while the left and top edges of the second label are aligned at its three-dimensional location by specifying
.
(* all but the last two commands are the same as in the earlier example *)
labels = {Text["x = const.", {x, -2, 0}, {1,1}],
Text["y = const.", {3, y, 0}, {-1,1}]};
example = Graphics3D[
{mesh, point, xSection, ySection, tanplane, labels},
Boxed -> False, Lighting -> False]
WriteLiveForm["meshPlaneText1.lg3d", example]
Resulting applet:
Note that the labels move with the cross sections as you drag the red point because the variables
and
appear in the specification of their position. However, this was only the first step. There are actually many ways to format text in LiveGraphics3D. First of all, we can change the font and its size by wrapping the labels in a formatting function named
. Here is an alternative assignment for
, which modifies the font and its size:
labels = {Text[StyleForm["x = const.", FontFamily -> "Times", FontSize -> 20], {x, -2, 0}, {1,1}], Text[StyleForm["y = const.", FontFamily -> "Times", FontSize -> 20], {3, y, 0}, {-1,1}]};
Most systems support the fonts "Times", "Courier", and "Helvetica"; however, not all special characters are supported in all fonts nor by all systems. In our experience, "Times" usually offers the largest set of special characters. These characters can be entered with their hexadecimal unicode; for example,
represents a lower-case Greek alpha. Many special characters, in particular Greek characters, may be entered by names such as
for the lower-case alpha or
for the upper-case alpha. A list of all named characters recognized by LiveGraphics3D is available in the reference guide for Mathematica 3.0 (Wolfram, 1996).
In order to modify the style of parts of a text label, you can use
. The first argument of
is a formatting string, which contains placeholders (
,
, etc.) for the following arguments. Here is an example, which also shows how to specify symbols in italics and in bold letters:
labels = {Text[StyleForm[StringForm["`1` = const.", StyleForm["x", FontSlant -> "Italic"]], FontFamily -> "Times", FontSize -> 20], {x, -2, 0}, {1,1}], Text[StyleForm[StringForm["`1` = const.", StyleForm["y", FontWeight -> "Bold"]], FontFamily -> "Times", FontSize -> 20], {3, y, 0}, {-1,1}]};
Resulting applet:
Apart from static labels, we can also include the value of any variable in a text label. For example, we can replace the string
by the actual value of
and
. The next example shows two slight variations: The label for
emphasizes the difference between the text label
specified with
and the value of
specified with
:
labels = {Text[StyleForm[StringForm["`1` = `2`", "x", x], FontFamily -> "Times", FontSize -> 20], {x, -2, 0}, {1,1}], Text[StyleForm[StringForm["y = `1`", y], FontFamily -> "Times", FontSize -> 20], {3, y, 0}, {-1,1}]};
Resulting applet:
As you drag the red point in this example, the new numeric values of
and
will be displayed by the two text primitives.
To display a changing numeric value in LiveGraphics3D, the text label must refer to a specific variable. For technical reasons, it is not possible to include arbitrary mathematical expressions within a label; a primitive such as
will result in an error. This is not a serious limitation, however, since we can always define a dependent variable for any mathematical expression and then include the name of this dependent variable in a text label instead of the expression.
For example, let us display the values of
and
with only two decimal digits. The most straightforward way to accomplish this is to display
and
instead of
and
, respectively. Since we cannot put these expressions into a
primitive, we have to define new dependent variables, say
and
. Thus, the complete
tag becomes:
Note the two new variables
and
in the list for dependent variables. These variables also have to appear in the definition of
. There's one additional change in the following code. You might have noticed above that the labels tend to jump around as the lengths of the displayed numbers change. This is very distracting, and can be avoided by using two text primitives for each label. In the following definition, the string
is displayed just below and to the left of the point
, while the value of
is shown just below and to the right of that point. A similar strategy is used for the other label.
labels = { Text[StyleForm["x = ", FontFamily -> "Times", FontSize -> 20], {x, -2.5, 0}, {1, 1}], Text[StyleForm[xDisplay, FontFamily -> "Times", FontSize -> 20], {x, -2.5, 0}, {-1, 1}], Text[StyleForm[["y = ", FontFamily -> "Times", FontSize -> 20], {3.5, y, 0}, {1, 1}], Text[StyleForm[yDisplay, FontFamily -> "Times", FontSize -> 20], {3.5, y, 0}, {-1, 1}] };
Resulting applet:
As mentioned earlier,
primitives are not the only way to include labels in LiveGraphics3D. Two other possibilities, namely labels for axes and the whole plot, will be discussed in the next section.