with pc_sound;
with voc_data;

package voc_pc is

  subtype voice_blocks is voc_data.blocks(block_type=>voc_data.voice_data);

  procedure halve(voice_block            : in out voice_blocks;
                  automatic_gain_control : in     boolean:=true);
  -- if UNPACKED, compress to HALVED

  procedure play(voc_block : in out voc_data.blocks);
  -- will compress any UNPACKED sound to HALVED as well as playing
  -- sound through PC speaker or delaying for any silent moments

end voc_pc;