Manipulate[ Graphics[Circle[], PlotRange -> 2], {{pt, {{0, 1}, {1, 0}}}, Locator, TrackingFunction -> (p |-> { pt[[1]] = Normalize[p[[1]]], pt[[2]] = p[[2]]/Max[Norm[p[[2]]], 1]} )}]
Part
Science & Technology