property pTileWidth, pAccuracyFactor, x, y, z, pTileFactor

on define me, tX, tY, tZ, tTileWidth, tAccuracyFactor 
  x = tX
  y = tY
  z = tZ
  pTileWidth = tTileWidth
  pAccuracyFactor = tAccuracyFactor
  pTileFactor = (pTileWidth * pAccuracyFactor)
  return TRUE
end

on setLocation me, tX, tY, tZ 
  me.setLoc(tX, tY, tZ)
end

on setLoc me, tX, tY, tZ 
  x = tX
  y = tY
  z = tZ
end

on getLoc me 
  return([#x:x, #y:y, #z:z])
end

on getLocation me 
  return([#x:x, #y:y, #z:z])
end

on setTileLoc me, tX, tY, tZ 
  x = (tX * pTileFactor)
  y = (tY * pTileFactor)
  z = (tZ * pTileFactor)
end

on getTileLoc me 
  return([#x:((x + (pTileFactor / 2)) / pTileFactor), #y:((y + (pTileFactor / 2)) / pTileFactor)])
end

on getTileX me 
  return(((x + (pTileFactor / 2)) / pTileFactor))
end

on getTileY me 
  return(((y + (pTileFactor / 2)) / pTileFactor))
end

on getTileZ me 
  return(((z + (pTileFactor / 2)) / pTileFactor))
end

on dump me 
  return("* Location:" && x && y && z & ", at tile:" && me.getTileLoc())
end