N@Holographic Controller Slave
I@Xtar Ytar Ztar Sync
O@X Y Z Refresh
interval(20)
Scale =recv(Sync,4), Xi=recv(Sync, 1), Yi=recv(Sync,2), Zi=recv(Sync,3), Refresh=recv(Sync,5)
Xi-=Xtar
Yi-=Ytar
Zi-=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
