Modul:Zuschauerzahlen
Die Dokumentation für dieses Modul kann unter Modul:Zuschauerzahlen/Doku erstellt werden
-- Dieses Modul implementiert {{Zuschauerzahlen}}.
local contrast_ratio = require('Modul:Color contrast')._ratio
--------------------------------------------------------------------------------
-- TVRG-Klasse
-- Die Hauptklasse.
--------------------------------------------------------------------------------
local TVRG = {}
-- Konvertiere HEX-Codes zu RGB-Werten
function TVRG.hex2rgb(hex)
hex = hex:gsub('#', '')
if #hex == 3 then
-- #000 Format
return tonumber("0x"..hex:sub(1,1)..hex:sub(1,1))/256, tonumber("0x"..hex:sub(2,2)..hex:sub(2,2))/256,
tonumber("0x"..hex:sub(3,3)..hex:sub(3,3))/256
else
-- #000000 Format
return tonumber("0x"..hex:sub(1,2))/256, tonumber("0x"..hex:sub(3,4))/256, tonumber("0x"..hex:sub(5,6))/256
end
end
-- Erlaube {{N/A}} Zellen
function TVRG.NACell(frame,text)
local cell = mw.html.create('td')
local attrMatch = '([%a-]*)="([^"]*)"'
infoParam = frame:expandTemplate{title='N/A',args={text}}
-- Sammle {{N/A}} Stile und weise Knotenvariablen zu
while true do
local a,b = string.match(infoParam,attrMatch)
if a == nil or b == nil then break end
cell:attr(a,b)
infoParam = string.gsub(infoParam,attrMatch,'',1)
end
infoParam = string.gsub(infoParam,'%s*|%s*','',1)
cell:wikitext(infoParam)
return cell
end
-- Erstellt das Diagramm und die Tabelle
function TVRG.new(frame,args)
args = args or {}
-- Variablen
local timeline = ''
local longestseason = -1
local average = args.average and 1 or 0
local season_title = args.season_title or 'Staffel'
local root = mw.html.create('div')
:attr('align', 'center')
local lang = mw.language.getContentLanguage()
-- Erstellt die Zeitleiste
-- Anzahl der tatsächlichen Zuschauerzahlen
local numberargs = 0
for k,v in pairs(args) do
if not string.match(k,'[^%d]+') and not string.match(v,'[^%d\.]+') then numberargs = numberargs + 1 end
end
-- Balkenbreite
local barwidth
if numberargs < 20 then barwidth = 8
elseif numberargs >= 20 and numberargs < 50 then barwidth = 7
elseif numberargs >= 50 and numberargs < 80 then barwidth = 6
elseif numberargs >= 80 then barwidth = 3
end
-- Basis-Parameter
timeline = timeline .. "ImageSize = width:" .. (args.width or 1000) .. " height:" .. (args.height or 300) .. "\n"
timeline = timeline .. "PlotArea = left:50 bottom:70 top:20 right:50\n"
timeline = timeline .. "AlignBars = justify\n"
timeline = timeline .. "Colors =\n"
timeline = timeline .. " id:gray value:gray(0.7)\n"
-- Anzahl der Staffeln festlegen
local num_seasons = -1
for k,v in pairs(args) do
local thisseason = tonumber(string.sub(k,6))
if string.sub(k,1,5) == 'color' and thisseason > num_seasons then
num_seasons = thisseason
end
end
-- Farb- und Legendenvariablen
local season = 1
for season = 1,num_seasons do
local r,g,b = TVRG.hex2rgb(args['color' .. season] or '#006600')
local GraphLegend = season_title .. " " .. season
if args["legend" .. season] then
local legendKey = string.sub(args["legend" .. season], 0, 1)
if type(tonumber(legendKey)) == "number" then
GraphLegend = season_title .. " " .. args["legend" .. season]
else
GraphLegend = args["legend" .. season]
end
end
timeline = timeline .. " id:season" .. season .. " value:rgb("..r..","..g..","..b..") legend:" ..
string.gsub(string.gsub(GraphLegend, ' ', '_'), "''(.-)''", '%1') .. "\n"
season = season + 1
end
-- Maximale Zuschauerzahl ermitteln
local maxviewers = -1
local multiple = 'Millionen'
for k,v in pairs(args) do
local num = tonumber(v)
if tonumber(k) ~= nil and num ~= nil and num > maxviewers then
maxviewers = num
end
end
if maxviewers <= 1.5 then
multiple = 'Tausend'
maxviewers = maxviewers*1000
for k, v in pairs(args) do
local num = tonumber(v)
if tonumber(k) ~= nil and num ~= nil then args[k] = tostring(num*1000) end
end
end
-- Weitere Parameter, mit aufgerundeten Zuschauerzahlen als maximaler Zeitraum
timeline = timeline .. "DateFormat = x.y\n"
timeline = timeline .. "Period = from:0 till:" .. math.ceil(maxviewers) .. "\n"
timeline = timeline .. "TimeAxis = orientation:vertical\n"
timeline = timeline .. "ScaleMajor = gridcolor:gray increment:" .. 10^math.ceil(math.log10(maxviewers)-math.log10(15)) .. " start:0\n"
timeline = timeline .. "Legend = orientation:horizontal\n"
-- Intervallparametersatz zur Vermeidung von überlappenden Balken
local bar = 1
if args.intervals then
timeline = timeline .. "BarData =\n"
for k,v in pairs(args) do
if string.lower(v) == 'n/a' then v = '' end
if tonumber(k) ~= nil and (tonumber(v) ~= nil or v == '') and (average == 0 or (average == 1 and args[k+1] ~= '-' and args[k+1] ~= nil)) then
timeline = timeline .. " bar:"..bar.." text:"..((bar == 1 or bar % args.intervals == 0) and bar or ' ').."\n"
bar = bar + 1
end
end
end
-- Plot-Daten
timeline = timeline .. "PlotData =\n"
timeline = timeline .. " width:" .. (args.bar_width or barwidth) .. "\n"
-- Hinzufügen von Balken zur Zeitachse, eine pro Zuschauerzahl
local bar = 1
local season = 0
local thisseason = 0
for k,v in pairs(args) do
if string.lower(v) == 'n/a' then v = '' end
if tonumber(k) ~= nil then
if v == '-' then
-- Bindestrich bedeutet neue Staffel, also Farbänderung der Staffel
season = season + 1
-- Ermittlung der höchsten Anzahl von Episoden in einer Staffel
if thisseason > longestseason then
longestseason = thisseason
end
thisseason = 0
elseif average == 0 or (average == 1 and args[k+1] ~= '-' and args[k+1] ~= nil) then
-- Mit weiß/schwarzem Balken als Umrandung
local black_cr = contrast_ratio{args['color' .. season], 'black', ['error'] = 0}
local white_cr = contrast_ratio{'white', args['color' .. season], ['error'] = 0}
local bgrnd_cr = (black_cr > white_cr and 'black' or 'gray')
timeline = timeline .. " mark:(line," .. bgrnd_cr .. ")\n"
timeline = timeline .. " color:" .. bgrnd_cr .. "\n"
timeline = timeline .. " bar:" .. bar .. " width:" .. ((args.bar_width or barwidth)+2) .. " from:start till:" .. (v ~= '' and v or 'start') .. "\n"
-- Balken für die Zuschauerzahl einfügen. Nicht einfügen, wenn Durchschnittswerte enthalten sind und der nächste Parameter ein neuer Staffelmarker ist
timeline = timeline .. " color:season" .. season .. "\n"
timeline = timeline .. " bar:" .. bar .. " from:start till:" .. (v ~= '' and v or 'start') .. "\n"
-- Inkrementverfolgungsvariablen
thisseason = thisseason + 1
bar = bar + 1
end
end
end
-- Ermittelt die höchste Anzahl von Episoden in einer Staffel nach den Balken der letzten Staffel
if thisseason > longestseason then
longestseason = thisseason
end
-- Achsenbeschriftungen
local countryDisplayUS, countryDisplayUK, countryDisplayOther
if args.country ~= nil and args.country ~= '' then
if args.country == "U.S." or args.country == "United States" then countryDisplayUS = 'in den Vereinigten Staaten'
elseif args.country == "U.K." or args.country == "United Kingdom" then countryDisplayUK = 'im Vereinigten Königreich'
else countryDisplayOther = args.country
end
end
timeline = timeline .. "TextData =\n"
timeline = timeline .. " pos:(" .. ((args.width or 1000)/2-18) .. ",45) textcolor:black fontsize:S text:Episode\n"
timeline = timeline .. " pos:(10," .. ((args.height or 300)-10) .. ") textcolor:black fontsize:S text:" .. "Zuschauer (" .. multiple .. ")\n"
-- Wenn es einen Titel gibt, fügen ihn mit der Beschriftung der Zuschauer hinzu, andernfalls wird nur die Beschriftung der Zuschauer angezeigt
if args.title ~= nil and args.title ~= '' then
root:wikitext("'''''" .. args.title .. "'': Zuschauer " .. (((countryDisplayUS or countryDisplayUK or countryDisplayOther) and ("" .. (countryDisplayUS or countryDisplayUK or countryDisplayOther) .. " ")) or "") .. "(" .. multiple .. ")'''")
else
root:wikitext("'''Zuschauer pro Episode (" .. multiple .. ")'''")
end
-- Hinzufügen der Zeitachse zu div
if args.nograph == nil then
root:node(frame:extensionTag('timeline', timeline))
end
-- Bewertungstabelle erstellen
if args.notable == nil then
local rtable = mw.html.create('table')
:addClass('wikitable')
:css('text-align', 'center')
-- Wenn die längste Staffel 20 oder mehr Episoden hat
if longestseason >= 20 then
-- Überschriftenzeilen für Episoden 1 bis zur höchsten Anzahl von Episoden
local row = rtable:tag('tr')
row:tag('th'):wikitext(season_title)
:attr('colspan','2')
:attr('rowspan','2')
row:tag('th')
:attr('colspan',longestseason)
:wikitext("Episodennummer")
-- Durchschnittsspalte
if average == 1 then
row:tag('th')
:attr('scope','col')
:attr('rowspan','2')
:wikitext("''Durchschnitt''")
end
local row = rtable:tag('tr')
for i = 1,longestseason do
row:tag('th')
:attr('scope','col')
:wikitext(i)
end
else
-- Überschriftenzeilen für Episoden 1 bis zur höchsten Anzahl von Episoden
local row = rtable:tag('tr')
row:tag('th'):wikitext(season_title)
:attr('colspan','2')
for i = 1,longestseason do
row:tag('th')
:attr('scope','col')
:wikitext('<abbr title=\"Episode\">Ep.</abbr> ' .. i)
end
-- Durchschnittsspalte
if average == 1 then
row:tag('th')
:attr('scope','col')
:wikitext("''Durchschnitt''")
end
end
local season = 1
local thisseason = 0
-- Erstellen von Tabellenzeilen und -zellen
for k,v in pairs(args) do
if tonumber(k) ~= nil then
-- Neuer Staffelmarker oder letzte Episodenwertung
if v == '-' or (average == 1 and args[k+1] == nil) then
if season > 1 then
-- Leere Zellen überspannen mit{{N/A}}
if thisseason < longestseason then
row:node(TVRG.NACell(frame,"N/A"):attr('colspan',longestseason-thisseason))
end
if average == 1 then
-- Wenn Durchschnittswerte enthalten sind, setze die Durchschnittszelle mit Wert oder TBD
if v ~= '' then
row:tag('td'):wikitext(args[k+1] ~= nil and args[k-1] or v)
else
row:node(TVRG.NACell(frame,"TBD"))
end
thisseason = thisseason + 1
end
end
-- Neuer Staffelmarker
if v == '-' then
-- Neue Zeile mit Standard- oder voreingestellter Beschriftung
row = rtable:tag('tr')
row:tag('th')
:css('background-color', args['color' .. season])
:css('width','10px')
row:tag('th')
:attr('scope','row')
:wikitext(args["legend" .. season] and args["legend" .. season] or season)
thisseason = 0
season = season + 1
end
elseif average == 0 or (average == 1 and args[k+1] ~= '-' and args[k+1] ~= nil) then
-- Zuschauerzahlen, entweder als Zahl oder TBD
if string.lower(v) == 'n/a' then
row:node(TVRG.NACell(frame,"N/A"))
elseif v ~= '' then
row:tag('td'):wikitext(lang:formatNum(tonumber(v)))
else
row:node(TVRG.NACell(frame,"TBD"))
end
thisseason = thisseason + 1
end
end
end
-- Abschließend wird geprüft, ob die letzte Zeile {{N/A}} Zellen benötigt.
if average == 0 and thisseason < longestseason then
row:node(TVRG.NACell(frame,"N/A"):attr('colspan',longestseason-thisseason))
end
-- Hinzufügen einer Tabelle zu div root und Rückgabe
root:node(rtable)
end
local span = mw.html.create( 'span' )
span:css( 'color', 'red' )
:wikitext("<sup class=\"reference nowrap ltr\" style=\"color:#002bb8;\">[<span style=\"font-style:italic; color:red\">reference?</span>]</sup>")
if countryDisplayUS then
root:wikitext("<small>Quelle: [[Nielsen Ratings|Nielsen Media Research]]</small>" .. (args.refs or tostring(span)))
else
root:wikitext("<small>Quelle: </small>" .. (args.refs or tostring(span)))
end
return tostring(root)
end
--------------------------------------------------------------------------------
-- Exporte
--------------------------------------------------------------------------------
local p = {}
function p.main(frame)
local args = require('Modul:Arguments').getArgs(frame, {
removeBlanks = false,
wrappers = 'Vorlage:Zuschauerzahlen'
})
return TVRG.new(frame,args)
end
return p