Module:Chessboard: Difference between revisions

Revision as of 23:04, 26 March 2022

Latest revision as of 12:43, 20 January 2025

(14 intermediate revisions by 6 users not shown)

Line 1:

local p = {}

local cfg, nrows, ncols

local function image_square( pc, row, col, size )

local colornames = { l = 'white', d = 'black', u = 'unknown color' }

local piecenames = {

p = 'pawn',

r = 'rook',

n = 'knight',

b = 'bishop',

q = 'queen',

k = 'king',

a = 'archbishop',

c = 'chancellor',

z = 'champion',

w = 'wizard',

t = 'fool',

M = 'mann',

h = 'upside-down pawn',

m = 'upside-down rook',

B = 'upside-down bishop',

N = 'upside-down knight',

f = 'upside-down king',

g = 'upside-down queen',

e = 'elephant',

s = 'boat',

G = 'giraffe',

U = 'unicorn',

Z = 'zebra'

}

local symnames = {

xx = 'black cross',

ox = 'white cross',

xo = 'black circle',

oo = 'white circle',

ul = 'up-left arrow',

ua = 'up arrow',

ur = 'up-right arrow',

la = 'left arrow',

ra = 'right arrow',

dl = 'down-left arrow',

da = 'down arrow',

dr = 'down-right arrow',

lr = 'left-right arrow',

ud = 'up-down arrow',

db = 'up-right and down-left arrow',

dw = 'up-left and down-right arrow',

x0 = 'zero',

x1 = 'one',

x2 = 'two',

x3 = 'three',

x4 = 'four',

x5 = 'five',

x6 = 'six',

x7 = 'seven',

x8 = 'eight',

x9 = 'nine'

}

local colchar = {'a','b','c','d','e','f','g','h'}

local color = mw.ustring.gsub( pc, '^.*(%w)(%w).*$', '%2' ) or ''

local piece = mw.ustring.gsub( pc, '^.*(%w)(%w).*$', '%1' ) or ''

local alt = colchar[col] .. row .. ' '

if colornames[color] and piecenames[piece] then

alt = alt .. colornames[color] .. ' ' .. piecenames[piece]

else

alt = alt .. ( symnames[piece .. color] or piece .. ' ' .. color )

end

return string.format( '[[File:Chess %s%st45.svg|%dx%dpx|alt=%s|%s|link=|class=notpageimage]]', piece, color, size, size, alt, alt )

end

local function innerboard(args, size, rev)

pattern = cfg.pattern or '%w%w'

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

root:addClass('chess-boardpieces notheme')

:css('position', 'relative')

:wikitext(stringcfg.formatimage_board( '[[File:Chessboard480.svg|%dx%dpx|link=]]', 8 * size, 8 * size ))

for trow = 1,8nrows do

local row = rev and trow or ( 91 + nrows - trow )

for tcol = 1,8ncols do

local col = rev and ( 91 + ncols - tcol ) or tcol

local piece = args[8ncols * ( 8nrows - row ) + col + 2] or ''

if piece:match( '%w%w'pattern ) then

local img = cfg.image_square(piece:match('%w%w'pattern), row, col, size )

root:tag('div')

:css('position', 'absolute')

:css('z-index', '3')

:css('top', tostring(( trow - 1 ) * size) .. 'px')

:css('left', tostring(( tcol - 1 ) * size) .. 'px')

:css('width', size .. 'px')

:css('height', size .. 'px')

:wikitext(img)

end

Line 101 ⟶ 30:

function chessboard(args, size, rev, letters, numbers, header, footer, align, clear)

function letters_row( rev, num_lt, num_rt )

local letters = {'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h'}cfg.letters()

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

if num_lt then

root:tag('td')

:css('vertical-align', 'inherit')

:css('padding', '0')

end

for k = 1,8ncols do

root:tag('td')

:css('padding', '0')

:css('vertical-align', 'inherit')

:css('text-align', 'center')

:css('height', '18px')

:css('width', size .. 'px')

:wikitext(rev and letters[91+ncols-k] or letters[k])

end

if num_rt then

root:tag('td')

:css('vertical-align', 'inherit')

:css('padding', '0')

end

return tostring(root)

end

local letters_tpletters_top = letters:match( 'both' ) or letters:match( 'top' )

local letters_btletters_bottom = letters:match( 'both' ) or letters:match( 'bottom' )

local numbers_ltnumbers_left = numbers:match( 'both' ) or numbers:match( 'left' )

local numbers_rtnumbers_right = numbers:match( 'both' ) or numbers:match( 'right' )

local width = 8ncols * size + 2

if ( numbers_ltnumbers_left ) then width = width + 18 end

if ( numbers_rtnumbers_right ) then width = width + 18 end

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

:addClass('chessboard')

:addClass('thumb')

:addClass('noviewer')

:addClass(align)

if( header and header ~= '' ) then

root:tag('div')
:addClass('center')
:css('line-height', '130%')
:css('margin', '0 auto')
:css('max-width', (width + 8ncols) .. 'px')
:wikitext(header)

end

local div = root:tag('div')

Line 145 ⟶ 74:

:attr('cellpadding', '0')

:attr('cellspacing', '0')

:css('background', 'white')

:css('font-size', '88%')

:css('border' , '1px #c8ccd1 solid')

:css('padding', '0')

:css('margin', 'auto')

if ( letters_tpletters_top ) then

b:tag('tr')

:wikitext(letters_row( rev, numbers_left, numbers_right ))

:css('vertical-align', 'middle')

:wikitext(letters_row( rev, numbers_lt, numbers_rt ))

end

local tablerow = b:tag('tr'):css('vertical-align','middle')

if ( numbers_ltnumbers_left ) then

tablerow:tag('td')

:css('padding', '0')

:css('vertical-align', 'inherit')

:css('text-align', 'center')

:css('width', '18px')

:css('height', size .. 'px')

:wikitext(rev and 1 or 8nrows)

end

local td = tablerow:tag('td')

:attr('colspan', 8ncols)

:attr('rowspan', 8nrows)

:css('padding', '0')

:css('vertical-align', 'inherit')

:wikitext(innerboard(args, size, rev))

if ( numbers_rtnumbers_right ) then

tablerow:tag('td')

:css('padding', '0')

:css('vertical-align', 'inherit')

:css('text-align', 'center')

:css('width', '18px')

:css('height', size .. 'px')

:wikitext(rev and 1 or 8nrows)

end

if ( numbers_ltnumbers_left or numbers_rtnumbers_right ) then

for trow = 2, 8nrows do

local idx = rev and trow or ( 91 + nrows - trow )

tablerow = b:tag('tr')

if ( numbers_left ) then

:css('vertical-align', 'middle')

if ( numbers_lt ) then

tablerow:tag('td')

:css('padding', '0')

:css('vertical-align', 'inherit')

:css('text-align', 'center')

:css('height', size .. 'px')

:wikitext(idx)

end

if ( numbers_rtnumbers_right ) then

tablerow:tag('td')

:css('padding', '0')

:css('vertical-align', 'inherit')

:css('text-align', 'center')

:css('height', size .. 'px')

:wikitext(idx)

Line 205 ⟶ 113:

end

end

if ( letters_btletters_bottom ) then

b:tag('tr')

:wikitext(letters_row( rev, numbers_left, numbers_right ))

:css('vertical-align', 'middle')

:wikitext(letters_row( rev, numbers_lt, numbers_rt ))

end

if (footer and mw.text.trim(footer )~= '') then

div:tag('div')

:addClass('thumbcaption')

Line 217 ⟶ 124:

end

return tostring(root) ..

mw.getCurrentFrame():extensionTag( 'templatestyles', '', { src = 'Module:Chessboard/styles.css' } )

end

Line 263 ⟶ 171:

local args = frame.args

local pargs = frame:getParent().args

local style = args.style or pargs.style or 'Chess'

cfg = require('Module:Chessboard/' .. style)

nrows, ncols = cfg.dims()

local size = args.size or pargs.size or '26'

local reverse = ( args.reverse or pargs.reverse or '' ):lower() == "true"

Line 268 ⟶ 180:

local numbers = ( args.numbers or pargs.numbers or 'both' ):lower()

local header = args[2] or pargs[2] or ''

local footer = args[67nrows*ncols + 3] or pargs[67nrows*ncols + 3] or ''

local align = ( args[1] or pargs[1] or 'tright' ):lower()

local clear = args.clear or pargs.clear or ( align:match('tright') and 'right' ) or 'none'

local fen = args.fen or pargs.fen

local pgn = args.pgn or pargs.pgn

size = mw.ustring.match( size, '[%d]+' ) or '26' -- remove px from size

if (pgn) then

local pgnModule = require('Module:Pgn')

metadata, moves = pgnModule.main(pgn)

fen = moves[#moves]

end

if (fen) then

align = args.align or pargs.align or 'tright'

Line 286 ⟶ 204:

return chessboard(pargs, size, reverse, letters, numbers, header, footer, align, clear)

end

end

function p.fen2ascii(frame)

-- {{#invoke:Chessboard|fen2ascii|fen=...}}

local b = convertFenToArgs( frame.args.fen )

local res = '|=\n'

local offset = 2

for row = 1,8 do

local n = (9 - row)

res = res .. n .. ' |' ..

table.concat(b, '|', 8*(row-1) + 1 + offset, 8*(row-1) + 8 + offset) .. '|=\n'

end

res = mw.ustring.gsub( res,'\| \|', '| |' )

res = mw.ustring.gsub( res,'\| \|', '| |' )

res = res .. ' a b c d e f g h'

return res

end

function p.ascii2fen( frame )

-- {{#invoke:Chessboard|ascii2fen|kl| | |....}}

return convertArgsToFen( frame.args, frame.args.offset or 1 )

end