USING: math.vectors.simd ;

IN: math.vectors.simd.cords

TUPLE: ushort-16
{
head ushort-8 read-only initial:
ushort-8{ 0 0 0 0 0 0 0 0 }
} {
tail ushort-8 read-only initial:
ushort-8{ 0 0 0 0 0 0 0 0 }
} ; final

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

M: ushort-16 >pprint-sequence ;

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

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

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

M: ushort-16 new-sequence
2drop 8 ushort-8 new new-sequence
8 ushort-8 new new-sequence \ ushort-16 boa ;

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

M: ushort-16 pprint* pprint-object ;

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

M: ushort-16 pprint-delims drop \ ushort-16{ \ } ;