" 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_doublehorlines()<CR>
map c5 :call CharDraw_doubleverlines()<CR>
map c6 :call CharDraw_arrows()<CR>
map c7 :call CharDraw_extrachars()<CR>
map c0 :call CharDraw_clear()<CR>

function! CharDraw_clear ()
    mapclear!
set laststatus=2
    echo 'N to create 80,25 empty drawing. Select ANSI 437 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_doublehorlines ()
    mapclear!
    map! 7 ╒
    map! 8 ╤
    map! 9 ╕
    map! 4 ╞
    map! 5 ╪
    map! 6 ╡
    map! 1 ╘
    map! 2 ╧
    map! 3 ╛
    map! - ═
    map! + │
    set statusline=%f\ %=\ [╘╧╛╞╪╡╒╤╕═│]\(%v,%l)\ HEX:%B
endfunction

function! CharDraw_doubleverlines ()
    mapclear!
    map! 7 ╓
    map! 8 ╥
    map! 9 ╖
    map! 4 ╟
    map! 5 ╫
    map! 6 ╢
    map! 1 ╙
    map! 2 ╨
    map! 3 ╜
    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

"U+254x	╀	╁	╂	╃	╄	╅	╆	╇	╈	╉	╊	╋	╌	╍	╎	╏
"U+255x	═	║	╒	╓	╔	╕	╖	╗	╘	╙	╚	╛	╜	╝	╞	╟
"U+256x	╠	╡	╢	╣	╤	╥	╦	╧	╨	╩	╪	╫	╬	╭	╮	╯
"U+257x	╰	╱	╲	╳	╴	╵	╶	╷	╸	╹	╺	╻	╼	╽	╾	╿
"U+258x ▀   ▁   ▂   ▃   ▄   ▅   ▆   ▇   █   ▉   ▊   ▋   ▌   ▍   ▎   ▏
"U+259x ▐   ░   ▒   ▓   ▔   ▕   ▖   ▗   ▘   ▙   ▚   ▛   ▜   ▝   ▞   ▟