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