IN: accessors

GENERIC: channels>> ( object -- value )

USING: accessors audio kernel.private math slots.private ;

M: audio channels>> 2 slot { integer } declare ; inline

USING: accessors audio.engine kernel.private math slots.private
;

M: streaming-audio-clip channels>>
8 slot { integer } declare ; inline

USING: accessors alien.c-types classes.struct
classes.struct.private math ogg.vorbis ;

M: vorbis-info channels>>
T{ struct-slot-spec
{ name "channels" }
{ offset 4 }
{ class fixnum }
{ initial 0 }
{ type int }
} read-struct-slot ; inline