1 ! Copyright (C) 2022 Alex Maestas.
2 ! See https://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 ] }
15 : char>control-picture* ( char -- char' )
17 dup 0x20 = [ drop 0x2420 ] when ;
21 : control-pictures ( string -- string )
22 [ char>control-picture ] map ;
24 : control-pictures* ( string -- string )
25 [ char>control-picture* ] map ;