USING: alien.c-types classes.struct ;

IN: ogg.theora

STRUCT: th-quant-info
{ dc-scale short[64] } { ac-scale short[64] }
{ loop-filter-limits uchar[64] }
{ qi-ranges th-quant-ranges[2][3] } ;

USING: classes.struct classes.struct.private kernel ogg.theora
;

M: th-quant-info clone
clone-underlying \ th-quant-info memory>struct ; inline

USING: accessors classes.struct combinators combinators.smart
ogg.theora ;

M: th-quant-info struct-slot-values
[
{
[ dc-scale>> ]
[ ac-scale>> ]
[ loop-filter-limits>> ]
[ qi-ranges>> ]
} cleave
] output>array ; inline