Re: Impossible to move objects in dynamic graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg122664] Re: Impossible to move objects in dynamic graphics
- From: Silvia <wyelen at gmail.com>
- Date: Sat, 5 Nov 2011 04:46:22 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <j90hav$so3$1@smc.vnet.net>
- Reply-to: comp.soft-sys.math.mathematica at googlegroups.com
maybe you wrap them in Locators:
p = {-.5, 0}; q = {.5, 0};
{Dynamic[p], Dynamic[q]}
Graphics[{
Locator[Dynamic[p], "TEXT"],
Locator[Dynamic[q],
Graphics[{AbsolutePointSize[10], Point[Dynamic[q]]}]]},
PlotRange -> 1]