1 ! Copyright (C) 2017 Pi.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: combinators kernel math sequences ;
4 IN: unicode.control-pictures
8 : char>control-picture ( char -- char' )
10 { [ dup 0x20 < ] [ 0x2400 bitor ] }
11 { [ dup 0x7f = ] [ drop 0x2421 ] }
17 : control-pictures ( string -- string )
18 [ char>control-picture ] map ;