Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Re: Motion

  • To: mathgroup at smc.vnet.net
  • Subject: [mg78405] Re: Motion
  • From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
  • Date: Sat, 30 Jun 2007 06:11:52 -0400 (EDT)
  • Organization: The Open University, Milton Keynes, UK
  • References: <f62l97$cek$1@smc.vnet.net>

Tim Brophy wrote:
> Hi everybody,
> 
> I am trying to draw circles that will stay centered on a Locator and  
> increase in size. I thought that this code might work. What am I  
> doing wrong?
> 
> DynamicModule[{p = {0, 0}},
>   LocatorPane[Dynamic[p],
>    Dynamic[
>     Animate[
>      Graphics[Circle[p, t], PlotRange -> {{-7, 7}, {-7, 7}}], {t, 0,  
> 6}]]]]
> 
> Tim Brophy

Tim,

The following code will do what you want. Note that *Animate* must 
enclose *LocatorPane*. Also, I have added a *Dynamic* function inside 
*Circle*.

DynamicModule[{p = {0, 0}},
   Animate[
     LocatorPane[Dynamic[p],
       Graphics[Circle[Dynamic[p], t], PlotRange -> {{-7, 7}, {-7, 7}}]],
   {t, 0, 7}]]

Regards,
Jean-Marc



  • Prev by Date: Number formatting in plots
  • Next by Date: Re: Motion
  • Previous by thread: Motion
  • Next by thread: Re: Motion