MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

RE: Colored Tick Labels?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg66941] RE: [mg66910] Colored Tick Labels?
  • From: "David Park" <djmp at earthlink.net>
  • Date: Sun, 4 Jun 2006 02:01:17 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

With DrawGraphics one could use the CustomTicks command.

The following plots Sin[Pi t] from -1 to 1, then relabels the x axis so it
runs from -Pi to Pi and also multiplies the amplitude of the curve by 3 and
shifts it up by three so the y scale goes from 0 to 6. The x-axis labels are
in red and the y axis labels are in blue. One only has to enter StyleForm
once, in the CTNumberFunction option. We also obtain the unlabeled
subdivision ticks and for the top and right frame ticks we have the same
divisions with no tick labels. Just for fun, I also added very light grid
lines using CustomGridLines.

The pure functions take us from the tick label to the underlying plot value.
The list gives us {start, end, step, number of subdivisions} in terms of the
labeled tick values.

Needs["DrawGraphics`DrawingMaster`"]

xticks = CustomTicks[#/Pi &, {-Pi, Pi, Pi/2, 5},
      CTNumberFunction -> (StyleForm[#, FontColor -> Red] &)];
topticks =
    CustomTicks[#/Pi &, {-Pi, Pi, Pi/2, 5}, CTNumberFunction -> ("" &)];
yticks = CustomTicks[(# - 3)/3 &, {0, 6, 1, 5},
      CTNumberFunction -> (StyleForm[#, FontColor -> Blue] &)];
rightticks =
    CustomTicks[(# - 3)/3 &, {0, 6, 1, 5}, CTNumberFunction -> ("" &)];
xgrids = CustomGridLines[#/Pi &, {-Pi, Pi, Pi/2}, {Gainsboro}];
ygrids = CustomGridLines[(# - 3)/3 &, {0, 6, 1}, {Gainsboro}];


Draw2D[
    {Draw[Sin[Pi t], {t, -1, 1}]},
    Frame -> True,
    FrameTicks -> {xticks, yticks, topticks, rightticks},
    GridLines -> {xgrids, ygrids},
    ImageSize -> 450];

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/


From: AES [mailto:siegman at stanford.edu]
To: mathgroup at smc.vnet.net


To create frames with different scales and tick labels on each axis, I
habitually use syntax like:

   xTicks={{-1,"-Pi"}, {0.5,"0"}, {1,"Pi"}}

and so on, and then

   FrameTicks->{xTicks, yTicks, topTicks, rightTicks}

Question:  Any simple way to apply a different color to the set of ticks
on each axis ***without having to insert a syntax like

   StyleForm["-Pi", FontColor->Red]

into each and every individual quoted "-Pi" label separately?



  • Prev by Date: Re: Beginner--getting rid of dot products with zero
  • Next by Date: Re: Mathematica Font problems
  • Previous by thread: Re: Re: Re: Colored Tick Labels?
  • Next by thread: Packages--guikit and mathgl3d help!