Module:OSM Location map/sandbox

require('strict')

local delink=require('Module:Delink').delink

local getArgs = require('Module:Arguments').getArgs

local p = {}

local maplist={}

local sgNames={}

local highlightOption=false

local highlightNum

local visibleLinks

-- This module creates framed maps of anywhere in the world, at the required scale, and enables annotations,

-- dots, shapes, lines and other ways to customise the area of the map being shown. It also provides a link

-- to an interactive fullscreen version, which has locator dots instead of annotations and shapes.

-- This is the 2025 successor module to a wiki-markup template version of 2024, which itself was a successor

-- to the 'Graph'/VEGA driven template that was begun in 2016, until the Vega version was switched off in 2023.

-- This module is called from template {{OSM Location map}}, which uses the same parameter formats as before.

-- In addition it will be possible to use a more concise parameter format using the template {{OSM Location dots}}

-- In general the css output from the two formats will be identical, but the the concise version will allow bits of

-- greater control over some of the settings.

-- see the documentation on the two template pages for details of how to use the mapping features.

-- If language customisation is needed, there are text items below that can be translated. Also see the color table

-- below with details of how to add additional color names to allow localised alternatives.

-- (Translating other language shape-types could be possible, but has not currently been contemplated.

-- Parameter name translation would be harder but likely to be possible, ideally still retaining compatibility

-- with template calls already written using English).

local negativeAnswer={no=1,'0'-1,off=1}

local fullscreenlinktext='Click for interactive fullscreen map with links to nearby articles'

local toggletext='[Hide/show caption list]'

local termsOfUse='Maps: terms of use'

local aboutOSM='About OpenStreetMaps'

local shapeList={} --This sets up the 'factoryDefault' shape group 0

shapeList["0"]={shapeType="0",

Name="initialSettings",

Parent="0",

--sga items for the shape

shape="circle",

shapeSize="12px",

shapeColor="blue",

shapeAngle="0deg",

--sgb items for border of the shape

outlineWidth="0.5px",

outlineColor="darkblue",

outlineStyle="solid",

--sgc items text settings for labels

textSZ="11px",

textCL="darkgrey",

textNG="0deg",

--sgf further text settings

textSP="0px",

textLH="120%",

textOL="0px",

textBG="transparent",

--sgd items for dotTag text settings

tagSize="10px",

tagColor="white",

tagSpacer="0px",

tagAngle="0deg",

--sge items for extension line to connect label to dot

textEW="0px",

textEC="darkgrey",

textES="solid"

}

local colorList={} -- used by colorLookup to catch unsupported colors (eg 'LimeGreen'), to convert to generic version

colorList['green']='hardgreen' -- it could also be added to to include alternative language equivelants, for a quick solution.

colorList['red']='hardred' -- colorList ['source'] = target

colorList['white']='white' -- converts any color that includes 'source' into its equivelent target

colorList['blue']='hardblue' -- note, for translation you can add to this list, rather than replace it,

colorList['brown']='brown' -- which would mean existing map definitions in english would also still work, alongside translated ones

colorList['grey']='hardgrey'

colorList['gray']='hardgrey'

colorList['purple']='hardpurple'

colorList['orange']='hardorange'

colorList['leaf']='hardleaf'

--for a more thorough translation, you can add all the variants of the colors as further CTB elements and hex values or redirects

local CTB={} -- set up a table of color names (the CTB Color table index) and html hash colorhex values.

CTB["paleblue"],CTB["softblue"],CTB["hardblue"],CTB["darkblue"]="#D6E1EC","#77A1CB","#4B77D6","#1c559e"

CTB["palered"],CTB["softred"],CTB["hardred"],CTB["darkred"] = "#FCC6C0","#EC644B","#DB3123","#AA1205"

CTB["palegreen"],CTB["softgreen"],CTB["hardgreen"],CTB["darkgreen"]= "#D2F0E5","#81AF81","#269F46","#0b7527"

CTB["paleleaf"],CTB["softleaf"],CTB["hardleaf"],CTB["darkleaf"]= "#dff5c1","#b5e376","#8cc244","#679c21"

CTB["palegrey"],CTB["softgrey"],CTB["hardgrey"],CTB["darkgrey"]= "#E8E8D6","#AAAA88","#777755","#444433"

CTB["palegray"],CTB["softgray"],CTB["hardgray"],CTB["darkgray"]=CTB["palegrey"],CTB["softgrey"],CTB["hardgrey"],CTB["darkgrey"]

CTB["palebrown"],CTB["softbrown"],CTB["hardbrown"],CTB["darkbrown"]="#FAF6ED","#CCB56C","#AD7F14","#754910"

CTB["palepurple"],CTB["softpurple"],CTB["hardpurple"],CTB["darkpurple"]="#e0d1e6","#c784e0","#a029cf","#7a05a8"

CTB["paleorange"],CTB["softorange"],CTB["hardorange"],CTB["darkorange"]="#ffedc2","#ffcf61","#EEB533","#e39f05"

CTB["black"],CTB["white"],CTB["yellow"]="#000000","#FFFFFF","#FAF039"

CTB["background"],CTB["paleground"],CTB["beigeground"]="#f9f6f2","#FEFEFA","#F5F5DC"

CTB["beige"]=CTB["beigeground"]

CTB["aqua"],CTB["teal"],CTB["fuchsia"] = "#00FFFF","#008080","#FF00FF"

CTB["maroon"],CTB["olive"],CTB["navy"] = "#800000","#808000","#000080"

CTB["lime"],CTB["limegreen"],CTB["aquamarine"] = "#00FF00","#32CD32","#7FFFD4"

CTB["silver"],CTB["yellow"],CTB["orchid"] = "#800000","#FFFF00","#DA70D6"

-- set up a table of predefined clip-paths

local pathshape={}

pathshape.squaredd = "M 19,1.25 l 0,18 -18,0 0,-18 18,0m-1,1 -16,0 0,16 16,0 0,-16m-1,1 0,14 -14,0 0,-14 14,0zm-1,1 -12,0 0,12 12,0 0,-12zm-1,1 0,10 -10,0 0,-10 10,0z"

pathshape.squared = "M 18,2.5 l 0,15 -15,0 0,-15 15,0m-1,1 -13,0 0,13 13,0 0,-13zm-1,1 0,11 -11,0 0,-11 11,0z"

pathshape.triangledd="M 0 20,20 20,10 0,0 20ZM1.5 19,10 1.7,18.5 19,1.5 19ZM3 18,17 18,10 3.8,3 18ZM4.5 17,10 5.4,15.4 17, 4.5,17ZM6 16,13.8 16,10 7.4z"

pathshape.triangled ="M1,18 l 18,0 l -9,-18 l -9,18zm1.7,-1.1 l 7.3,-14.6 l 7.3,14.6 l -14.6, 0zm1.7,-1 l 11.0,0 l -5.5,-11 l -5.5,11z"

pathshape.circledd = "M0,10a10,10 0 1,0 20,0a10,10 0 1,0 -20,0zm0.8,0a9.2,9.2 0 1,1 18.4,0a9.2,9.2 0 1,1 -18.4,0m1,0a8.2,8.2 0 1,0 16.4,0a8.2,8.2 0 1,0 -16.4,0zm0.8,0a7.2,7.2 0 1,1 14.8,0a7.2,7.2 0 1,1 -14.8,0m1,0 a6.4,6.4 0 1,1 12.8,0a6.4,6.4 0 1,1 -12.8,0z"

pathshape.circled = "M2.5,10a7.5,7.5 0 1,0 15,0a7.5,7.5 0 1,0 -15,0zm1,0a6.5,6.5 0 1,1 13,0a6.5,6.5 0 1,1 -13,0m0.8,0 a5,5 0 1,1 11.4,0a5,5 0 1,1 -11.4,0"

pathshape.diamond = "M3,10 l 7,-10 l 7,10 -7,10 -7,-10z"

pathshape.diamondd = "M3,10 l 7,-10 l 7,10 -7,10 -7,-10zm1,0 l 6,8.5 l 6,-8.5 -6,-8.5 -6,8.5zm1,0 l 5,-7 5,7 -5,7 -5,-7z"

pathshape.diamonddd = "M3,10 l 7,-10 l 7,10 -7,10 -7,-10zm0.75,0 l 6.25,9 l 6.25,-9 -6.25,-9 -6.25,9zm0.75,0 l 5.5,-8 5.5,8 -5.5,8 -5.5,-8zm0.75,0 l 4.75,7 l 4.75,-7 -4.75,-7 -4.75,7zm0.75,0 l 4,-6 4,6 -4,6 -4,-6z"

pathshape.crossd = "M3.1,12.5 l4.2,0 l0,4.2 l5,0 l0,-4 l4.2,0 l0,-5 l-4.2,0 l0,-4.2 l-5,0 l0,4.2 l-4.2,0zM2.3,10a7.5,7.5 0 1,0 15,0a7.5,7.5 0 1,0 -15,0zm1,0a6.5,6.5 0 1,1 13,0a6.5,6.5 0 1,1 -13,0z"

pathshape.cross = "M3.1,12.5 l4.2,0 l0,4.2 l5,0 l0,-4 l4.2,0 l0,-5 l-4.2,0 l0,-4.2 l-5,0 l0,4.2 l-4.2,0z"

pathshape.thincross = "M2,12 l6,0 l0,6 l4,0 l0,-6 l6,0 l0,-4 l-6,0 l0,-6 l-4,0 l0,6 l-6,0z"

pathshape.fivepointstar = "M10 0 L12.245 6.91 19.511 6.91 13.633 11.18 15.878 18.09 10 13.82 4.122 18.09 6.367 11.18 0.489 6.91 7.755 6.91Z"

pathshape.fivepointstard = "M10 1.5 L 11.90825 7.3735 18.08435 7.3735 13.08805 11.003 14.9963 16.8765 10 13.247 5.0037 16.8765 6.91195 11.003 1.91565 7.3735 8.09175 7.3735 ZM0,10a10,10 0 1,0 20,0a10,10 0 1,0 -20,0zm1.5,0a8.5,8.5 0 1,1 17,0a8.5,8.5 0 1,1 -17,0z"

pathshape.sixpointstar = "M10 0 L12.323 5.977 18.66 5 14.645 10 18.66 15 12.323 14.023 10 20 7.677 14.023 1.34 15 5.355 10 1.34 5 7.677 5.977Z"

pathshape.sixpointstard = "M10 1.5 L 11.97455 6.58045 17.361 5.75 13.94825 10 17.361 14.25 11.97455 13.41955 10 18.5 8.02545 13.41955 2.639 14.25 6.05175 10 2.639 5.75 8.02545 6.58045 ZM0,10a10,10 0 1,0 20,0a10,10 0 1,0 -20,0zm1.5,0a8.5,8.5 0 1,1 17,0a8.5,8.5 0 1,1 -17,0z"

pathshape.sevenpointstar = "M10 0 L12.048 5.747 17.818 3.765 14.602 8.95 19.749 12.225 13.69 12.943 14.339 19.01 10 14.72 5.661 19.01 6.31 12.943 0.251 12.225 5.398 8.95 2.182 3.765 7.952 5.747Z"

pathshape.sevenpointstard = "M10 1.5 L11.7408 6.38495 16.6453 4.70025 13.9117 9.1075 18.28665 11.89125 13.1365 12.50155 13.68815 17.6585 10 14.012 6.31185 17.6585 6.8635 12.50155 1.71335 11.89125 6.0883 9.1075 3.3547 4.70025 8.2592 6.38495 ZM0,10a10,10 0 1,0 20,0a10,10 0 1,0 -20,0zm1.5,0a8.5,8.5 0 1,1 17,0a8.5,8.5 0 1,1 -17,0z"

pathshape.eightpointstar = "M10 0 L11.88 5.46 17.071 2.929 14.54 8.12 20 10 14.54 11.88 17.071 17.071 11.88 14.54 10 20 8.12 14.54 2.929 17.071 5.46 11.88 0 10 5.46 8.12 2.929 2.929 8.12 5.46Z"

pathshape.eightpointstard = "M10 0 L10 1.5 L11.598 6.141 16.01035 3.98965 13.859 8.402 18.5 10 13.859 11.598 16.01035 16.01035 11.598 13.859 10 18.5 8.402 13.859 3.98965 16.01035 6.141 11.598 1.5 10 6.141 8.402 3.98965 3.98965 8.402 6.141ZM0,10a10,10 0 1,0 20,0a10,10 0 1,0 -20,0zm1.5,0a8.5,8.5 0 1,1 17,0a8.5,8.5 0 1,1 -17,0z"

pathshape.ring="M2.6,9.5a7.5,7.5 0 1,0 15,0a7.5,7.5 0 1,0 -15,0zm1,0a6.5,6.5 0 1,1 13,0a6.5,6.5 0 1,1 -13,0z"

pathshape.boxd=pathshape.squared

pathshape.boxdd=pathshape.squaredd

pathshape.ellipsed=pathshape.circled

pathshape.ellipsedd=pathshape.circledd

local msg={}

local function debugmsg(txt)

table.insert(msg,txt)

end

local pmsg={}

local function previewMsg(txt)

table.insert(pmsg,txt)

end

local function colorLookup(color)

for c,l in pairs(colorList) do

if string.find(color,c) then return l end

end

return color

end

local function getColor (color,chk)

local c

local opacity="100"

if not color or color=='' then color='hardgrey' end

if color=="transparent" then return color end

if color=="background1" then color='background' end

if string.byte(color,1,1)==35 and (#color == 7 or #color == 9) then

c=color

elseif string.byte(color,1,1)==35 and #color == 4 then

c=string.sub(color,1,2)..'f'..string.sub(color,3,3)..'f'..string.sub(color,4,4)..'f'

else

local s=color..'1'

s= s:sub(0,s:find("%d")-1)

opacity=string.match(color,"%d+")

if not CTB[s] then s= colorList[s] end -- check for synonyms and translations

if not CTB[s] then debugmsg(mw.addWarning('color = '..color..'. The color name is not defined. Used default grey instead')) end

c=CTB[s] or CTB.hardgrey

end

if opacity and (tonumber(opacity) < 100) and string.find(c,"#")==1 and string.len(c)==7 and opacity~="" then

local hexval=string.format("%x",(math.floor(tonumber(opacity)*2.55)))

c=c..hexval

end

return c

end

function p.colorvalue(frame) -- enable external access to the CTB colorTable values. usage: {{#invoke:OSM Location map|colorvalue|color=hard blue}}

local c

if not frame.args.color or frame.args.color=='' then c='grey'

else c=string.lower(string.gsub(frame.args.color,'%s+','')) end

return string.upper(string.sub(getColor(c),2))

end

local function checkColors(color)

local c=getColor(color,'check')

local opacity =1 -- calculate colour brightness and return black or white for contrast

if c=='transparent' then return c,'#000000',0 end

if not (string.find(c,'#')==1) then return c,'#FFFFFF',0 end

if #c>8 then opacity= tonumber('0x'..(string.sub(c,8,9)))/500 end

local r=tonumber('0x'..(string.sub(c,2,3)))/255

local g=tonumber('0x'..(string.sub(c,4,5)))/255

local b=tonumber('0x'..(string.sub(c,6,7)))/255

if 0.2126 * r + 0.7152 * g + 0.0722 * b / opacity < 0.7 then

return c,'#FFFFFF',0.2126 * r + 0.7152 * g + 0.0722 * b / opacity

else return c,'#000000',0.2126 * r + 0.7152 * g + 0.0722 * b / opacity

end

end

local function morethan(a,b)

a = tonumber(string.match(a, '%f[%d]%d[,.%d]*%f[%D]') or '0')

b = tonumber(string.match(b, '%f[%d]%d[,.%d]*%f[%D]') or '0')

return a>b

end

local function lessthan(a,b)

if tonumber(string.match(a, '%f[%d]%d[,.%d]*%f[%D]')) then

a = tonumber(string.match(a, '%f[%d]%d[,.%d]*%f[%D]'))

b = tonumber(string.match(b, '%f[%d]%d[,.%d]*%f[%D]') or '0')

end

return a

end

local function getsize(size)

--size1 is between 1 and 3 values, each with px, equating to width,height,corner-rounding

--eg '15px 25px 5px' (spaces are optional) or '18px'. returns three numbers

local sizeval = {}

for v in string.gmatch(size, "[^px]+") do

table.insert(sizeval,v)

end

sizeval[1] = tonumber(sizeval[1]) or 13

sizeval[2] = tonumber(sizeval[2]) or sizeval[1]

sizeval[3] = tonumber(sizeval[3]) or 0

return sizeval[1],sizeval[2],sizeval[3]

end

local function coord2text(coord) -- looks through the output from {{coord}} to find the lat and long decimal values

-- and converts compass points to minus or not-minus, return with separating comma.

local lat = string.match(coord,'[%.%d]+°[NS]')

local lon = string.match(coord,'[%.%d]+°[EW]')

local neg={N="",S="-",W="-",E=""}

return neg[string.match(lat, '[NS]')]..string.match(lat,'[%.%d]+')..","..neg[string.match(lon, '[EW]')]..string.match(lon,'[%.%d]+')

end

local function convertCoordsTrad (row)

local coords=''

if row and string.find (row,'') then

local a,b=string.find(row,'')

local start=b+1

a,b=string.find(row,"",b)

local finish=a-1

coords=string.sub(row,start,finish)

coords=string.gsub(coords,'; ',',')

end

return coords

end

local function convertCoords (row)

local start,finish,lat,lon,coords,says

if row then

local a,b=string.find(row,"",b)

end

if start then

coords= string.sub(row,start,finish)

says=""

if string.find(coords,'') then

error("coord error: badly formed coordinates",0)

end

coords=coord2text(coords)

coords = string.sub(row,1,start-1)..coords..string.sub(row,finish+1)

else

coords=row

end

return coords

else

return "Nothing to see here"

end

end

local function fillCommas(val,max)

local line=''

if not val then line=',' -- ensure there is some content

else line = val --string.lower(string.gsub(val,"%s+","")) -- or strip spaces

end

if string.find(line,',') == 1 then line=' '..line end -- ensure initial comma is not skipped

local _, count=string.gsub(line,",","") -- add enough subsequent commas for all entries

line=line..string.rep(',',max-count)

while(string.find(line,",,") ) do

line=string.gsub(line,",,",", ,") --ensure string.gmatch doesn't ignore any empty items by padding with spaces

end

return line

end

local function makeLinkBox(left,top,wid,label, link)

local linkBoxName='Transparent square.svg'

if visibleLinks or '' =='yes' then linkBoxName='Red hollow square.svg' end

local builder = mw.html.create('div') --display:inline-block;

builder

:cssText('position:absolute;left:'..tostring(left-1-wid/2)..'px;top:'..tostring(top-1 + math.min(wid/2-12,0) - wid/2)..'px')

:wikitext(string.format( 'File:%s', linkBoxName, wid+2, link, label ))

return tostring(builder)

end

local function extractItem(row,searchItem)

-- remove text following a searchItem or start of line, which might be in quote-marks to allow commas

local xend,xstart=1,0

if not row then return , end

if searchItem then xend,xstart= string.find(row or '',searchItem or 'image:') end

if not xstart then return string.gsub(string.gsub(row or ,"%b\"\"", ),"%b\'\'", ) or ,'' end

while row:byte(xstart+1) == 32 and xstart<#row do -- skip over any leading spaces

xstart=xstart+1

end

local xbyte=row:byte(xstart+1)

if xbyte == 34 or xbyte == 39 then -- are they wrapped in single or double quotes

xstart=xstart+1

xend=row:find(string.char(xbyte),xstart+1)

else

xend = row:find(',',xstart+1) -- if no quotes, we assume no commas

if not xend then xend=#row+1 end

end -- return residual row and extracted text

return row:sub(0,xstart)..row:sub(xend), row:sub(xstart+1,xend-1)

end

local function itemCheck(item,ext)

if not item then return nil end

if not ext then ext='' end

return (string.match(item,"[%.%-?%d]+") or '0')..ext

end

local function stripdivs(line)

return string.gsub(line or '',"%b<>", ' ')

end

local function splitItem(item,max) -- takes a commas-sep list and returns a table of lowercase items with no spaces, or nil

local r={}

local x=1

item=string.lower(fillCommas(item,max))

for t in string.gmatch(item,"[^,]+") do

r[x]=string.gsub(t,"%s+","")

if r[x]=='' then r[x]= nil else -- residual items might have commas

if x>max then r[max]=(r[max] or '')..', '..r[x] end

end

x=x+1

end

return r

end

local function ParseShapeTypes (result,args,sgval) -- for use with compressed, comma-separated 'sg plus dots' parameters

--[[ shape table items and default values as set at top of page

shapeType="0", Name="initialSettings", Parent="0",

--sga items for the shape shape="circle", shapeSize="12px", shapeColor="blue", shapeAngle="0deg",

--sgb items for border outlineWidth="0.5px", outlineColor="darkblue", outlineStyle="solid",

--sgc items label text textSZ="11px", textCL="white", textNG="0deg", textAT=attributes ("bold" and/or "italic")

--sgd items for dotTag tagSize="11px", tagColor="darkgrey", tagSpacer="0px", tagAngle="0deg",

--sge extension line textEW="1px", textEC="darkblue", textES="solid"

--sgf fx for text labels textSP="0px" textLH="100%" textOL="1px", textBG="paleground",

--]]

if args["sgn"..sgval] then

local sgname=string.match(args["sgn"..sgval],"(%w+)(.*)")

sgNames[sgname]=sgval

end

local parent= args["sgp"..sgval]

if parent then

parent=string.match(parent,"(%w+)(.*)")

local pos= string.find(parent,"%d+")

if pos == 1 then

parent=string.match(parent,"%d+")

else

parent=sgNames[parent] or '1'

end

end

if sgval~='H' then

if not parent or tonumber(parent) > tonumber(sgval) then

if sgval=="1" then parent="0" else parent="1" end

end

end

local itemTab, line, filename

result[sgval]={}

result[sgval].shapeType=sgval

line,filename=extractItem(args['sga'..sgval] or '','image:')

if sgval=='1' and not args.sga1 then line='circle,12px,blue,0deg' end -- ensure there is a parent=1 sga

result[sgval].shapeFile=filename or ''

-- sga= Attributes for shape

itemTab=splitItem(line,4)

result[sgval].shape = itemTab[1] or result[parent].shape

result[sgval].shapeSize=itemTab[2] or result[parent].shapeSize

result[sgval].shapeColor=itemTab[3] or result[parent].shapeColor

result[sgval].shapeAngle=itemCheck(itemTab[4],'deg') or result[parent].shapeAngle

-- sgb= Border outline attributes for shape

itemTab=splitItem(args['sgb'..sgval],3)

result[sgval].outlineWidth=itemCheck(itemTab[1],'px') or result[parent].outlineWidth

result[sgval].outlineColor=itemTab[2] or result[parent].outlineColor

result[sgval].outlineStyle=itemTab[3] or result[parent].outlineStyle

--sgc=character attributes for label

itemTab=splitItem(args['sgc'..sgval],4)

result[sgval].textSZ=itemCheck(itemTab[1],'px') or result[parent].textSZ -- size of text in px

result[sgval].textCL=itemTab[2] or result[parent].textCL -- colour for text

result[sgval].textNG=itemCheck(itemTab[3],'deg') or result[parent].textNG -- Angle for text

result[sgval].textAT=itemTab[4] or result[parent].textAT -- attributes bold, and/or italic

--sgd=dotTag attributes

itemTab=splitItem(args['sgd'..sgval],4)

result[sgval].tagSize=itemCheck(itemTab[1],'px') or result[parent].tagSize

result[sgval].tagColor=itemTab[2] or result[parent].tagColor

result[sgval].tagSpacer=itemCheck(itemTab[3],'px') or result[parent].tagSpacer

result[sgval].tagAngle=itemCheck(itemTab[4],'deg') or result[parent].tagAngle

--sge= extension line attributes

itemTab=splitItem(args['sge'..sgval],4)

result[sgval].textEW=itemCheck(itemTab[1],'px') or result[parent].textEW -- width

result[sgval].textEC=itemTab[2] or result[parent].textEC -- colour

result[sgval].textES=itemTab[3] or result[parent].textES -- style

--sgf= fx for label text

itemTab=splitItem(args['sgf'..sgval],4)

result[sgval].textSP=itemCheck(itemTab[1],'px') or result[parent].textSP -- spacing value for letters

result[sgval].textLH=itemCheck(itemTab[2],'%') or result[parent].textLH -- Angle for text

result[sgval].textOL=itemCheck(itemTab[3],'px') or result[parent].textOL -- width of text-border line

result[sgval].textBG=itemTab[4] or result[parent].textBG -- color for text background

return result

end

local function round(x,dec)

-- x=number [, dec=integer] returns numeric value with upto dec decimals (all but first trailing zeros get truncated)

if (dec or 0)==0 then

return x>=0 and math.floor(x+0.5) or math.ceil(x-0.5) --this avoids .0 where dec=0

end

dec =10^(dec)

return x>=0 and math.floor(x*dec+0.5)/dec or math.ceil(x*dec-0.5)/dec

end

local function maptogrid(t,r)

--[[ converts mercator projection longitude and latitude coordinates to x and y pixel coordinates, within a frame of given size, centre coordinates and zoom level.

t is a table of named indices: {lon, lat, lonbase, latbase, width, height, zoom}

output is two values, x and y, rounded to r decimal places--]]

local x=t.width/2 + ( ((math.rad(t.lon)*6378137) - (math.rad(t.lonbase)* 6378137) ) / (156543.03*math.cos(t.latbase/180)/(2^t.zoom) ) )*(1-(0.055*(t.latbase/90)))

local y=t.height/2 + ( ( (math.log(math.tan(math.rad(t.latbase)/2+math.pi/4))*6378137) - (math.log(math.tan(math.rad(t.lat)/2+math.pi/4))*6378137) ) / (156543.03*math.cos(t.latbase/180) / (2^t.zoom) ) )*(1-(0.055*(t.latbase/90) ) )

return round(x,r),round(y,r)

--source: python code at https://wiki.openstreetmap.org/wiki/Slippy_map_tilenames and https://wiki.openstreetmap.org/wiki/Mercator

--[[

width and height are the size, in pixels, of the map, which will be centerd around lonbase,latbase.

Method: Convert lon and lonbase to meter-offsets from coord(0,0), and subtract lonbase from lon,

zoom and latbase are used to scale the resulting meter-offset to pixels, and add it to width/2.

Convert lat and lat-base to meter-offsets from coord(0,0), subtract lat from latbase,

scale the resulting meter-offset to pixels, add it to height/2.

A correction factor '*(1-(0.055*(t.latbase/90) ) )' compensates for an error that seems to creep in towards

the edges of the map at higher latitudes. It was identified experimentally, and ensures a dot at the edge is

in the same place as if that location is positioned at the centre.

Original Python code for lat,lon to x,y where 0,0 is the centre of the map

print('x=',width+(((math.radians(lon1) * 6378137)-

(math.radians(lonbase) * 6378137))/

(156543.03*math.cos(latbase/180)/(2**zoom))),' y=',height+((

(math.log(math.tan(math.pi / 4 + math.radians(latbase) / 2)) * 6378137)-

(math.log(math.tan(math.pi / 4 + math.radians(lat1) / 2)) * 6378137))/

(156543.03*math.cos(latbase/180)/(2**zoom)))

) --]]

end

local function getScale(zoom, lat,magVal)

if magVal and magVal>1 and magVal <=2 then zoom=zoom+(magVal-1) end

local dist=(156543.03 * math.cos(math.rad(math.abs(lat))) / (2 ^ zoom))/17

local y

if dist < 1 then

y=(round(dist*10,1))

return tostring(y*100)..'m', tostring(round(y*109,0))..'yds'

elseif dist <18 then

y=(round(dist,0))

return tostring(y)..'km', tostring(round(y*0.621371,1))..'miles'

elseif dist <500 then

y=round(dist/10)

return tostring(y*10)..'km', tostring(round(y*6.21371,0))..'miles'

else

y=round(dist/100)

return tostring(y*100)..'km', tostring(round(y*62.1371,0))..'miles'

end

end

local function ParseData (args,dotval) -- for use with compressed, comma-separated 'sg plus dots' parameters

-- takes a structured series of comma-separated items which get parsed as the following:

-- dot(n)= (sgNumber or Name),{{coord}} or (lat,lon), (dotTag)

-- dotlink(n) = single-parameter text to give wikilink and/or title used by tootlip, fullscreen dots and autocaption list

-- dotlabel(n) = 'label text',pos(left,roght,top,bottom,centre,auto),(dx), (dy) pixel offsets, params, info

-- dotpic(n) = single parameter wikimedia filename for an image to use in photopanel and/or fullscreen dots

-- dotfeature(n)= 'mark-line' (,linewidth,style,gap) or 'photo-panel' (,image-dim,panel-width,panel-height), draws line to n-1

-- label is used if either a position and/or an x,y offset are not 0,0 ( if no label then dotTag will be put at at the x,y offset, or over the dot

-- label text can be autoaligned if x,y puts it left or right of the dot, or centered if above/below)

-- quote marks are not needed unless including commas within the label text

-- param1 is optional items separated by spaces, and can include [nolabel nolist nomap hemisphere+1 hemisphere-1]

-- info is free wikitext, to be used in the fullscreen dot box. (use dotpic to show a picture)

--

local result={}

local count=1

local row = convertCoords (args["dot"..dotval]) -- swap in any {{coord}} values so they are csv lat and lon

row=fillCommas(row,4)

result.code=dotval -- store the parameter name as the id code

for item in string.gmatch(row,"[^,]+") do -- iterate through 'row', adding each csv item in turn, if present

if count==1 then --see if it is a number or a name

local pos= string.find(item,"%d+")

if pos == 1 then

result.group=string.lower(string.gsub(item,"%s+",""))

else

item=string.match(item,"(%w+)(.*)") -- ensure just a single word

result.group=sgNames[item]

end

elseif count==2 then

result.lat=tonumber(string.match(item,"[%.%-?%d]+")) or 0-- find the number, with no non-numeric stuff

elseif count==3 then

result.lon=tonumber(string.match(item,"[%.%-?%d]+")) or 0

elseif count==4 then

result.dotTag=item:match( "^%s*(.-)%s*$" ) or "" -- dotTag allows for internal spaces, but no commas

end

count=count+1

end

row, result.labelText= extractItem(args["dotlabel"..dotval])

result.labelText= string.gsub(result.labelText,"[%^]+","
") -- convert hats to line breaks

local item=splitItem(row,6)

result.labelPos=item[2] or 'center'

result.dx=tonumber(string.match(item[3] or '0',"[%.%-?%d]+")) or 0

result.dy=tonumber(string.match(item[4] or '0',"[%.%-?%d]+")) or 0

result.param1=string.lower(item[5] or '')

if string.find(result.param1,"hemisphere-1",1,true) then result.lon=result.lon-360

elseif string.find(result.param1,"hemisphere+1",1,true) then result.lon=result.lon+360

end

local txt = ''

if item[6] then -- ensure all info elements are included, including commas

count=1

local max=6

for t1 in string.gmatch(fillCommas(row,max),"[^,]+") do

if count>max then txt=txt..',' end

if count>=max then txt=txt..t1 end

count=count+1

end

end

result.info=txt

result.imageName = args['dotpic'..dotval]

-- Get first wikilinked item (if any) from the args.dotlink and set this plus the delinked text

local testx=args["dotlink"..dotval] or ''

result.dotLink=testx

if testx ~= '' then

testx=stripdivs(testx)

result.title=delink({ testx })

local linkstart= string.find(testx,'[[',1,true) -- use true to ensure a plain search (no pattern)

if linkstart then

result.dlink=delink( { string.sub(testx,linkstart,string.find(testx,']]',1,true)+1),wikilinks='target' } )

else result.dlink=''

end

else

result.dlink=''

result.title=''

end

if args['dotfeature'..dotval] then

local item=splitItem(args['dotfeature'..dotval],6)

if (item[1] or '') =='photo-panel' then

result.ppwidth= tonumber(string.match((item[3] or '110'),"%d+")) -- panel width

result.ppheight= tonumber(string.match((item[4] or '48'),"%d+") ) --panel height

result.photowidth=round(tonumber(string.match((item[2] or '1.3'),"[%.%-?%d]+")) * result.ppheight+1,0) -- dimension to set image size

result.photoImage=result.imageName

result.posType='photo-panel'

elseif (item[1] or '') == 'mark-line' then

local x=tonumber(dotval or '0')

result.markDest=item[5] or tostring(x-1)

result.mlWidth= tonumber(string.match((item[2]) or '',"%d+") or '1')

result.mlStyle= item[3] or 'solid'

result.mlGap=tonumber(string.match((item[4] or ''),"[%d]+") or '0')

result.posType='mark-line'

-- debugmsg('making line for '..tostring(x)..'to '..tostring(result.markDest)..' with width '..tostring(result.mlWidth))

end

--debugmsg('photo-panel, '..shapePos[2]..', 3='..shapePos[3]..', 4='..shapePos[4]..', 5='..(shapePos[5] or '(48')..'photowidth='..tostring(dotItem.photowidth))

end

maplist.lon=result.lon

maplist.lat=result.lat

result.gridx, result.gridy = maptogrid(maplist,1) -- convert geo coords to grid xy - using values from maplist table

return result

end

local function multiCheck (args, argName, argVal, defVal, alt)

if not alt then alt='nonexistant' end

if argVal=='H' and not args[argName..'H'] then argVal=highlightNum or '1' end

if argVal=='' then

return (args[argName] or args[alt] or (args[argName..'D']) or args[alt..'D'] or defVal) -- unnumbered args do not inherit from D or 1

else

return (args[argName..argVal]) or (args[alt..argVal]) or (args[argName..'D']) or (args[alt..'D']) or (args[argName..'1']) or (args[alt..'1']) or defVal

end

end

local function assignTradstyleShape(shapeResult,default,dotResult,args,nval)

local item,itemTab

local autoDotTag=''

local shapeWidth,shapeHeight=0,0

local argval=nval -- to catch the unnumbered shape series

if argval=='0' then argval='' end

if nval=='H' then shapeResult.H={} end

item=string.lower(multiCheck(args,'shape',argval,'image'))

if string.find(item,'n-',0,true)==1 or string.find(item,'l-',0,true)==1 then

autoDotTag=string.sub(item,0,1)

item=string.sub(item,3)

end

if item == 'image' then

shapeResult[nval].shape = 'image:'

shapeResult[nval].shapeFile =multiCheck(args,'mark',argval,'Red pog.svg')

shapeWidth=-1

else shapeResult[nval].shape = item

end

item= multiCheck(args,'mark-size',argval,'14px')

local a,b,c= getsize(string.gsub(string.gsub(item,',','px')..'px','pxpx','px'))

if b==a and args['mark-dim'..argval] then

b= b / tonumber(string.match(args['mark-dim'..argval],"[%.%-?%d]+"))

end

shapeHeight=b/2

item=tostring(a)..'px'..tostring(b)..'px'..tostring(c)..'px'

shapeResult[nval].shapeSize= item

itemTab=splitItem(multiCheck(args,'shape-color',argval,'hard red'),2)

shapeResult[nval].shapeColor=itemTab[1] or 'hardred'

item=itemCheck(itemTab[2],'%') -- jump through the various opacity hoops and add to color if needed

if not item then item=itemCheck(args['shape-opacity'..argval],'%') end

if item and item~='0%' and item~='100%' then shapeResult[nval].shapeColor=shapeResult[nval].shapeColor..item end

shapeResult[nval].shapeAngle=itemCheck(multiCheck(args,'shape-angle',argval,'0'),'deg') or '0deg'

--sort out the outline entry

itemTab=splitItem(multiCheck(args,'shape-outline',argval,'transparent,0,100,solid'),4)

shapeResult[nval].outlineColor=itemTab[1] or 'dark grey'

shapeResult[nval].outlineWidth=itemCheck(itemTab[2],'px') or '1px'

if itemTab[3] and itemTab[3]~='100' and itemTab[3]~='0' then

shapeResult[nval].outlineColor=shapeResult[nval].outlineColor..itemCheck(itemTab[3],'%')

end

shapeResult[nval].outlineStyle=itemTab[4] or 'solid'

-- label size, background, outline

itemTab=splitItem( multiCheck(args,'label-size',argval,'12'),3)

shapeResult[nval].textSZ=itemCheck(itemTab[1],'px') or '12px'

if itemTab[2]=='outline' then

shapeResult[nval].textBG=itemTab[3] or 'transparent'

shapeResult[nval].textOL='1px'

elseif itemTab[3]=='outline' then

shapeResult[nval].textBG=itemTab[2] or 'transparent'

shapeResult[nval].textOL='1px'

else shapeResult[nval].textOL='0px'

shapeResult[nval].textBG=itemTab[2] or 'transparent'

end

if getColor(shapeResult[nval].textBG)==CTB['hardgrey'] and shapeResult[nval].textBG~='hardgrey' then shapeResult[nval].textBG= 'transparent' end

--label color etc

itemTab=splitItem(multiCheck(args,'label-color',argval, 'darkgrey','label-colour'),2)

shapeResult[nval].textCL=itemTab[1] or 'darkgrey'

if itemTab[2] and itemTab[2]~='0%' and itemTab[2]~='100%' then shapeResult[nval].textCL=shapeResult[nval].textCL..itemTab[2] end

shapeResult[nval].textSP=itemCheck( multiCheck(args,'label-spacing',argval,'0'),'px') -- sets letter-spacing in px

shapeResult[nval].textLH=itemCheck( multiCheck(args,'label-height',argval,'120'),'%') -- sets line height, 120% default

shapeResult[nval].textNG=itemCheck(multiCheck(args,'label-angle',argval,'0'),'deg')

--sgd=dotTag attributes

shapeResult[nval].tagSize=tostring(shapeHeight*1.5)..'px'

local c1,c2=checkColors(shapeResult[nval].shapeColor)

shapeResult[nval].tagColor=c2

shapeResult[nval].tagSpacer='0px'

shapeResult[nval].tagAngle='0deg'

-- sge extension line attributes

local shapePos=splitItem(multiCheck(args,'label-pos',argval,'right'),6)

if shapePos[2]=='with-line' or shapePos[2]=='n-line' then

shapeResult[nval].textEW=(shapePos[3] or '1')..'px' -- width

shapeResult[nval].textEC=(shapePos[4] or shapeResult[nval].shapeColor or 'darkgrey')

elseif shapePos[2]=='photo-panel' then

shapeResult[nval].textEW='2px' -- width

shapeResult[nval].textEC=shapeResult[nval].textCL

else

shapeResult[nval].textEW='0px' -- width

shapeResult[nval].textEC='grey'-- colour

end

shapeResult[nval].textES='solid'

if argval=='H' then return dotResult end

--Assign dot values

local dotItem={}

dotItem.group=nval

dotItem.code=nval

dotItem.posType=shapePos[2] or 'nil'

if (shapePos[2] or '') =='photo-panel' then

dotItem.ppwidth= tonumber(string.match((shapePos[4] or '110'),"%d+"))

dotItem.ppheight= tonumber(string.match((shapePos[5] or '48'),"%d+") )

dotItem.photowidth=round(tonumber(string.match((shapePos[3] or '1.3'),"[%.%-?%d]+")) * dotItem.ppheight+1,0)

dotItem.photoImage=args['mark-image'..argval]

--debugmsg('photo-panel, '..shapePos[2]..', 3='..shapePos[3]..', 4='..shapePos[4]..', 5='..(shapePos[5] or '(48')..'photowidth='..tostring(dotItem.photowidth))

end

if (shapePos[2] or '') =='mark-line' then

local x=tonumber(argval or '1')

dotItem.markDest=shapePos[6] or tostring(x-1)

dotItem.mlWidth= tonumber(string.match((shapePos[3] or '1'),"%d+"))

dotItem.mlStyle= shapePos[4] or 'solid'

dotItem.mlGap=tonumber(string.match((shapePos[5] or '0'),"[%d]+"))

shapeResult[nval].textEC=shapeResult[nval].outlineColor or 'darkgrey'

end

if args['mark-coord'..argval] then

itemTab=splitItem(convertCoordsTrad (args['mark-coord'..argval]),2)

dotItem.lat=tonumber(string.match(itemTab[1],"[%.%-?%d]+")) or 0

dotItem.lon=tonumber(string.match(itemTab[2],"[%.%-?%d]+")) or 0

else

dotItem.lat=tonumber(string.match(args['mark-lat'..argval],"[%.%-?%d]+")) or 0

dotItem.lon=tonumber(string.match(args['mark-lon'..argval],"[%.%-?%d]+")) or 0

end

if args['dateline'..argval] and (args['dateline'..argval]=='1' or args['dateline'..argval]=='-1') then

dotItem.lon=dotItem.lon+(tonumber(args['dateline'..argval] ) *360)

end

maplist.lon=dotItem.lon

maplist.lat=dotItem.lat

dotItem.gridx, dotItem.gridy = maptogrid(maplist,1)

local item=args['mark-title'..argval] or '' -- sort out the caption, wikilink and plaintext tooltip items from dotLink

if item=='none' then dotItem.param1='nomap nolist' item='' end

dotItem.dotLink=item

if item ~= '' then

item=stripdivs(item)

dotItem.title=delink({item})

local linkstart= string.find(item,'[[',1,true) -- use true to ensure a plain search (no pattern)

if linkstart then

dotItem.dlink=delink({string.sub(item,linkstart,string.find(item,']]',1,true)+1),wikilinks='target'})

else dotItem.dlink=''

end

else

dotItem.dlink=''

dotItem.title=''

end

if autoDotTag=='n' then item=nval

elseif autoDotTag=='l' then item=string.char(64+tonumber(nval))

else item='' end

dotItem.dotTag = args['numbered'..argval] or item

if shapePos[2]=='n-line' and (args['label'..argval] or args['label'..argval]=='') then

if dotItem.dlink =='' then

item=dotItem.dotTag..' '..args['label'..argval]

else

item=''..dotItem.dotTag..' '..args['label'..argval]

end

else item=(args['label'..argval] or '') end

if args['labela'..argval] then item = item..'^'..args['labela'..argval] end

if args['labelb'..argval] then item = item..'^'..args['labelb'..argval] end

local a='' for c in item:gmatch('.') do a=a..(c:gsub('%^','
') or c) end

dotItem.labelText = a -- convert hats to line breaks

if argval=='' then item = (args['label-offset-x']) or (args.ldx) or '0'

else item=args['label-offset-x'..argval] or args['ldx'..argval] or args['label-offset-xD'] or args.ldxD or args['label-offset-x1'] or args.ldx1 or '0'

end

dotItem.dx=tonumber(string.match(item,"[%.%-?%d]+"))

if argval=='' then item = (args['label-offset-y']) or (args.ldy) or '0'

else item=args['label-offset-y'..argval] or args['ldy'..argval] or args['label-offset-yD'] or args.ldyD or args['label-offset-y1'] or args.ldy1 or '0'

end

dotItem.dy=tonumber(string.match(item,"[%.%-?%d]+"))

dotItem.labelPos=shapePos[1]

if args['mark-image'..argval] then dotItem.imageName= args['mark-image'..argval] end

dotItem.info=args['mark-description'..argval] or ''

table.insert(dotResult,1,dotItem) -- add to start of list, so they are in reverese order for displaying

return dotResult

end

local function tradstyleParseShapes(args,dotTable,dotmax)

local sgNumbers,sgSortable={},{}

for argindex=1,dotmax do -- build a list of all the numbered coords or lat,lons that have been used

local x=tostring(argindex)

if args['mark-coord'..x] or (args['mark-lat'..x] and args['mark-lon'..x]) then

sgNumbers[x]=x -- add it to the list

end

end

for indx,sgnum in pairs(sgNumbers) do table.insert(sgSortable,sgnum) end

table.sort(sgSortable,lessthan) -- put the list in a sortable form TODO this must be possible in a single list!

if args['mark-coord'] or (args['mark-lat'] and args['mark-lon']) then table.insert(sgSortable,'0') end -- add it to the end of the list

local default={} default.D={}

local dotResult={}

for k,sgnum in pairs(sgSortable) do -- work through the sorted list, parsing each set of shapes in turn, from 1 upwards

shapeList[sgnum]={}

dotTable=assignTradstyleShape(shapeList,default,dotTable,args,sgnum)

end

dotTable=assignTradstyleShape(shapeList,default,dotTable,args,'H') -- construct an extra highlight shapeitem

return dotTable

end

local function checkfortooltip (title,dx,dy,dotlabel,dlink,nolabel) -- returns tlink if available, and dlink, if needed and tshape=true if shape needed

local tshape,tlink = false,""

if dlink~='' and not nolabel then tlink=dlink end

if (tlink=="" or nolabel) and title~="" then tshape=true end -- tshape flags True if title is wanted for shape

if (not (dx==0 or dy==0) or dotlabel==) and title~= then tshape=true end -- add tooltip to shape if its number has moved

return tshape,tlink

end

local function tshift(angle) -- adjustment to place text near the centre of a triangle, shifted to allow rotation of triangle shape

local x=tonumber(string.match(angle,"%-?%d+"))

if x<0 then x=360+x end -- set to a single degree direction, 0 to 360

if x>359 then return 0,0 end

-- shift the centre of the triangle based on rotation value

if x <=40 or x>=320 then return -0.17,0 -- triangle up= -shiftv

elseif x>=140 and x<=220 then return 0.17,0 --triangle down= +shiftv

elseif x >220 then return 0,-0.17 --triangle left= -shifth

elseif x >40 then return 0,0.22 --triangle right= +shifth

end

return 0,0

end

local function makeTriangle(result,row,shape,outline,tlink)

local w,h,r=getsize(shape.shapeSize)

if outline then

local p=tonumber(string.match(shape.outlineWidth,"[%.%d]+"))

w=w+p*2

h=h+p*2

end

table.insert(result,'

')

end

local function makeSquare(result,row,shape,tshape)

local w,h,r=getsize(shape.shapeSize)

if shape.shape=='square' then h=w end -- squares are always square!. box can stretch

local div=mw.html.create ('div')

if tshape then -- Add tooltip if needed

div:attr('title',row.title)

end

div:css('position', "absolute")

if shape.outlineWidth ~= "0px" then

div:css('outline', shape.outlineWidth.." "..shape.outlineStyle.." "..getColor(shape.outlineColor))

end

if shape.shapeAngle ~= "0deg" then

div:css('transform',"rotate("..shape.shapeAngle..")")

end

if r~=0 then div:css('border-radius',tostring(r).."px") end

if shape.shape=='panel' then

div:css('top', tostring(row.gridy).."px")

div:css('left', tostring(row.gridx).."px")

else

div:css('top', tostring(row.gridy-h/2).."px")

div:css('left', tostring(row.gridx-w/2).."px")

end

div:css('width', tostring(w).."px")

div:css('height', tostring(h).."px")

div:css('background-color', getColor(shape.shapeColor) )

div:css('color', 'inherit')

table.insert(result,tostring(div))

end

local function makeCircle(result,row,shape,tshape)

local w,h,r=getsize(shape.shapeSize) -- = width,height,rounding

if shape.shape=='circle' then h=w end -- circles are always round. ellipse can stretch

local div=mw.html.create ('div')

if tshape then -- Add tooltip if needed

div:attr('title',row.title)

end

div:css('position', "absolute")

if shape.outlineWidth ~= "0px" then

div:css('outline', shape.outlineWidth.." "..shape.outlineStyle.." "..getColor(shape.outlineColor))

end

if shape.shapeAngle ~= "0deg" then

div:css('transform',"rotate("..shape.shapeAngle..")")

end

div

:css('top', tostring(row.gridy-h/2).."px")

:css('left', tostring(row.gridx-w/2).."px")

:css('width', tostring(w).."px")

:css('height', tostring(h).."px")

:css('border-radius', "50%")

:css('background-color', getColor(shape.shapeColor) )

:css('color', 'inherit')

table.insert(result,tostring(div))

end

local function makeRuleA(result,row,shape)

local w,h,r=getsize(shape.shapeSize) -- = width,height,rounding

local oWid=tonumber(string.match(shape.outlineWidth,"[%.%d]+"))

local lineV=0

if shape.shape=='rulea' then lineV=oWid*3+16 end

table.insert(result,"

")

end

local function makeCurveA(result,row,shape) -- draw a curve with Arrow -----

local w,h=getsize(shape.shapeSize) -- = width,height

local oWid=tonumber(string.match(shape.outlineWidth,"[%.%d]+"))

local Angle=tonumber(string.match(shape.shapeAngle,"[%.%d]+"))

table.insert(result,'

')

end

local function makeLineTo (result,x1,y1,x2,y2,oWid, oStyle, oCol,double)

table.insert(result,"

")

end

end

local function makeClipPath(result,row,shape,outline,tshape) --tshape is a flag to show if the tooltip (title=) is wanted

-- return the text css div code to position and draw a shape occupying a specified clippath

if not pathshape[shape.shape] then

debugmsg(mw.addWarning('shape'..row.code..' = '..shape.shape..'. The shape name is not defined'))

return

end

local w,h,r=getsize(shape.shapeSize)

if string.match(shape.shape,"circle") or string.match(shape.shape,"square") then h=w end -- use ellipse and box for stretched shapes

local shifth,shiftv = 0,0

if string.match(shape.shape,"triangle") then

shiftv,shifth =tshift(shape.shapeAngle)

end

if outline then

local p=tonumber(string.match(shape.outlineWidth,"[%.%d]+")) or 0

w=w+p*2

h=h+p*2

end

table.insert(result,"

")

end

local function makeImage(result,row,shape)

local w,h,r=getsize(shape.shapeSize)

local image=shape.shapeFile

if not image or image=='' then image='Red pog.svg' end

local imagediv=mw.html.create ('div')

imagediv:css('position', "absolute")

if shape.shapeAngle ~= "0deg" then

imagediv:css('transform',"rotate("..shape.shapeAngle..")")

end

imagediv

:css('top', (row.gridy-1 + math.min(h/2-12,0) - h/2).."px") --File seems to adjust pos for small images

:css('left', (row.gridx-1-w/2).."px")

:css('background-color', "transparent" )

:css('color','inherit')

:wikitext('file:'..image..'')

table.insert(result,tostring(imagediv))

end

local function makePhotoPanel(result,row,shape)

local h=row.ppheight

table.insert(result, '

')

if row.photoImage and row.photowidth >0 then

table.insert(result, '

')

row.labelPos='center'

end

end

local function makePanelText(result, row, shape)

local w,h,r=getsize(shape.shapeSize)

local ty=tonumber(string.match(shape.textSZ or '11',"%d+") )

table.insert(result,'

")

end

local function makeTextItem(result, row, shape, align, tlink, textItem, dotItem)

local w,h,r=getsize(shape.shapeSize)

table.insert(result,"

')

else

table.insert(result,"\">"..textItem.."