diff options
Diffstat (limited to 'contrib/vorbis/examples')
| -rw-r--r-- | contrib/vorbis/examples/Makefile.am | 34 | ||||
| -rw-r--r-- | contrib/vorbis/examples/chaining_example.c | 71 | ||||
| -rw-r--r-- | contrib/vorbis/examples/decoder_example.c | 313 | ||||
| -rw-r--r-- | contrib/vorbis/examples/encoder_example.c | 251 | ||||
| -rwxr-xr-x | contrib/vorbis/examples/frameview.pl | 630 | ||||
| -rw-r--r-- | contrib/vorbis/examples/seeking_example.c | 277 | ||||
| -rw-r--r-- | contrib/vorbis/examples/vorbisfile_example.c | 91 |
7 files changed, 0 insertions, 1667 deletions
diff --git a/contrib/vorbis/examples/Makefile.am b/contrib/vorbis/examples/Makefile.am deleted file mode 100644 index 5881635..0000000 --- a/contrib/vorbis/examples/Makefile.am +++ /dev/null @@ -1,34 +0,0 @@ -## Process this file with automake to produce Makefile.in - -AUTOMAKE_OPTIONS = foreign - -noinst_PROGRAMS = decoder_example encoder_example chaining_example\ - vorbisfile_example seeking_example - -EXTRA_DIST = frameview.pl - -AM_CPPFLAGS = -I$(top_srcdir)/include @OGG_CFLAGS@ - -# uncomment to build static executables from the example code -#LDFLAGS = -all-static - -decoder_example_SOURCES = decoder_example.c -decoder_example_LDADD = $(top_builddir)/lib/libvorbis.la @OGG_LIBS@ - -encoder_example_SOURCES = encoder_example.c -encoder_example_LDADD = $(top_builddir)/lib/libvorbisenc.la $(top_builddir)/lib/libvorbis.la @OGG_LIBS@ - -chaining_example_SOURCES = chaining_example.c -chaining_example_LDADD = $(top_builddir)/lib/libvorbisfile.la $(top_builddir)/lib/libvorbis.la @OGG_LIBS@ - -vorbisfile_example_SOURCES = vorbisfile_example.c -vorbisfile_example_LDADD = $(top_builddir)/lib/libvorbisfile.la $(top_builddir)/lib/libvorbis.la @OGG_LIBS@ - -seeking_example_SOURCES = seeking_example.c -seeking_example_LDADD = $(top_builddir)/lib/libvorbisfile.la $(top_builddir)/lib/libvorbis.la @OGG_LIBS@ - -debug: - $(MAKE) all CFLAGS="@DEBUG@" - -profile: - $(MAKE) all CFLAGS="@PROFILE@" diff --git a/contrib/vorbis/examples/chaining_example.c b/contrib/vorbis/examples/chaining_example.c deleted file mode 100644 index 19215d7..0000000 --- a/contrib/vorbis/examples/chaining_example.c +++ /dev/null @@ -1,71 +0,0 @@ -/******************************************************************** - * * - * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE. * - * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS * - * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE * - * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING. * - * * - * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2007 * - * by the Xiph.Org Foundation http://www.xiph.org/ * - * * - ******************************************************************** - - function: illustrate simple use of chained bitstream and vorbisfile.a - - ********************************************************************/ - -#include <stdlib.h> -#include <vorbis/codec.h> -#include <vorbis/vorbisfile.h> - -#ifdef _WIN32 /* We need the following two to set stdin/stdout to binary */ -#include <io.h> -#include <fcntl.h> -#endif - -int main(){ - OggVorbis_File ov; - int i; - -#ifdef _WIN32 /* We need to set stdin to binary mode. Damn windows. */ - /* Beware the evil ifdef. We avoid these where we can, but this one we - cannot. Don't add any more, you'll probably go to hell if you do. */ - _setmode( _fileno( stdin ), _O_BINARY ); -#endif - - /* open the file/pipe on stdin */ - if(ov_open_callbacks(stdin,&ov,NULL,-1,OV_CALLBACKS_NOCLOSE)<0){ - printf("Could not open input as an OggVorbis file.\n\n"); - exit(1); - } - - /* print details about each logical bitstream in the input */ - if(ov_seekable(&ov)){ - printf("Input bitstream contained %ld logical bitstream section(s).\n", - ov_streams(&ov)); - printf("Total bitstream samples: %ld\n\n", - (long)ov_pcm_total(&ov,-1)); - printf("Total bitstream playing time: %ld seconds\n\n", - (long)ov_time_total(&ov,-1)); - - }else{ - printf("Standard input was not seekable.\n" - "First logical bitstream information:\n\n"); - } - - for(i=0;i<ov_streams(&ov);i++){ - vorbis_info *vi=ov_info(&ov,i); - printf("\tlogical bitstream section %d information:\n",i+1); - printf("\t\t%ldHz %d channels bitrate %ldkbps serial number=%ld\n", - vi->rate,vi->channels,ov_bitrate(&ov,i)/1000, - ov_serialnumber(&ov,i)); - printf("\t\theader length: %ld bytes\n",(long) - (ov.dataoffsets[i]-ov.offsets[i])); - printf("\t\tcompressed length: %ld bytes\n",(long)(ov_raw_total(&ov,i))); - printf("\t\tplay time: %lds\n",(long)ov_time_total(&ov,i)); - } - - ov_clear(&ov); - return 0; -} - diff --git a/contrib/vorbis/examples/decoder_example.c b/contrib/vorbis/examples/decoder_example.c deleted file mode 100644 index e264e40..0000000 --- a/contrib/vorbis/examples/decoder_example.c +++ /dev/null @@ -1,313 +0,0 @@ -/******************************************************************** - * * - * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE. * - * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS * - * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE * - * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING. * - * * - * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2009 * - * by the Xiph.Org Foundation http://www.xiph.org/ * - * * - ******************************************************************** - - function: simple example decoder - - ********************************************************************/ - -/* Takes a vorbis bitstream from stdin and writes raw stereo PCM to - stdout. Decodes simple and chained OggVorbis files from beginning - to end. Vorbisfile.a is somewhat more complex than the code below. */ - -/* Note that this is POSIX, not ANSI code */ - -#include <stdio.h> -#include <stdlib.h> -#include <math.h> -#include <vorbis/codec.h> - -#ifdef _WIN32 /* We need the following two to set stdin/stdout to binary */ -#include <io.h> -#include <fcntl.h> -#endif - -#if defined(__MACOS__) && defined(__MWERKS__) -#include <console.h> /* CodeWarrior's Mac "command-line" support */ -#endif - -ogg_int16_t convbuffer[4096]; /* take 8k out of the data segment, not the stack */ -int convsize=4096; - -extern void _VDBG_dump(void); - -int main(){ - ogg_sync_state oy; /* sync and verify incoming physical bitstream */ - ogg_stream_state os; /* take physical pages, weld into a logical - stream of packets */ - ogg_page og; /* one Ogg bitstream page. Vorbis packets are inside */ - ogg_packet op; /* one raw packet of data for decode */ - - vorbis_info vi; /* struct that stores all the static vorbis bitstream - settings */ - vorbis_comment vc; /* struct that stores all the bitstream user comments */ - vorbis_dsp_state vd; /* central working state for the packet->PCM decoder */ - vorbis_block vb; /* local working space for packet->PCM decode */ - - char *buffer; - int bytes; - -#ifdef _WIN32 /* We need to set stdin/stdout to binary mode. Damn windows. */ - /* Beware the evil ifdef. We avoid these where we can, but this one we - cannot. Don't add any more, you'll probably go to hell if you do. */ - _setmode( _fileno( stdin ), _O_BINARY ); - _setmode( _fileno( stdout ), _O_BINARY ); -#endif - -#if defined(macintosh) && defined(__MWERKS__) - { - int argc; - char **argv; - argc=ccommand(&argv); /* get a "command line" from the Mac user */ - /* this also lets the user set stdin and stdout */ - } -#endif - - /********** Decode setup ************/ - - ogg_sync_init(&oy); /* Now we can read pages */ - - while(1){ /* we repeat if the bitstream is chained */ - int eos=0; - int i; - - /* grab some data at the head of the stream. We want the first page - (which is guaranteed to be small and only contain the Vorbis - stream initial header) We need the first page to get the stream - serialno. */ - - /* submit a 4k block to libvorbis' Ogg layer */ - buffer=ogg_sync_buffer(&oy,4096); - bytes=fread(buffer,1,4096,stdin); - ogg_sync_wrote(&oy,bytes); - - /* Get the first page. */ - if(ogg_sync_pageout(&oy,&og)!=1){ - /* have we simply run out of data? If so, we're done. */ - if(bytes<4096)break; - - /* error case. Must not be Vorbis data */ - fprintf(stderr,"Input does not appear to be an Ogg bitstream.\n"); - exit(1); - } - - /* Get the serial number and set up the rest of decode. */ - /* serialno first; use it to set up a logical stream */ - ogg_stream_init(&os,ogg_page_serialno(&og)); - - /* extract the initial header from the first page and verify that the - Ogg bitstream is in fact Vorbis data */ - - /* I handle the initial header first instead of just having the code - read all three Vorbis headers at once because reading the initial - header is an easy way to identify a Vorbis bitstream and it's - useful to see that functionality seperated out. */ - - vorbis_info_init(&vi); - vorbis_comment_init(&vc); - if(ogg_stream_pagein(&os,&og)<0){ - /* error; stream version mismatch perhaps */ - fprintf(stderr,"Error reading first page of Ogg bitstream data.\n"); - exit(1); - } - - if(ogg_stream_packetout(&os,&op)!=1){ - /* no page? must not be vorbis */ - fprintf(stderr,"Error reading initial header packet.\n"); - exit(1); - } - - if(vorbis_synthesis_headerin(&vi,&vc,&op)<0){ - /* error case; not a vorbis header */ - fprintf(stderr,"This Ogg bitstream does not contain Vorbis " - "audio data.\n"); - exit(1); - } - - /* At this point, we're sure we're Vorbis. We've set up the logical - (Ogg) bitstream decoder. Get the comment and codebook headers and - set up the Vorbis decoder */ - - /* The next two packets in order are the comment and codebook headers. - They're likely large and may span multiple pages. Thus we read - and submit data until we get our two packets, watching that no - pages are missing. If a page is missing, error out; losing a - header page is the only place where missing data is fatal. */ - - i=0; - while(i<2){ - while(i<2){ - int result=ogg_sync_pageout(&oy,&og); - if(result==0)break; /* Need more data */ - /* Don't complain about missing or corrupt data yet. We'll - catch it at the packet output phase */ - if(result==1){ - ogg_stream_pagein(&os,&og); /* we can ignore any errors here - as they'll also become apparent - at packetout */ - while(i<2){ - result=ogg_stream_packetout(&os,&op); - if(result==0)break; - if(result<0){ - /* Uh oh; data at some point was corrupted or missing! - We can't tolerate that in a header. Die. */ - fprintf(stderr,"Corrupt secondary header. Exiting.\n"); - exit(1); - } - result=vorbis_synthesis_headerin(&vi,&vc,&op); - if(result<0){ - fprintf(stderr,"Corrupt secondary header. Exiting.\n"); - exit(1); - } - i++; - } - } - } - /* no harm in not checking before adding more */ - buffer=ogg_sync_buffer(&oy,4096); - bytes=fread(buffer,1,4096,stdin); - if(bytes==0 && i<2){ - fprintf(stderr,"End of file before finding all Vorbis headers!\n"); - exit(1); - } - ogg_sync_wrote(&oy,bytes); - } - - /* Throw the comments plus a few lines about the bitstream we're - decoding */ - { - char **ptr=vc.user_comments; - while(*ptr){ - fprintf(stderr,"%s\n",*ptr); - ++ptr; - } - fprintf(stderr,"\nBitstream is %d channel, %ldHz\n",vi.channels,vi.rate); - fprintf(stderr,"Encoded by: %s\n\n",vc.vendor); - } - - convsize=4096/vi.channels; - - /* OK, got and parsed all three headers. Initialize the Vorbis - packet->PCM decoder. */ - if(vorbis_synthesis_init(&vd,&vi)==0){ /* central decode state */ - vorbis_block_init(&vd,&vb); /* local state for most of the decode - so multiple block decodes can - proceed in parallel. We could init - multiple vorbis_block structures - for vd here */ - - /* The rest is just a straight decode loop until end of stream */ - while(!eos){ - while(!eos){ - int result=ogg_sync_pageout(&oy,&og); - if(result==0)break; /* need more data */ - if(result<0){ /* missing or corrupt data at this page position */ - fprintf(stderr,"Corrupt or missing data in bitstream; " - "continuing...\n"); - }else{ - ogg_stream_pagein(&os,&og); /* can safely ignore errors at - this point */ - while(1){ - result=ogg_stream_packetout(&os,&op); - - if(result==0)break; /* need more data */ - if(result<0){ /* missing or corrupt data at this page position */ - /* no reason to complain; already complained above */ - }else{ - /* we have a packet. Decode it */ - float **pcm; - int samples; - - if(vorbis_synthesis(&vb,&op)==0) /* test for success! */ - vorbis_synthesis_blockin(&vd,&vb); - /* - - **pcm is a multichannel float vector. In stereo, for - example, pcm[0] is left, and pcm[1] is right. samples is - the size of each channel. Convert the float values - (-1.<=range<=1.) to whatever PCM format and write it out */ - - while((samples=vorbis_synthesis_pcmout(&vd,&pcm))>0){ - int j; - int clipflag=0; - int bout=(samples<convsize?samples:convsize); - - /* convert floats to 16 bit signed ints (host order) and - interleave */ - for(i=0;i<vi.channels;i++){ - ogg_int16_t *ptr=convbuffer+i; - float *mono=pcm[i]; - for(j=0;j<bout;j++){ -#if 1 - int val=floor(mono[j]*32767.f+.5f); -#else /* optional dither */ - int val=mono[j]*32767.f+drand48()-0.5f; -#endif - /* might as well guard against clipping */ - if(val>32767){ - val=32767; - clipflag=1; - } - if(val<-32768){ - val=-32768; - clipflag=1; - } - *ptr=val; - ptr+=vi.channels; - } - } - - if(clipflag) - fprintf(stderr,"Clipping in frame %ld\n",(long)(vd.sequence)); - - - fwrite(convbuffer,2*vi.channels,bout,stdout); - - vorbis_synthesis_read(&vd,bout); /* tell libvorbis how - many samples we - actually consumed */ - } - } - } - if(ogg_page_eos(&og))eos=1; - } - } - if(!eos){ - buffer=ogg_sync_buffer(&oy,4096); - bytes=fread(buffer,1,4096,stdin); - ogg_sync_wrote(&oy,bytes); - if(bytes==0)eos=1; - } - } - - /* ogg_page and ogg_packet structs always point to storage in - libvorbis. They're never freed or manipulated directly */ - - vorbis_block_clear(&vb); - vorbis_dsp_clear(&vd); - }else{ - fprintf(stderr,"Error: Corrupt header during playback initialization.\n"); - } - - /* clean up this logical bitstream; before exit we see if we're - followed by another [chained] */ - - ogg_stream_clear(&os); - vorbis_comment_clear(&vc); - vorbis_info_clear(&vi); /* must be called last */ - } - - /* OK, clean up the framer */ - ogg_sync_clear(&oy); - - fprintf(stderr,"Done.\n"); - return(0); -} diff --git a/contrib/vorbis/examples/encoder_example.c b/contrib/vorbis/examples/encoder_example.c deleted file mode 100644 index d46a051..0000000 --- a/contrib/vorbis/examples/encoder_example.c +++ /dev/null @@ -1,251 +0,0 @@ -/******************************************************************** - * * - * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE. * - * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS * - * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE * - * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING. * - * * - * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2007 * - * by the Xiph.Org Foundation http://www.xiph.org/ * - * * - ******************************************************************** - - function: simple example encoder - - ********************************************************************/ - -/* takes a stereo 16bit 44.1kHz WAV file from stdin and encodes it into - a Vorbis bitstream */ - -/* Note that this is POSIX, not ANSI, code */ - -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#include <time.h> -#include <math.h> -#include <vorbis/vorbisenc.h> - -#ifdef _WIN32 /* We need the following two to set stdin/stdout to binary */ -#include <io.h> -#include <fcntl.h> -#endif - -#if defined(__MACOS__) && defined(__MWERKS__) -#include <console.h> /* CodeWarrior's Mac "command-line" support */ -#endif - -#define READ 1024 -signed char readbuffer[READ*4+44]; /* out of the data segment, not the stack */ - -int main(){ - ogg_stream_state os; /* take physical pages, weld into a logical - stream of packets */ - ogg_page og; /* one Ogg bitstream page. Vorbis packets are inside */ - ogg_packet op; /* one raw packet of data for decode */ - - vorbis_info vi; /* struct that stores all the static vorbis bitstream - settings */ - vorbis_comment vc; /* struct that stores all the user comments */ - - vorbis_dsp_state vd; /* central working state for the packet->PCM decoder */ - vorbis_block vb; /* local working space for packet->PCM decode */ - - int eos=0,ret; - int i, founddata; - -#if defined(macintosh) && defined(__MWERKS__) - int argc = 0; - char **argv = NULL; - argc = ccommand(&argv); /* get a "command line" from the Mac user */ - /* this also lets the user set stdin and stdout */ -#endif - - /* we cheat on the WAV header; we just bypass 44 bytes (simplest WAV - header is 44 bytes) and assume that the data is 44.1khz, stereo, 16 bit - little endian pcm samples. This is just an example, after all. */ - -#ifdef _WIN32 /* We need to set stdin/stdout to binary mode. Damn windows. */ - /* if we were reading/writing a file, it would also need to in - binary mode, eg, fopen("file.wav","wb"); */ - /* Beware the evil ifdef. We avoid these where we can, but this one we - cannot. Don't add any more, you'll probably go to hell if you do. */ - _setmode( _fileno( stdin ), _O_BINARY ); - _setmode( _fileno( stdout ), _O_BINARY ); -#endif - - - /* we cheat on the WAV header; we just bypass the header and never - verify that it matches 16bit/stereo/44.1kHz. This is just an - example, after all. */ - - readbuffer[0] = '\0'; - for (i=0, founddata=0; i<30 && ! feof(stdin) && ! ferror(stdin); i++) - { - fread(readbuffer,1,2,stdin); - - if ( ! strncmp((char*)readbuffer, "da", 2) ){ - founddata = 1; - fread(readbuffer,1,6,stdin); - break; - } - } - - /********** Encode setup ************/ - - vorbis_info_init(&vi); - - /* choose an encoding mode. A few possibilities commented out, one - actually used: */ - - /********************************************************************* - Encoding using a VBR quality mode. The usable range is -.1 - (lowest quality, smallest file) to 1. (highest quality, largest file). - Example quality mode .4: 44kHz stereo coupled, roughly 128kbps VBR - - ret = vorbis_encode_init_vbr(&vi,2,44100,.4); - - --------------------------------------------------------------------- - - Encoding using an average bitrate mode (ABR). - example: 44kHz stereo coupled, average 128kbps VBR - - ret = vorbis_encode_init(&vi,2,44100,-1,128000,-1); - - --------------------------------------------------------------------- - - Encode using a quality mode, but select that quality mode by asking for - an approximate bitrate. This is not ABR, it is true VBR, but selected - using the bitrate interface, and then turning bitrate management off: - - ret = ( vorbis_encode_setup_managed(&vi,2,44100,-1,128000,-1) || - vorbis_encode_ctl(&vi,OV_ECTL_RATEMANAGE2_SET,NULL) || - vorbis_encode_setup_init(&vi)); - - *********************************************************************/ - - ret=vorbis_encode_init_vbr(&vi,2,44100,0.1); - - /* do not continue if setup failed; this can happen if we ask for a - mode that libVorbis does not support (eg, too low a bitrate, etc, - will return 'OV_EIMPL') */ - - if(ret)exit(1); - - /* add a comment */ - vorbis_comment_init(&vc); - vorbis_comment_add_tag(&vc,"ENCODER","encoder_example.c"); - - /* set up the analysis state and auxiliary encoding storage */ - vorbis_analysis_init(&vd,&vi); - vorbis_block_init(&vd,&vb); - - /* set up our packet->stream encoder */ - /* pick a random serial number; that way we can more likely build - chained streams just by concatenation */ - srand(time(NULL)); - ogg_stream_init(&os,rand()); - - /* Vorbis streams begin with three headers; the initial header (with - most of the codec setup parameters) which is mandated by the Ogg - bitstream spec. The second header holds any comment fields. The - third header holds the bitstream codebook. We merely need to - make the headers, then pass them to libvorbis one at a time; - libvorbis handles the additional Ogg bitstream constraints */ - - { - ogg_packet header; - ogg_packet header_comm; - ogg_packet header_code; - - vorbis_analysis_headerout(&vd,&vc,&header,&header_comm,&header_code); - ogg_stream_packetin(&os,&header); /* automatically placed in its own - page */ - ogg_stream_packetin(&os,&header_comm); - ogg_stream_packetin(&os,&header_code); - - /* This ensures the actual - * audio data will start on a new page, as per spec - */ - while(!eos){ - int result=ogg_stream_flush(&os,&og); - if(result==0)break; - fwrite(og.header,1,og.header_len,stdout); - fwrite(og.body,1,og.body_len,stdout); - } - - } - - while(!eos){ - long i; - long bytes=fread(readbuffer,1,READ*4,stdin); /* stereo hardwired here */ - - if(bytes==0){ - /* end of file. this can be done implicitly in the mainline, - but it's easier to see here in non-clever fashion. - Tell the library we're at end of stream so that it can handle - the last frame and mark end of stream in the output properly */ - vorbis_analysis_wrote(&vd,0); - - }else{ - /* data to encode */ - - /* expose the buffer to submit data */ - float **buffer=vorbis_analysis_buffer(&vd,READ); - - /* uninterleave samples */ - for(i=0;i<bytes/4;i++){ - buffer[0][i]=((readbuffer[i*4+1]<<8)| - (0x00ff&(int)readbuffer[i*4]))/32768.f; - buffer[1][i]=((readbuffer[i*4+3]<<8)| - (0x00ff&(int)readbuffer[i*4+2]))/32768.f; - } - - /* tell the library how much we actually submitted */ - vorbis_analysis_wrote(&vd,i); - } - - /* vorbis does some data preanalysis, then divvies up blocks for - more involved (potentially parallel) processing. Get a single - block for encoding now */ - while(vorbis_analysis_blockout(&vd,&vb)==1){ - - /* analysis, assume we want to use bitrate management */ - vorbis_analysis(&vb,NULL); - vorbis_bitrate_addblock(&vb); - - while(vorbis_bitrate_flushpacket(&vd,&op)){ - - /* weld the packet into the bitstream */ - ogg_stream_packetin(&os,&op); - - /* write out pages (if any) */ - while(!eos){ - int result=ogg_stream_pageout(&os,&og); - if(result==0)break; - fwrite(og.header,1,og.header_len,stdout); - fwrite(og.body,1,og.body_len,stdout); - - /* this could be set above, but for illustrative purposes, I do - it here (to show that vorbis does know where the stream ends) */ - - if(ogg_page_eos(&og))eos=1; - } - } - } - } - - /* clean up and exit. vorbis_info_clear() must be called last */ - - ogg_stream_clear(&os); - vorbis_block_clear(&vb); - vorbis_dsp_clear(&vd); - vorbis_comment_clear(&vc); - vorbis_info_clear(&vi); - - /* ogg_page and ogg_packet structs always point to storage in - libvorbis. They're never freed or manipulated directly */ - - fprintf(stderr,"Done.\n"); - return(0); -} diff --git a/contrib/vorbis/examples/frameview.pl b/contrib/vorbis/examples/frameview.pl deleted file mode 100755 index edcf5d0..0000000 --- a/contrib/vorbis/examples/frameview.pl +++ /dev/null @@ -1,630 +0,0 @@ -#!/usr/bin/perl -w -use strict; -use Tk; -use Tk::Xrm; -use Tk qw(exit); - -my $version="Analyzer 20020429"; - -my %bases; -my $first_file=undef; -my $last_file=undef; -my $fileno=0; - -my @panel_labels; -my @panel_ones; -my @panel_twos; -my @panel_onevars; -my @panel_twovars; -my @panel_keys; -my $panel_count; - -# pop the toplevels - -my $toplevel=new MainWindow(-class=>'AnalyzerGraph'); -my $Xname=$toplevel->Class; -$toplevel->optionAdd("$Xname.geometry", "800x600",20); - -my $geometry=$toplevel->optionGet('geometry',''); -$geometry=~/^(\d+)x(\d+)/; - -$toplevel->configure(-width=>$1); -$toplevel->configure(-height=>$2); - - - - - -$toplevel->optionAdd("$Xname.background", "#4fc627",20); -$toplevel->optionAdd("$Xname*highlightBackground", "#80c0d3",20); -$toplevel->optionAdd("$Xname.Panel.background", "#4fc627",20); -$toplevel->optionAdd("$Xname.Panel.foreground", "#d0d0d0",20); -$toplevel->optionAdd("$Xname.Panel.font", - '-*-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*',20); -$toplevel->optionAdd("$Xname*Statuslabel.font", - '-*-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*',20); -$toplevel->optionAdd("$Xname*Statuslabel.foreground", "#606060"); -$toplevel->optionAdd("$Xname*Status.font", - '-*-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*',20); - -$toplevel->optionAdd("$Xname*AlertDetail.font", - '-*-helvetica-medium-r-*-*-10-*-*-*-*-*-*-*',20); - - -$toplevel->optionAdd("$Xname*background", "#d0d0d0",20); -$toplevel->optionAdd("$Xname*foreground", '#000000',20); - -$toplevel->optionAdd("$Xname*Button*background", "#f0d0b0",20); -$toplevel->optionAdd("$Xname*Button*foreground", '#000000',20); -$toplevel->optionAdd("$Xname*Button*borderWidth", '2',20); -$toplevel->optionAdd("$Xname*Button*relief", 'groove',20); -$toplevel->optionAdd("$Xname*Button*padY", 1,20); - -#$toplevel->optionAdd("$Xname*Scale*background", "#f0d0b0",20); -$toplevel->optionAdd("$Xname*Scale*foreground", '#000000',20); -$toplevel->optionAdd("$Xname*Scale*borderWidth", '1',20); -#$toplevel->optionAdd("$Xname*Scale*relief", 'groove',20); -$toplevel->optionAdd("$Xname*Scale*padY", 1,20); - -$toplevel->optionAdd("$Xname*Checkbutton*background", "#f0d0b0",20); -$toplevel->optionAdd("$Xname*Checkbutton*foreground", '#000000',20); -$toplevel->optionAdd("$Xname*Checkbutton*borderWidth", '2',20); -$toplevel->optionAdd("$Xname*Checkbutton*relief", 'groove',20); - -$toplevel->optionAdd("$Xname*activeBackground", "#ffffff",20); -$toplevel->optionAdd("$Xname*activeForeground", '#0000a0',20); -$toplevel->optionAdd("$Xname*borderWidth", 0,20); -$toplevel->optionAdd("$Xname*relief", 'flat',20); -$toplevel->optionAdd("$Xname*activeBorderWidth", 1,20); -$toplevel->optionAdd("$Xname*highlightThickness", 0,20); -$toplevel->optionAdd("$Xname*padX", 2,20); -$toplevel->optionAdd("$Xname*padY", 2,20); -$toplevel->optionAdd("$Xname*font", - '-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*',20); -$toplevel->optionAdd("$Xname*Entry.font", - '-*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*',20); -$toplevel->optionAdd("$Xname*Exit.font", - '-*-helvetica-bold-r-*-*-10-*-*-*-*-*-*-*',20); -$toplevel->optionAdd("$Xname*Exit.relief", 'groove',20); -$toplevel->optionAdd("$Xname*Exit.padX", 1,20); -$toplevel->optionAdd("$Xname*Exit.padY", 1,20); -$toplevel->optionAdd("$Xname*Exit.borderWidth", 2,20); -$toplevel->optionAdd("$Xname*Exit*background", "#a0a0a0",20); -$toplevel->optionAdd("$Xname*Exit*disabledForeground", "#ffffff",20); - -#$toplevel->optionAdd("$Xname*Canvas.background", "#c0c0c0",20); - -$toplevel->optionAdd("$Xname*Entry.background", "#ffffff",20); -$toplevel->optionAdd("$Xname*Entry.disabledForeground", "#c0c0c0",20); -$toplevel->optionAdd("$Xname*Entry.relief", "sunken",20); -$toplevel->optionAdd("$Xname*Entry.borderWidth", 1,20); - -$toplevel->optionAdd("$Xname*Field.background", "#ffffff",20); -$toplevel->optionAdd("$Xname*Field.disabledForeground", "#c0c0c0",20); -$toplevel->optionAdd("$Xname*Field.relief", "flat",20); -$toplevel->optionAdd("$Xname*Field.borderWidth", 1,20); - -$toplevel->optionAdd("$Xname*Label.disabledForeground", "#c0c0c0",20); -$toplevel->optionAdd("$Xname*Label.borderWidth", 1,20); - -$toplevel->configure(-background=>$toplevel->optionGet("background","")); - -#$toplevel->resizable(FALSE,FALSE); - -my $panel=new MainWindow(-class=>'AnalyzerPanel'); -my $X2name=$panel->Class; - -$panel->optionAdd("$X2name.background", "#353535",20); -$panel->optionAdd("$X2name*highlightBackground", "#80c0d3",20); -$panel->optionAdd("$X2name.Panel.background", "#353535",20); -$panel->optionAdd("$X2name.Panel.foreground", "#4fc627",20); -$panel->optionAdd("$X2name.Panel.font", - '-*-helvetica-bold-o-*-*-18-*-*-*-*-*-*-*',20); -$panel->optionAdd("$X2name*Statuslabel.font", - '-*-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*',20); -$panel->optionAdd("$X2name*Statuslabel.foreground", "#4fc627",20); -$panel->optionAdd("$X2name*Status.font", - '-*-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*',20); - -$panel->optionAdd("$X2name*AlertDetail.font", - '-*-helvetica-medium-r-*-*-10-*-*-*-*-*-*-*',20); - - -$panel->optionAdd("$X2name*background", "#d0d0d0",20); -$panel->optionAdd("$X2name*foreground", '#000000',20); - -$panel->optionAdd("$X2name*Button*background", "#f0d0b0",20); -$panel->optionAdd("$X2name*Button*foreground", '#000000',20); -$panel->optionAdd("$X2name*Button*borderWidth", '2',20); -$panel->optionAdd("$X2name*Button*relief", 'groove',20); -$panel->optionAdd("$X2name*Button*padY", 1,20); - -$panel->optionAdd("$X2name*Checkbutton*background", "#f0d0b0",20); -$panel->optionAdd("$X2name*Checkbutton*foreground", '#000000',20); -$panel->optionAdd("$X2name*Checkbutton*borderWidth", '2',20); -#$panel->optionAdd("$X2name*Checkbutton*padX", '0',20); -#$panel->optionAdd("$X2name*Checkbutton*padY", '0',20); -#$panel->optionAdd("$X2name*Checkbutton*relief", 'groove',20); - -$panel->optionAdd("$X2name*activeBackground", "#ffffff",20); -$panel->optionAdd("$X2name*activeForeground", '#0000a0',20); -$panel->optionAdd("$X2name*borderWidth", 0,20); -$panel->optionAdd("$X2name*relief", 'flat',20); -$panel->optionAdd("$X2name*activeBorderWidth", 1,20); -$panel->optionAdd("$X2name*highlightThickness", 0,20); -$panel->optionAdd("$X2name*padX", 2,20); -$panel->optionAdd("$X2name*padY", 2,20); -$panel->optionAdd("$X2name*font", - '-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*',20); -$panel->optionAdd("$X2name*Entry.font", - '-*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*',20); - -$panel->optionAdd("$X2name*Exit.font", - '-*-helvetica-bold-r-*-*-10-*-*-*-*-*-*-*',20); -$panel->optionAdd("$X2name*Exit.relief", 'groove',20); -$panel->optionAdd("$X2name*Exit.padX", 1,20); -$panel->optionAdd("$X2name*Exit.padY", 1,20); -$panel->optionAdd("$X2name*Exit.borderWidth", 2,20); -$panel->optionAdd("$X2name*Exit*background", "#a0a0a0",20); -$panel->optionAdd("$X2name*Exit*disabledForeground", "#ffffff",20); - -$panel->optionAdd("$X2name*Entry.background", "#ffffff",20); -$panel->optionAdd("$X2name*Entry.disabledForeground", "#c0c0c0",20); -$panel->optionAdd("$X2name*Entry.relief", "sunken",20); -$panel->optionAdd("$X2name*Entry.borderWidth", 1,20); - -$panel->optionAdd("$X2name*Field.background", "#ffffff",20); -$panel->optionAdd("$X2name*Field.disabledForeground", "#c0c0c0",20); -$panel->optionAdd("$X2name*Field.relief", "flat",20); -$panel->optionAdd("$X2name*Field.borderWidth", 1,20); - -$panel->optionAdd("$X2name*Label.disabledForeground", "#c0c0c0",20); -$panel->optionAdd("$X2name*Label.borderWidth", 1,20); - -$panel->configure(-background=>$panel->optionGet("background","")); - -#$panel->resizable("FALSE","FALSE"); - -my $panel_shell=$panel->Label(Name=>"shell",-borderwidth=>1,-relief=>'raised')-> - place(-x=>10,-y=>36,-relwidth=>1.0,-relheight=>1.0, - -width=>-20,-height=>-46,-anchor=>'nw'); - -my $panel_quit=$panel_shell->Button(-class=>"Exit",-text=>"quit",-command=>[sub{Shutdown()}])-> - place(-x=>-1,-y=>-1,-relx=>1.0,-rely=>1.0,-anchor=>'se'); - -$panel->Label(Name=>"logo text",-class=>"Panel",-text=>$version)-> - place(-x=>5,-y=>5,-anchor=>'nw'); - - -my $graph_shell=$toplevel->Label(Name=>"shell",-borderwidth=>1,-relief=>'raised')-> - place(-x=>10,-y=>36,-relwidth=>1.0,-relheight=>1.0, - -width=>-20,-height=>-46,-anchor=>'nw'); - -my $graph_status=$toplevel->Label(Name=>"logo text",-class=>"Panel",-text=>"Starting up")-> - place(-x=>5,-y=>5,-anchor=>'nw'); - - -my $panely=5; -my $panel_rescan=$panel_shell->Button(-text=>"rescan",-command=>[sub{scan_directory()}])-> - place(-x=>-5,-relx=>1.,-y=>$panely,-anchor=>'ne'); -$panely+=$panel_rescan->reqheight()+6; - - -my$temp=$graph_shell->Button(-text=>"<<", - -command=>[sub{$fileno-=10;$fileno=$first_file if($fileno<$first_file); - load_graph();}])-> - place(-x=>5,-y=>-5,-rely=>1.,-relwidth=>.2,-width=>-5,-anchor=>'sw'); -$graph_shell->Button(-text=>">>", - -command=>[sub{$fileno+=10;$fileno=$last_file if($fileno>$last_file); - load_graph();}])-> - place(-x=>-5,-y=>-5,-relwidth=>.2,-rely=>1.,-width=>-5,-relx=>1.,-anchor=>'se'); -$graph_shell->Button(-text=>"<", - -command=>[sub{$fileno-=1;$fileno=$first_file if($fileno<$first_file); - load_graph();}])-> - place(-x=>5,-y=>-5,-relwidth=>.3,-width=>-7,-rely=>1.,-relx=>.2,-anchor=>'sw'); -$graph_shell->Button(-text=>">", - -command=>[sub{$fileno+=1;$fileno=$last_file if($fileno>$last_file); - load_graph();}])-> - place(-x=>-5,-y=>-5,-relwidth=>.3,-width=>-7,-rely=>1.,-relx=>.8,-anchor=>'se'); -my$graphy=-10-$temp->reqheight(); -my$graph_slider=$temp=$graph_shell->Scale(-bigincrement=>1, - -resolution=>1, - -showvalue=>'TRUE',-variable=>\$fileno,-orient=>'horizontal')-> - place(-x=>5,-y=>$graphy,-relwidth=>1.,-rely=>1.,-width=>-10,-anchor=>'sw'); -$graphy-=$temp->reqheight()+5; - -my$onecrop; -my$twocrop; - -my$oneresize=$temp=$graph_shell->Checkbutton(-text=>"rescale",-variable=>\$onecrop, - -command=>[sub{draw_graph();}])-> - place(-x=>5,-y=>5,-anchor=>'nw'); - -my$one=$graph_shell->Canvas()-> - place(-relwidth=>1.,-width=>-10,-relheight=>.5,-height=>($graphy/2)-5-$temp->reqheight(), - -x=>5,-y=>5+$temp->reqheight,-anchor=>'nw'); - - -my$tworesize=$temp=$graph_shell->Checkbutton(-text=>"rescale",-variable=>\$twocrop, - -command=>[sub{draw_graph();}])-> - place(-rely=>1.,-y=>5,-anchor=>'nw',-in=>$one); -my$two=$graph_shell->Canvas()-> - place(-relwidth=>1.,-relheight=>1.,-rely=>1.,-y=>5+$temp->reqheight(),-anchor=>'nw',-in=>$one); - -scan_directory(); - -my%onestate; -my%twostate; -my @data; - -$onestate{"canvas"}=$one; -$onestate{"vars"}=\@panel_onevars; -$twostate{"canvas"}=$two; -$twostate{"vars"}=\@panel_twovars; - -$graph_slider->configure(-command=>[sub{load_graph()}]); -load_graph(); -$toplevel->bind('MainWindow','<Configure>',[sub{$toplevel->update(); - draw_graph()}]); - -Tk::MainLoop(); - -sub load_graph{ - - scan_directory()if(!defined($panel_count)); - - @data=undef; - - for(my$i=0;$i<$panel_count;$i++){ - my$filename=$panel_keys[$i]."_$fileno.m"; - if(open F, "$filename"){ - $data[$i]=[(<F>)]; - close F; - } - } - draw_graph(); -} - -sub graphhelper{ - my($graph)=@_; - my$count=0; - my@colors=("#ff0000","#00df00","#0000ff","#ffff00","#ff00ff","#00ffff","#ffffff", - "#9f0000","#007f00","#00009f","#8f8f00","#8f008f","#008f8f","#000000"); - - my$w=$graph->{"canvas"}; - my$rescale=0; - - Status("Plotting $fileno"); - $w->delete('foo'); - $w->delete('legend'); - $w->delete('lines'); - - # count range - for(my$i=0;$i<$panel_count;$i++){ - if($graph->{"vars"}->[$i]){ - if(defined($data[$i])){ - if(!defined($graph->{"minx"})){ - $data[$i]->[0]=~m/^\s*(-?[0-9\.]*)[ ,]+(-?[0-9\.]*)/; - $graph->{"maxx"}=$1; - $graph->{"minx"}=$1; - $graph->{"maxy"}=$2; - $graph->{"miny"}=$2; - $rescale=1; - } - - for(my$j=0;$j<=$#{$data[$i]};$j++){ - $data[$i]->[$j]=~m/^\s*(-?[0-9\.]*)[ ,]+(-?[0-9\.]*)/; - $rescale=1 if($1>$graph->{"maxx"}); - $rescale=1 if($1<$graph->{"minx"}); - $rescale=1 if($2>$graph->{"maxy"}); - $rescale=1 if($2<$graph->{"miny"}); - $graph->{"maxx"}=$1 if($1>$graph->{"maxx"}); - $graph->{"minx"}=$1 if($1<$graph->{"minx"}); - $graph->{"maxy"}=$2 if($2>$graph->{"maxy"}); - $graph->{"miny"}=$2 if($2<$graph->{"miny"}); - } - } - $count++; - } - } - - my$width=$w->width(); - my$height=$w->height(); - - $rescale=1 if(!defined($graph->{"width"}) || - $width!=$graph->{"width"} || - $height!=$graph->{"height"}); - - $graph->{"width"}=$width; - $graph->{"height"}=$height; - - if(defined($graph->{"maxx"})){ - # draw axes, labels - # look for appropriate axis scales - - if($rescale){ - - $w->delete('ylabel'); - $w->delete('xlabel'); - $w->delete('axes'); - - my$yscale=1.; - my$xscale=1.; - my$iyscale=1.; - my$ixscale=1.; - while(($graph->{"maxx"}-$graph->{"minx"})*$xscale>15){$xscale*=.1;$ixscale*=10.;} - while(($graph->{"maxy"}-$graph->{"miny"})*$yscale>15){$yscale*=.1;$iyscale*=10.;} - - while(($graph->{"maxx"}-$graph->{"minx"})*$xscale<3){$xscale*=10.;$ixscale*=.1;} - while(($graph->{"maxy"}-$graph->{"miny"})*$yscale<3){$yscale*=10.;$iyscale*=.1;} - - # how tall are the x axis labels? - $w->createText(-1,-1,-anchor=>'se',-tags=>['foo'],-text=>"0123456789."); - my($x1,$y1,$x2,$y2)=$w->bbox('foo'); - $w->delete('foo'); - my$maxlabelheight=$y2-$y1; - my$useabley=$height-$maxlabelheight-3; - my$pixelpery=$useabley/($graph->{"maxy"}-$graph->{"miny"}); - - # place y axis labels at proper spacing/height - my$lasty=-$maxlabelheight/2; - my$topyval=int($graph->{"maxy"}*$yscale+1.)*$iyscale; - - for(my$i=0;;$i++){ - my$yval= $topyval-$i*$iyscale; - my$y= ($graph->{"maxy"}-$yval)*$pixelpery; - last if($y>$useabley); - if($y-$maxlabelheight>=$lasty){ - $w->createText(0,$y,-anchor=>'e',-tags=>['ylabel'],-text=>"$yval"); - $lasty=$y; - } - } - - # get the max ylabel width and place them at proper x - ($x1,$y1,$x2,$y2)=$w->bbox('ylabel'); - my$maxylabelwidth=$x2-$x1; - $w->move('ylabel',$maxylabelwidth,0); - - my$beginx=$maxylabelwidth+3; - my$useablex=$width-$beginx; - - # draw basic axes - $w->createLine($beginx,0,$beginx,$useabley,$width,$useabley, - -tags=>['axes'],-width=>2); - # draw y tix - $lasty=-$maxlabelheight/2; - for(my$i=0;;$i++){ - my$yval= $topyval-$i*$iyscale; - my$y= ($graph->{"maxy"}-$yval)*$pixelpery; - last if($y>$useabley); - if($yval==0){ - $w->createLine($beginx,$y,$width,$y, - -tags=>['axes'],-width=>1); - }else{ - if($y-$maxlabelheight>=$lasty){ - $w->createLine($beginx,$y,$width,$y, - -tags=>['axes'],-width=>1, - -stipple=>'gray50'); - - $lasty=$y; - } - } - } - - # place x axis labels at proper spacing - my$topxval=int($graph->{"maxx"}*$xscale+1.)*$ixscale; - my$pixelperx=$useablex/($graph->{"maxx"}-$graph->{"minx"}); - - for(my$i=0;;$i++){ - my$xval= $topxval-$i*$ixscale; - my$x= $width-($graph->{"maxx"}-$xval)*$pixelperx; - - last if($x<$beginx); - # bounding boxen are hard. place temp labels. - $w->createText(-1,-1,-anchor=>'e',-tags=>['foo'],-text=>"$xval"); - } - - ($x1,$y1,$x2,$y2)=$w->bbox('foo'); - my$maxxlabelwidth=$x2-$x1; - $w->delete('foo'); - my$lastx=$width; - - for(my$i=0;;$i++){ - my$xval= $topxval-$i*$ixscale; - my$x= $width-($graph->{"maxx"}-$xval)*$pixelperx; - - last if($x-$maxxlabelwidth/2<0 || $x<$beginx); - if($xval==0 && $x<$width){ - $w->createLine($x,0,$x,$useabley,-tags=>['axes'],-width=>1); - } - - if($x+$maxxlabelwidth<=$lastx){ - $w->createText($x,$height-1,-anchor=>'s',-tags=>['xlabel'],-text=>"$xval"); - $w->createLine($x,0,$x,$useabley,-tags=>['axes'],-width=>1,-stipple=>"gray50"); - $lastx=$x; - } - } - $graph->{"labelheight"}=$maxlabelheight; - $graph->{"xo"}=$beginx; - $graph->{"ppx"}=$pixelperx; - $graph->{"ppy"}=$pixelpery; - } - - # plot the files - $count=0; - my$legendy=$graph->{"labelheight"}/2; - for(my$i=0;$i<$panel_count;$i++){ - if($graph->{"vars"}->[$i]){ - $count++; # count here for legend color selection stability - if(defined($data[$i])){ - # place a legend placard; - my$color=$colors[($count-1)%($#colors+1)]; - $w->createText($width,$legendy,-anchor=>'e',-tags=>['legend'], - -fill=>$color,-text=>$panel_keys[$i]); - $legendy+=$graph->{"labelheight"}; - - # plot the lines - my@pairs=map{if(/^\s*(-?[0-9\.]*)[ ,]+(-?[0-9\.]*)/){ - (($1-$graph->{"minx"})*$graph->{"ppx"}+$graph->{"xo"}, - (-$2+$graph->{"maxy"})*$graph->{"ppy"})}} (@{$data[$i]}); - - $w->createLine((@pairs),-fill=>$color,-tags=>['lines']); - } - } - } - } -} - -sub draw_graph{ - - if($onecrop){ - $onestate{"minx"}=undef; - $onestate{"miny"}=undef; - $onestate{"maxx"}=undef; - $onestate{"maxy"}=undef; - } - if($twocrop){ - $twostate{"minx"}=undef; - $twostate{"miny"}=undef; - $twostate{"maxx"}=undef; - $twostate{"maxy"}=undef; - } - - for(my$i=0;$i<$panel_count;$i++){ - if($twostate{"vars"}->[$i]){ - - #re-place the canvases - - $oneresize->place(-x=>5,-y=>5,-anchor=>'nw'); - - $one->place(-relwidth=>1.,-width=>-10,-relheight=>.5, - -height=>($graphy/2)-5-$oneresize->reqheight(), - -x=>5,-y=>5+$oneresize->reqheight,-anchor=>'nw'); - - $tworesize->place(-rely=>1.,-y=>5,-anchor=>'nw',-in=>$one); - $two->place(-relwidth=>1.,-relheight=>1.,-rely=>1., - -y=>5+$tworesize->reqheight(),-anchor=>'nw',-in=>$one); - - graphhelper(\%onestate); - graphhelper(\%twostate); - return; - } - } - - $oneresize->place(-x=>5,-y=>5,-anchor=>'nw'); - - $one->place(-relwidth=>1.,-width=>-10,-relheight=>1., - -height=>$graphy-5-$oneresize->reqheight(), - -x=>5,-y=>5+$oneresize->reqheight,-anchor=>'nw'); - - $tworesize->placeForget(); - $two->placeForget(); - - graphhelper(\%onestate); -} - -sub depopulate_panel{ - my $win; - foreach $win (@panel_labels){ - $win->destroy(); - } - @panel_labels=(); - foreach $win (@panel_ones){ - $win->destroy(); - } - @panel_ones=(); - foreach $win (@panel_twos){ - $win->destroy(); - } - @panel_twos=(); - @panel_keys=(); -} - -sub populate_panel{ - my $localy=$panely; - my $key; - my $i=0; - foreach $key (sort (keys %bases)){ - $panel_keys[$i]=$key; - if(!defined($panel_onevars[$i])){ - $panel_onevars[$i]=0; - $panel_twovars[$i]=0; - } - - my $temp=$panel_twos[$i]=$panel_shell-> - Checkbutton(-variable=>\$panel_twovars[$i],-command=>['main::draw_graph'],-text=>'2')-> - place(-y=>$localy,-x=>-5,-anchor=>"ne",-relx=>1.); - my $oney=$temp->reqheight(); - my $onex=$temp->reqwidth()+15; - - $temp=$panel_ones[$i]=$panel_shell-> - Checkbutton(-variable=>\$panel_onevars[$i],-command=>['main::draw_graph'],-text=>'1')-> - place(-y=>0,-x=>0,-anchor=>"ne",-in=>$temp,-bordermode=>'outside'); - $oney=$temp->reqheight() if ($oney<$temp->reqheight()); - $onex+=$temp->reqwidth(); - - $temp=$panel_labels[$i]=$panel_shell->Label(-text=>$key,-class=>'Field',-justify=>'left')-> - place(-y=>$localy,-x=>5,-anchor=>"nw",-relwidth=>1.,-width=>-$onex, - -bordermode=>'outside'); - $oney=$temp->reqheight() if ($oney<$temp->reqheight()); - - $localy+=$oney+2; - $i++; - } - $panel_count=$i; - - $localy+=$panel_quit->reqheight()+50; - my $geometry=$panel->geometry(); - $geometry=~/^(\d+)/; - - $panel->configure(-height=>$localy); - $panel->configure(-width=>$1); -} - -sub Shutdown{ - Tk::exit(); -} - -sub Status{ - my$text=shift @_; - $graph_status->configure(-text=>"$text"); - $toplevel->update(); -} - -sub scan_directory{ - - %bases=(); - my$count=0; - - $first_file=undef; - $last_file=undef; - - if(opendir(D,".")){ - my$file; - while(defined($file=readdir(D))){ - if($file=~m/^(\S*)_(\d+).m/){ - $bases{"$1"}="0"; - $first_file=$2 if(!defined($first_file) || $2<$first_file); - $last_file=$2 if(!defined($last_file) || $2>$last_file); - $count++; - - Status("Reading... $count")if($count%117==0); - } - } - closedir(D); - } - Status("Done Reading: $count files"); - depopulate_panel(); - populate_panel(); - - $fileno=$first_file if($fileno<$first_file); - $fileno=$last_file if($fileno>$last_file); - - $graph_slider->configure(-from=>$first_file,-to=>$last_file); - -} - - - - - diff --git a/contrib/vorbis/examples/seeking_example.c b/contrib/vorbis/examples/seeking_example.c deleted file mode 100644 index d039b0d..0000000 --- a/contrib/vorbis/examples/seeking_example.c +++ /dev/null @@ -1,277 +0,0 @@ -/******************************************************************** - * * - * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE. * - * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS * - * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE * - * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING. * - * * - * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2007 * - * by the Xiph.Org Foundation http://www.xiph.org/ * - * * - ******************************************************************** - - function: illustrate seeking, and test it too - - ********************************************************************/ - -#include <stdlib.h> -#include <stdio.h> -#include "vorbis/codec.h" -#include "vorbis/vorbisfile.h" - -#ifdef _WIN32 /* We need the following two to set stdin/stdout to binary */ -# include <io.h> -# include <fcntl.h> -#endif - -void _verify(OggVorbis_File *ov, - ogg_int64_t val,ogg_int64_t pcmval,double timeval, - ogg_int64_t pcmlength, - char *bigassbuffer){ - off_t i; - int j; - long bread; - char buffer[4096]; - int dummy; - ogg_int64_t pos; - int hs = ov_halfrate_p(ov); - - /* verify the raw position, the pcm position and position decode */ - if(val!=-1 && ov_raw_tell(ov)<val){ - fprintf(stderr,"raw position out of tolerance: requested %ld, got %ld\n", - (long)val,(long)ov_raw_tell(ov)); - exit(1); - } - if(pcmval!=-1 && ov_pcm_tell(ov)>pcmval){ - fprintf(stderr,"pcm position out of tolerance: requested %ld, got %ld\n", - (long)pcmval,(long)ov_pcm_tell(ov)); - exit(1); - } - if(timeval!=-1 && ov_time_tell(ov)>timeval){ - fprintf(stderr,"time position out of tolerance: requested %f, got %f\n", - timeval,ov_time_tell(ov)); - exit(1); - } - pos=ov_pcm_tell(ov); - if(pos<0 || pos>pcmlength){ - fprintf(stderr,"pcm position out of bounds: got %ld\n",(long)pos); - exit(1); - } - bread=ov_read(ov,buffer,4096,1,1,1,&dummy); - for(j=0;j<bread;j++){ - if(buffer[j]!=bigassbuffer[j+((pos>>hs)*2)]){ - fprintf(stderr,"data after seek doesn't match declared pcm position %ld\n",(long)pos); - - for(i=0;i<(pcmlength>>hs)*2-bread;i++){ - for(j=0;j<bread;j++) - if(buffer[j] != bigassbuffer[i+j])break; - if(j==bread){ - fprintf(stderr,"data after seek appears to match position %ld\n",(long)((i/2)<<hs)); - } - } - { - FILE *f=fopen("a.m","w"); - for(j=0;j<bread;j++)fprintf(f,"%d %d\n",j,(int)buffer[j]); - fclose(f); - f=fopen("b.m","w"); - for(j=-4096;j<bread+4096;j++) - if(j+((pos*2)>>hs)>=0 && (j+((pos*2)>>hs))<(pcmlength>>hs)*2) - fprintf(f,"%d %d\n",j,(int)bigassbuffer[j+((pos*2)>>hs)]); - fclose(f); - } - - exit(1); - } - } -} - -int main(){ - OggVorbis_File ov; - int i,ret; - ogg_int64_t pcmlength; - double timelength; - char *bigassbuffer; - int dummy; - int hs=0; - -#ifdef _WIN32 /* We need to set stdin/stdout to binary mode. Damn windows. */ - _setmode( _fileno( stdin ), _O_BINARY ); -#endif - - - /* open the file/pipe on stdin */ - if(ov_open_callbacks(stdin,&ov,NULL,-1,OV_CALLBACKS_NOCLOSE)<0){ - fprintf(stderr,"Could not open input as an OggVorbis file.\n\n"); - exit(1); - } - -#if 0 /*enable this code to test seeking with halfrate decode */ - if(ov_halfrate(&ov,1)){ - fprintf(stderr,"Sorry; unable to set half-rate decode.\n\n"); - exit(1); - }else - hs=1; -#endif - - if(ov_seekable(&ov)){ - - /* to simplify our own lives, we want to assume the whole file is - stereo. Verify this to avoid potentially mystifying users - (pissing them off is OK, just don't confuse them) */ - for(i=0;i<ov.links;i++){ - vorbis_info *vi=ov_info(&ov,i); - if(vi->channels!=2){ - fprintf(stderr,"Sorry; right now seeking_test can only use Vorbis files\n" - "that are entirely stereo.\n\n"); - exit(1); - } - } - - /* because we want to do sample-level verification that the seek - does what it claimed, decode the entire file into memory */ - pcmlength=ov_pcm_total(&ov,-1); - timelength=ov_time_total(&ov,-1); - bigassbuffer=malloc((pcmlength>>hs)*2); /* w00t */ - i=0; - while(i<(pcmlength>>hs)*2){ - int ret=ov_read(&ov,bigassbuffer+i,((pcmlength>>hs)*2)-i,1,1,1,&dummy); - if(ret<0){ - fprintf(stderr,"Error reading file.\n"); - exit(1); - } - if(ret){ - i+=ret; - }else{ - pcmlength=(i/2)<<hs; - } - fprintf(stderr,"\rloading.... [%ld left] ", - (long)((pcmlength>>hs)*2-i)); - } - - { - ogg_int64_t length=ov.end; - fprintf(stderr,"\rtesting raw seeking to random places in %ld bytes....\n", - (long)length); - - for(i=0;i<1000;i++){ - ogg_int64_t val=(double)rand()/RAND_MAX*length; - fprintf(stderr,"\r\t%d [raw position %ld]... ",i,(long)val); - ret=ov_raw_seek(&ov,val); - if(ret<0){ - fprintf(stderr,"seek failed: %d\n",ret); - exit(1); - } - - _verify(&ov,val,-1,-1.,pcmlength,bigassbuffer); - - } - } - - fprintf(stderr,"\r"); - { - fprintf(stderr,"testing pcm page seeking to random places in %ld samples....\n", - (long)pcmlength); - - for(i=0;i<1000;i++){ - ogg_int64_t val= i==0?(ogg_int64_t)0:(double)rand()/RAND_MAX*pcmlength; - fprintf(stderr,"\r\t%d [pcm position %ld]... ",i,(long)val); - ret=ov_pcm_seek_page(&ov,val); - if(ret<0){ - fprintf(stderr,"seek failed: %d\n",ret); - exit(1); - } - - _verify(&ov,-1,val,-1.,pcmlength,bigassbuffer); - - } - } - - fprintf(stderr,"\r"); - { - fprintf(stderr,"testing pcm exact seeking to random places in %f seconds....\n", - timelength); - for(i=0;i<1000;i++){ - ogg_int64_t val= i==0?(ogg_int64_t)0:(double)rand()/RAND_MAX*pcmlength; - fprintf(stderr,"\r\t%d [pcm position %ld]... ",i,(long)val); - ret=ov_pcm_seek(&ov,val); - if(ret<0){ - fprintf(stderr,"seek failed: %d\n",ret); - exit(1); - } - if(ov_pcm_tell(&ov)!=((val>>hs)<<hs)){ - fprintf(stderr,"Declared position didn't perfectly match request: %ld != %ld\n", - (long)val,(long)ov_pcm_tell(&ov)); - exit(1); - } - - _verify(&ov,-1,val,-1.,pcmlength,bigassbuffer); - - } - } - - fprintf(stderr,"\r"); - { - fprintf(stderr,"testing time page seeking to random places in %f seconds....\n", - timelength); - - for(i=0;i<1000;i++){ - double val=(double)rand()/RAND_MAX*timelength; - fprintf(stderr,"\r\t%d [time position %f]... ",i,val); - ret=ov_time_seek_page(&ov,val); - if(ret<0){ - fprintf(stderr,"seek failed: %d\n",ret); - exit(1); - } - - _verify(&ov,-1,-1,val,pcmlength,bigassbuffer); - - } - } - - fprintf(stderr,"\r"); - { - fprintf(stderr,"testing time exact seeking to random places in %f seconds....\n", - timelength); - - for(i=0;i<1000;i++){ - double val=(double)rand()/RAND_MAX*timelength; - fprintf(stderr,"\r\t%d [time position %f]... ",i,val); - ret=ov_time_seek(&ov,val); - if(ret<0){ - fprintf(stderr,"seek failed: %d\n",ret); - exit(1); - } - if(ov_time_tell(&ov)<val-1 || ov_time_tell(&ov)>val+1){ - fprintf(stderr,"Declared position didn't perfectly match request: %f != %f\n", - val,ov_time_tell(&ov)); - exit(1); - } - - _verify(&ov,-1,-1,val,pcmlength,bigassbuffer); - - } - } - - fprintf(stderr,"\r \nOK.\n\n"); - - - }else{ - fprintf(stderr,"Standard input was not seekable.\n"); - } - - ov_clear(&ov); - return 0; -} - - - - - - - - - - - - - diff --git a/contrib/vorbis/examples/vorbisfile_example.c b/contrib/vorbis/examples/vorbisfile_example.c deleted file mode 100644 index d15bc4c..0000000 --- a/contrib/vorbis/examples/vorbisfile_example.c +++ /dev/null @@ -1,91 +0,0 @@ -/******************************************************************** - * * - * THIS FILE IS PART OF THE OggVorbis SOFTWARE CODEC SOURCE CODE. * - * USE, DISTRIBUTION AND REPRODUCTION OF THIS LIBRARY SOURCE IS * - * GOVERNED BY A BSD-STYLE SOURCE LICENSE INCLUDED WITH THIS SOURCE * - * IN 'COPYING'. PLEASE READ THESE TERMS BEFORE DISTRIBUTING. * - * * - * THE OggVorbis SOURCE CODE IS (C) COPYRIGHT 1994-2007 * - * by the Xiph.Org Foundation http://www.xiph.org/ * - * * - ******************************************************************** - - function: simple example decoder using vorbisfile - - ********************************************************************/ - -/* Takes a vorbis bitstream from stdin and writes raw stereo PCM to - stdout using vorbisfile. Using vorbisfile is much simpler than - dealing with libvorbis. */ - -#include <stdio.h> -#include <stdlib.h> -#include <math.h> -#include <vorbis/codec.h> -#include <vorbis/vorbisfile.h> - -#ifdef _WIN32 /* We need the following two to set stdin/stdout to binary */ -#include <io.h> -#include <fcntl.h> -#endif - -char pcmout[4096]; /* take 4k out of the data segment, not the stack */ - -int main(){ - OggVorbis_File vf; - int eof=0; - int current_section; - -#ifdef _WIN32 /* We need to set stdin/stdout to binary mode. Damn windows. */ - /* Beware the evil ifdef. We avoid these where we can, but this one we - cannot. Don't add any more, you'll probably go to hell if you do. */ - _setmode( _fileno( stdin ), _O_BINARY ); - _setmode( _fileno( stdout ), _O_BINARY ); -#endif - - if(ov_open_callbacks(stdin, &vf, NULL, 0, OV_CALLBACKS_NOCLOSE) < 0) { - fprintf(stderr,"Input does not appear to be an Ogg bitstream.\n"); - exit(1); - } - - /* Throw the comments plus a few lines about the bitstream we're - decoding */ - { - char **ptr=ov_comment(&vf,-1)->user_comments; - vorbis_info *vi=ov_info(&vf,-1); - while(*ptr){ - fprintf(stderr,"%s\n",*ptr); - ++ptr; - } - fprintf(stderr,"\nBitstream is %d channel, %ldHz\n",vi->channels,vi->rate); - fprintf(stderr,"\nDecoded length: %ld samples\n", - (long)ov_pcm_total(&vf,-1)); - fprintf(stderr,"Encoded by: %s\n\n",ov_comment(&vf,-1)->vendor); - } - - while(!eof){ - long ret=ov_read(&vf,pcmout,sizeof(pcmout),0,2,1,¤t_section); - if (ret == 0) { - /* EOF */ - eof=1; - } else if (ret < 0) { - if(ret==OV_EBADLINK){ - fprintf(stderr,"Corrupt bitstream section! Exiting.\n"); - exit(1); - } - - /* some other error in the stream. Not a problem, just reporting it in - case we (the app) cares. In this case, we don't. */ - } else { - /* we don't bother dealing with sample rate changes, etc, but - you'll have to*/ - fwrite(pcmout,1,ret,stdout); - } - } - - /* cleanup */ - ov_clear(&vf); - - fprintf(stderr,"Done.\n"); - return(0); -} |