Set position of sliders
AA_0 = Slider(0, 1, 0.1, 1, 200, false, true, false, false)
d = Slider(0, 1, 0.1, 1, 200, false, true, false, false)
BB_0 = Slider(0, 1, 0.1, 1, 200, false, true, false, false)
AB = Slider(0, 1, 0.1, 1, 200, false, true, false, false)
AP = Slider(0, 1, 0.1, 1, 200, false, true, false, false)
ang_P = Slider(0, 1, 0.1, 1, 200, false, true, false, false)
ang_A = Slider(0, 1, 0.1, 1, 200, false, true, false, false)
LS = {"AA_0", "d", "BB_0", "AB", "AP", "ang_P", "ang_A"}
Ln = Sequence(k, k, 50, 350, 50)
Execute(Zip("SetCoords("+slider+", 100, "+k+")", slider, LS, k, Ln))