Chris Danford
95 lines
2.7 KiB
Lua
95 lines
2.7 KiB
Lua
-- Find a key in tab with the given value.
|
|
function FindValue(tab, value)
|
|
for key, name in tab do
|
|
if value == name then
|
|
return key
|
|
end
|
|
end
|
|
|
|
return nil
|
|
end
|
|
|
|
-- Return the index of a true value in list.
|
|
function FindSelection( list )
|
|
for index, on in list do
|
|
if on then
|
|
return index
|
|
end
|
|
end
|
|
|
|
return nil
|
|
end
|
|
|
|
-- Look up each value in a table, returning a table with the resulting strings.
|
|
function TableMetricLookup( t, group )
|
|
local ret = { }
|
|
for key, val in t do
|
|
Trace(val)
|
|
ret[key] = THEME:GetMetric(group,val)
|
|
end
|
|
return ret
|
|
end
|
|
|
|
-- Scales x so that l1 corresponds to l2 and h1 corresponds to h2.
|
|
function scale( x, l1, h1, l2, h2 )
|
|
return (((x) - (l1)) * ((h2) - (l2)) / ((h1) - (l1)) + (l2))
|
|
end
|
|
|
|
-- Scales x so that l1 corresponds to l2 and h1 corresponds to h2.
|
|
function scale( x, l1, h1, l2, h2 )
|
|
return (((x) - (l1)) * ((h2) - (l2)) / ((h1) - (l1)) + (l2))
|
|
end
|
|
|
|
function split( delimiter, text )
|
|
local list = {}
|
|
local pos = 1
|
|
while 1 do
|
|
local first,last = string.find( text, delimiter, pos )
|
|
if first then
|
|
table.insert( list, string.sub(text, pos, first-1) )
|
|
pos = last+1
|
|
else
|
|
table.insert( list, string.sub(text, pos) )
|
|
break
|
|
end
|
|
end
|
|
return list
|
|
end
|
|
|
|
function join( delimiter, list )
|
|
local ret = ""
|
|
for i = 1,table.getn(list) do
|
|
ret = ret .. delimiter .. list[i]
|
|
end
|
|
return ret
|
|
end
|
|
|
|
function clamp(val,low,high)
|
|
return math.max( low, math.min(val,high) )
|
|
end
|
|
|
|
|
|
-- (c) 2005 Glenn Maynard
|
|
-- All rights reserved.
|
|
--
|
|
-- Permission is hereby granted, free of charge, to any person obtaining a
|
|
-- copy of this software and associated documentation files (the
|
|
-- "Software"), to deal in the Software without restriction, including
|
|
-- without limitation the rights to use, copy, modify, merge, publish,
|
|
-- distribute, and/or sell copies of the Software, and to permit persons to
|
|
-- whom the Software is furnished to do so, provided that the above
|
|
-- copyright notice(s) and this permission notice appear in all copies of
|
|
-- the Software and that both the above copyright notice(s) and this
|
|
-- permission notice appear in supporting documentation.
|
|
--
|
|
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
|
|
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
|
-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT OF
|
|
-- THIRD PARTY RIGHTS. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR HOLDERS
|
|
-- INCLUDED IN THIS NOTICE BE LIABLE FOR ANY CLAIM, OR ANY SPECIAL INDIRECT
|
|
-- OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS
|
|
-- OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
|
|
-- OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
|
-- PERFORMANCE OF THIS SOFTWARE.
|
|
|