Re: Info on FullOptions and Graphics
- To: mathgroup at christensen.cybernetics.net
- Subject: [mg1691] Re: [mg1646] Info on FullOptions and Graphics
- From: Richard Mercer <richard at seuss.math.wright.edu>
- Date: Mon, 17 Jul 1995 02:04:23 -0400
> Hi. I am currently having problems with Mathematica.
> I have been trying to have Mathematica read the yrange
> on a graphics output to be used on a PlotRange for another
> graphic. The problem is that I am using the Arrow package
> and the graphics all are generated with Show. Then when
> I use FullOptions I get the same PlotRange no matter
> what. I would appreciate any help any one can give. I
> have included a sample of the code below to show the
> problem. Thanks!
>
> Needs["Graphics`Arrow`"] eplot=
> Table[Graphics[Arrow[{0,0}, {5,6}],
> PlotRange -> {{0,6}, All}, Axes -> True],
> {i,0,0}];
> g=Show[eplot] FullOptions[eplot, PlotRange] FullOptions[g,
> PlotRange]
This works fine with Line in place of Arrow, so it must be a minor bug in the
Arrow.m package. However the workaround is easy:
FullOptions[eplot /. Arrow[a__]:>Line[{a}], PlotRange]
FullOptions[g /. Arrow[a__]:>Line[{a}], PlotRange]
Richard Mercer