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