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