Module:Weather box/row: Difference between revisions

Revision as of 04:24, 8 March 2013

Latest revision as of 05:26, 10 December 2023

(138 intermediate revisions by 9 users not shown)

Line 1:

local math_mod = require('Module:Math')

w = {};

convert = require( "Module:BaseConvert" );

local traceText

function hex( value )

local Value

return convert._convert( value, 16, 10, 0, 2, nil, nil, nil );

Value = {

lang = mw.getContentLanguage(),

getDisplay = function (self, second)

if not self:isValid() then

return nil

end

local display = self.string

if display == 'trace' then

if second then

-- If a cell displays "cm (inch)", show "trace" not "trace (trace)".

return nil

end

return traceText or 'trace'

end

if math.abs(self.number) >= 1000 then

display = self.lang:formatNum(math.abs(self.number))

if self.number < 0 then

display = '−' .. display

end

elseif self.number < 0 then

display = '−' .. display:sub(2)

end

return display

end,

getPrecision = function (self)

local result = rawget(self, 'precision')

if not result then

if self:isValid() then

result = math.max(0, math_mod._precision(self.string))

else

result = 0

end

rawset(self, 'precision', result)

end

return result

end,

isValid = function (self)

return self.number ~= nil and self.number ~= -9999

end,

new = function (v)

local val, str, precision

if type(v) == 'string' then

if v == 'trace' then

val, str, precision = 0, 'trace', 0

else

val, str = math_mod._cleanNumber(v)

end

elseif type(v) == 'number' then

val, str = v, tostring(v)

end

if not val then

val, str = -9999, ''

end

return setmetatable({

number = val,

string = str,

precision = precision,

}, Value)

end,

converts = {

in2cm = { factor = 2.54 },

in2mm = { factor = 25.4 },

cm2in = { factor = 1/2.54, p2max = 1 },

mm2in = { factor = 1/25.4, p2max = 0 },

},

setConvert = function (self, invalue, units)

-- Use method modified from [[Module:Convert]] to determine precision.

if invalue.string == 'trace' then

self.number, self.string, self.precision = 0, 'trace', 0

return

end

local convert = self.converts[units] or error('Unknown units')

local outnum = invalue.number * convert.factor

local precision = invalue:getPrecision()

if outnum > 0 then

local adjust = math.log10(1/convert.factor) + math.log10(2)

local p1 = math.floor(precision + adjust)

local p2 = 1 - math.floor(math.log10(outnum))

if convert.p2max then

p2 = math.min(p2, convert.p2max)

end

precision = math.max(p1, p2)

end

self:setNumberRounded(outnum, precision)

end,

setNumberRounded = function (self, number, precision)

if precision > 2 then

precision = 2

end

self.number = math_mod._round(number, precision)

if precision < 0 then

self.string = tostring(self.number)

else

local fmt = '%.' .. string.format('%d', precision) .. 'f'

self.string = string.format(fmt, self.number)

end

end,

}

Value.__index = Value

local function checkFlag(flag, default)

if flag == nil then

return default

elseif type(flag) == 'boolean' then

return flag

elseif type(flag) == 'string' then

flag = flag:lower()

if flag == '0' or flag == 'false' or

flag == '' or flag == 'no' or

flag == 'n' then

return false

else

return true

end

else

return error('Flag type not valid')

end

end

local function range_posmakeLine( valuelabel, startfirst_values, stopsecond_values, color_values)

local result = {'|- style="text-align: center;"\n! scope="row" style="height: 16px;" | ', label, "\n"}

if start < stop then

for i = 1, 13 do

if value < start then

table.insert(result,

return 0;

'|style="' .. color_values[i] ..

elseif value > stop then

(i == 13 and ' border-left-width:medium"' or '"') ..

return 1;

' class="notheme"| '

else

)

return (value - start) / (stop - start);

local display = first_values[i]:getDisplay()

end

if display then

else

table.insert(result, display)

if value < stop then

if second_values ~= nil then

return 1;

display = second_values[i]:getDisplay(true)

elseif value > start then

if display then

return 0;

table.insert(result, "<br />(" .. display .. ")")

else

end

return (start - value) / (start - stop);

end

else

end

table.insert(result, '—')

end

end

table.insert(result, "\n")

end

return table.concat(result)

end

local function getInputs(args, group_name, suffix, include_space)

function w.color_d( frame )

local month_names = { 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',

local val, item, result;

'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec', 'year' }

local str

val = tonumber( frame.args[1] );

local values = {}

if val == nil then

if suffix == nil then

return "background:#FFFFFF;color:#000000;"

for i, mon in ipairs(month_names) do

end

if include_space then

str = args[ mon .. ' ' .. group_name ] or ''

result = 'background:#';

else

if val > 20 then

str = args[ mon .. group_name ] or ''

result = result .. "0000";

end

elseif val < 0 then

values[i] = Value.new(str)

result = result .. "FFFF";

end

else

else

item = 12.75*(20-val);

for i, mon in ipairs(month_names) do

item = hex( item );

local value, updated

result = result .. item .. item;

for var, suf in ipairs(suffix) do

end

if include_space then

str = args[ mon .. ' ' .. group_name .. ' ' .. suf ]

if val > 40 then

else

result = result .. "00";

str = args[ mon .. group_name .. ' ' .. suf ]

elseif val < 20 then

end

result = result .. "FF";

if str ~= nil and str ~= '' then

else

value = Value.new(str)

item = 12.75*(40-val);

value.variant = var

result = result .. hex( item );

updated = true

end

break

end

if val >= 12 then

end

result = result .. ";color:#FFFFFF";

if not updated then

else

value = Value.new()

result = result .. ";color:#000000";

value.variant = 0

end

end

values[i] = value

return result .. ';font-size:85%;text-align:center;';

end

end

return values

end

local function w.color_d2getAnnualValue(values, frame mode)

if mode == 'avg' or mode == 'sum' then

local val, item, result;

local total = 0

local p1, p2, variant

val = tonumber( frame.args[1] );

p1 = 0

if val == nil then

for i = 1, 12 do

return "background:#FFFFFF;color:#000000;"

if not values[i]:isValid() then

end

return Value.new()

end

result = 'background:#';

if not variant then

item = hex( range_pos( val, 20, 0 )*255 );

local var = values[i].variant

result = result .. item .. item;

if var and var ~= 0 then

variant = var

item = hex( range_pos( val, 40, 20 )*255 );

end

result = result .. item;

end

p2 = values[i]:getPrecision()

if val >= 12 then

if p2 > p1 then

result = result .. ";color:#FFFFFF";

p1 = p2

else

end

result = result .. ";color:#000000";

total = total + values[i].number

end

end

local value = Value.new(total)

return result .. ';font-size:85%;text-align:center;';

if mode == 'avg' then

value:setNumberRounded(total / 12, p1)

end

value.variant = variant

return value

elseif mode == 'min' then

local target

for i = 1, 12 do

if values[i]:isValid() then

if target == nil or values[i].number < target.number then

target = values[i]

end

end

end

return target or Value.new()

elseif mode == 'max' then

local target

for i = 1, 12 do

if values[i]:isValid() then

if target == nil or values[i].number > target.number then

target = values[i]

end

end

end

return target or Value.new()

else

error('Unrecognized Annual Mode')

end

end

local function w.color_treconcileTemperature(C_values, frame F_values)

for i = 1, 13 do

local val, item, result;

local p

if C_values[i].string == '' then

val = tonumber( frame.args[1] );

if val == nilF_values[i]:isValid() then

p = F_values[i]:getPrecision()

return "background:#FFFFFF;color:#000000;"

C_values[i]:setNumberRounded((F_values[i].number - 32)*5/9, p)

end

end

elseif F_values[i].string == '' then

result = 'background:#';

if val < -42.75 or val > 60C_values[i]:isValid() then

p = C_values[i]:getPrecision()

result = result .. "00";

F_values[i]:setNumberRounded(C_values[i].number*9/5 + 32, p)

elseif val < 4.47 then

end

item = 5.4*(42.75 + val)

end

result = result .. hex( item );

end

elseif val > 41.5 then

item = 13.78*(60-val);

result = result .. hex( item );

else

result = result .. "FF"

end

if val < -42.75 or val > 41.5 then

result = result .. "00";

elseif val < 4.47 then

item = 5.4*(42.75 + val)

result = result .. hex( item );

elseif val > 4.5 then

item = 6.89*(41.5 - val);

result = result .. hex( item );

else

result = result .. "FF"

end

if val < -90 or val > 23 then

result = result .. "00";

elseif val < -42.78 then

item = 5.4*(90 + val)

result = result .. hex( item );

elseif val > 4.5 then

item = 13.78*(23 - val);

result = result .. hex( item );

else

result = result .. "FF"

end

if val < -23.3 or val >= 37.8 then

result = result .. ";color:#FFFFFF";

end

return result .. ';font-size:85%';

end

local function reconcilePrecipitation(M_values, I_values, prefer_cm)

function w.color_p( frame )

local val,v_class item,= result;0

for i = 1, 13 do

if M_values[i].variant == 1 then

val = tonumber( frame.args[1] );

v_class = 1

if val == nil then

elseif M_values[i].variant == 2 then

return "background:#FFFFFF;color:#000000;"

v_class = 2

end

end

end

result = 'background:#';

if valv_class >== 165.60 then

if prefer_cm then

result = result .. "0000";

v_class = 1

elseif val > 0.02 then

else

item = 1.54*(165.6 - val);

v_class = 2

item = hex( item );

end

result = result .. item .. item;

end

else

for i = 1, 13 do

result = result .. "FFFF"

local units

end

if M_values[i].string == '' then

if val > 300I_values[i]:isValid() then

if v_class == 1 then

result = result .. "30";

units = 'in2cm'

elseif val > 165.61 then

else

item = 1.54*(331.2 - val);

units = 'in2mm'

result = result .. hex( item );

end

else

M_values[i]:setConvert(I_values[i], units)

result = result .. "FF"

M_values[i].variant = v_class

end

end

elseif I_values[i].string == '' then

if val > 90 then

if M_values[i]:isValid() then

result = result .. ";color:#FFFFFF";

if M_values[i].variant == 1 then

else

units = 'cm2in'

result = result .. ";color:#000000";

else

end

units = 'mm2in'

end

I_values[i]:setConvert(M_values[i], units)

end

end

end

end

local function _buildRow(definition, args, options)

options = options or {}

local wbc = require('Module:Weather box/colors' .. (options.sandbox or ''))

local mode = (definition.mode or 'basic'):lower()

local group_name = definition.group_name

local first_values, second_values

local color_values

local color_scheme = definition.color_scheme or 't'

local scale_factor = math_mod._cleanNumber(definition.scale_factor) or 1

local date_mode = checkFlag(definition.date_mode, false)

local label = definition.label or ''

local annual_mode = (definition.annual_mode or 'avg'):lower()

local include_space = checkFlag(definition.include_space, true)

local second_line = checkFlag(definition.second_line, false)

local prefer_cm = checkFlag(definition.prefer_cm, false)

local imperial_first = checkFlag(args['imperial first'])

local metric_first = checkFlag(args['metric first'])

local wantSingleLine = options.wantSingleLine or checkFlag(args['single line'])

local trace = args.trace

if trace and trace ~= '' then

traceText = trace

end

if imperial_first == nil then

imperial_first = metric_first == nil and true or not metric_first

end

if mode == 'basic' then

first_values = getInputs(args, group_name, nil, include_space)

second_values = nil

elseif mode == 'temperature' then

first_values = getInputs(args, group_name, {'C'}, include_space)

second_values = getInputs(args, group_name, {'F'}, include_space)

reconcileTemperature(first_values, second_values)

elseif mode == "precipitation" then

first_values = getInputs(args, group_name, {'cm', 'mm'}, include_space)

second_values = getInputs(args, group_name, {'inch'}, include_space)

reconcilePrecipitation(first_values, second_values, prefer_cm)

else

error('Requested mode not recognized')

end

local good = false

for i = 1, 13 do

if first_values[i].string ~= '' then

good = true

break

end

end

if not good then

return ''

end

if first_values[13].string == '' then

first_values[13] = getAnnualValue(first_values, annual_mode)

end

if second_values ~= nil then

if second_values[13].string == '' then

second_values[13] = getAnnualValue(second_values, annual_mode)

end

end

color_scheme = wbc.interpret_color_code(color_scheme)

color_values = {}

local month_adj = { 31/30, 28.25/30, 31/30, 1, 31/30, 1,

31/30, 31/30, 1, 31/30, 1, 31/30, 365.25/30 }

for i = 1, 13 do

if first_values[i]:isValid() then

local adj = scale_factor

if date_mode then

adj = adj / month_adj[i]

end

if mode == "precipitation" then

if first_values[i].variant == 1 then

adj = adj * 10

end

end

table.insert(color_values, color_scheme(first_values[i].number * adj))

else

table.insert(color_values, color_scheme(nil))

end

end

if imperial_first and second_values ~= nil then

first_values, second_values = second_values, first_values

end

if not wantSingleLine then

if second_line and second_values ~= nil then

first_values = second_values

end

second_values = nil

end

return makeLine(label, first_values, second_values, color_values)

end

local function buildRow(frame)

return result .. ';font-size:85%;text-align:center;';

return _buildRow(frame.args, frame:getParent().args) -- row definition, template parameters

end

return w;{

buildRow = buildRow,

_buildRow = _buildRow,

}