Add tiles colored separately by fg and bg in inspect-screen.

develop
Alexander Gavrilov 2012-12-08 09:51:09 +04:00
parent 99e9785826
commit 6fd306b558
1 changed files with 4 additions and 2 deletions

@ -48,8 +48,10 @@ function InspectScreen:onRenderBody(dc)
fgcolor = (fgcolor+8)%16 fgcolor = (fgcolor+8)%16
fgstr = fgstr..'+8' fgstr = fgstr..'+8'
end end
dc:string('FG: '):string('NN',{fg=fgcolor}):string(' '):string(''..fgstr,TXT_PEN):newline() dc:string('FG: '):string('NN',{fg=fgcolor}):string(' '):string(''..fgstr,TXT_PEN)
dc:string('BG: '):string('NN',{fg=info.bg}):string(' '):string(''..info.bg,TXT_PEN):newline() dc:seek(dc.width-1):char(info.ch,{fg=info.fg,bold=info.bold}):newline()
dc:string('BG: '):string('NN',{fg=info.bg}):string(' '):string(''..info.bg,TXT_PEN)
dc:seek(dc.width-1):char(info.ch,{fg=COLOR_BLACK,bg=info.bg}):newline()
local bstring = 'false' local bstring = 'false'
if info.bold then bstring = 'true' end if info.bold then bstring = 'true' end
dc:string('Bold: '..bstring):newline():newline() dc:string('Bold: '..bstring):newline():newline()