" http://www.lingua-systems.com/knowledge/unicode-mappings/cp850-to-unicode.html
" http://www.obliquity.com/computer/html/unicode2500.html

map c1 :call CharDraw_blocks()<CR>
map c2 :call CharDraw_lines()<CR>
map c3 :call CharDraw_doublelines()<CR>
map c4 :call CharDraw_arrows()<CR>
map c5 :call CharDraw_extrachars()<CR>
map c0 :call CharDraw_clear()<CR>

" map cr :so ansi.vim<CR>

function! CharDraw_clear ()
    mapclear!
set laststatus=2
    echo 'N to create 80,25 empty drawing. Select chars and draw with numpad'
    map N 80i <Esc>yy24p(
    set statusline=%f\ %=\ \[c1-1:chars\ c0:clr]\ (%v,%l)\ HEX:%B
endfunction
call CharDraw_clear()

function! CharDraw_blocks ()
    mapclear!
    map! 1 ░
    map! 2 ▀
    map! 3 ▒
    map! 4 ▐
    map! 5 ■
    map! 6 ▌
    map! 7 ▓
    map! 8 ▄
    map! 9 █
    map! - ▞
    map! + ▚
    set statusline=%f\ %=\ [░▀▒▐■▌▓▄█▞▚]\(%v,%l)\ HEX:%B
endfunction

function! CharDraw_lines ()
    mapclear!
    map! 1 └
    map! 2 ┴
    map! 3 ┘
    map! 4 ├
    map! 5 ┼
    map! 6 ┤
    map! 7 ┌
    map! 8 ┬
    map! 9 ┐
    map! - ─
    map! + │
    set statusline=%f\ %=\ [└┴┘├┼┤┌┬┐─│]\(%v,%l)\ HEX:%B
endfunction

function! CharDraw_doublelines ()
    mapclear!
    map! 1 ╚
    map! 2 ╩
    map! 3 ╝
    map! 4 ╠
    map! 5 ╬
    map! 6 ╣
    map! 7 ╔
    map! 8 ╦
    map! 9 ╗
    map! - ═
    map! + ║
    set statusline=%f\ %=\ [╚╩╝╠╬╣╔╦╗═║]\(%v,%l)\ HEX:%B
endfunction

function! CharDraw_extrachars ()
    mapclear!
    map! 1 ©
    map! 2 ·
    map! 3 ×
    map! 4 «
    map! 5 °
    map! 6 »
    map! 7 ╲
    map! 8 ╳
    map! 9 ╱
    set statusline=%f\ %=\ [©·×«°»╲╳╱]\(%v,%l)\ HEX:%B
endfunction

function! CharDraw_arrows ()
    mapclear!
    map! 2 ▼
    map! 4 ◀
    map! 5 ◆
    map! 6 ▶
    map! 8 ▲
    set statusline=%f\ %=\ [▲▶▼◀◆]\(%v,%l)\ HEX:%B
endfunction