       Equi-sized tick labels

• To: mathgroup at smc.vnet.net
• Subject: [mg85266] Equi-sized tick labels
• From: Will Robertson <wspr81 at gmail.com>
• Date: Tue, 5 Feb 2008 05:56:29 -0500 (EST)

```Dear all,

When Mathematica creates tick marks in plots, it uses a ratio of the
plot size to calculate their length. Unfortunately, it treats
horizontal and vertical sizes separately so non-square plots will have
unequal tick marks in the two different directions. This can look
rather ugly, in my opinion.

Luckily, it's an easy problem to fix. Please find attached some code
to "normalise" the length of the ticks used in plots so that non-
square plots don't have uneven ticks horizontally and vertically. It
uses the CustomTicks package, whose author I shall contact about
rolling this functionality into his package.

Have fun,
Will

Here is the code. It may be modified and distributed freely under the
Apache Licence, v2.

<< "CustomTicks`"

ticksize := 0.02
smallticksize := 0.01
aspectratio := 0.8

XTicks[a_, b_, opts___] := LinTicks[a, b,
MajorTickLength -> {ticksize, 0},
MinorTickLength -> {smallticksize, 0},
opts
]
YTicks[a_, b_, opts___] := LinTicks[a, b,
MajorTickLength -> {ticksize/aspectratio, 0},
MinorTickLength -> {smallticksize/aspectratio, 0},
opts
]

EmptyXTicks[a_, b_] := XTicks[a, b, ShowTickLabels -> False]
EmptyYTicks[a_, b_] := YTicks[a, b, ShowTickLabels -> False]

SetOptions[Plot, Frame -> True, AspectRatio -> aspectratio,
FrameTicks -> {{XTicks, EmptyXTicks}, {YTicks, EmptyYTicks}},