Motion
- To: mathgroup at smc.vnet.net
- Subject: [mg78374] Motion
- From: Tim Brophy <timbrophy at mac.com>
- Date: Fri, 29 Jun 2007 05:50:16 -0400 (EDT)
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