The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Audio-Tools-0.01
++
/ Audio::Tools::Time

NAME

Audio::Tools::Time - time / sample / byte conversion tools.

DESCRIPTION

Tools for converting bytes into samples, samples into time etc.

SYNOPSIS

        my $time = new Audio::Tools::Time 44100, 16, 2;
        my $bytes = $time -> nice_bytes( 11025 );
        my $sample = $time -> bytes_to_samples( $bytes );
        my $secs = $time -> samples_to_seconds( $sample );
        my( $mins, $secs, $fract_secs )
                = $time -> split_time( $secs );
        my $dao_time = $time -> dao_time( $secs );

AUTHOR

Nick Peskett - nick@soup.demon.co.uk

SEE ALSO

Audio::Wav

Audio::Mix

Audio::CoolEdit

METHODS

new

Returns a blessed Audio::Tools::Time object.

        my $time = new Audio::Tools::Time sample_rate, bits_per_sample, channels;

Where;

        sample_rate     = number of samples per second (44100 is cd quality)
        bits_per_sample = number of bits per samples (16 is cd quality)
        channels        = number of channels of sound (stereo is 2)

samples_to_bytes

Converts a sample offset to it's byte offset.

        my $bytes = $time -> samples_to_bytes( $sample );

bytes_to_samples

Converts a byte offset to it's sample offset.

        my $sample = $time -> bytes_to_samples( $bytes );

samples_to_seconds

Converts a sample offset to it's position as floating point seconds.

        my $secs = $time -> samples_to_seconds( $sample );

bytes_to_seconds

Converts a byte offset to it's position as floating point seconds.

        my $secs = $time -> bytes_to_seconds( $samples );

seconds_to_samples

Converts a position in seconds (can be floating point) to it's sample offset.

        my $sample = $time -> seconds_to_samples( $secs );

seconds_to_bytes

Converts a position in seconds (can be floating point) to it's byte offset.

        my $sample = $time -> seconds_to_bytes( $secs );

nice_bytes

Rounds down a byte offset to a appropriate byte offset for the current settings.

        $bytes = $time -> nice_bytes( $bytes );

split_time

Converts a floating point seconds position to minutes, seconds & fractional seconds.

        my( $mins, $secs, $fract_secs )
                = $time -> split_time( $secs );

dao_time

Converts a floating point seconds position to a string containing the format used by disk-at-once & CDRWin. (http://www.goldenhawk.com)

        my $dao_time = $time -> dao_time( $secs );

nice_time

Converts a floating point seconds position into a string that verbosely describes the time. If $terse is true then the output will only show the most significant value (to one decimal place if hour or minute).

        print $time -> nice_time( 90 );
        # returns "1 min, 30 secs"
        print $time -> nice_time( 90, 1 );
        # returns "1.5 mins"

dao_cue_file

Writes a cue file in the format used by disk-at-once & CDRWin. (http://www.goldenhawk.com)

        $time -> dao_cue_file( $breaks, './audio.wav', './output.cue' );

Where $breaks is a reference to an array of byte offsets.

block_align

Returns the current block alignment, ie 44.1khz 16 bit stereo: 1 sample = 4 bytes

        my block_align = $time -> block_align();