Re: Re: pack/unpack pos to binar

From eeew, 10 Years ago, written in Lua, viewed 852 times. This paste is a reply to Re: pack/unpack pos to binary from eeew - view diff
URL https://paste.godclan.hu/view/CZ9tixow Embed
Download Paste or View Raw
  1. function packpos(x, y, z)
  2.     x = 819200+math.floor(x*100) -- -8192 - 8192   3 byte
  3.     y = 819200+math.floor(y*100)
  4.     z = math.floor(1300*65535/(z+100)) -- -100 - 1200   2 byte
  5.     return string.char(
  6.         x, bitExtract(x, 8, 8), bitExtract(x, 16, 8)
  7.         y, bitExtract(y, 8, 8), bitExtract(x, 16, 8),
  8.         z, bitExtract(z, 8, 8))
  9. end
  10.  
  11. function unpackpos(string, startindex)
  12.     local x1, x2, x3, y1, y2, y3, z1, z2 = string:byte(startindex, startindex + 7)
  13.     return  ((x1 + x2*256 + x3*65536) - 819200)/100,
  14.             ((y1 + y2*256 + y3*65536) - 819200)/100,
  15.             (z1 + z2*256)/65535*1300 - 100
  16. end
  17.  

Reply to "Re: Re: pack/unpack pos to binar"

Here you can reply to the paste above