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[
StyleBox["\[LongDash]", FontSize->22], TraditionalForm]]], "
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],
TraditionalForm]]], ") Brunel [6]."}], "Text"]
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