Tag Info

New answers tagged

0

DynamicModule[{pt = {0, 0}}, ClickPane[ Graphics[{Orange, Dynamic@Disk[pt]}, PlotRange -> 5, Frame -> True], With[{w = MousePosition["Graphics"] - pt}, Do[pt += w/4.; Pause[.1]; FinishDynamic[]; Print[pt], {4}]] &] ] At the end you can use Eventhandler but for testing ClickPane is quite handy here. Feel free to ask if anything is not ...



Top 50 recent answers are included