ktye.github.io/braille.k at master · ktye/ktye.github.io · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
/draw bitmap image as braille

braille:`c@(-3$256\:)'14852224+(!256)+0 192 384 576@64/!256 /utf-8 block u+2800..u+28ff

draw:{h:#x;x:,/x;w:h/#x
     x@:,/((4*w)*!4/h) +\ ,/(2*!2/w)+\,/0 1+/w*!4;
     x@:,/7 6 5 3 1 4 2 0+/8*!8/#x
    ""0:,/'(2/w)^braille@2/:'8^x}

draw (011111000000000000000000b
      011111000000000000000000b
      011111000000000000000000b
      011111000000111000000000b
      011111000011111000000000b
      011111001111000000000000b
      011111111100000000000000b
      011111110000000000000000b
      011111111000000000000000b
      011111001110000000000000b
      011111000111100000000000b
      011111000011110000000000b
      011111000001111100000000b
      011111000000111110000000b
      011111000000011111000000b
      011111000000011111000000b)