diff --git a/.pkgmeta b/.pkgmeta index 04a9d07..cd4e4f8 100755 --- a/.pkgmeta +++ b/.pkgmeta @@ -4,7 +4,6 @@ tools-used: - ace3 - callbackhandler - libstub - - astrolabe - herebedragons enable-nolib-creation: no diff --git a/TomTom.lua b/TomTom.lua index b891899..cd2100a 100755 --- a/TomTom.lua +++ b/TomTom.lua @@ -12,8 +12,7 @@ local hbd = LibStub("HereBeDragons-1.0") local addonName, addon = ... local TomTom = addon -addon.astrolabe = DongleStub("Astrolabe-TomTom-1.0") -local astrolabe = addon.astrolabe +addon.hbd = hbd -- Local definitions local GetCurrentCursorPosition @@ -200,7 +199,7 @@ end function TomTom:GetKeyArgs(m, f, x, y, title) if not f then - local floors = astrolabe:GetNumFloors(m) + local floors = hbd:GetNumFloors(m) f = floors == 0 and 0 or 1 end @@ -224,7 +223,8 @@ function TomTom:GetCurrentCoords() end function TomTom:GetCurrentPlayerPosition() - return astrolabe:GetUnitPosition("player", true) + local x, y, mapID, mapFloor = hbd:GetPlayerZonePosition() + return mapID, mapFloor, x, y end function TomTom:ReloadOptions() @@ -805,7 +805,7 @@ end function TomTom:AddZWaypoint(c, z, x, y, desc, persistent, minimap, world, callbacks, silent, crazy) -- Convert the c,z,x,y tuple to m,f,x,y and pass the work off to AddMFWaypoint() - local mapId, floor = astrolabe:GetMapID(c, z) + local mapId, floor = hbd:GetMapIDFromCZ(c, z) if not mapId then return end @@ -908,13 +908,8 @@ function TomTom:AddMFWaypoint(m, f, x, y, opts) -- Get the default map floor, if necessary if not f then - if not astrolabe:GetMapInfo(m) then - -- guess the floor - f = 0 - else - local floors = astrolabe:GetNumFloors(m) - f = floors == 0 and 0 or 1 - end + local floors = hbd:GetNumFloors(m) + f = floors == 0 and 0 or 1 end -- Ensure there isn't already a waypoint at this location @@ -979,7 +974,7 @@ function TomTom:WaypointMFExists(m, f, x, y, desc) end function TomTom:WaypointExists(c, z, x, y, desc) - local m, f = astrolabe:GetMapID(c, z) + local m, f = hbd:GetMapIDFromCZ(c, z) return self:WaypointMFExists(m, f, x, y, desc) end diff --git a/TomTom.toc b/TomTom.toc index 0ffc909..7b6bcb4 100755 --- a/TomTom.toc +++ b/TomTom.toc @@ -9,11 +9,11 @@ ## Notes-ruRU: Удобный портативный навигатор по игровой карте ## Author: Cladhaire ## SavedVariables: TomTomDB, TomTomWaypoints, TomTomWaypointsMF +## OptionalDeps: HereBeDragons-1.0 ## X-Localizations: enUS, enGB, deDE, frFR, zhCN, ruRU, zhTW ## X-CompatibleLocales: enUS, enGB, deDE, frFR, esES, esMX, zhCN, zhTW, koKR, ruRU -libs\Astrolabe\Load.xml libs\LibStub\LibStub.lua libs\CallbackHandler-1.0\CallbackHandler-1.0.xml libs\AceGUI-3.0\AceGUI-3.0.xml @@ -23,6 +23,7 @@ libs\AceDB-3.0\AceDB-3.0.xml libs\AceDBOptions-3.0\AceDBOptions-3.0.xml libs\LibDataBroker-1.1\LibDataBroker-1.1.lua libs\HereBeDragons-1.0\HereBeDragons-1.0.lua +libs\HereBeDragons-1.0\HereBeDragons-Pins-1.0.lua AddonCore.lua diff --git a/TomTom_POIIntegration.lua b/TomTom_POIIntegration.lua index 20a85da..5221079 100755 --- a/TomTom_POIIntegration.lua +++ b/TomTom_POIIntegration.lua @@ -1,5 +1,5 @@ local addonName, addon = ... -local astrolabe = addon.astrolabe +local hbd = addon.hbd local enableClicks = true -- True if waypoint-clicking is enabled to set points local enableClosest = true -- True if 'Automatic' quest waypoints are enabled @@ -37,7 +37,7 @@ local function ObjectivesChanged() end local map, floor = GetCurrentMapAreaID() - local floors = astrolabe:GetNumFloors(map) + local floors = hbd:GetNumFloors(map) floor = (floors == 0 and 0 or 1) local px, py = GetPlayerMapPosition("player") @@ -72,7 +72,7 @@ local function ObjectivesChanged() local completed, x, y, objective = QuestPOIGetIconInfo(qid) if x and y then - local dist, xd, yd = astrolabe:ComputeDistance(map, floor, px, py, map, floor, x, y) + local dist = hbd:GetZoneDistance(map, floor, px, py, map, floor, x, y) if dist < closestdist then closest = watchIndex closestdist = dist diff --git a/TomTom_Waypoints.lua b/TomTom_Waypoints.lua index 5b4c2c5..ea95ce8 100755 --- a/TomTom_Waypoints.lua +++ b/TomTom_Waypoints.lua @@ -9,7 +9,8 @@ ----------------------------------------------------------------------------]] local addon_name, addon = ... -local astrolabe = addon.astrolabe +local hbd = addon.hbd +local hbdp = LibStub("HereBeDragons-Pins-1.0") -- Create a tooltip to be used when mousing over waypoints local tooltip = CreateFrame("GameTooltip", "TomTomTooltip", UIParent, "GameTooltipTemplate") @@ -36,7 +37,7 @@ local all_points = {} -- Local declarations local Minimap_OnEnter,Minimap_OnLeave,Minimap_OnUpdate,Minimap_OnClick,Minimap_OnEvent local Arrow_OnUpdate -local World_OnEnter,World_OnLeave,World_OnClick,World_OnEvent +local World_OnEnter,World_OnLeave,World_OnClick local square_half = math.sqrt(0.5) local rad_135 = math.rad(135) @@ -44,7 +45,7 @@ local rad_135 = math.rad(135) local function rotateArrow(self) if self.disabled then return end - local angle = astrolabe:GetDirectionToIcon(self) + local angle = hbdp:GetVectorToIcon(self) if not angle then return self:Hide() end angle = angle + rad_135 @@ -122,7 +123,6 @@ function TomTom:SetWaypoint(waypoint, callbacks, show_minimap, show_world) worldmap:SetScript("OnEnter", World_OnEnter) worldmap:SetScript("OnLeave", World_OnLeave) worldmap:SetScript("OnClick", World_OnClick) - worldmap:SetScript("OnEvent", World_OnEvent) point.worldmap = worldmap point.minimap = minimap @@ -161,10 +161,10 @@ function TomTom:SetWaypoint(waypoint, callbacks, show_minimap, show_world) point.uid = waypoint -- Place the waypoint - astrolabe:PlaceIconOnMinimap(point.minimap, m, f, x, y) + hbdp:AddMinimapIconMF(self, point.minimap, m, f, x, y, true) if show_world then - astrolabe:PlaceIconOnWorldMap(TomTomMapOverlay, point.worldmap, m, f, x, y) + hbdp:AddWorldMapIconMF(self, point.worldmap, m, f, x, y) else point.worldmap.disabled = true end @@ -213,7 +213,8 @@ end function TomTom:ClearWaypoint(uid) local point = waypointMap[uid] if point then - astrolabe:RemoveIconFromMinimap(point.minimap) + hbdp:RemoveMinimapIcon(self, point.minimap) + hbdp:RemoveWorldMapIcon(self, point.worldmap) point.minimap:Hide() point.worldmap:Hide() @@ -235,12 +236,15 @@ end function TomTom:GetDistanceToWaypoint(uid) local point = waypointMap[uid] - return point and astrolabe:GetDistanceToIcon(point.minimap) + if point then + local angle, distance = hbdp:GetVectorToIcon(point.minimap) + return distance + end end function TomTom:GetDirectionToWaypoint(uid) local point = waypointMap[uid] - return point and astrolabe:GetDirectionToIcon(point.minimap) + return point and hbdp:GetVectorToIcon(point.minimap) end do @@ -304,7 +308,7 @@ do local minimap_count = 0 function Minimap_OnUpdate(self, elapsed) - local dist,x,y = astrolabe:GetDistanceToIcon(self) + local angle, dist = hbdp:GetVectorToIcon(self) local disabled = self.disabled if not dist then @@ -319,7 +323,7 @@ do -- Reset the counter minimap_count = 0 - local edge = astrolabe:IsIconOnEdge(self) + local edge = hbdp:IsMinimapIconOnEdge(self) local data = self.point local callbacks = data.callbacks @@ -330,7 +334,6 @@ do self.arrow:Show() -- Rotate the icon, as required - local angle = astrolabe:GetDirectionToIcon(self) angle = angle + rad_135 if GetCVar("rotateMinimap") == "1" then @@ -400,33 +403,11 @@ do end end - function World_OnEvent(self, event, ...) - if event == "WORLD_MAP_UPDATE" then - if not self.point.uid then - return - end - - local data = self.point - if data.worldmap and data.show_world and not self.disabled then - local x,y = astrolabe:PlaceIconOnWorldMap(TomTomMapOverlay, self, data.m, data.f, data.x, data.y) - local pdata = data.uid - - if (x and y and (0 < x and x <= 1) and (0 < y and y <= 1)) then - self:Show() - else - self:Hide() - end - else - self:Hide() - end - end - end - function Minimap_OnEvent(self, event, ...) if event == "PLAYER_ENTERING_WORLD" then local data = self.point if data and data.uid and waypointMap[data.uid] then - astrolabe:PlaceIconOnMinimap(self, data.m, data.f, data.x, data.y) + hbdp:AddMinimapIconMF(TomTom, self, data.m, data.f, data.x, data.y, true) end end end diff --git a/libs/Astrolabe/Astrolabe.lua b/libs/Astrolabe/Astrolabe.lua deleted file mode 100755 index 47979d2..0000000 --- a/libs/Astrolabe/Astrolabe.lua +++ /dev/null @@ -1,1639 +0,0 @@ ---[[ -Name: Astrolabe -Revision: $Rev: 161 $ -$Date: 2014-10-14 22:59:04 -0700 (Tue, 14 Oct 2014) $ -Author(s): Esamynn (esamynn at wowinterface.com) -Inspired By: Gatherer by Norganna - MapLibrary by Kristofer Karlsson (krka at kth.se) -Documentation: http://wiki.esamynn.org/Astrolabe -SVN: http://svn.esamynn.org/astrolabe/ -Description: - This is a library for the World of Warcraft UI system to place - icons accurately on both the Minimap and on Worldmaps. - This library also manages and updates the position of Minimap icons - automatically. - -Copyright (C) 2006-2012 James Carrothers - -License: - This library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public - License as published by the Free Software Foundation; either - version 2.1 of the License, or (at your option) any later version. - - This library is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with this library; if not, write to the Free Software - Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA - -Note: - This library's source code is specifically designed to work with - World of Warcraft's interpreted AddOn system. You have an implicit - licence to use this library with these facilities since that is its - designated purpose as per: - http://www.fsf.org/licensing/licenses/gpl-faq.html#InterpreterIncompat -]] - --- WARNING!!! --- DO NOT MAKE CHANGES TO THIS LIBRARY WITHOUT FIRST CHANGING THE LIBRARY_VERSION_MAJOR --- STRING (to something unique) OR ELSE YOU MAY BREAK OTHER ADDONS THAT USE THIS LIBRARY!!! -local LIBRARY_VERSION_MAJOR = "Astrolabe-TomTom-1.0" -local LIBRARY_VERSION_MINOR = tonumber(string.match("$Revision: 161 $", "(%d+)") or 1) - -if not DongleStub then error(LIBRARY_VERSION_MAJOR .. " requires DongleStub.") end -if not DongleStub:IsNewerVersion(LIBRARY_VERSION_MAJOR, LIBRARY_VERSION_MINOR) then return end - -local Astrolabe = {}; - --- define local variables for Data Tables (defined at the end of this file) -local WorldMapSize, MicroDungeonSize, MinimapSize, ValidMinimapShapes, zeroData; - -function Astrolabe:GetVersion() - return LIBRARY_VERSION_MAJOR, LIBRARY_VERSION_MINOR; -end - - --------------------------------------------------------------------------------------------------------------- --- Config Constants --------------------------------------------------------------------------------------------------------------- - -local configConstants = { - MinimapUpdateMultiplier = true, -} - --- this constant is multiplied by the current framerate to determine --- how many icons are updated each frame -Astrolabe.MinimapUpdateMultiplier = 1; - - --------------------------------------------------------------------------------------------------------------- --- Working Tables --------------------------------------------------------------------------------------------------------------- - -Astrolabe.LastPlayerPosition = { 0, 0, 0, 0 }; -Astrolabe.MinimapIcons = {}; -Astrolabe.IconAssociations = {}; -Astrolabe.IconsOnEdge = {}; -Astrolabe.IconsOnEdge_GroupChangeCallbacks = {}; -Astrolabe.TargetMinimapChanged_Callbacks = {}; - -Astrolabe.MinimapIconCount = 0 -Astrolabe.ForceNextUpdate = false; -Astrolabe.IconsOnEdgeChanged = false; -Astrolabe.DefaultEdgeRangeMultiplier = 1; -Astrolabe.EdgeRangeMultiplier = {}; -setmetatable(Astrolabe.EdgeRangeMultiplier, - { - __index = function(t,k) - local d = Astrolabe.DefaultEdgeRangeMultiplier; -- this works because we always update the Astrolabe local variable - if ( type(k) == "table" ) then t[k] = d; end; - return d; - end - } -); - --- This variable indicates whether we know of a visible World Map or not. --- The state of this variable is controlled by the AstrolabeMapMonitor library. -Astrolabe.WorldMapVisible = false; - -local AddedOrUpdatedIcons = {} -local MinimapIconsMetatable = { __index = AddedOrUpdatedIcons } - - --------------------------------------------------------------------------------------------------------------- --- Local Pointers for often used API functions --------------------------------------------------------------------------------------------------------------- - -local twoPi = math.pi * 2; -local atan2 = math.atan2; -local sin = math.sin; -local cos = math.cos; -local abs = math.abs; -local sqrt = math.sqrt; -local min = math.min -local max = math.max -local yield = coroutine.yield -local next = next -local GetFramerate = GetFramerate -local band = bit.band -local issecurevariable = issecurevariable - -local real_GetCurrentMapAreaID = GetCurrentMapAreaID -local function GetCurrentMapAreaID() - local id = real_GetCurrentMapAreaID(); - if ( id < 0 and GetCurrentMapContinent() == WORLDMAP_WORLD_ID ) then - return 0; - end - return id; -end - - --------------------------------------------------------------------------------------------------------------- --- Internal Utility Functions --------------------------------------------------------------------------------------------------------------- - -local function assert(level,condition,message) - if not condition then - error(message,level) - end -end - -local function argcheck(value, num, ...) - assert(1, type(num) == "number", "Bad argument #2 to 'argcheck' (number expected, got " .. type(level) .. ")") - - for i=1,select("#", ...) do - if type(value) == select(i, ...) then return end - end - - local types = strjoin(", ", ...) - local name = string.match(debugstack(2,2,0), ": in function [`<](.-)['>]") - error(string.format("Bad argument #%d to 'Astrolabe.%s' (%s expected, got %s)", num, name, types, type(value)), 3) -end - -local function getSystemPosition( mapData, f, x, y ) - if ( f ~= 0 ) then - mapData = rawget(mapData, f) or MicroDungeonSize[mapData.originSystem][f]; - end - x = x * mapData.width + mapData.xOffset; - y = y * mapData.height + mapData.yOffset; - return x, y; -end - -local function printError( ... ) - if ( ASTROLABE_VERBOSE) then - print(...) - end -end - - --------------------------------------------------------------------------------------------------------------- --- General Utility Functions --------------------------------------------------------------------------------------------------------------- - -function Astrolabe:ComputeDistance( m1, f1, x1, y1, m2, f2, x2, y2 ) - --[[ - argcheck(m1, 2, "number"); - assert(3, m1 >= 0, "ComputeDistance: Illegal map id to m1: "..m1); - argcheck(f1, 3, "number", "nil"); - argcheck(x1, 4, "number"); - argcheck(y1, 5, "number"); - argcheck(m2, 6, "number"); - assert(3, m2 >= 0, "ComputeDistance: Illegal map id to m2: "..m2); - argcheck(f2, 7, "number", "nil"); - argcheck(x2, 8, "number"); - argcheck(y2, 9, "number"); - --]] - - if not ( m1 and m2 ) then return end; - f1 = f1 or min(#WorldMapSize[m1], 1); - f2 = f2 or min(#WorldMapSize[m2], 1); - - local dist, xDelta, yDelta; - if ( m1 == m2 and f1 == f2 ) then - -- points in the same zone on the same floor - local mapData = WorldMapSize[m1]; - if ( f1 ~= 0 ) then - mapData = rawget(mapData, f1) or MicroDungeonSize[mapData.originSystem][f1]; - end - xDelta = (x2 - x1) * mapData.width; - yDelta = (y2 - y1) * mapData.height; - - else - local map1 = WorldMapSize[m1]; - local map2 = WorldMapSize[m2]; - if ( map1.system == map2.system ) then - -- points within the same system (continent) - x1, y1 = getSystemPosition(map1, f1, x1, y1); - x2, y2 = getSystemPosition(map2, f2, x2, y2); - xDelta = (x2 - x1); - yDelta = (y2 - y1); - - else - local s1 = map1.system; - local s2 = map2.system; - if ( (m1==0 or WorldMapSize[0][s1]) and (m2==0 or WorldMapSize[0][s2]) ) then - x1, y1 = getSystemPosition(map1, f1, x1, y1); - x2, y2 = getSystemPosition(map2, f2, x2, y2); - if ( m1 ~= 0 ) then - -- translate up from system 1 - local cont1 = WorldMapSize[0][s1]; - x1 = (x1 - cont1.xOffset) * cont1.scale; - y1 = (y1 - cont1.yOffset) * cont1.scale; - end - if ( m2 ~= 0 ) then - -- translate up from system 2 - local cont2 = WorldMapSize[0][s2]; - x2 = (x2 - cont2.xOffset) * cont2.scale; - y2 = (y2 - cont2.yOffset) * cont2.scale; - end - - xDelta = x2 - x1; - yDelta = y2 - y1; - end - - end - - end - if ( xDelta and yDelta ) then - dist = sqrt(xDelta*xDelta + yDelta*yDelta); - end - return dist, xDelta, yDelta; -end - -function Astrolabe:TranslateWorldMapPosition( M, F, xPos, yPos, nM, nF ) - --[[ - argcheck(M, 2, "number"); - argcheck(F, 3, "number", "nil"); - argcheck(xPos, 4, "number"); - argcheck(yPos, 5, "number"); - argcheck(nM, 6, "number"); - argcheck(nF, 7, "number", "nil"); - --]] - - if not ( M and nM ) then return end; - F = F or min(#WorldMapSize[M], 1); - nF = nF or min(#WorldMapSize[nM], 1); - if ( nM < 0 ) then - return; - end - - local mapData; - if ( M == nM and F == nF ) then - return xPos, yPos; - - else - local map = WorldMapSize[M]; - local nMap = WorldMapSize[nM]; - if ( map.system == nMap.system ) then - -- points within the same system (continent) - xPos, yPos = getSystemPosition(map, F, xPos, yPos); - mapData = WorldMapSize[nM]; - if ( nF ~= 0 ) then - mapData = rawget(mapData, nF) or MicroDungeonSize[mapData.originSystem][nF]; - end - - else - -- different continents, same world - local S = map.system; - local nS = nMap.system; - if ( (M==0 or WorldMapSize[0][S]) and (nM==0 or WorldMapSize[0][nS]) ) then - mapData = WorldMapSize[M]; - xPos, yPos = getSystemPosition(mapData, F, xPos, yPos); - if ( M ~= 0 ) then - -- translate up to world map if we aren't there already - local cont = WorldMapSize[0][S]; - xPos = (xPos - cont.xOffset) * cont.scale; - yPos = (yPos - cont.yOffset) * cont.scale; - mapData = WorldMapSize[0]; - end - if ( nM ~= 0 ) then - -- translate down to the new continent - local nCont = WorldMapSize[0][nS]; - xPos = (xPos / nCont.scale) + nCont.xOffset; - yPos = (yPos / nCont.scale) + nCont.yOffset; - mapData = WorldMapSize[nM]; - if ( nF ~= 0 ) then - mapData = rawget(mapData, nF) or MicroDungeonSize[mapData.originSystem][nF]; - end - end - - else - return; - end - - end - -- need to account for the offset in the new system so we can - -- correctly translate into 0-1 style coordinates - xPos = xPos - mapData.xOffset; - yPos = yPos - mapData.yOffset; - - end - - return (xPos / mapData.width), (yPos / mapData.height); -end - ---***************************************************************************** --- This function will do its utmost to retrieve some sort of valid position --- for the specified unit, including changing the current map zoom (if needed). --- Map Zoom is returned to its previous setting before this function returns. ---***************************************************************************** -function Astrolabe:GetUnitPosition( unit, noMapChange ) - local x, y = GetPlayerMapPosition(unit); - if ( x <= 0 and y <= 0 ) then - if ( noMapChange ) then - -- no valid position on the current map, and we aren't allowed - -- to change map zoom, so return - return; - end - local lastMapID, lastFloor = GetCurrentMapAreaID(), GetCurrentMapDungeonLevel(); - SetMapToCurrentZone(); - x, y = GetPlayerMapPosition(unit); - if ( x <= 0 and y <= 0 ) then - -- attempt to zoom out once - logic copied from WorldMapZoomOutButton_OnClick() - if ( ZoomOut() ) then - -- do nothing - elseif ( GetCurrentMapZone() ~= WORLDMAP_WORLD_ID ) then - SetMapZoom(GetCurrentMapContinent()); - else - SetMapZoom(WORLDMAP_WORLD_ID); - end - x, y = GetPlayerMapPosition(unit); - if ( x <= 0 and y <= 0 ) then - -- we are in an instance without a map or otherwise off map - return; - end - end - local M, F = GetCurrentMapAreaID(), GetCurrentMapDungeonLevel(); - if ( M ~= lastMapID or F ~= lastFloor ) then - -- set map zoom back to what it was before - SetMapByID(lastMapID); - SetDungeonMapLevel(lastFloor); - end - return M, F, x, y; - end - return GetCurrentMapAreaID(), GetCurrentMapDungeonLevel(), x, y; -end - ---***************************************************************************** --- This function will do its utmost to retrieve some sort of valid position --- for the specified unit, including changing the current map zoom (if needed). --- However, if a monitored WorldMapFrame (See AstrolabeMapMonitor.lua) is --- visible, then will simply return nil if the current zoom does not provide --- a valid position for the player unit. Map Zoom is NOT returned to its previous --- setting before this function returns, in order to provide better performance. ---***************************************************************************** -function Astrolabe:GetCurrentPlayerPosition() - local x, y = GetPlayerMapPosition("player"); - if ( x <= 0 and y <= 0 ) then - if ( self.WorldMapVisible ) then - -- we know there is a visible world map, so don't cause - -- WORLD_MAP_UPDATE events by changing map zoom - return; - end - SetMapToCurrentZone(); - x, y = GetPlayerMapPosition("player"); - if ( x <= 0 and y <= 0 ) then - -- attempt to zoom out once - logic copied from WorldMapZoomOutButton_OnClick() - if ( ZoomOut() ) then - -- do nothing - elseif ( GetCurrentMapZone() ~= WORLDMAP_WORLD_ID ) then - SetMapZoom(GetCurrentMapContinent()); - else - SetMapZoom(WORLDMAP_WORLD_ID); - end - x, y = GetPlayerMapPosition("player"); - if ( x <= 0 and y <= 0 ) then - -- we are in an instance without a map or otherwise off map - return; - end - end - end - return GetCurrentMapAreaID(), GetCurrentMapDungeonLevel(), x, y; -end - -function Astrolabe:GetMapID(continent, zone) - zone = zone or 0; - local ret = self.ContinentList[continent]; - if ( ret ) then - return ret[zone]; - end - if ( continent == 0 and zone == 0 ) then - return 0; - end -end - -function Astrolabe:GetNumFloors( mapID ) - if ( type(mapID) == "number" ) then - local mapData = WorldMapSize[mapID] - return #mapData - end -end - -function Astrolabe:GetMapInfo( mapID, mapFloor ) - argcheck(mapID, 2, "number"); - assert(3, mapID >= 0, "GetMapInfo: Illegal map id to mapID: "..mapID); - argcheck(mapFloor, 3, "number", "nil"); - - mapFloor = mapFloor or min(#WorldMapSize[mapID], 1); - local mapData = WorldMapSize[mapID]; - local system, systemParent = mapData.system, WorldMapSize[0][mapData.system] and true or false - if ( mapFloor ~= 0 ) then - mapData = rawget(mapData, mapFloor) or MicroDungeonSize[mapData.originSystem][mapFloor]; - end - if ( mapData ~= zeroData ) then - return system, systemParent, mapData.width, mapData.height, mapData.xOffset, mapData.yOffset; - end -end - -function Astrolabe:GetMapFilename( mapID ) - local mapData = self.HarvestedMapData[mapID] - if ( mapData ) then - return mapData.mapName - end -end - - --------------------------------------------------------------------------------------------------------------- --- Working Table Cache System --------------------------------------------------------------------------------------------------------------- - -local tableCache = {}; -tableCache["__mode"] = "v"; -setmetatable(tableCache, tableCache); - -local function GetWorkingTable( icon ) - if ( tableCache[icon] ) then - return tableCache[icon]; - else - local T = {}; - tableCache[icon] = T; - return T; - end -end - - --------------------------------------------------------------------------------------------------------------- --- Minimap Icon Placement --------------------------------------------------------------------------------------------------------------- - ---***************************************************************************** --- local variables specifically for use in this section ---***************************************************************************** -local minimapRotationEnabled = false; -local minimapShape = false; - -local minimapRotationOffset = GetPlayerFacing(); - - -local function placeIconOnMinimap( minimap, minimapZoom, mapWidth, mapHeight, icon, dist, xDist, yDist, edgeRangeMultiplier ) - local mapDiameter; - if ( Astrolabe.minimapOutside ) then - mapDiameter = MinimapSize.outdoor[minimapZoom]; - else - mapDiameter = MinimapSize.indoor[minimapZoom]; - end - local mapRadius = mapDiameter * edgeRangeMultiplier / 2; - local xScale = mapDiameter / mapWidth; - local yScale = mapDiameter / mapHeight; - local iconDiameter = ((icon:GetWidth() / 2) + 3) * xScale; - local iconOnEdge = nil; - local isRound = true; - - if ( minimapRotationEnabled ) then - local sinTheta = sin(minimapRotationOffset) - local cosTheta = cos(minimapRotationOffset) - --[[ - Math Note - The math that is acutally going on in the next 3 lines is: - local dx, dy = xDist, -yDist - xDist = (dx * cosTheta) + (dy * sinTheta) - yDist = -((-dx * sinTheta) + (dy * cosTheta)) - - This is because the origin for map coordinates is the top left corner - of the map, not the bottom left, and so we have to reverse the vertical - distance when doing the our rotation, and then reverse the result vertical - distance because this rotation formula gives us a result with the origin based - in the bottom left corner (of the (+, +) quadrant). - The actual code is a simplification of the above. - ]] - local dx, dy = xDist, yDist - xDist = (dx * cosTheta) - (dy * sinTheta) - yDist = (dx * sinTheta) + (dy * cosTheta) - end - - if ( minimapShape and not (xDist == 0 or yDist == 0) ) then - isRound = (xDist < 0) and 1 or 3; - if ( yDist < 0 ) then - isRound = minimapShape[isRound]; - else - isRound = minimapShape[isRound + 1]; - end - end - - -- for non-circular portions of the Minimap edge - if not ( isRound ) then - dist = max(abs(xDist), abs(yDist)) - end - - if ( (dist + iconDiameter) > mapRadius ) then - -- position along the outside of the Minimap - iconOnEdge = true; - local factor = (mapRadius - iconDiameter) / dist; - xDist = xDist * factor; - yDist = yDist * factor; - end - - if ( Astrolabe.IconsOnEdge[icon] ~= iconOnEdge ) then - Astrolabe.IconsOnEdge[icon] = iconOnEdge; - Astrolabe.IconsOnEdgeChanged = true; - end - - icon:ClearAllPoints(); - icon:SetPoint("CENTER", minimap, "CENTER", xDist/xScale, -yDist/yScale); -end - -function Astrolabe:PlaceIconOnMinimap( icon, mapID, mapFloor, xPos, yPos ) - -- check argument types - argcheck(icon, 2, "table"); - assert(3, icon.SetPoint and icon.ClearAllPoints and icon.GetWidth, "Usage Message"); - argcheck(mapID, 3, "number"); - argcheck(mapFloor, 4, "number", "nil"); - argcheck(xPos, 5, "number"); - argcheck(yPos, 6, "number"); - - -- if the positining system is currently active, just use the player position used by the last incremental (or full) update - -- otherwise, make sure we base our calculations off of the most recent player position (if one is available) - local lM, lF, lx, ly; - if ( self.processingFrame:IsShown() ) then - lM, lF, lx, ly = unpack(self.LastPlayerPosition); - else - lM, lF, lx, ly = self:GetCurrentPlayerPosition(); - if ( lM and lM >= 0 ) then - local lastPosition = self.LastPlayerPosition; - lastPosition[1] = lM; - lastPosition[2] = lF; - lastPosition[3] = lx; - lastPosition[4] = ly; - else - lM, lF, lx, ly = unpack(self.LastPlayerPosition); - end - end - - local dist, xDist, yDist = self:ComputeDistance(lM, lF, lx, ly, mapID, mapFloor, xPos, yPos); - if not ( dist ) then - --icon's position has no meaningful position relative to the player's current location - return -1; - end - - local iconData = GetWorkingTable(icon); - if ( self.MinimapIcons[icon] ) then - self.MinimapIcons[icon] = nil; - else - self.MinimapIconCount = self.MinimapIconCount + 1 - end - - AddedOrUpdatedIcons[icon] = iconData - iconData.mapID = mapID; - iconData.mapFloor = mapFloor; - iconData.xPos = xPos; - iconData.yPos = yPos; - iconData.dist = dist; - iconData.xDist = xDist; - iconData.yDist = yDist; - - minimapRotationEnabled = GetCVar("rotateMinimap") ~= "0" - if ( minimapRotationEnabled ) then - minimapRotationOffset = GetPlayerFacing(); - end - - -- check Minimap Shape - minimapShape = GetMinimapShape and ValidMinimapShapes[GetMinimapShape()]; - - -- place the icon on the Minimap and :Show() it - local map = self.Minimap - placeIconOnMinimap(map, map:GetZoom(), map:GetWidth(), map:GetHeight(), icon, dist, xDist, yDist, self.EdgeRangeMultiplier[icon]); - -- re-parent the icon if necessary - if ( icon.GetParent and icon.SetParent ) then - local iconParent = icon:GetParent() - if ( iconParent) then - if ( iconParent == map ) then - -- do nothing - elseif ( iconParent:IsObjectType("Minimap") ) then - icon:SetParent(map); - else - -- just in case our icon has an ancestor inbetween it and the Minimap - iconParent = iconParent:GetParent() - if ( iconParent and iconParent ~= map and iconParent:IsObjectType("Minimap") ) then - iconParent:SetParent(map); - end - end - end - end - icon:Show() - - -- We know this icon's position is valid, so we need to make sure the icon placement system is active. - self.processingFrame:Show() - - return 0; -end - -function Astrolabe:RemoveIconFromMinimap( icon ) - if not ( self.MinimapIcons[icon] ) then - return 1; - end - AddedOrUpdatedIcons[icon] = nil - self.MinimapIcons[icon] = nil; - self.IconsOnEdge[icon] = nil; - icon:Hide(); - - local MinimapIconCount = self.MinimapIconCount - 1 - if ( MinimapIconCount <= 0 ) then - -- no icons left to manage - self.processingFrame:Hide() - MinimapIconCount = 0 -- because I'm paranoid - end - self.MinimapIconCount = MinimapIconCount - - return 0; -end - -function Astrolabe:RemoveAllMinimapIcons( assocName ) - argcheck(assocName, 2, "string", "nil"); - if ( assocName == nil ) then -- remove all icons - self:DumpNewIconsCache(); - local MinimapIcons = self.MinimapIcons; - local IconsOnEdge = self.IconsOnEdge; - for icon, data in pairs(MinimapIcons) do - MinimapIcons[icon] = nil; - IconsOnEdge[icon] = nil; - icon:Hide(); - end - self.MinimapIconCount = 0; - self.processingFrame:Hide(); - - else -- remove just icons that match the specified association - for icon, iconAssoc in pairs(self.IconAssociations) do - if ( iconAssoc == assocName ) then - self:RemoveIconFromMinimap(icon) - end - end - - end -end - -local lastZoom; -- to remember the last seen Minimap zoom level - --- local variables to track the status of the two update coroutines -local fullUpdateInProgress = true -local resetIncrementalUpdate = false -local resetFullUpdate = false - --- Incremental Update Code -do - -- local variables to track the incremental update coroutine - local incrementalUpdateCrashed = true - local incrementalUpdateThread - - local function UpdateMinimapIconPositions( self ) - -- cache a reference to EdgeRangeMultiplier, for performance - local EdgeRangeMultiplier = self.EdgeRangeMultiplier; - yield() - - while ( true ) do - self:DumpNewIconsCache() -- put new/updated icons into the main datacache - - resetIncrementalUpdate = false -- by definition, the incremental update is reset if it is here - - local M, F, x, y = self:GetCurrentPlayerPosition(); - if ( M and M >= 0 ) then - local Minimap = Astrolabe.Minimap; - local lastPosition = self.LastPlayerPosition; - local lM, lF, lx, ly = unpack(lastPosition); - - minimapRotationEnabled = GetCVar("rotateMinimap") ~= "0" - if ( minimapRotationEnabled ) then - minimapRotationOffset = GetPlayerFacing(); - end - - -- check current frame rate - local numPerCycle = min(50, GetFramerate() * (self.MinimapUpdateMultiplier or 1)) - - -- check Minimap Shape - minimapShape = GetMinimapShape and ValidMinimapShapes[GetMinimapShape()]; - - if ( lM == M and lF == F and lx == x and ly == y ) then - -- player has not moved since the last update - if ( lastZoom ~= Minimap:GetZoom() or self.ForceNextUpdate or minimapRotationEnabled ) then - local currentZoom = Minimap:GetZoom(); - lastZoom = currentZoom; - local mapWidth = Minimap:GetWidth(); - local mapHeight = Minimap:GetHeight(); - numPerCycle = numPerCycle * 2 - local count = 0 - for icon, data in pairs(self.MinimapIcons) do - placeIconOnMinimap(Minimap, currentZoom, mapWidth, mapHeight, icon, data.dist, data.xDist, data.yDist, EdgeRangeMultiplier[icon]); - - count = count + 1 - if ( count > numPerCycle ) then - count = 0 - yield() - -- check if the incremental update cycle needs to be reset - -- because a full update has been run - if ( resetIncrementalUpdate ) then - break; - end - end - end - self.ForceNextUpdate = false; - end - else - local dist, xDelta, yDelta = self:ComputeDistance(lM, lF, lx, ly, M, F, x, y); - if ( dist ) then - local currentZoom = Minimap:GetZoom(); - lastZoom = currentZoom; - local mapWidth = Minimap:GetWidth(); - local mapHeight = Minimap:GetHeight(); - local count = 0 - for icon, data in pairs(self.MinimapIcons) do - local xDist = data.xDist - xDelta; - local yDist = data.yDist - yDelta; - local dist = sqrt(xDist*xDist + yDist*yDist); - placeIconOnMinimap(Minimap, currentZoom, mapWidth, mapHeight, icon, dist, xDist, yDist, EdgeRangeMultiplier[icon]); - - data.dist = dist; - data.xDist = xDist; - data.yDist = yDist; - - count = count + 1 - if ( count >= numPerCycle ) then - count = 0 - yield() - -- check if the incremental update cycle needs to be reset - -- because a full update has been run - if ( resetIncrementalUpdate ) then - break; - end - end - end - if not ( resetIncrementalUpdate ) then - lastPosition[1] = M; - lastPosition[2] = F; - lastPosition[3] = x; - lastPosition[4] = y; - end - else - self:RemoveAllMinimapIcons() - lastPosition[1] = M; - lastPosition[2] = F; - lastPosition[3] = x; - lastPosition[4] = y; - end - end - else - if not ( self.WorldMapVisible ) then - self.processingFrame:Hide(); - end - end - - -- if we've been reset, then we want to start the new cycle immediately - if not ( resetIncrementalUpdate ) then - yield() - end - end - end - - function Astrolabe:UpdateMinimapIconPositions() - if ( fullUpdateInProgress ) then - -- if we're in the middle a a full update, we want to finish that first - self:CalculateMinimapIconPositions() - else - if ( incrementalUpdateCrashed ) then - incrementalUpdateThread = coroutine.wrap(UpdateMinimapIconPositions) - incrementalUpdateThread(self) --initialize the thread - end - incrementalUpdateCrashed = true - incrementalUpdateThread() - incrementalUpdateCrashed = false - end - end -end - --- Full Update Code -do - -- local variables to track the full update coroutine - local fullUpdateCrashed = true - local fullUpdateThread - - local function CalculateMinimapIconPositions( self ) - -- cache a reference to EdgeRangeMultiplier, for performance - local EdgeRangeMultiplier = self.EdgeRangeMultiplier; - yield() - - while ( true ) do - self:DumpNewIconsCache() -- put new/updated icons into the main datacache - - resetFullUpdate = false -- by definition, the full update is reset if it is here - fullUpdateInProgress = true -- set the flag the says a full update is in progress - - local M, F, x, y = self:GetCurrentPlayerPosition(); - if ( M and M >= 0 ) then - local Minimap = Astrolabe.Minimap; - minimapRotationEnabled = GetCVar("rotateMinimap") ~= "0" - if ( minimapRotationEnabled ) then - minimapRotationOffset = GetPlayerFacing(); - end - - -- check current frame rate - local numPerCycle = GetFramerate() * (self.MinimapUpdateMultiplier or 1) * 2 - - -- check Minimap Shape - minimapShape = GetMinimapShape and ValidMinimapShapes[GetMinimapShape()]; - - local currentZoom = Minimap:GetZoom(); - lastZoom = currentZoom; - local mapWidth = Minimap:GetWidth(); - local mapHeight = Minimap:GetHeight(); - local count = 0 - for icon, data in pairs(self.MinimapIcons) do - local dist, xDist, yDist = self:ComputeDistance(M, F, x, y, data.mapID, data.mapFloor, data.xPos, data.yPos); - if ( dist ) then - placeIconOnMinimap(Minimap, currentZoom, mapWidth, mapHeight, icon, dist, xDist, yDist, EdgeRangeMultiplier[icon]); - - data.dist = dist; - data.xDist = xDist; - data.yDist = yDist; - else - self:RemoveIconFromMinimap(icon) - end - - count = count + 1 - if ( count >= numPerCycle ) then - count = 0 - yield() - -- check if we need to restart due to the full update being reset - if ( resetFullUpdate ) then - break; - end - end - end - - if not ( resetFullUpdate ) then - local lastPosition = self.LastPlayerPosition; - lastPosition[1] = M; - lastPosition[2] = F; - lastPosition[3] = x; - lastPosition[4] = y; - - resetIncrementalUpdate = true - end - else - if not ( self.WorldMapVisible ) then - self.processingFrame:Hide(); - end - end - - -- if we've been reset, then we want to start the new cycle immediately - if not ( resetFullUpdate ) then - fullUpdateInProgress = false - yield() - end - end - end - - function Astrolabe:CalculateMinimapIconPositions( reset ) - if ( fullUpdateCrashed ) then - fullUpdateThread = coroutine.wrap(CalculateMinimapIconPositions) - fullUpdateThread(self) --initialize the thread - elseif ( reset ) then - resetFullUpdate = true - end - fullUpdateCrashed = true - fullUpdateThread() - fullUpdateCrashed = false - - -- return result flag - if ( fullUpdateInProgress ) then - return 1 -- full update started, but did not complete on this cycle - - else - if ( resetIncrementalUpdate ) then - return 0 -- update completed - else - return -1 -- full update did no occur for some reason - end - - end - end -end - -function Astrolabe:GetDistanceToIcon( icon ) - local data = self.MinimapIcons[icon]; - if ( data ) then - return data.dist, data.xDist, data.yDist; - end -end - -function Astrolabe:IsIconOnEdge( icon ) - return self.IconsOnEdge[icon]; -end - -function Astrolabe:GetDirectionToIcon( icon ) - local data = self.MinimapIcons[icon]; - if ( data ) then - local dir = atan2(data.xDist, -(data.yDist)) - if ( dir > 0 ) then - return twoPi - dir; - else - return -dir; - end - end -end - -function Astrolabe:AssociateIcon( icon, assocName ) - argcheck(icon, 2, "table"); - argcheck(assocName, 3, "string", "nil"); - self.IconAssociations[icon] = assocName; - self.EdgeRangeMultiplier[icon] = self.EdgeRangeMultiplier[assocName]; -- update the icon's edge multiplier - self.ForceNextUpdate = true; -- force a redraw -end - -function Astrolabe:GetIconAssociation( icon ) - return self.IconAssociations[icon]; -end - -function Astrolabe:SetEdgeRangeMultiplier( multiplier, assocName ) - argcheck(multiplier, 2, "number", "nil"); - argcheck(assocName, 3, "string", "nil"); - assert(3, (multiplier or assocName), "Astrolabe:SetEdgeRangeMultiplier( multiplier, [assocName] ) - at least one argument must be specificed"); - assert(3, (not multiplier or multiplier > 0), "Astrolabe:SetEdgeRangeMultiplier( multiplier, [assocName] ) - mutliplier must be greater than zero"); - - local EdgeRangeMultiplier = self.EdgeRangeMultiplier; - local IconAssociations = self.IconAssociations; - if ( assocName == nil ) then - -- set the default multiplier - self.DefaultEdgeRangeMultiplier = multiplier; - for icon in pairs(EdgeRangeMultiplier) do - local iconAssoc = IconAssociations[icon]; - if ( type(icon) == "table" and (not iconAssoc or rawget(EdgeRangeMultiplier, iconAssoc) == nil) ) then - EdgeRangeMultiplier[icon] = multiplier; - end - end - else - -- set the multiplier for specific icons - EdgeRangeMultiplier[assocName] = multiplier; - for icon, iconAssoc in pairs(IconAssociations) do - if ( iconAssoc == assocName ) then - EdgeRangeMultiplier[icon] = multiplier; - end - end - end - self.ForceNextUpdate = true; -- force a redraw -end - -function Astrolabe:GetEdgeRangeMultiplier( assocOrIcon ) - argcheck(assocOrIcon, 2, "table", "string", "nil"); - return rawget(self.EdgeRangeMultiplier, assocOrIcon) or self.DefaultEdgeRangeMultiplier; -end - -function Astrolabe:Register_OnEdgeChanged_Callback( func, ident ) - argcheck(func, 2, "function"); - self.IconsOnEdge_GroupChangeCallbacks[func] = ident; -end - -function Astrolabe:SetTargetMinimap( newMinimap ) - if ( newMinimap == self.Minimap ) then - return; -- no change - end - argcheck(newMinimap, 2, "table"); - assert(3, issecurevariable(newMinimap, 0), "Astrolabe:SetTargetMinimap( newMinimap ) - argument is not a Minimap"); - assert(3, newMinimap.IsObjectType, "Astrolabe:SetTargetMinimap( newMinimap ) - argument is not a Minimap"); - assert(3, type(newMinimap.IsObjectType) == "function", "Astrolabe:SetTargetMinimap( newMinimap ) - argument is not a Minimap"); - assert(3, newMinimap:IsObjectType("Minimap"), "Astrolabe:SetTargetMinimap( newMinimap ) - argument is not a Minimap"); - - local oldMinimap = self.Minimap; - self.processingFrame:SetParent(newMinimap); - self.Minimap = newMinimap; - self:CalculateMinimapIconPositions(true); -- re-anchor all currently managed icons - -- re-parent all currently managed icons - for icon, data in pairs(self.MinimapIcons) do - if ( icon.GetParent and icon.SetParent ) then - if ( icon:GetParent() == oldMinimap ) then - icon:SetParent(newMinimap); - elseif ( icon:GetParent() and icon:GetParent():GetParent() == oldMinimap ) then -- just incase our icons have an ancestor inbetween them and the Minimap - icon:GetParent():SetParent(newMinimap); - end - end - end - - for func in pairs(self.TargetMinimapChanged_Callbacks) do - pcall(func); - end -end - -function Astrolabe:Register_TargetMinimapChanged_Callback( func, ident ) - -- check argument types - argcheck(func, 2, "function"); - - self.TargetMinimapChanged_Callbacks[func] = ident; -end - ---***************************************************************************** --- INTERNAL USE ONLY PLEASE!!! --- Calling this function at the wrong time can cause errors ---***************************************************************************** -function Astrolabe:DumpNewIconsCache() - local MinimapIcons = self.MinimapIcons - for icon, data in pairs(AddedOrUpdatedIcons) do - MinimapIcons[icon] = data - AddedOrUpdatedIcons[icon] = nil - end - -- we now need to restart any updates that were in progress - resetIncrementalUpdate = true - resetFullUpdate = true -end - - --------------------------------------------------------------------------------------------------------------- --- World Map Icon Placement --------------------------------------------------------------------------------------------------------------- - -function Astrolabe:PlaceIconOnWorldMap( worldMapFrame, icon, mapID, mapFloor, xPos, yPos ) - -- check argument types - argcheck(worldMapFrame, 2, "table"); - assert(3, worldMapFrame.GetWidth and worldMapFrame.GetHeight, "Usage Message"); - argcheck(icon, 3, "table"); - assert(3, icon.SetPoint and icon.ClearAllPoints, "Usage Message"); - argcheck(mapID, 4, "number"); - argcheck(mapFloor, 5, "number", "nil"); - argcheck(xPos, 6, "number"); - argcheck(yPos, 7, "number"); - - local M, F = GetCurrentMapAreaID(), GetCurrentMapDungeonLevel(); - local nX, nY = self:TranslateWorldMapPosition(mapID, mapFloor, xPos, yPos, M, F); - - -- anchor and :Show() the icon if it is within the boundry of the current map, :Hide() it otherwise - if ( nX and nY and (0 < nX and nX <= 1) and (0 < nY and nY <= 1) ) then - icon:ClearAllPoints(); - icon:SetPoint("CENTER", worldMapFrame, "TOPLEFT", nX * worldMapFrame:GetWidth(), -nY * worldMapFrame:GetHeight()); - icon:Show(); - else - icon:Hide(); - end - return nX, nY; -end - - --------------------------------------------------------------------------------------------------------------- --- Handler Scripts --------------------------------------------------------------------------------------------------------------- - -function Astrolabe:OnEvent( frame, event ) - if ( event == "MINIMAP_UPDATE_ZOOM" ) then - -- update minimap zoom scale - local Minimap = self.Minimap; - local curZoom = Minimap:GetZoom(); - if ( GetCVar("minimapZoom") == GetCVar("minimapInsideZoom") ) then - if ( curZoom < 2 ) then - Minimap:SetZoom(curZoom + 1); - else - Minimap:SetZoom(curZoom - 1); - end - end - if ( GetCVar("minimapZoom")+0 == Minimap:GetZoom() ) then - self.minimapOutside = true; - else - self.minimapOutside = false; - end - Minimap:SetZoom(curZoom); - - -- re-calculate all Minimap Icon positions - if ( frame:IsVisible() ) then - self:CalculateMinimapIconPositions(true); - end - - elseif ( event == "PLAYER_LEAVING_WORLD" ) then - frame:Hide(); -- yes, I know this is redunant - self:RemoveAllMinimapIcons(); --dump all minimap icons - -- TODO: when I uncouple the point buffer from Minimap drawing, - -- I should consider updating LastPlayerPosition here - - elseif ( event == "PLAYER_ENTERING_WORLD" ) then - frame:Show(); - if not ( frame:IsVisible() ) then - -- do the minimap recalculation anyways if the OnShow script didn't execute - -- this is done to ensure the accuracy of information about icons that were - -- inserted while the Player was in the process of zoning - self:CalculateMinimapIconPositions(true); - end - - elseif ( event == "ZONE_CHANGED_NEW_AREA" ) then - frame:Hide(); - frame:Show(); - - end -end - -function Astrolabe:OnUpdate( frame, elapsed ) - -- on-edge group changed call-backs - if ( self.IconsOnEdgeChanged ) then - self.IconsOnEdgeChanged = false; - for func in pairs(self.IconsOnEdge_GroupChangeCallbacks) do - pcall(func); - end - end - - self:UpdateMinimapIconPositions(); -end - -function Astrolabe:OnShow( frame ) - -- set the world map to a zoom with a valid player position - if not ( self.WorldMapVisible ) then - SetMapToCurrentZone(); - end - local M, F = Astrolabe:GetCurrentPlayerPosition(); - if not ( M and M >= 0 ) then - frame:Hide(); - return - end - - -- re-calculate minimap icon positions (if needed) - if ( next(self.MinimapIcons) ) then - self:CalculateMinimapIconPositions(true); - else - -- needed so that the cycle doesn't overwrite an updated LastPlayerPosition - resetIncrementalUpdate = true; - end - - if ( self.MinimapIconCount <= 0 ) then - -- no icons left to manage - frame:Hide(); - end -end - -function Astrolabe:OnHide( frame ) - -- dump the new icons cache here - -- a full update will performed the next time processing is re-actived - self:DumpNewIconsCache() -end - --- called by AstrolabMapMonitor when all world maps are hidden -function Astrolabe:AllWorldMapsHidden() - if ( IsLoggedIn() ) then - self.processingFrame:Hide(); - self.processingFrame:Show(); - end -end - - --------------------------------------------------------------------------------------------------------------- --- Library Registration --------------------------------------------------------------------------------------------------------------- - -local HARVESTED_DATA_VERSION = 3; -- increment this when the format of the harvested data has to change -local function harvestMapData( HarvestedMapData ) - local mapData = {} - local mapName = GetMapInfo(); - local mapID = GetCurrentMapAreaID(); - local numFloors = GetNumDungeonMapLevels(); - mapData.mapName = mapName; - mapData.cont = (GetCurrentMapContinent()) or -100; - mapData.zone = (GetCurrentMapZone()) or -100; - mapData.numFloors = numFloors; - local _, TLx, TLy, BRx, BRy = GetCurrentMapZone(); - if ( TLx and TLy and BRx and BRy and (TLx~=0 or TLy~=0 or BRx~=0 or BRy~=0) ) then - mapData[0] = {}; - mapData[0].TLx = TLx; - mapData[0].TLy = TLy; - mapData[0].BRx = BRx; - mapData[0].BRy = BRy; - end - if ( not mapData[0] and numFloors == 0 and (GetCurrentMapDungeonLevel()) == 1 ) then - numFloors = 1; - mapData.hiddenFloor = true; - end - if ( numFloors > 0 ) then - for f = 1, numFloors do - SetDungeonMapLevel(f); - local _, TLx, TLy, BRx, BRy = GetCurrentMapDungeonLevel(); - if ( TLx and TLy and BRx and BRy ) then - mapData[f] = {}; - mapData[f].TLx = TLx; - mapData[f].TLy = TLy; - mapData[f].BRx = BRx; - mapData[f].BRy = BRy; - end - end - end - - HarvestedMapData[mapID] = mapData; -end - -local function activate( newInstance, oldInstance ) - if ( oldInstance ) then -- this is an upgrade activate - -- print upgrade debug info - local _, oldVersion = oldInstance:GetVersion(); - printError("Upgrading "..LIBRARY_VERSION_MAJOR.." from version "..oldVersion.." to version "..LIBRARY_VERSION_MINOR); - - if ( oldInstance.DumpNewIconsCache ) then - oldInstance:DumpNewIconsCache() - end - for k, v in pairs(oldInstance) do - if ( type(v) ~= "function" and (not configConstants[k]) ) then - newInstance[k] = v; - end - end - -- sync up the current MinimapIconCount value - local iconCount = 0 - for _ in pairs(newInstance.MinimapIcons) do - iconCount = iconCount + 1 - end - newInstance.MinimapIconCount = iconCount - - -- explicity carry over our Minimap reference, or create it if we don't already have one - newInstance.Minimap = oldInstance.Minimap or _G.Minimap - - Astrolabe = oldInstance; - else - newInstance.Minimap = _G.Minimap - local frame = CreateFrame("Frame"); - newInstance.processingFrame = frame; - end - configConstants = nil -- we don't need this anymore - - if not ( oldInstance and oldInstance.HarvestedMapData.VERSION == HARVESTED_DATA_VERSION ) then - newInstance.HarvestedMapData = { VERSION = HARVESTED_DATA_VERSION }; - local HarvestedMapData = newInstance.HarvestedMapData; - - local continents = {GetMapContinents()}; - newInstance.ContinentList = {}; - for C = 1, (#continents / 2) do - local zones = {GetMapZones(C)}; - newInstance.ContinentList[C] = {}; - SetMapZoom(C); - harvestMapData(HarvestedMapData); - local contZoneList = newInstance.ContinentList[C]; - contZoneList[0] = continents[C*2 - 1]; - for Z = 1, (#zones / 2) do - contZoneList[Z] = zones[Z*2 - 1]; - SetMapByID(contZoneList[Z]); - harvestMapData(HarvestedMapData); - end - end - - for _, id in ipairs(GetAreaMaps()) do - if not ( HarvestedMapData[id] ) then - if ( SetMapByID(id) ) then - harvestMapData(HarvestedMapData); - end - end - end - end - - local Minimap = newInstance.Minimap - local frame = newInstance.processingFrame; - frame:Hide(); - frame:SetParent(Minimap); - frame:UnregisterAllEvents(); - frame:RegisterEvent("MINIMAP_UPDATE_ZOOM"); - frame:RegisterEvent("PLAYER_LEAVING_WORLD"); - frame:RegisterEvent("PLAYER_ENTERING_WORLD"); - frame:RegisterEvent("ZONE_CHANGED_NEW_AREA"); - frame:SetScript("OnEvent", - function( frame, event, ... ) - Astrolabe:OnEvent(frame, event, ...); - end - ); - frame:SetScript("OnUpdate", - function( frame, elapsed ) - Astrolabe:OnUpdate(frame, elapsed); - end - ); - frame:SetScript("OnShow", - function( frame ) - Astrolabe:OnShow(frame); - end - ); - frame:SetScript("OnHide", - function( frame ) - Astrolabe:OnHide(frame); - end - ); - - setmetatable(Astrolabe.MinimapIcons, MinimapIconsMetatable) -end - -DongleStub:Register(Astrolabe, activate) - - --------------------------------------------------------------------------------------------------------------- --- Data --------------------------------------------------------------------------------------------------------------- - --- diameter of the Minimap in game yards at --- the various possible zoom levels -MinimapSize = { - indoor = { - [0] = 300, -- scale - [1] = 240, -- 1.25 - [2] = 180, -- 5/3 - [3] = 120, -- 2.5 - [4] = 80, -- 3.75 - [5] = 50, -- 6 - }, - outdoor = { - [0] = 466 + 2/3, -- scale - [1] = 400, -- 7/6 - [2] = 333 + 1/3, -- 1.4 - [3] = 266 + 2/6, -- 1.75 - [4] = 200, -- 7/3 - [5] = 133 + 1/3, -- 3.5 - }, -} - -ValidMinimapShapes = { - -- { upper-left, lower-left, upper-right, lower-right } - ["SQUARE"] = { false, false, false, false }, - ["CORNER-TOPLEFT"] = { true, false, false, false }, - ["CORNER-TOPRIGHT"] = { false, false, true, false }, - ["CORNER-BOTTOMLEFT"] = { false, true, false, false }, - ["CORNER-BOTTOMRIGHT"] = { false, false, false, true }, - ["SIDE-LEFT"] = { true, true, false, false }, - ["SIDE-RIGHT"] = { false, false, true, true }, - ["SIDE-TOP"] = { true, false, true, false }, - ["SIDE-BOTTOM"] = { false, true, false, true }, - ["TRICORNER-TOPLEFT"] = { true, true, true, false }, - ["TRICORNER-TOPRIGHT"] = { true, false, true, true }, - ["TRICORNER-BOTTOMLEFT"] = { true, true, false, true }, - ["TRICORNER-BOTTOMRIGHT"] = { false, true, true, true }, -} - --- distances across and offsets of the world maps --- in game yards -WorldMapSize = { - [0] = { - height = 22266.74312, - system = -1, - width = 33400.121, - xOffset = 0, - yOffset = 0, - [1] = { - xOffset = -10311.71318, - yOffset = -19819.33898, - scale = 0.56089997291565, - }, - [0] = { - xOffset = -48226.86993, - yOffset = -16433.90283, - scale = 0.56300002336502, - }, - [571] = { - xOffset = -29750.89905, - yOffset = -11454.50802, - scale = 0.5949000120163, - }, - [870] = { - xOffset = -27693.71178, - yOffset = -29720.0585, - scale = 0.65140002965927, - }, - }, -} - -MicroDungeonSize = {} - - --------------------------------------------------------------------------------------------------------------- --- Internal Data Table Setup --------------------------------------------------------------------------------------------------------------- - --- Map Data API Flag Fields -- - --- GetAreaMapInfo - flags -local WORLDMAPAREA_DEFAULT_DUNGEON_FLOOR_IS_TERRAIN = 0x00000004 -local WORLDMAPAREA_VIRTUAL_CONTINENT = 0x00000008 - --- GetDungeonMapInfo - flags -local DUNGEONMAP_MICRO_DUNGEON = 0x00000001 - - --- Zero Data Table --- Used to prevent runtime Lua errors due to missing data - -local function zeroDataFunc(tbl, key) - if ( type(key) == "number" ) then - return zeroData; - else - return rawget(zeroData, key); - end -end - -zeroData = { xOffset = 0, height = 1, yOffset = 0, width = 1, __index = zeroDataFunc }; -setmetatable(zeroData, zeroData); - --- get data on useful transforms -local TRANSFORMS = {} -for _, ID in ipairs(GetWorldMapTransforms()) do - local terrainMapID, newTerrainMapID, _, _, transformMinY, transformMaxY, transformMinX, transformMaxX, offsetY, offsetX = GetWorldMapTransformInfo(ID) - if ( offsetX ~= 0 or offsetY ~= 0 ) then - TRANSFORMS[ID] = { - terrainMapID = terrainMapID, - newTerrainMapID = newTerrainMapID, - BRy = -transformMinY, - TLy = -transformMaxY, - BRx = -transformMinX, - TLx = -transformMaxX, - offsetY = offsetY, - offsetX = offsetX, - } - end -end - ---remove this temporarily -local harvestedDataVersion = Astrolabe.HarvestedMapData.VERSION -Astrolabe.HarvestedMapData.VERSION = nil - -for mapID, harvestedData in pairs(Astrolabe.HarvestedMapData) do - local terrainMapID, _, _, _, _, _, _, _, _, flags = GetAreaMapInfo(mapID) - local originSystem = terrainMapID; - local mapData = WorldMapSize[mapID]; - if not ( mapData ) then mapData = {}; end - if ( harvestedData.numFloors > 0 or harvestedData.hiddenFloor ) then - for f, harvData in pairs(harvestedData) do - if ( type(f) == "number" and f > 0 ) then - if not ( mapData[f] ) then - mapData[f] = {}; - end - local floorData = mapData[f] - local TLx, TLy, BRx, BRy = -harvData.BRx, -harvData.BRy, -harvData.TLx, -harvData.TLy - if not ( TLx < BRx ) then - printError("Bad x-axis Orientation (Floor): ", mapID, f, TLx, BRx); - end - if not ( TLy < BRy) then - printError("Bad y-axis Orientation (Floor): ", mapID, f, TLy, BRy); - end - if not ( floorData.width ) then - floorData.width = BRx - TLx - end - if not ( floorData.height ) then - floorData.height = BRy - TLy - end - if not ( floorData.xOffset ) then - floorData.xOffset = TLx - end - if not ( floorData.yOffset ) then - floorData.yOffset = TLy - end - end - end - for f = 1, harvestedData.numFloors do - if not ( mapData[f] ) then - if ( f == 1 and harvestedData[0] and harvestedData[0].TLx and harvestedData[0].TLy and harvestedData[0].BRx and harvestedData[0].BRy and - band(flags, WORLDMAPAREA_DEFAULT_DUNGEON_FLOOR_IS_TERRAIN) == WORLDMAPAREA_DEFAULT_DUNGEON_FLOOR_IS_TERRAIN ) then - -- handle dungeon maps which use zone level data for the first floor - mapData[f] = {}; - local floorData = mapData[f] - local harvData = harvestedData[0] - local TLx, TLy, BRx, BRy = -harvData.TLx, -harvData.TLy, -harvData.BRx, -harvData.BRy - if not ( TLx < BRx ) then - printError("Bad x-axis Orientation (Floor from Zone): ", mapID, f, TLx, BRx); - end - if not ( TLy < BRy) then - printError("Bad y-axis Orientation (Floor from Zone): ", mapID, f, TLy, BRy); - end - floorData.width = BRx - TLx - floorData.height = BRy - TLy - floorData.xOffset = TLx - floorData.yOffset = TLy - else - printError(("Astrolabe is missing data for %s [%d], floor %d."):format(harvestedData.mapName, mapID, f)); - end - end - end - if ( harvestedData.hiddenFloor ) then - mapData.width = mapData[1].width - mapData.height = mapData[1].height - mapData.xOffset = mapData[1].xOffset - mapData.yOffset = mapData[1].yOffset - end - - else - local harvData = harvestedData[0] - if ( harvData ~= nil ) then - local TLx, TLy, BRx, BRy = -harvData.TLx, -harvData.TLy, -harvData.BRx, -harvData.BRy - -- apply any necessary transforms - for transformID, transformData in pairs(TRANSFORMS) do - if ( transformData.terrainMapID == terrainMapID ) then - if ( (transformData.TLx < TLx and BRx < transformData.BRx) and (transformData.TLy < TLy and BRy < transformData.BRy) ) then - TLx = TLx - transformData.offsetX; - BRx = BRx - transformData.offsetX; - BRy = BRy - transformData.offsetY; - TLy = TLy - transformData.offsetY; - terrainMapID = transformData.newTerrainMapID; - break; - end - end - end - if not ( TLx==0 and TLy==0 and BRx==0 and BRy==0 ) then - if not ( TLx < BRx ) then - printError("Bad x-axis Orientation (Zone): ", mapID, TLx, BRx); - end - if not ( TLy < BRy) then - printError("Bad y-axis Orientation (Zone): ", mapID, TLy, BRy); - end - end - if not ( mapData.width ) then - mapData.width = BRx - TLx - end - if not ( mapData.height ) then - mapData.height = BRy - TLy - end - if not ( mapData.xOffset ) then - mapData.xOffset = TLx - end - if not ( mapData.yOffset ) then - mapData.yOffset = TLy - end - else - if ( mapID == 751 ) then -- okay, this is Maelstrom continent - else - printError("Astrolabe harvested a map with no data at all: ", mapID) - end - end - - end - - -- if we don't have any data, we're gonna use zeroData, but we also need to - -- setup the system and systemParent IDs so things don't get confused - if not ( next(mapData, nil) ) then - mapData = { xOffset = 0, height = 1, yOffset = 0, width = 1 }; - -- if this is an outside continent level or world map then throw up an extra warning - if ( harvestedData.cont > 0 and harvestedData.zone == 0 and not (band(flags, WORLDMAPAREA_VIRTUAL_CONTINENT) == WORLDMAPAREA_VIRTUAL_CONTINENT) ) then - printError(("Astrolabe is missing data for world map %s [%d] (%d, %d)."):format(harvestedData.mapName, mapID, harvestedData.cont, harvestedData.zone)); - end - end - - if not ( mapData.originSystem ) then - mapData.originSystem = originSystem; - end - - -- store the data in the WorldMapSize DB - WorldMapSize[mapID] = mapData; - - - if ( mapData and mapData ~= zeroData ) then - -- setup system IDs - if not ( mapData.system ) then - mapData.system = terrainMapID; - end - - -- determine terrainMapID for micro-dungeons - if ( harvestedData.cont > 0 and harvestedData.zone > 0 ) then - MicroDungeonSize[terrainMapID] = {} - end - - setmetatable(mapData, zeroData); - end -end - --- put the version back -Astrolabe.HarvestedMapData.VERSION = harvestedDataVersion - --- micro dungeons -for _, ID in ipairs(GetDungeonMaps()) do - local floorIndex, minX, maxX, minY, maxY, terrainMapID, parentWorldMapID, flags = GetDungeonMapInfo(ID); - if ( band(flags, DUNGEONMAP_MICRO_DUNGEON) == DUNGEONMAP_MICRO_DUNGEON ) then - local TLx, TLy, BRx, BRy = -maxX, -maxY, -minX, -minY - -- apply any necessary transforms - local transformApplied = false - for transformID, transformData in pairs(TRANSFORMS) do - if ( transformData.terrainMapID == terrainMapID ) then - if ( (transformData.TLx < TLx and BRx < transformData.BRx) and (transformData.TLy < TLy and BRy < transformData.BRy) ) then - TLx = TLx - transformData.offsetX; - BRx = BRx - transformData.offsetX; - BRy = BRy - transformData.offsetY; - TLy = TLy - transformData.offsetY; - transformApplied = true; - break; - end - end - end - if ( MicroDungeonSize[terrainMapID] ) then - -- only consider systems that can have micro dungeons - if ( MicroDungeonSize[terrainMapID][floorIndex] ) then - printError("Astrolabe detected a duplicate microdungeon floor!", terrainMapID, ID); - end - MicroDungeonSize[terrainMapID][floorIndex] = { - width = BRx - TLx, - height = BRy - TLy, - xOffset = TLx, - yOffset = TLy, - }; - end - end -end - --- done with Transforms data -TRANSFORMS = nil - -for _, data in pairs(MicroDungeonSize) do - setmetatable(data, zeroData); -end -setmetatable(MicroDungeonSize, zeroData); - --- make sure we don't have any EXTRA data hanging around -for mapID, mapData in pairs(WorldMapSize) do - if ( mapID ~= 0 and getmetatable(mapData) ~= zeroData ) then - printError("Astrolabe has hard coded data for an invalid map ID", mapID); - end -end - -setmetatable(WorldMapSize, zeroData); -- setup the metatable so that invalid map IDs don't cause Lua errors - --- register this library with AstrolabeMapMonitor, this will cause a full update if PLAYER_LOGIN has already fired -local AstrolabeMapMonitor = DongleStub("AstrolabeMapMonitor"); -AstrolabeMapMonitor:RegisterAstrolabeLibrary(Astrolabe, LIBRARY_VERSION_MAJOR); - diff --git a/libs/Astrolabe/AstrolabeMapMonitor.lua b/libs/Astrolabe/AstrolabeMapMonitor.lua deleted file mode 100755 index 20a6a05..0000000 --- a/libs/Astrolabe/AstrolabeMapMonitor.lua +++ /dev/null @@ -1,235 +0,0 @@ ---[[ -Name: AstrolabeMapMonitor -Revision: $Rev: 44 $ -$Date: 2007-03-30 11:56:21 -0700 (Fri, 30 Mar 2007) $ -Author(s): Esamynn (esamynn@wowinterface.com) -Inspired By: Gatherer by Norganna - MapLibrary by Kristofer Karlsson (krka@kth.se) -Website: http://esamynn.wowinterface.com/ -Documentation: http://www.esamynn.org/wiki/Astrolabe/World_Map_Monitor -SVN: http://esamynn.org/svn/astrolabe/ -Description: - This is a small stub library to support the main Astrolabe - library. It's purpose is to monitor the visibility of - various World Map frames, so that Astrolabe can modify its - behaviour accordingly. - -Copyright (C) 2007 James Carrothers - -License: - This library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public - License as published by the Free Software Foundation; either - version 2.1 of the License, or (at your option) any later version. - - This library is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with this library; if not, write to the Free Software - Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA - -Note: - This library's source code is specifically designed to work with - World of Warcraft's interpreted AddOn system. You have an implicit - licence to use this library with these facilities since that is its - designated purpose as per: - http://www.fsf.org/licensing/licenses/gpl-faq.html#InterpreterIncompat -]] - --- WARNING!!! --- DO NOT MAKE CHANGES TO THIS LIBRARY WITHOUT FIRST CHANGING THE LIBRARY_VERSION_MAJOR --- STRING (to something unique) OR ELSE YOU MAY BREAK OTHER ADDONS THAT USE THIS LIBRARY!!! -local LIBRARY_VERSION_MAJOR = "AstrolabeMapMonitor" -local LIBRARY_VERSION_MINOR = tonumber(string.match("$Revision: 44 $", "(%d+)") or 1) - -if not DongleStub then error(LIBRARY_VERSION_MAJOR .. " requires DongleStub.") end -if not DongleStub:IsNewerVersion(LIBRARY_VERSION_MAJOR, LIBRARY_VERSION_MINOR) then return end - -local AstrolabeMapMonitor = {}; - -function AstrolabeMapMonitor:GetVersion() - return LIBRARY_VERSION_MAJOR, LIBRARY_VERSION_MINOR; -end - - --------------------------------------------------------------------------------------------------------------- --- Global World Map Frame Registration Table --------------------------------------------------------------------------------------------------------------- - -if ( type(WorldMapDisplayFrames) ~= "table" ) then - WorldMapDisplayFrames = { WorldMapFrame }; -else - local worldMapFound = false; - for k, v in pairs(WorldMapDisplayFrames) do - if ( v == WorldMapFrame ) then - worldMapFound = true; - break; - end - end - if not ( worldMapFound ) then - table.insert(WorldMapDisplayFrames, WorldMapFrame); - end -end - - --------------------------------------------------------------------------------------------------------------- --- Working Tables and Config Constants --------------------------------------------------------------------------------------------------------------- - -AstrolabeMapMonitor.TrackedWorldMaps = {}; -AstrolabeMapMonitor.AstrolabeLibrarys = {}; - -AstrolabeMapMonitor.NumVisibleWorldMaps = 0; - - --------------------------------------------------------------------------------------------------------------- --- Monitor Frame Script Handlers --------------------------------------------------------------------------------------------------------------- - -local function onShow( frame ) - AstrolabeMapMonitor.NumVisibleWorldMaps = AstrolabeMapMonitor.NumVisibleWorldMaps + 1; - AstrolabeMapMonitor:Update() -end - -local function onHide( frame ) - AstrolabeMapMonitor.NumVisibleWorldMaps = AstrolabeMapMonitor.NumVisibleWorldMaps - 1; - AstrolabeMapMonitor:Update() -end - -local function setScripts( monitorFrame ) - monitorFrame:SetScript("OnShow", onShow); - monitorFrame:SetScript("OnHide", onHide); -end - - --------------------------------------------------------------------------------------------------------------- --- Internal Utility Functions --------------------------------------------------------------------------------------------------------------- - -local function assert(level,condition,message) - if not condition then - error(message,level) - end -end - -local function argcheck(value, num, ...) - assert(1, type(num) == "number", - "Bad argument #2 to 'argcheck' (number expected, got " .. type(level) .. ")") - - for i=1,select("#", ...) do - if type(value) == select(i, ...) then return end - end - - local types = strjoin(", ", ...) - local name = string.match(debugstack(2,2,0), ": in function [`<](.-)['>]") - error(string.format("Bad argument #%d to 'AstrolabeMapMonitor.%s' (%s expected, got %s)", num, name, types, type(value)), 3) -end - - --------------------------------------------------------------------------------------------------------------- --- Public API --------------------------------------------------------------------------------------------------------------- - -function AstrolabeMapMonitor:MonitorWorldMap( worldMapFrame ) - -- check argument types - argcheck(worldMapFrame, 2, "table"); - assert((worldMapFrame.SetParent), "Usage Message"); - - local TrackedWorldMaps = self.TrackedWorldMaps; - if ( TrackedWorldMaps[worldMapFrame] ) then - return 1; - end - local monitorFrame = CreateFrame("Frame", nil, worldMapFrame); - TrackedWorldMaps[worldMapFrame] = monitorFrame; - setScripts(monitorFrame); - self:ForceUpdate(); - return 0; -end - -function AstrolabeMapMonitor:LookForMapsToRegister() - for k, frame in pairs(WorldMapDisplayFrames) do - if ( type(frame) == "table" and frame.SetParent ) then - self:MonitorWorldMap(frame); - end - end -end - -function AstrolabeMapMonitor:Update() - local visibleMap = false; - if ( (self.NumVisibleWorldMaps) > 0 ) then - visibleMap = true; - end - for lib, versionString in pairs(self.AstrolabeLibrarys) do - lib.WorldMapVisible = visibleMap; - if ( (not visibleMap) and lib.AllWorldMapsHidden ) then - lib:AllWorldMapsHidden(); - end - end - return visibleMap; -end - -function AstrolabeMapMonitor:ForceUpdate() - self.NumVisibleWorldMaps = 0; - for worldMap, monitorFrame in pairs(self.TrackedWorldMaps) do - if ( worldMap:IsVisible() ) then - self.NumVisibleWorldMaps = self.NumVisibleWorldMaps + 1; - end - end - return self:Update(); -end - -function AstrolabeMapMonitor:RegisterAstrolabeLibrary( lib, majorVersionString ) - -- check argument types - argcheck(lib, 2, "table"); - argcheck(majorVersionString, 3, "string"); - - self.AstrolabeLibrarys[lib] = majorVersionString; - self:Update(); -end - - --------------------------------------------------------------------------------------------------------------- --- Handler Scripts --------------------------------------------------------------------------------------------------------------- - -function AstrolabeMapMonitor:OnEvent( frame, event ) - if ( event == "ADDON_LOADED" ) then - self:LookForMapsToRegister(); - self:ForceUpdate(); - end -end - - --------------------------------------------------------------------------------------------------------------- --- Library Registration --------------------------------------------------------------------------------------------------------------- - -local function activate( newInstance, oldInstance ) - if ( oldInstance ) then -- this is an upgrade activate - for k, v in pairs(oldInstance) do - if ( type(v) ~= "function" ) then - newInstance[k] = v; - end - end - AstrolabeMapMonitor = oldInstance; - else - AstrolabeMapMonitor.eventFrame = CreateFrame("Frame"); - end - for worldMap, monitorFrame in pairs(AstrolabeMapMonitor.TrackedWorldMaps) do - setScripts(monitorFrame); - end - local frame = AstrolabeMapMonitor.eventFrame; - frame:Hide(); - frame:UnregisterAllEvents(); - frame:RegisterEvent("ADDON_LOADED"); - frame:SetScript("OnEvent", - function( frame, event, ... ) - AstrolabeMapMonitor:OnEvent(frame, event, ...); - end - ); -end - -DongleStub:Register(AstrolabeMapMonitor, activate) diff --git a/libs/Astrolabe/DongleStub.lua b/libs/Astrolabe/DongleStub.lua deleted file mode 100755 index b5211a9..0000000 --- a/libs/Astrolabe/DongleStub.lua +++ /dev/null @@ -1,126 +0,0 @@ ---[[------------------------------------------------------------------------- - James Whitehead II grants anyone the right to use this work for any purpose, - without any conditions, unless such conditions are required by law. ----------------------------------------------------------------------------]] - -local major = "DongleStub" -local minor = tonumber(string.match("$Revision: 313 $", "(%d+)") or 1) - -local g = getfenv(0) - -if not g.DongleStub or g.DongleStub:IsNewerVersion(major, minor) then - local lib = setmetatable({}, { - __call = function(t,k) - if type(t.versions) == "table" and t.versions[k] then - return t.versions[k].instance - else - error("Cannot find a library with name '"..tostring(k).."'", 2) - end - end - }) - - function lib:IsNewerVersion(major, minor) - local versionData = self.versions and self.versions[major] - - -- If DongleStub versions have differing major version names - -- such as DongleStub-Beta0 and DongleStub-1.0-RC2 then a second - -- instance will be loaded, with older logic. This code attempts - -- to compensate for that by matching the major version against - -- "^DongleStub", and handling the version check correctly. - - if major:match("^DongleStub") then - local oldmajor,oldminor = self:GetVersion() - if self.versions and self.versions[oldmajor] then - return minor > oldminor - else - return true - end - end - - if not versionData then return true end - local oldmajor,oldminor = versionData.instance:GetVersion() - return minor > oldminor - end - - local function NilCopyTable(src, dest) - for k,v in pairs(dest) do dest[k] = nil end - for k,v in pairs(src) do dest[k] = v end - end - - function lib:Register(newInstance, activate, deactivate) - assert(type(newInstance.GetVersion) == "function", - "Attempt to register a library with DongleStub that does not have a 'GetVersion' method.") - - local major,minor = newInstance:GetVersion() - assert(type(major) == "string", - "Attempt to register a library with DongleStub that does not have a proper major version.") - assert(type(minor) == "number", - "Attempt to register a library with DongleStub that does not have a proper minor version.") - - -- Generate a log of all library registrations - if not self.log then self.log = {} end - table.insert(self.log, string.format("Register: %s, %s", major, minor)) - - if not self:IsNewerVersion(major, minor) then return false end - if not self.versions then self.versions = {} end - - local versionData = self.versions[major] - if not versionData then - -- New major version - versionData = { - ["instance"] = newInstance, - ["deactivate"] = deactivate, - } - - self.versions[major] = versionData - if type(activate) == "function" then - table.insert(self.log, string.format("Activate: %s, %s", major, minor)) - activate(newInstance) - end - return newInstance - end - - local oldDeactivate = versionData.deactivate - local oldInstance = versionData.instance - - versionData.deactivate = deactivate - - local skipCopy - if type(activate) == "function" then - table.insert(self.log, string.format("Activate: %s, %s", major, minor)) - skipCopy = activate(newInstance, oldInstance) - end - - -- Deactivate the old libary if necessary - if type(oldDeactivate) == "function" then - local major, minor = oldInstance:GetVersion() - table.insert(self.log, string.format("Deactivate: %s, %s", major, minor)) - oldDeactivate(oldInstance, newInstance) - end - - -- Re-use the old table, and discard the new one - if not skipCopy then - NilCopyTable(newInstance, oldInstance) - end - return oldInstance - end - - function lib:GetVersion() return major,minor end - - local function Activate(new, old) - -- This code ensures that we'll move the versions table even - -- if the major version names are different, in the case of - -- DongleStub - if not old then old = g.DongleStub end - - if old then - new.versions = old.versions - new.log = old.log - end - g.DongleStub = new - end - - -- Actually trigger libary activation here - local stub = g.DongleStub or lib - lib = stub:Register(lib, Activate) -end diff --git a/libs/Astrolabe/Load.xml b/libs/Astrolabe/Load.xml deleted file mode 100755 index c63266f..0000000 --- a/libs/Astrolabe/Load.xml +++ /dev/null @@ -1,6 +0,0 @@ -<Ui xmlns="http://www.blizzard.com/wow/ui/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.blizzard.com/wow/ui/ -..\FrameXML\UI.xsd"> - <Script file="DongleStub.lua"/> - <Script file="AstrolabeMapMonitor.lua"/> - <Script file="Astrolabe.lua"/> -</Ui> diff --git a/libs/Astrolabe/lgpl.txt b/libs/Astrolabe/lgpl.txt deleted file mode 100755 index 5ab7695..0000000 --- a/libs/Astrolabe/lgpl.txt +++ /dev/null @@ -1,504 +0,0 @@ - GNU LESSER GENERAL PUBLIC LICENSE - Version 2.1, February 1999 - - Copyright (C) 1991, 1999 Free Software Foundation, Inc. - 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA - Everyone is permitted to copy and distribute verbatim copies - of this license document, but changing it is not allowed. - -[This is the first released version of the Lesser GPL. It also counts - as the successor of the GNU Library Public License, version 2, hence - the version number 2.1.] - - Preamble - - The licenses for most software are designed to take away your -freedom to share and change it. By contrast, the GNU General Public -Licenses are intended to guarantee your freedom to share and change -free software--to make sure the software is free for all its users. - - This license, the Lesser General Public License, applies to some -specially designated software packages--typically libraries--of the -Free Software Foundation and other authors who decide to use it. You -can use it too, but we suggest you first think carefully about whether -this license or the ordinary General Public License is the better -strategy to use in any particular case, based on the explanations below. - - When we speak of free software, we are referring to freedom of use, -not price. Our General Public Licenses are designed to make sure that -you have the freedom to distribute copies of free software (and charge -for this service if you wish); that you receive source code or can get -it if you want it; that you can change the software and use pieces of -it in new free programs; and that you are informed that you can do -these things. - - To protect your rights, we need to make restrictions that forbid -distributors to deny you these rights or to ask you to surrender these -rights. These restrictions translate to certain responsibilities for -you if you distribute copies of the library or if you modify it. - - For example, if you distribute copies of the library, whether gratis -or for a fee, you must give the recipients all the rights that we gave -you. You must make sure that they, too, receive or can get the source -code. If you link other code with the library, you must provide -complete object files to the recipients, so that they can relink them -with the library after making changes to the library and recompiling -it. And you must show them these terms so they know their rights. - - We protect your rights with a two-step method: (1) we copyright the -library, and (2) we offer you this license, which gives you legal -permission to copy, distribute and/or modify the library. - - To protect each distributor, we want to make it very clear that -there is no warranty for the free library. Also, if the library is -modified by someone else and passed on, the recipients should know -that what they have is not the original version, so that the original -author's reputation will not be affected by problems that might be -introduced by others. - - Finally, software patents pose a constant threat to the existence of -any free program. We wish to make sure that a company cannot -effectively restrict the users of a free program by obtaining a -restrictive license from a patent holder. Therefore, we insist that -any patent license obtained for a version of the library must be -consistent with the full freedom of use specified in this license. - - Most GNU software, including some libraries, is covered by the -ordinary GNU General Public License. This license, the GNU Lesser -General Public License, applies to certain designated libraries, and -is quite different from the ordinary General Public License. We use -this license for certain libraries in order to permit linking those -libraries into non-free programs. - - When a program is linked with a library, whether statically or using -a shared library, the combination of the two is legally speaking a -combined work, a derivative of the original library. The ordinary -General Public License therefore permits such linking only if the -entire combination fits its criteria of freedom. The Lesser General -Public License permits more lax criteria for linking other code with -the library. - - We call this license the "Lesser" General Public License because it -does Less to protect the user's freedom than the ordinary General -Public License. It also provides other free software developers Less -of an advantage over competing non-free programs. These disadvantages -are the reason we use the ordinary General Public License for many -libraries. However, the Lesser license provides advantages in certain -special circumstances. - - For example, on rare occasions, there may be a special need to -encourage the widest possible use of a certain library, so that it becomes -a de-facto standard. To achieve this, non-free programs must be -allowed to use the library. A more frequent case is that a free -library does the same job as widely used non-free libraries. In this -case, there is little to gain by limiting the free library to free -software only, so we use the Lesser General Public License. - - In other cases, permission to use a particular library in non-free -programs enables a greater number of people to use a large body of -free software. For example, permission to use the GNU C Library in -non-free programs enables many more people to use the whole GNU -operating system, as well as its variant, the GNU/Linux operating -system. - - Although the Lesser General Public License is Less protective of the -users' freedom, it does ensure that the user of a program that is -linked with the Library has the freedom and the wherewithal to run -that program using a modified version of the Library. - - The precise terms and conditions for copying, distribution and -modification follow. Pay close attention to the difference between a -"work based on the library" and a "work that uses the library". The -former contains code derived from the library, whereas the latter must -be combined with the library in order to run. - - GNU LESSER GENERAL PUBLIC LICENSE - TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION - - 0. This License Agreement applies to any software library or other -program which contains a notice placed by the copyright holder or -other authorized party saying it may be distributed under the terms of -this Lesser General Public License (also called "this License"). -Each licensee is addressed as "you". - - A "library" means a collection of software functions and/or data -prepared so as to be conveniently linked with application programs -(which use some of those functions and data) to form executables. - - The "Library", below, refers to any such software library or work -which has been distributed under these terms. A "work based on the -Library" means either the Library or any derivative work under -copyright law: that is to say, a work containing the Library or a -portion of it, either verbatim or with modifications and/or translated -straightforwardly into another language. (Hereinafter, translation is -included without limitation in the term "modification".) - - "Source code" for a work means the preferred form of the work for -making modifications to it. For a library, complete source code means -all the source code for all modules it contains, plus any associated -interface definition files, plus the scripts used to control compilation -and installation of the library. - - Activities other than copying, distribution and modification are not -covered by this License; they are outside its scope. The act of -running a program using the Library is not restricted, and output from -such a program is covered only if its contents constitute a work based -on the Library (independent of the use of the Library in a tool for -writing it). Whether that is true depends on what the Library does -and what the program that uses the Library does. - - 1. You may copy and distribute verbatim copies of the Library's -complete source code as you receive it, in any medium, provided that -you conspicuously and appropriately publish on each copy an -appropriate copyright notice and disclaimer of warranty; keep intact -all the notices that refer to this License and to the absence of any -warranty; and distribute a copy of this License along with the -Library. - - You may charge a fee for the physical act of transferring a copy, -and you may at your option offer warranty protection in exchange for a -fee. - - 2. You may modify your copy or copies of the Library or any portion -of it, thus forming a work based on the Library, and copy and -distribute such modifications or work under the terms of Section 1 -above, provided that you also meet all of these conditions: - - a) The modified work must itself be a software library. - - b) You must cause the files modified to carry prominent notices - stating that you changed the files and the date of any change. - - c) You must cause the whole of the work to be licensed at no - charge to all third parties under the terms of this License. - - d) If a facility in the modified Library refers to a function or a - table of data to be supplied by an application program that uses - the facility, other than as an argument passed when the facility - is invoked, then you must make a good faith effort to ensure that, - in the event an application does not supply such function or - table, the facility still operates, and performs whatever part of - its purpose remains meaningful. - - (For example, a function in a library to compute square roots has - a purpose that is entirely well-defined independent of the - application. Therefore, Subsection 2d requires that any - application-supplied function or table used by this function must - be optional: if the application does not supply it, the square - root function must still compute square roots.) - -These requirements apply to the modified work as a whole. If -identifiable sections of that work are not derived from the Library, -and can be reasonably considered independent and separate works in -themselves, then this License, and its terms, do not apply to those -sections when you distribute them as separate works. But when you -distribute the same sections as part of a whole which is a work based -on the Library, the distribution of the whole must be on the terms of -this License, whose permissions for other licensees extend to the -entire whole, and thus to each and every part regardless of who wrote -it. - -Thus, it is not the intent of this section to claim rights or contest -your rights to work written entirely by you; rather, the intent is to -exercise the right to control the distribution of derivative or -collective works based on the Library. - -In addition, mere aggregation of another work not based on the Library -with the Library (or with a work based on the Library) on a volume of -a storage or distribution medium does not bring the other work under -the scope of this License. - - 3. You may opt to apply the terms of the ordinary GNU General Public -License instead of this License to a given copy of the Library. To do -this, you must alter all the notices that refer to this License, so -that they refer to the ordinary GNU General Public License, version 2, -instead of to this License. (If a newer version than version 2 of the -ordinary GNU General Public License has appeared, then you can specify -that version instead if you wish.) Do not make any other change in -these notices. - - Once this change is made in a given copy, it is irreversible for -that copy, so the ordinary GNU General Public License applies to all -subsequent copies and derivative works made from that copy. - - This option is useful when you wish to copy part of the code of -the Library into a program that is not a library. - - 4. You may copy and distribute the Library (or a portion or -derivative of it, under Section 2) in object code or executable form -under the terms of Sections 1 and 2 above provided that you accompany -it with the complete corresponding machine-readable source code, which -must be distributed under the terms of Sections 1 and 2 above on a -medium customarily used for software interchange. - - If distribution of object code is made by offering access to copy -from a designated place, then offering equivalent access to copy the -source code from the same place satisfies the requirement to -distribute the source code, even though third parties are not -compelled to copy the source along with the object code. - - 5. A program that contains no derivative of any portion of the -Library, but is designed to work with the Library by being compiled or -linked with it, is called a "work that uses the Library". Such a -work, in isolation, is not a derivative work of the Library, and -therefore falls outside the scope of this License. - - However, linking a "work that uses the Library" with the Library -creates an executable that is a derivative of the Library (because it -contains portions of the Library), rather than a "work that uses the -library". The executable is therefore covered by this License. -Section 6 states terms for distribution of such executables. - - When a "work that uses the Library" uses material from a header file -that is part of the Library, the object code for the work may be a -derivative work of the Library even though the source code is not. -Whether this is true is especially significant if the work can be -linked without the Library, or if the work is itself a library. The -threshold for this to be true is not precisely defined by law. - - If such an object file uses only numerical parameters, data -structure layouts and accessors, and small macros and small inline -functions (ten lines or less in length), then the use of the object -file is unrestricted, regardless of whether it is legally a derivative -work. (Executables containing this object code plus portions of the -Library will still fall under Section 6.) - - Otherwise, if the work is a derivative of the Library, you may -distribute the object code for the work under the terms of Section 6. -Any executables containing that work also fall under Section 6, -whether or not they are linked directly with the Library itself. - - 6. As an exception to the Sections above, you may also combine or -link a "work that uses the Library" with the Library to produce a -work containing portions of the Library, and distribute that work -under terms of your choice, provided that the terms permit -modification of the work for the customer's own use and reverse -engineering for debugging such modifications. - - You must give prominent notice with each copy of the work that the -Library is used in it and that the Library and its use are covered by -this License. You must supply a copy of this License. If the work -during execution displays copyright notices, you must include the -copyright notice for the Library among them, as well as a reference -directing the user to the copy of this License. Also, you must do one -of these things: - - a) Accompany the work with the complete corresponding - machine-readable source code for the Library including whatever - changes were used in the work (which must be distributed under - Sections 1 and 2 above); and, if the work is an executable linked - with the Library, with the complete machine-readable "work that - uses the Library", as object code and/or source code, so that the - user can modify the Library and then relink to produce a modified - executable containing the modified Library. (It is understood - that the user who changes the contents of definitions files in the - Library will not necessarily be able to recompile the application - to use the modified definitions.) - - b) Use a suitable shared library mechanism for linking with the - Library. A suitable mechanism is one that (1) uses at run time a - copy of the library already present on the user's computer system, - rather than copying library functions into the executable, and (2) - will operate properly with a modified version of the library, if - the user installs one, as long as the modified version is - interface-compatible with the version that the work was made with. - - c) Accompany the work with a written offer, valid for at - least three years, to give the same user the materials - specified in Subsection 6a, above, for a charge no more - than the cost of performing this distribution. - - d) If distribution of the work is made by offering access to copy - from a designated place, offer equivalent access to copy the above - specified materials from the same place. - - e) Verify that the user has already received a copy of these - materials or that you have already sent this user a copy. - - For an executable, the required form of the "work that uses the -Library" must include any data and utility programs needed for -reproducing the executable from it. However, as a special exception, -the materials to be distributed need not include anything that is -normally distributed (in either source or binary form) with the major -components (compiler, kernel, and so on) of the operating system on -which the executable runs, unless that component itself accompanies -the executable. - - It may happen that this requirement contradicts the license -restrictions of other proprietary libraries that do not normally -accompany the operating system. Such a contradiction means you cannot -use both them and the Library together in an executable that you -distribute. - - 7. You may place library facilities that are a work based on the -Library side-by-side in a single library together with other library -facilities not covered by this License, and distribute such a combined -library, provided that the separate distribution of the work based on -the Library and of the other library facilities is otherwise -permitted, and provided that you do these two things: - - a) Accompany the combined library with a copy of the same work - based on the Library, uncombined with any other library - facilities. This must be distributed under the terms of the - Sections above. - - b) Give prominent notice with the combined library of the fact - that part of it is a work based on the Library, and explaining - where to find the accompanying uncombined form of the same work. - - 8. You may not copy, modify, sublicense, link with, or distribute -the Library except as expressly provided under this License. Any -attempt otherwise to copy, modify, sublicense, link with, or -distribute the Library is void, and will automatically terminate your -rights under this License. However, parties who have received copies, -or rights, from you under this License will not have their licenses -terminated so long as such parties remain in full compliance. - - 9. You are not required to accept this License, since you have not -signed it. However, nothing else grants you permission to modify or -distribute the Library or its derivative works. These actions are -prohibited by law if you do not accept this License. Therefore, by -modifying or distributing the Library (or any work based on the -Library), you indicate your acceptance of this License to do so, and -all its terms and conditions for copying, distributing or modifying -the Library or works based on it. - - 10. Each time you redistribute the Library (or any work based on the -Library), the recipient automatically receives a license from the -original licensor to copy, distribute, link with or modify the Library -subject to these terms and conditions. You may not impose any further -restrictions on the recipients' exercise of the rights granted herein. -You are not responsible for enforcing compliance by third parties with -this License. - - 11. If, as a consequence of a court judgment or allegation of patent -infringement or for any other reason (not limited to patent issues), -conditions are imposed on you (whether by court order, agreement or -otherwise) that contradict the conditions of this License, they do not -excuse you from the conditions of this License. If you cannot -distribute so as to satisfy simultaneously your obligations under this -License and any other pertinent obligations, then as a consequence you -may not distribute the Library at all. For example, if a patent -license would not permit royalty-free redistribution of the Library by -all those who receive copies directly or indirectly through you, then -the only way you could satisfy both it and this License would be to -refrain entirely from distribution of the Library. - -If any portion of this section is held invalid or unenforceable under any -particular circumstance, the balance of the section is intended to apply, -and the section as a whole is intended to apply in other circumstances. - -It is not the purpose of this section to induce you to infringe any -patents or other property right claims or to contest validity of any -such claims; this section has the sole purpose of protecting the -integrity of the free software distribution system which is -implemented by public license practices. Many people have made -generous contributions to the wide range of software distributed -through that system in reliance on consistent application of that -system; it is up to the author/donor to decide if he or she is willing -to distribute software through any other system and a licensee cannot -impose that choice. - -This section is intended to make thoroughly clear what is believed to -be a consequence of the rest of this License. - - 12. If the distribution and/or use of the Library is restricted in -certain countries either by patents or by copyrighted interfaces, the -original copyright holder who places the Library under this License may add -an explicit geographical distribution limitation excluding those countries, -so that distribution is permitted only in or among countries not thus -excluded. In such case, this License incorporates the limitation as if -written in the body of this License. - - 13. The Free Software Foundation may publish revised and/or new -versions of the Lesser General Public License from time to time. -Such new versions will be similar in spirit to the present version, -but may differ in detail to address new problems or concerns. - -Each version is given a distinguishing version number. If the Library -specifies a version number of this License which applies to it and -"any later version", you have the option of following the terms and -conditions either of that version or of any later version published by -the Free Software Foundation. If the Library does not specify a -license version number, you may choose any version ever published by -the Free Software Foundation. - - 14. If you wish to incorporate parts of the Library into other free -programs whose distribution conditions are incompatible with these, -write to the author to ask for permission. For software which is -copyrighted by the Free Software Foundation, write to the Free -Software Foundation; we sometimes make exceptions for this. Our -decision will be guided by the two goals of preserving the free status -of all derivatives of our free software and of promoting the sharing -and reuse of software generally. - - NO WARRANTY - - 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO -WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. -EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR -OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY -KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE -IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE -LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME -THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. - - 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN -WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY -AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU -FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR -CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE -LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING -RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A -FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF -SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH -DAMAGES. - - END OF TERMS AND CONDITIONS - - How to Apply These Terms to Your New Libraries - - If you develop a new library, and you want it to be of the greatest -possible use to the public, we recommend making it free software that -everyone can redistribute and change. You can do so by permitting -redistribution under these terms (or, alternatively, under the terms of the -ordinary General Public License). - - To apply these terms, attach the following notices to the library. It is -safest to attach them to the start of each source file to most effectively -convey the exclusion of warranty; and each file should have at least the -"copyright" line and a pointer to where the full notice is found. - - <one line to give the library's name and a brief idea of what it does.> - Copyright (C) <year> <name of author> - - This library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public - License as published by the Free Software Foundation; either - version 2.1 of the License, or (at your option) any later version. - - This library is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with this library; if not, write to the Free Software - Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA - -Also add information on how to contact you by electronic and paper mail. - -You should also get your employer (if you work as a programmer) or your -school, if any, to sign a "copyright disclaimer" for the library, if -necessary. Here is a sample; alter the names: - - Yoyodyne, Inc., hereby disclaims all copyright interest in the - library `Frob' (a library for tweaking knobs) written by James Random Hacker. - - <signature of Ty Coon>, 1 April 1990 - Ty Coon, President of Vice - -That's all there is to it! - -