Re: Graphics - Manipulate Question
- To: mathgroup at smc.vnet.net
- Subject: [mg78890] Re: Graphics - Manipulate Question
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 12 Jul 2007 05:15:12 -0400 (EDT)
- Organization: Uni Leipzig
- References: <f72bq9$cao$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi,
Manipulate[
Graphics[Rotate[Circle[{1, 0}], \[Theta], {0, 0}], Axes -> True,
PlotRangeClipping -> False, PlotRange -> {{-2, 2}, {-2, 2}},
ImageSize -> 300], {\[Theta], 0, \[Pi]}]
Regards
Jens
David Park wrote:
> Here is an example from the Rotate help notebook:
>
> Graphics[Rotate[Circle[Scaled[{1,0}]],Pi,{0,0}],Axes->True]
>
> It displays the complete circle but the axes only extend to +/- 1. The
> purpose of the example is to illustrate the effect of Rotate on an object
> with scaled coordinates. Suppose we want to see the rotation as a continuous
> action. Here is an attempt using Manipulate:
>
> Manipulate[
> Graphics[
> Rotate[Circle[Scaled[{1, 0}]], \[Theta], {0, 0}],
> Axes -> True,
> PlotRange -> 1,
> PlotRangeClipping -> False,
> PlotRegion -> {{.3, .7}, {.3, .7}},
> ImageSize -> 300],
> {\[Theta], 0, \[Pi]}]
>
> How would one obtain a display that showed the full circle as the initial
> example did?
>