RE: RE: Where have all the axes gone?
- To: mathgroup at smc.vnet.net
- Subject: [mg41011] RE: [mg40964] RE: [mg40917] Where have all the axes gone?
- From: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>
- Date: Tue, 29 Apr 2003 05:20:54 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Bobby,
I quite don't catch on what you wanted to express. But, yes, there are
differences between the proposed two methods to bring the axes to the front.
As far as I see -- or guess, say better -- this is caused by the use of
FullOptions (or AbsoluteOptions) in the package FilledPlot (modified Show
that is) when displaying the graphics with AxesFront -> True.
In[1]:= $Version (* my Version *)
Out[1]= "4.1 for Microsoft Windows (November 2, 2000)"
In[2]:=
g0 = Plot[Exp[-2x^2], {x, -5, 5}, PlotRange -> All,
PlotStyle -> {RGBColor[1, 0, 0], Thickness[0.2]}, Axes -> True];
In[3]:= g1 = Show[FullGraphics[g0], Options[g0]]
To my eye g1 is the same as g0, except for g0 having the axes hidden, but g1
visible. This is what should be in first place!
In[4]:= << Graphics`FilledPlot`
In[5]:=
gaxf = Show[g0, AxesFront -> True]
Here obviously the PlotRegion is cut, parts from (the very thick) plotted
line below and above are missing)
This is very similar -- though not a 100% identical -- to
In[6]:= Show[g1, AbsoluteOptions[g1, PlotRange]]
Now, I recollect vaguely, that the calculation of AbsoluteOptions does not
account for the Thickness of the Lines drawn (whereas Show[...,
PlotRange->All] does).
To compare the minor differences of these plots see:
In[7]:= opt1 = AbsoluteOptions[g1];
In[8]:= optaxf = AbsoluteOptions[gaxf];
In[9]:= AxesFront /. {opt1, optaxf}
Out[9]= {False, True}
Of course!
In[10]:= PlotRange /. {opt1, optaxf}
Out[10]=
{{{-5.5125, 5.5125}, {-0.05125, 1.05125}},
{{-5.25, 5.25}, {-0.025, 1.025}}}
Perhaps due to some "adjustment" made in modified Show, due to the known
discrepancy mentioned.
This follows:
In[11]:=
Dimensions /@ ({ticks1, ticksaxf} = Ticks /. {opt1, optaxf})
Out[11]= {{2, 23, 4}, {2, 21, 4}}
In[12]:=
Complement @@ ReleaseHold[Hold[Ticks[[2, All, All]]] /. {opt1, optaxf}]
Out[12]=
{{-0.05, "", {0.00375, 0.}, {GrayLevel[0.], AbsoluteThickness[0.125]}},
{1.05, "", {0.00375, 0.}, {GrayLevel[0.], AbsoluteThickness[0.125]}}}
Some manual experimenting brings me to
In[43]:=
Show[gaxf, PlotRange -> {{-5.7, 5.7}, {-0.2, 1.15}}]
as being close to the original Plot, now with Axes shown (but longer as
original).
(You may observe some perversity, if you like, gradually changing the
maximum PlotRange of y-direction. But those things are well know either.)
It's difficult to give the user a recommendation; at least, there is a
choice.
--
Hartmut Wolf
>-----Original Message-----
>From: Bobby Treat [mailto:drmajorbob+MathGroup3528 at mailblocks.com]
To: mathgroup at smc.vnet.net
>Sent: Friday, April 25, 2003 8:12 PM
>To: Hartmut.Wolf at t-systems.com; mathgroup at smc.vnet.net
>Subject: [mg41011] Re: [mg40964] RE: [mg40917] Where have all the axes gone?
>
>
>Yes, but -- on my machine anyway -- the second plot is shaped very
>different from the first. (A bit obscene, perhaps.)
>
>(Version 4.2.1)
>
>Plot[Exp[-2x^2], {x, -5, 5}, PlotRange -> All,
> PlotStyle -> {RGBColor[1, 0, 0],
> Thickness[0.2]}, Axes -> True ];
>
>Show[FullGraphics[%], Options[%]]
>
>Bobby
>
>-----Original Message-----
>From: Wolf, Hartmut <Hartmut.Wolf at t-systems.com>
To: mathgroup at smc.vnet.net
>To: mathgroup at smc.vnet.net
>Sent: Fri, 25 Apr 2003 08:07:50 -0400 (EDT)
>Subject: [mg41011] [mg40964] RE: [mg40917] Where have all the axes gone?
>
>
>>-----Original Message-----
>>From: Pavel Pokorny [mailto:Pavel.Pokorny at vscht.cz]
To: mathgroup at smc.vnet.net
>To: mathgroup at smc.vnet.net
>>Sent: Thursday, April 24, 2003 11:26 AM
>>To: mathgroup at smc.vnet.net
>>Subject: [mg41011] [mg40964] [mg40917] Where have all the axes gone?
>>
>>
>>Motto:
>>
>> Plot[Exp[-2x^2],{x,-5,5},
>> PlotRange->All,
>> PlotStyle->{RGBColor[1,0,0],Thickness[0.2]},
>> Axes ->True
>> ];
>>
>>Can you, please, help me to redraw the axes?
>>Something with Epilog?
>>I feel there is a simple solution I can't see.
>>
>>Any help appreciated.
>>
>>--
>>Pavel Pokorny
>>Math Dept, Prague Institute of Chemical Technology
>>http://staffold.vscht.cz/mat/Pavel.Pokorny
>>
>
>Pavel,
>
>In[2]:= << Graphics`FilledPlot`
>In[3]:= Show[%%, AxesFront -> True]
>
>brings them back by witchcraft. Well, the reason is, the package
>modifies
>Show to give it that convenient option AxesFront. Details can be found
>there.
>
>Also this simple concept works (even when package FilledPlot has not
>been
>loaded):
>
>In[4]:= Show[FullGraphics[%%%], Options[%%%]]
>
>
>The explanation is simple: (normally, when FilledPlot not loaded) Show
>draws
>Axes first, and then the Graphics. FullGraphics however
>contains all the
>embellishments in Form of graphics elements, luckily after the
>graphics
>from
>the contents, such the Axes are redrawn and visible.
>
>
>--
>Hartmut Wolf
>