Translate objects 3D

Script

A = (1,2,1) B = (1, -2, -2) C = (2, 0, 3) D = (1.5, -1.2, 3) a = Slider(0, 1, 0.01, 1, 200, false, true, false, false) A' = Translate(A, Vector(Vector(A) (a - 1) + a Vector((0, 0, 0)))) B' = Translate(B, Vector(Vector(B) (a - 1) + a Vector((0, 0, 0)))) C' = Translate(C, Vector(Vector(C) (a - 1) + a Vector((0, 0, 0)))) D' = Translate(D, Vector(Vector(D) (a - 1) + a Vector((0, 0, 0))))