Re: Line breaks in publication standard captions

• To: mathgroup at smc.vnet.net
• Subject: [mg44235] Re: Line breaks in publication standard captions
• From: Paul Abbott <paul at physics.uwa.edu.au>
• Date: Wed, 29 Oct 2003 03:34:20 -0500 (EST)
• Organization: The University of Western Australia
• References: <bnlims\$pb3\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```In article <bnlims\$pb3\$1 at smc.vnet.net>,
Goyder Dr HGD <H.Goyder at rmcs.cranfield.ac.uk> wrote:

> In most publications the caption under a graph, made up from several curves,
> describes the various curves giving examples of the line style. This method
> is more common and simpler than putting a legend in or beside the graph.
> Thus a caption under a graph might read:-
>
> Figure 5. Experimental data (dot dot dot dot ) from Jones [1]. Theoretical
> model using elliptic cylinder polynomials (line) Smith [2].
> Theoretical model using Bessel functions of the third kind
> (dash dash dash dash) Newton [3]. Theoretical model using incomplete beta
> functions with a confocal twist (dot dash dot dash dot dash) Brunel [6].
>
> In the above example the items in brackets are graphics of lines made up
> from dots or dot-dash etc.
>
> The code below is an extension of a method by Omega Consulting. That method
> put the text-with-graphics in an array. The difference here is that I wish
> to keep it all in a line which is wrapped according to the page width.
>
> The problem is that having graphics-in-text spoils the line breaks (not the
> page breaks). The lines tend to break after the graphics within the text.
>
> How can I get good line breaks in my captions?

I use inline cells instead as follows:

Cell[TextData[{  "Figure 5. Experimental data ",  Cell[BoxData[
FormBox[        StyleBox[          RowBox[{          "\[CenterDot]",
"\[CenterDot]", "\[CenterDot]",             "\[CenterDot]"}],
FontSize->16], TraditionalForm]]],  " from Jones [1]. Theoretical model
using elliptic cylinder \polynomials ",  Cell[BoxData[      FormBox[
Smith [2]. Theoretical model using Bessel functions of the third \kind
(",  Cell[BoxData[      FormBox[        StyleBox[          RowBox[{"-",
" ",             RowBox[{"-", " ",               RowBox[{"-", " ",
"-"}]}]}],          FontSize->16], TraditionalForm]]],  ") Newton [3].
Theoretical model using incomplete beta functions \with a confocal twist
(",  Cell[BoxData[      FormBox[        StyleBox[          RowBox[{
"\[CenterDot]", "\[LongDash]", "\[CenterDot]",
"\[LongDash]", "\[CenterDot]", "\[LongDash]"}],          FontSize->16],

This is usually fine and is very easy to type directly from the keyboard.

Cheers,
Paul

--
Paul Abbott                                   Phone: +61 8 9380 2734
School of Physics, M013                         Fax: +61 8 9380 1014
The University of Western Australia      (CRICOS Provider No 00126G)
35 Stirling Highway
Crawley WA 6009                      mailto:paul at physics.uwa.edu.au
AUSTRALIA                            http://physics.uwa.edu.au/~paul

```

• Prev by Date: Re: New version, old bugs
• Next by Date: Re: Mathematica Wish-List
• Previous by thread: Line breaks in publication standard captions
• Next by thread: fractals in Mathematica