Insets don't line up properly with Axes?

• To: mathgroup at smc.vnet.net
• Subject: [mg124796] Insets don't line up properly with Axes?
• From: Mark Green <p0073857 at brookes.ac.uk>
• Date: Tue, 7 Feb 2012 04:03:27 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

I'm trying to create slides to represent the nesting of coordinate
systems for vector objects.  Here's what I've got so far:

LabelStyle -> FontSize -> 50];
DemoSpaceShip := Line[{
{{-2, -1}, {2, -1}},
{{-2, -1}, {-1, 0}},
{{2, -1}, {1, 0}},
{{-1, 0}, {-1, 2}},
{{1, 0}, {1, 2}},
{{-1, 2}, {0, 3}},
{{1, 2}, {0, 3}}
}];
SpaceshipWithAxes := Graphics[DemoSpaceShip, Axes -> True, AxesStyle -
> Red];
GraphicsRow[{
BigLabeled[Show[SpaceshipWithAxes, ImageSize -> Scaled[0.7]],
"Local CS"],
BigLabeled[
Graphics[Inset[SpaceshipWithAxes, {2, 2}, {0, 0}, {4, 4}],
Axes -> True, PlotRange -> {{0, 5}, {0, 5}},
ImageSize -> Scaled[0.7]], "Nested CS"]
}]

So the output does show the spaceship's local coordinate system
centered at (2,2) in the world coordinate system.  But - the axes
aren't quite the same scale. They don't line up properly, especially
along the vertical axes.  I'm not quite sure why this would be, given
that the spaceship's height is given as (4,4) in the target coordinate
system which should mean it corresponds correctly.

Is there a better way of doing this or a way of making the axes line
up?

• Prev by Date: Re: Mathematica question
• Next by Date: recursion won't work for some reason
• Previous by thread: Re: importing series of file with the same extension
• Next by thread: recursion won't work for some reason