Re: Trouble customizing 2D plots in Mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg42136] Re: [mg42121] Trouble customizing 2D plots in Mathematica
- From: Kevin Gross <kc144 at woh.rr.com>
- Date: Fri, 20 Jun 2003 04:57:34 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
David,
Thanks for the quick reply. Actually, my reason for placing it above
the axis is due to a limitation in Mathematica on non-Windows computers
(I work on a Mac PowerBook), namely rotated text isn't rotated and
looks terrible. While I can export the graphic as an EPS file and the
text will appear correctly, I'm trying to make a quicktime movie from a
sequence of graphics. Unfortunately, the export to quicktime is
susceptible to this text-rotation bug.
This begs another question: can anyone explain why rotated text on the
Mac OS X platform is garbled?
Thanks,
Kevin
--
Kevin Gross
Doctoral Student
Air Force Institute of Technology
Wright Patterson AFB, OH
On Thursday, June 19, 2003, at 08:52 AM, David Park wrote:
> Kevin,
>
> Instead of putting the scale factor above the y axis, why don't you
> use the
> standard scientific publication method of putting the scale in the y
> axis
> label?
>
> I have attached a .gif image of your plot that I made using the
> DrawGraphics
> package at my web site. It is a popular package for making customized
> plots
> with Mathematica. It makes it easy to combine various plotting
> elements in
> one plotting statement. You don't have to keep turning the Display off
> and
> on. I used it because it has a CustomTicks function that will easily
> generate scaled ticks for any axis. You can also get the same tick
> placements on the left and the right with subticks and no labels on the
> right.
>
> Here is the code that produced the plot using DrawGraphics.
>
> Needs["DrawGraphics`DrawingMaster`"]
>
> leftticks = CustomTicks[1000# &, {0, 6, 1, 2}];
> rightticks = CustomTicks[1000# &, {0, 6, 1, 2}, CTNumberFunction ->
> ("" &)];
> plot1 =
> Draw2D[
> {Draw[x^2, {x, 0, 100}]},
> Frame -> True,
> FrameTicks -> {Automatic, leftticks, Automatic, rightticks},
> FrameLabel -> {x, "f × \!\(10\^-3\)"},
> PlotLabel -> "f as a function of x",
> PlotRange -> {0, 6000},
> ImageSize -> 500];
>
> Draw2D is a shortcut for Draw[Graphics[...]] and Draw is similar to
> Plot
> except that it extracts the primitive graphics without display, i.e.,
> curves
> are reduced to Lines.
>
> David Park
> djmp at earthlink.net
> http://home.earthlink.net/~djmp/