Module:Chart

 --[[
 	keywords are used for languages: they are the names of the actual
 	parameters of the template
 ]]

 localkeywords={
 barChart='bar chart',
 pieChart='pie chart',
 width='width',
 height='height',
 stack='stack',
 colors='colors',
 group='group',
 xlegend='x legends',
 yticks='y tick marks',
 tooltip='tooltip',
 accumulateTooltip='tooltip value accumulation',
 links='links',
 defcolor='default color',
 scalePerGroup='scale per group',
 unitsPrefix='units prefix',
 unitsSuffix='units suffix',
 groupNames='group names',
 hideGroupLegends='hide group legends',
 slices='slices',
 slice='slice',
 radius='radius',
 percent='percent',

 }-- here is what you want to translate

 localdefColors=mw.loadData("Module:Chart/Default colors")
 localhideGroupLegends

 localfunctionnulOrWhitespace(s)
 returnnotsormw.text.trim(s)==''
 end

 localfunctioncreateGroupList(tab,legends,cols)
 if#legends>1andnothideGroupLegendsthen
 table.insert(tab,mw.text.tag('div'))
 locallist={}
 localspanStyle="padding:0 1em;color:inherit;background-color:%s;border:1px solid %s;margin-right:1em;-webkit-print-color-adjust:exact;"
 forgi=1,#legendsdo
 localspan=mw.text.tag('span',{style=string.format(spanStyle,cols[gi],cols[gi])},' ')..' '..legends[gi]
 table.insert(list,mw.text.tag('li',{},span))
 end
 table.insert(tab,
 mw.text.tag('ul',
 {style="list-style:none;column-width:12em;"},
 table.concat(list,'\n')
 )
 )
 table.insert(tab,'</div>')
 end
 end

 localfunctionpieChart(frame)
 localres,imslices,args={},{},frame.args
 localradius
 localvalues,colors,names,legends,links={},{},{},{},{}
 localdelimiter=args.delimiteror':'
 locallang=mw.getContentLanguage()

 localfunctiongetArg(s,def,subst,with)
 localresult=args[keywords[s]]ordefor''
 ifsubstandwiththenresult=string.gsub(result,subst,with)end
 returnresult
 end

 localfunctionanalyzeParams()
 localfunctionaddSlice(i,slice)
 localvalue,name,color,link=unpack(mw.text.split(slice,'%s*'..delimiter..'%s*'))
 values[i]=tonumber(lang:parseFormattedNumber(value))
 orerror(string.format('Slice %d: "%s", first item("%s") could not be parsed as a number',i,valueor'',slice))
 colors[i]=notnulOrWhitespace(color)andcolorordefColors[i*2]
 names[i]=nameor''
 links[i]=link
 end

 radius=getArg('radius',150)
 hideGroupLegends=notnulOrWhitespace(args[keywords.hideGroupLegends])
 localslicesStr=getArg('slices')
 localprefix=getArg('unitsPrefix','','_',' ')
 localsuffix=getArg('unitsSuffix','','_',' ')
 localpercent=args[keywords.percent]
 localsum=0
 locali=0
 forsliceinstring.gmatch(slicesStror'',"%b()")do
 i=i+1
 addSlice(i,string.match(slice,'^%(%s*(.-)%s*%)$'))
 end

 fork,vinpairs(args)do
 localind=string.match(k,'^'..keywords.slice..'%s+(%d+)$')
 ifindthenaddSlice(tonumber(ind),v)end
 end

 for_,valinipairs(values)dosum=sum+valend
 fori,valueinipairs(values)do
 localaddprec=percentandstring.format(' (%0.1f%%)',value/sum*100)or''
 legends[i]=string.format('%s: %s%s%s%s',names[i],prefix,lang:formatNum(value),suffix,addprec)
 links[i]=mw.text.trim(links[i]orstring.format('[[#noSuchAnchor|%s]]',legends[i]))
 end
 end

 localfunctionaddRes(...)
 for_,vinpairs({...})do
 table.insert(res,v)
 end
 end

 localfunctioncreateImageMap()
 addRes('{{#tag:imagemap|','File:Circle frame.svg{{!}}'..(radius*2)..'px')
 addRes(unpack(imslices))
 addRes('desc none','}}')
 end

 localfunctiondrawSlice(i,q,start)
 localcolor=colors[i]
 localangle=start*2*math.pi
 localsin,cos=math.abs(math.sin(angle)),math.abs(math.cos(angle))
 localwsin,wcos=sin*radius,cos*radius
 locals1,s2,w1,w2,w3,w4,border
 ifq==1then
 border='left'
 w1,w2,w3,w4=0,0,wsin,wcos
 s1,s2='bottom','left'
 elseifq==2then
 border='bottom'
 w1,w2,w3,w4=0,wcos,wsin,0
 s1,s2='bottom','right'
 elseifq==3then
 border='right'
 w1,w2,w3,w4=wsin,wcos,0,0
 s1,s2='top','right'
 else
 border='top'
 w1,w2,w3,w4=wsin,0,0,wcos
 s1,s2='top','left'
 end

 localstyle=string.format('border:solid transparent;position:absolute;%s:%spx;%s:%spx;width:%spx;height:%spx',s1,radius,s2,radius,radius,radius)
 ifstart<=(q-1)*0.25then
 style=string.format('%s;border:0;background-color:%s',style,color)
 else
 style=string.format('%s;border-width:%spx %spx %spx %spx;border-%s-color:%s',style,w1,w2,w3,w4,border,color)
 end
 addRes(mw.text.tag('div',{style=style},''))
 end

 localfunctioncreateSlices()
 localfunctioncoordsOfAngle(angle)
 return(100+math.floor(100*math.cos(angle)))..' '..(100-math.floor(100*math.sin(angle)))
 end

 localsum,start=0,0
 for_,valueinipairs(values)dosum=sum+valueend
 fori,valueinipairs(values)do
 localpoly={'poly 100 100'}
 localstartC,endC=start/sum,(start+value)/sum
 localstartQ,endQ=math.floor(startC*4+1),math.floor(endC*4+1)
 forq=startQ,math.min(endQ,4)dodrawSlice(i,q,startC)end
 forangle=startC*2*math.pi,endC*2*math.pi,0.02do
 table.insert(poly,coordsOfAngle(angle))
 end
 table.insert(poly,coordsOfAngle(endC*2*math.pi)..' 100 100 '..links[i])
 table.insert(imslices,table.concat(poly,' '))
 start=start+values[i]
 end
 end

 analyzeParams()
 if#values==0thenerror("no slices found - can't draw pie chart")end
 addRes(mw.text.tag('div',{class='chart noresize',style=string.format('margin-top:0.5em;max-width:%spx;',radius*2)}))
 addRes(mw.text.tag('div',{style=string.format('position:relative;min-width:%spx;min-height:%spx;max-width:%spx;overflow:hidden;',radius*2,radius*2,radius*2)}))
 createSlices()
 addRes(mw.text.tag('div',{style=string.format('position:absolute;min-width:%spx;min-height:%spx;overflow:hidden;',radius*2,radius*2)}))
 createImageMap()
 addRes('</div>')-- close "position:relative" div that contains slices and imagemap.
 addRes('</div>')-- close "position:relative" div that contains slices and imagemap.
 createGroupList(res,legends,colors)-- legends
 addRes('</div>')-- close containing div
 returnframe:preprocess(table.concat(res,'\n'))
 end


 localfunctionbarChart(frame)
 localres={}
 localargs=frame.args-- can be changed to frame:getParent().args
 localvalues,xlegends,colors,tooltips,yscales={},{},{},{},{}
 localgroupNames,unitsSuffix,unitsPrefix,links={},{},{},{}
 localwidth,height,yticks,stack,delimiter=500,350,-1,false,args.delimiteror':'
 localchartWidth,chartHeight,defcolor,scalePerGroup,accumulateTooltip


 localnumGroups,numValues
 localscaleWidth

 localfunctionvalidate()
 localfunctionasGroups(name,tab,toDuplicate,emptyOK)
 if#tab==0andnotemptyOKthen
 error("must supply values for "..keywords[name])
 end
 if#tab==1andtoDuplicatethen
 fori=2,numGroupsdotab[i]=tab[1]end
 end
 if#tab>0and#tab~=numGroupsthen
 error(keywords[name]..' must contain the same number of items as the number of groups, but it contains '..#tab..' items and there are '..numGroups..' groups')
 end
 end

 -- do all sorts of validation here, so we can assume all params are good from now on.
 -- among other things, replace numerical values with mw.language:parseFormattedNumber() result


 chartHeight=height-80
 numGroups=#values
 numValues=#values[1]
 defcolor=defcoloror'blue'
 colors[1]=colors[1]ordefcolor
 scaleWidth=scalePerGroupand80*numGroupsor100
 chartWidth=width-scaleWidth
 asGroups('unitsPrefix',unitsPrefix,true,true)
 asGroups('unitsSuffix',unitsSuffix,true,true)
 asGroups('colors',colors,true,true)
 asGroups('groupNames',groupNames,false,false)
 ifstackandscalePerGroupthen
 error(string.format('Illegal settings: %s and %s are incompatible.',keywords.stack,keywords.scalePerGroup))
 end
 forgi=2,numGroupsdo
 if#values[gi]~=numValuesthenerror(keywords.group.." "..gi.." does not have same number of values as "..keywords.group.." 1")end
 end
 if#xlegends~=numValuesthenerror('Illegal number of '..keywords.xlegend..'. Should be exactly '..numValues..' not '..#xlegends)end
 end

 localfunctionextractParams()
 localfunctiontestone(keyword,key,val,tab)
 locali=keyword==keyand0orkey:match(keyword.."%s+(%d+)")
 ifnotithenreturnend
 i=tonumber(i)orerror("Expect numerical index for key "..keyword.." instead of '"..key.."'")
 ifi>0thentab[i]={}end
 forsinmw.text.gsplit(val,'%s*'..delimiter..'%s*')do
 table.insert(i==0andtabortab[i],s)
 end
 returntrue
 end

 fork,vinpairs(args)do
 ifk==keywords.widththen
 width=tonumber(v)
 ifnotwidthorwidth<200then
 error('Illegal width value (must be a number, and at least 200): '..v)
 end
 elseifk==keywords.heightthen
 height=tonumber(v)
 ifnotheightorheight<200then
 error('Illegal height value (must be a number, and at least 200): '..v)
 end
 elseifk==keywords.stackthenstack=true
 elseifk==keywords.yticksthenyticks=tonumber(v)or-1
 elseifk==keywords.scalePerGroupthenscalePerGroup=true
 elseifk==keywords.defcolorthendefcolor=v
 elseifk==keywords.accumulateTooltipthenaccumulateTooltip=notnulOrWhitespace(v)
 elseifk==keywords.hideGroupLegendsthenhideGroupLegends=notnulOrWhitespace(v)
 else
 forkeyword,tabinpairs({
 group=values,
 xlegend=xlegends,
 colors=colors,
 tooltip=tooltips,
 unitsPrefix=unitsPrefix,
 unitsSuffix=unitsSuffix,
 groupNames=groupNames,
 links=links,
 })do
 iftestone(keywords[keyword],k,v,tab)
 thenbreak
 end
 end
 end
 end
 end

 localfunctionroundup(x)-- returns the next round number: eg., for 30 to 39.999 will return 40, for 3000 to 3999.99 wil return 4000. for 10 - 14.999 will return 15.
 localordermag=10^math.floor(math.log10(x))
 localnormalized=x/ordermag
 localtop=normalized>=1.5and(math.floor(normalized+1))or1.5
 returnordermag*top,top,ordermag
 end

 localfunctioncalcHeightLimits()-- if limits were passed by user, use them, otherwise calculate. for "stack" there's only one limet.
 ifstackthen
 localsums={}
 for_,groupinpairs(values)do
 fori,valinipairs(group)dosums[i]=(sums[i]or0)+valend
 end
 localsum=math.max(unpack(sums))
 fori=1,#valuesdoyscales[i]=sumend
 else
 fori,groupinipairs(values)doyscales[i]=math.max(unpack(group))end
 end
 fori,scaleinipairs(yscales)doyscales[i]=roundup(scale*0.9999)end
 ifnotscalePerGroupthenfori=1,#valuesdoyscales[i]=math.max(unpack(yscales))endend
 end

 localfunctiontooltip(gi,i,val)
 iftooltipsandtooltips[gi]andnotnulOrWhitespace(tooltips[gi][i])thenreturntooltips[gi][i],trueend
 localgroupName=mw.text.killMarkers(notnulOrWhitespace(groupNames[gi])andgroupNames[gi]..': 'or'')
 localprefix=unitsPrefix[gi]orunitsPrefix[1]or''
 localsuffix=unitsSuffix[gi]orunitsSuffix[1]or''
 returnstring.gsub(groupName..prefix..mw.getContentLanguage():formatNum(tonumber(val)or0)..suffix,'_',' '),false
 end

 localfunctioncalcHeights(gi,i,val)
 localbarHeight=math.max(2,math.floor(val/yscales[gi]*chartHeight+0.5))-- add half to make it "round" instead of "trunc", min height to 2 to avoid negative bar sizes
 localtop,base=chartHeight-barHeight,0
 ifstackthen
 forj=1,gi-1do
 iftonumber(values[j][i])>0then
 base=base+math.max(2,math.floor(values[j][i]/yscales[gi]*chartHeight+0.5))-- sum the "i" value of all the groups below our group, gi, and keep the same calculation for each bar
 end
 end
 end
 returnbarHeight,top-base
 end

 localfunctiongroupBounds(i)
 localsetWidth=math.floor(chartWidth/numValues)
 localsetOffset=(i-1)*setWidth
 returnsetOffset,setWidth
 end

 localfunctioncalcx(gi,i)
 localsetOffset,setWidth=groupBounds(i)
 ifstackornumGroups==1then
 localbarWidth=math.min(38,math.floor(0.8*setWidth))
 returnsetOffset+(setWidth-barWidth)/2,barWidth
 end
 setWidth=0.85*setWidth
 localbarWidth=math.floor(0.75*setWidth/numGroups)
 localleft=setOffset+math.floor((gi-1)/numGroups*setWidth)
 returnleft,barWidth
 end

 localfunctiondrawbar(gi,i,val,ttval)
 ifval=='0'thenreturnend-- do not show single line (borders....) if value is 0, or rather, '0'. see talkpage

 localcolor,tooltip,custom=colors[gi]ordefcoloror'blue',tooltip(gi,i,ttvalorval)
 localleft,barWidth=calcx(gi,i)
 localbarHeight,top=calcHeights(gi,i,val)

 -- borders so it shows up when printing
 localstyle=string.format("position:absolute;left:%spx;top:%spx;height:%spx;min-width:%spx;max-width:%spx;color:inherit;background-color:%s;-webkit-print-color-adjust:exact;border:1px solid %s;border-bottom:none;overflow:hidden;",
 left,top,barHeight-1,barWidth-2,barWidth-2,color,color)
 locallink=links[gi]andlinks[gi][i]or''
 localimg=notnulOrWhitespace(link)andstring.format('[[File:Transparent.png|1000px|link=%s|%s]]',link,customandtooltipor'')or''
 table.insert(res,mw.text.tag('div',{style=style,title=tooltip,},img))
 end


 localfunctiondrawYScale()
 localfunctiondrawSingle(gi,color,width,yticks,single)
 localyscale=yscales[gi]
 local_,top,ordermag=roundup(yscale*0.999)
 localnumnotches=yticks>=0andyticksor
 (top<=1.5andtop*4
 ortop<4andtop*2
 ortop)
 localvalStyleStr=
 singleand'position:absolute;height=20px;text-align:right;vertical-align:middle;width:%spx;top:%spx;padding:0 2px'
 or'position:absolute;height=20px;text-align:right;vertical-align:middle;width:%spx;top:%spx;left:3px;background-color:%s;color:white;font-weight:bold;text-shadow:-1px -1px 0 #000,1px -1px 0 #000,-1px 1px 0 #000,1px 1px 0 #000;padding:0 2px'
 localnotchStyleStr='position:absolute;height=1px;min-width:5px;top:%spx;left:%spx;border:1px solid %s;'
 fori=1,numnotchesdo
 localval=i/numnotches*yscale
 localy=chartHeight-calcHeights(gi,1,val)
 localdiv=mw.text.tag('div',{style=string.format(valStyleStr,width-10,y-10,color)},mw.getContentLanguage():formatNum(tonumber(val)or0))
 table.insert(res,div)
 div=mw.text.tag('div',{style=string.format(notchStyleStr,y,width-4,color)},'')
 table.insert(res,div)
 end
 end

 ifscalePerGroupthen
 localcolWidth=80
 localcolStyle="position:absolute;height:%spx;min-width:%spx;left:%spx;border-right:1px solid %s;color:%s"
 forgi=1,numGroupsdo
 localleft=(gi-1)*colWidth
 localcolor=colors[gi]ordefcolor
 table.insert(res,mw.text.tag('div',{style=string.format(colStyle,chartHeight,colWidth,left,color,color)}))
 drawSingle(gi,color,colWidth,yticks)
 table.insert(res,'</div>')
 end
 else
 drawSingle(1,'black',scaleWidth,yticks,true)
 end
 end

 localfunctiondrawXlegends()
 localsetOffset,setWidth
 locallegendDivStyleFormat="position:absolute;left:%spx;top:10px;min-width:%spx;max-width:%spx;text-align:center;vertical-align:top;"
 localtickDivstyleFormat="position:absolute;left:%spx;height:10px;width:1px;border-left:1px solid black;"
 fori=1,numValuesdo
 ifnotnulOrWhitespace(xlegends[i])then
 setOffset,setWidth=groupBounds(i)
 -- setWidth = 0.85 * setWidth
 table.insert(res,mw.text.tag('div',{style=string.format(legendDivStyleFormat,setOffset+1,setWidth-2,setWidth-2)},xlegends[i]or''))
 table.insert(res,mw.text.tag('div',{style=string.format(tickDivstyleFormat,setOffset+setWidth/2)},''))
 end
 end
 end

 localfunctiondrawChart()
 table.insert(res,mw.text.tag('div',{class='chart noresize',style=string.format('padding-top:10px;margin-top:1em;max-width:%spx;',width)}))
 table.insert(res,mw.text.tag('div',{style=string.format("position:relative;min-height:%spx;min-width:%spx;max-width:%spx;",height,width,width)}))

 table.insert(res,mw.text.tag('div',{style=string.format("float:right;position:relative;min-height:%spx;min-width:%spx;max-width:%spx;border-left:1px black solid;border-bottom:1px black solid;",chartHeight,chartWidth,chartWidth)}))
 localacum=stackandaccumulateTooltipand{}
 forgi,groupinpairs(values)do
 fori,valinipairs(group)do
 ifacumthenacum[i]=(acum[i]or0)+valend
 drawbar(gi,i,val,acumandacum[i])
 end
 end
 table.insert(res,'</div>')
 table.insert(res,mw.text.tag('div',{style=string.format("position:absolute;height:%spx;min-width:%spx;max-width:%spx;",chartHeight,scaleWidth,scaleWidth,scaleWidth)}))
 drawYScale()
 table.insert(res,'</div>')
 table.insert(res,mw.text.tag('div',{style=string.format("position:absolute;top:%spx;left:%spx;width:%spx;",chartHeight,scaleWidth,chartWidth)}))
 drawXlegends()
 table.insert(res,'</div>')
 table.insert(res,'</div>')
 createGroupList(res,groupNames,colors)
 table.insert(res,'</div>')
 end

 extractParams()
 validate()
 calcHeightLimits()
 drawChart()
 returntable.concat(res,"\n")
 end

 return{
 ['bar-chart']=barChart,
 [keywords.barChart]=barChart,
 [keywords.pieChart]=pieChart,
 }