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
S1=vector(Xi,Yi,Zi)
Pitch=extangp()
Yaw=extangy()
Roll=angnorm(extangr())
vecrotate(S1,Pitch,Yaw,Roll)
Lx=vecx(S1)
Ly=vecx(S1)
Lz=vecx(S1)
X = Lx / Scale
Y = Ly / -Scale
Z = Lz / -Scale
Sync = send(extposx(), extposy(), extposz(),Scale,Refresh,extangp(),extangy(),extangr())
