Re: Justification of graphics in cells
- To: mathgroup at smc.vnet.net
- Subject: [mg43159] Re: Justification of graphics in cells
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Fri, 15 Aug 2003 04:27:05 -0400 (EDT)
- References: <bhaab5$klk$1@smc.vnet.net>
- Reply-to: "Allan Hayes" <hay at haystack.demon.co.uk>
- Sender: owner-wri-mathgroup at wolfram.com
Dale,
I am getting something odd.
I display the inline graphics as in your code:
gr = Plot[x, {x, 0, 1}];
inline = Cell[GraphicsData["PostScript", DisplayString[gr]]];
CellPrint[
Cell[TextData[{inline}], "Text", TextAlignment -> Center,
CellMargins -> {{0, 0}, {0, 0}}]
]
Then I click on the picture without moving the mouse, and it moves to the
right - the effect. Repeated clicks move it further to the right.
The first move always gives ImageMargins->{{89, 0}, {0, 0}}.
The phenomenon is not commpletely consistent. It may be triggered by slight
movement of the mouse, but I tried holding the mouse still with one hand and
clicking with the other.
Eventually Mathematica crashes - I get an announcement that an error has
occured and it must close down.
I am using version 5 with Windows XP Professional.
Allan
---------------
Allan Hayes
hay at haystack.demon.co.uk
Voice: +44 (0)116 241 8747
Fax: +44 (0)870 164 0565
"Dale" <dale at omegaconsultinggroup.com> wrote in message
news:bhaab5$klk$1 at smc.vnet.net...
> At 03:12 AM 8/2/2003, Oliver Friedrich wrote:
> >Hallo,
> >
> >there are options like ImageMargins to adjust the position of graphics
> >within a cell. But I'm looking for a counterpart to TextJustification for
> >graphics to say the graphics should be left, right or centered. Is there
> >something available.
>
> This can be done with an inline cell.
>
> gr = Plot[x, {x, 0, 1}];
>
> inline = Cell[GraphicsData["PostScript", DisplayString[gr]]];
>
> CellPrint[
> Cell[TextData[{inline}], "Text", TextAlignment -> Center,
> CellMargins -> {{0, 0}, {0, 0}}]
> ]
>
> --------------------------------------------------------------
> Omega Consulting
> "The final answer to your Mathematica needs"
> http://omegaconsultinggroup.com
>