USING: math.vectors.simd ;

IN: math.vectors.simd.cords

TUPLE: char-32
{
head char-16 read-only initial:
char-16{ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }
} {
tail char-16 read-only initial:
char-16{ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }
} ; final

USING: math.vectors.simd.cords prettyprint.custom ;

M: char-32 >pprint-sequence ;

USING: classes generic kernel math.vectors.simd.cords sequences
;

M: char-32 like
over \ char-32 instance?
[ drop ] [ M\ char-32 like (call-next-method) ] if ;

USING: kernel math.vectors.simd math.vectors.simd.cords
sequences ;

M: char-32 new-sequence
2drop 16 char-16 new new-sequence
16 char-16 new new-sequence \ char-32 boa ;

USING: math.vectors.simd.cords prettyprint.custom ;

M: char-32 pprint* pprint-object ;

USING: kernel math.vectors.simd.cords prettyprint.custom ;

M: char-32 pprint-delims drop \ char-32{ \ } ;