N@Holographic Controller Master
I@Xtar Ytar Ztar
O@X Y Z Sync
interval(20)
Scale = 10
Xi = extposx()
Yi = extposy()
Zi = extposz()
D=vecsub(vector(Xi,Yi,Zi),extpos())
Lx=vecdot(D,extdirrt())
Ly=vecdot(D,extdirfw())
Lz=vecdot(D,extdirup())
Xaxis= Lx
Yaxis= Ly
Zaxis= Lz
X = Xaxis / Scale
Y = Yaxis / -Scale
Z = Zaxis / -Scale
Sync = send(extposx(), extposy(), extposz())
