local p = {}

local autoscaledimages

local nonautoscaledimages

local function isnotempty(s)

return s and s:match( '^%s*(.-)%s*$' ) ~=

end

local function getdimensions(s, w, h)

if tonumber(w) and tonumber(h) then

nonautoscaledimages = true

return tonumber(w), tonumber(h)

end

local file = s and mw.title.new('File:' .. mw.uri.decode(mw.ustring.gsub(s,'%|.*$',), 'WIKI'))

file = file and file.file or {width = 0, height = 0}

w = tonumber(file.width) or 0

h = tonumber(file.height) or 0

autoscaledimages = true

return w, h

end

local function renderImageCell(image, width, height, link, alt, thumbtime, caption, textalign, istyle)

local root = mw.html.create()

local altstr = '|alt=' .. (alt or )

local linkstr = link and ('|link=' .. link) or

local widthstr = '|' .. tostring(width) .. 'px'

local thumbtimestr =

if isnotempty( thumbtime ) then

thumbtimestr = '|thumbtime=' .. thumbtime

end

local imagediv = root:tag('div')

imagediv:addClass('thumbimage')

imagediv:cssText(istyle)

if( height ) then

imagediv:css('height', tostring(height) .. 'px')

imagediv:css('overflow', 'hidden')

end

imagediv:wikitext()

if isnotempty(caption) then

local captiondiv = root:tag('div')

captiondiv:addClass('thumbcaption')

if isnotempty(textalign) then

captiondiv:addClass('text-align-' .. textalign)

end

captiondiv:wikitext(caption)

end

return tostring(root)

end

local function getWidth(w1, w2)

local w

if isnotempty(w1) then

w = tonumber(w1)

elseif isnotempty(w2) then

w = tonumber(w2)

end

return w or 200

end

local function getPerRow(pstr, ic)

-- split string into array using any non-digit as a dilimiter

local pr = mw.text.split(pstr or , '[^%d][^%d]*')

-- if split failed, assume a single row

if (#pr < 1) then

pr = {tostring(ic)}

end

-- convert the array of strings to an array of numbers,

-- adding any implied/missing numbers at the end of the array

local r = 1

local thisrow = tonumber(pr[1] or ic) or ic

local prownum = {}

while( ic > 0 ) do

prownum[r] = thisrow

ic = ic - thisrow

r = r + 1

-- use the previous if the next is missing and

-- make sure we don't overstep the number of images

thisrow = math.min(tonumber(pr[r] or thisrow) or ic, ic)

end

return prownum

end

local function renderMultipleImages(frame)

local pargs = frame:getParent().args

local args = frame.args

local width = pargs['width'] or

local dir = pargs['direction'] or

local border = pargs['border'] or args['border'] or

local align = pargs['align'] or args['align'] or (border == 'infobox' and 'center' or )

local capalign = pargs['caption_align'] or args['caption_align'] or

local totalwidth = pargs['total_width'] or args['total_width'] or

local imgstyle = pargs['image_style'] or args['image_style']

local header = pargs['header'] or pargs['title'] or

local footer = pargs['footer'] or

local imagegap = tonumber(pargs['image_gap'] or '1') or 1

local perrow = nil

local thumbclass = {

["left"] = 'tleft',

["none"] = 'tnone',

["center"] = 'tnone',

["centre"] = 'tnone',

["right"] = 'tright'

}

-- find all the nonempty images

local imagenumbers = {}

local imagecount = 0

for k, v in pairs( pargs ) do

local i = tonumber(tostring(k):match( '^%s*image([%d]+)%s*$' ) or '0')

if( i > 0 and isnotempty(v) ) then

table.insert( imagenumbers, i)

imagecount = imagecount + 1

end

end

-- sort the imagenumbers

table.sort(imagenumbers)

-- create an array with the number of images per row

perrow = getPerRow(dir == 'vertical' and '1' or pargs['perrow'], imagecount)

-- compute the number of rows

local rowcount = #perrow

-- store the image widths and compute row widths and maximum row width

local heights = {}

local widths = {}

local widthmax = 0

local widthsum = {}

local k = 0

for r=1,rowcount do

widthsum[r] = 0

for c=1,perrow[r] do

k = k + 1

if( k <= imagecount ) then

local i = imagenumbers[k]

if( isnotempty(totalwidth) ) then

widths[k], heights[k] = getdimensions(pargs['image' .. i], pargs['width' .. i], pargs['height' .. i])

else

widths[k] = getWidth(width, pargs['width' .. i])

end

widthsum[r] = widthsum[r] + widths[k]

end

end

widthmax = math.max(widthmax, widthsum[r])

end

-- make sure the gap is non-negative

if imagegap < 0 then imagegap = 0 end

-- if total_width has been specified, rescale the image widths

if( isnotempty(totalwidth) ) then

totalwidth = tonumber(totalwidth)

widthmax = 0

local k = 0

for r=1,rowcount do

local koffset = k

local tw = totalwidth - (3 + imagegap) * (perrow[r] - 1) - 12

local ar = {}

local arsum = 0

for j=1,perrow[r] do

k = k + 1

if( k<= imagecount ) then

local i = imagenumbers[k]

local h = heights[k] or 0

if (h > 0) then

ar[j] = widths[k]/h

heights[k] = h

else

ar[j] = widths[k]/100

end

arsum = arsum + ar[j]

end

end

local ht = tw/arsum

local ws = 0

k = koffset

for j=1,perrow[r] do

k = k + 1

if( k<= imagecount ) then

local i = imagenumbers[k]

widths[k] = math.floor(ar[j]*ht + 0.5)

ws = ws + widths[k]

if heights[k] then

heights[k] = math.floor(ht)

end

end

end

widthsum[r] = ws

widthmax = math.max(widthmax, widthsum[r])

end

end

-- start building the array of images, if there are images

if( imagecount > 0 ) then

-- compute width of outer div

local bodywidth = 0

for r=1,rowcount do

if( widthmax == widthsum[r] ) then

bodywidth = widthmax + (3 + imagegap) * (perrow[r] - 1) + 12

end

end

-- The body has a min-width of 100, which needs to be taken into account on specific widths

bodywidth = math.max( 100, bodywidth - 8);

local bg = pargs['background color'] or

-- create the array of images

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

root:addClass('thumb')

root:addClass('tmulti')

-- root:addClass('tmulti-sandbox')

root:addClass(thumbclass[align] or 'tright')

if( align == 'center' or align == 'centre' ) then

root:addClass('center')

end

if( bg ~= ) then

root:css('background-color', bg)

end

local div = root:tag('div')

div:addClass('thumbinner')

div:css('width', tostring(bodywidth) .. 'px')

:css('max-width', tostring(bodywidth) .. 'px')

if( bg ~= ) then

div:css('background-color', bg)

end

if( border == 'infobox' or border == 'none') then

div:css('border', 'none')

end

-- add the header

if( isnotempty(header) ) then

div:tag('div')

:addClass('trow')

:tag('div')

:addClass('theader')

:css('text-align', pargs['header_align'] or 'center')

:css('background-color', pargs['header_background'] or 'transparent')

:wikitext(header)

end

-- loop through the images

local k = 0

for r=1,rowcount do

local rowdiv = div:tag('div'):addClass('trow');

for j=1,perrow[r] do

k = k + 1

if( k <= imagecount ) then

local imagediv = rowdiv:tag('div')

imagediv:addClass('tsingle')

if bg ~= then

imagediv:css('background-color', bg);

end

if ((imagegap > 1) and (j < perrow[r])) then

imagediv:css('margin-right', tostring(imagegap) .. 'px')

end

local i = imagenumbers[k]

local img = pargs['image' .. i]

local w = widths[k]

imagediv:css('width', tostring(2 + w) .. 'px')

:css('max-width', tostring(2 + w) .. 'px')

imagediv:wikitext(renderImageCell(img, w, heights[k],

pargs['link' .. i], pargs['alt' .. i],

pargs['thumbtime' .. i], pargs['caption' .. i], capalign, imgstyle))

end

end

end

-- add the footer

if( isnotempty(footer) ) then

div:tag('div')

:addClass('trow')

:tag('div')

:addClass('thumbcaption')

:css('text-align', pargs['footer_align'] or args['footer_align'] or 'left')

:css('background-color', pargs['footer_background'] or 'transparent')

:wikitext(footer)

end

return tostring(root)

end

return

end

function p.render( frame )

autoscaledimages = false

nonautoscaledimages = false

return frame:extensionTag {name = 'templatestyles', args = {src = 'Multiple image/styles.css', wrapper = ".tmulti"}}

.. renderMultipleImages( frame )

.. (autoscaledimages and or )

.. (nonautoscaledimages and or )

end

return p

• Torreya Tree of Byeongyeong-myeon
• Torreyes
• Torrey Folk
• Torrey Lake
• Torrey Lake Club
• Torrey Lake Club/Ranch Historic District
• Torrey Lake Historic District
• Torrey Lake Petroglyph District
• Torrey Lake Ranch
• Torrey Log Church-Schoolhouse
• Torrey Mountain
• Torrey (name)
• Torrey Pines Reserve Ranger Residence
• Torrey's amaranth
• Torrey's four-nerve daisy
• Torrey's mountainmint
• Torrey's nightshade
• Torrey's surfgrass
• Torrey's surf-grass
• Torrey's willow-herb
• Torrey yucca
• Torriani Award
• Torriani revolt
• Torriano Primary School
• Torrian Wilson