Source [V]

(* Get Point *)
Vtlx→-(Cx-Stlx)(Cos[CC]Sin[CA]+Cos[CA]Sin[CB]Sin[CC])+(Cy-Stly)(Cos[CA]Cos[CC]-Sin[CA]Sin[CB]Sin[CC])+(Cz-Stlz)(Cos[CB]Sin[CC]),
Vtly→(Cx-Stlx)(Cos[CA]Cos[CC]Sin[CB]-Sin[CA]Sin[CC])+(Cy-Stly)(Cos[CC]Sin[CA]Sin[CB]+Cos[CA]Sin[CC])-(Cz-Stlz)(Cos[CB]Cos[CC]),
Vtx→-(Cx-Stx)(Cos[CC]Sin[CA]+Cos[CA]Sin[CB]Sin[CC])+(Cy-Sty)(Cos[CA]Cos[CC]-Sin[CA]Sin[CB]Sin[CC])+(Cz-Stz)(Cos[CB]Sin[CC]),
Vty→(Cx-Stx)(Cos[CA]Cos[CC]Sin[CB]-Sin[CA]Sin[CC])+(Cy-Sty)(Cos[CC]Sin[CA]Sin[CB]+Cos[CA]Sin[CC])-(Cz-Stz)(Cos[CB]Cos[CC]),
Vtrx→-(Cx-Strx)(Cos[CC]Sin[CA]+Cos[CA]Sin[CB]Sin[CC])+(Cy-Stry)(Cos[CA]Cos[CC]-Sin[CA]Sin[CB]Sin[CC])+(Cz-Strz)(Cos[CB]Sin[CC]),
Vtry→(Cx-Strx)(Cos[CA]Cos[CC]Sin[CB]-Sin[CA]Sin[CC])+(Cy-Stry)(Cos[CC]Sin[CA]Sin[CB]+Cos[CA]Sin[CC])-(Cz-Strz)(Cos[CB]Cos[CC]),
Vblx→-(Cx-Sblx)(Cos[CC]Sin[CA]+Cos[CA]Sin[CB]Sin[CC])+(Cy-Sbly)(Cos[CA]Cos[CC]-Sin[CA]Sin[CB]Sin[CC])+(Cz-Sblz)(Cos[CB]Sin[CC]),
Vbly→(Cx-Sblx)(Cos[CA]Cos[CC]Sin[CB]-Sin[CA]Sin[CC])+(Cy-Sbly)(Cos[CC]Sin[CA]Sin[CB]+Cos[CA]Sin[CC])-(Cz-Sblz)(Cos[CB]Cos[CC]),
Vbx→-(Cx-Sbx)(Cos[CC]Sin[CA]+Cos[CA]Sin[CB]Sin[CC])+(Cy-Sby)(Cos[CA]Cos[CC]-Sin[CA]Sin[CB]Sin[CC])+(Cz-Sbz)(Cos[CB]Sin[CC]),
Vby→(Cx-Sbx)(Cos[CA]Cos[CC]Sin[CB]-Sin[CA]Sin[CC])+(Cy-Sby)(Cos[CC]Sin[CA]Sin[CB]+Cos[CA]Sin[CC])-(Cz-Sbz)(Cos[CB]Cos[CC]),
Vbrx→-(Cx-Sbrx)(Cos[CC]Sin[CA]+Cos[CA]Sin[CB]Sin[CC])+(Cy-Sbry)(Cos[CA]Cos[CC]-Sin[CA]Sin[CB]Sin[CC])+(Cz-Sbrz)(Cos[CB]Sin[CC]),
Vbry→(Cx-Sbrx)(Cos[CA]Cos[CC]Sin[CB]-Sin[CA]Sin[CC])+(Cy-Sbry)(Cos[CC]Sin[CA]Sin[CB]+Cos[CA]Sin[CC])-(Cz-Sbrz)(Cos[CB]Cos[CC]),