gosu 0.7.16 → 0.7.17

data/dependencies/libvorbis/vq/make_floor_books.pl

@@ -1,108 +0,0 @@
-#!/usr/bin/perl
-
-# quick, very dirty little script so that we can put all the
-# information for building a floor book set in one spec file.
-
-#eg:
-
-# >floor_44
-# =44c0_s 44c1_s 44c2_s
-# build line_128x4_class0 0-256
-# build line_128x4_0sub0  0-4
-
-die "Could not open $ARGV[0]: $!" unless open (F,$ARGV[0]);
-
-$goflag=0;
-while($line=<F>){
-
-    print "#### $line";
-    if($line=~m/^GO/){
-	$goflag=1;
-	next;
-    }
-
-    if($goflag==0){
-	if($line=~m/\S+/ && !($line=~m/^\#/) ){
-	    my $command=$line;
-	    print ">>> $command";
-	    die "Couldn't shell command.\n\tcommand:$command\n" 
-		if syst($command);
-	}
-	next;
-    }
-
-    # >floor_44
-    # this sets the output bookset file name
-    if($line=~m/^>(\S+)\s+(\S*)/){
-	# set the output name
-	$globalname=$1;
-	
-	$command="rm -f $globalname.vqh";
-	die "Couldn't remove file.\n\tcommand:$command\n" 
-	    if syst($command);
-
-	next;
-    }
-
-    #=path1 path2 path3 
-    #set the search path for input files; each build line will look
-    #for input files in all of the directories in the search path and
-    #append them for huffbuild input
-    if($line=~m/^=(.*)/){
-	# set the output name
-	@paths=split(' ',$1);
-	next;
-    }
-
-    # build book.vqd 0-3 [noguard]
-    if($line=~m/^build (.*)/){
-	# build a huffman book (no mapping) 
-	my($datafile,$range,$guard)=split(' ',$1);
- 
-	$command="rm -f $datafile.tmp";
-	print "\n\n>>> $command\n";
-	die "Couldn't remove temp file.\n\tcommand:$command\n" 
-	    if syst($command);
-
-	# first find all the inputs we want; they'll need to be collected into a single input file
-	foreach $dir (@paths){
-	    if (-e "$dir/$datafile.vqd"){
-		$command="cat $dir/$datafile.vqd >> $datafile.tmp";
-		print ">>> $command\n";
-		die "Couldn't append training data.\n\tcommand:$command\n" 
-		    if syst($command);
-	    }
-	}
-	
-	my $command="huffbuild $datafile.tmp $range $guard";
-	print ">>> $command\n";
-	die "Couldn't build huffbook.\n\tcommand:$command\n" 
-	    if syst($command);
-
-	$command="cat $datafile.vqh >> $globalname.vqh";
-	print ">>> $command\n";
-	die "Couldn't append to output book.\n\tcommand:$command\n" 
-	    if syst($command);
-
-	$command="rm $datafile.vqh";
-	print ">>> $command\n";
-	die "Couldn't remove temporary output file.\n\tcommand:$command\n" 
-	    if syst($command);
-
-	$command="rm -f $datafile.tmp";
-	print ">>> $command\n";
-	die "Couldn't remove temporary output file.\n\tcommand:$command\n" 
-	    if syst($command);
-	next;
-    }
-
-}
-
-$command="rm -f temp$$.vqd";
-print ">>> $command\n";
-die "Couldn't remove temp files.\n\tcommand:$command\n" 
-    if syst($command);
-
-sub syst{
-    system(@_)/256;
-}

data/dependencies/libvorbis/vq/make_residue_books.pl

@@ -1,187 +0,0 @@
-#!/usr/bin/perl
-
-# quick, very dirty little script so that we can put all the
-# information for building a residue book set (except the original
-# partitioning) in one spec file.
-
-#eg:
-
-# >res0_128_128 interleaved
-# haux 44c0_s/resaux_0.vqd res0_96_128aux 0,4,2 9
-# :1 res0_128_128_1.vqd, 4, nonseq cull, 0 +- 1
-# :2 res0_128_128_2.vqd, 4, nonseq, 0 +- 1(.7) 2
-# :3 res0_128_128_3.vqd, 4, nonseq, 0 +- 1(.7) 3 5
-# :4 res0_128_128_4.vqd, 2, nonseq, 0 +- 1(.7) 3 5 8 11
-# :5 res0_128_128_5.vqd, 1, nonseq, 0 +- 1 3 5 8 11 14 17 20 24 28 31 35 39 
-
-
-die "Could not open $ARGV[0]: $!" unless open (F,$ARGV[0]);
-
-$goflag=0;
-while($line=<F>){
-
-    print "#### $line";
-    if($line=~m/^GO/){
-	$goflag=1;
-	next;
-    }
-
-    if($goflag==0){
-	if($line=~m/\S+/ && !($line=~m/^\#/) ){
-	    my $command=$line;
-	    print ">>> $command";
-	    die "Couldn't shell command.\n\tcommand:$command\n" 
-		if syst($command);
-	}
-	next;
-    }
-
-    # >res0_128_128
-    if($line=~m/^>(\S+)\s+(\S*)/){
-	# set the output name
-	$globalname=$1;
-	$interleave=$2;
-	next;
-    }
-
-    # haux 44c0_s/resaux_0.vqd res0_96_128aux 0,4,2 9
-    if($line=~m/^h(.*)/){
-	# build a huffman book (no mapping) 
-	my($name,$datafile,$bookname,$interval,$range)=split(' ',$1);
- 
-	# check the desired subdir to see if the data file exists
-	if(-e $datafile){
-	    my $command="cp $datafile $bookname.tmp";
-	    print ">>> $command\n";
-	    die "Couldn't access partition data file.\n\tcommand:$command\n" 
-		if syst($command);
-
-	    my $command="huffbuild $bookname.tmp $interval";
-	    print ">>> $command\n";
-	    die "Couldn't build huffbook.\n\tcommand:$command\n" 
-		if syst($command);
-
-	    my $command="rm $bookname.tmp";
-	    print ">>> $command\n";
-	    die "Couldn't remove temporary file.\n\tcommand:$command\n" 
-		if syst($command);
-	}else{
-	    my $command="huffbuild $bookname.tmp 0-$range";
-	    print ">>> $command\n";
-	    die "Couldn't build huffbook.\n\tcommand:$command\n" 
-		if syst($command);
-
-	}
-	next;
-    }
-
-    # :1 res0_128_128_1.vqd, 4, nonseq, 0 +- 1
-    if($line=~m/^:(.*)/){
-	my($namedata,$dim,$seqp,$vals)=split(',',$1);
-	my($name,$datafile)=split(' ',$namedata);
-	# build value list
-	my$plusminus="+";
-	my$list;
-	my$thlist;
-	my$count=0;
-	foreach my$val (split(' ',$vals)){
-	    if($val=~/\-?\+?\d+/){
-		my$th;
-
-		# got an explicit threshhint?
-		if($val=~/([0-9\.]+)\(([^\)]+)/){
-		    $val=$1;
-		    $th=$2;
-		}
-
-		if($plusminus=~/-/){
-		    $list.="-$val ";
-		    if(defined($th)){
-			$thlist.="," if(defined($thlist));
-			$thlist.="-$th";
-		    }
-		    $count++;
-		}
-		if($plusminus=~/\+/){
-		    $list.="$val ";
-		    if(defined($th)){
-			$thlist.="," if(defined($thlist));
-			$thlist.="$th";
-		    }
-		    $count++;
-		}
-	    }else{
-		$plusminus=$val;
-	    }
-	}
-	die "Couldn't open temp file temp$$.vql: $!" unless
-	    open(G,">temp$$.vql");
-	print G "$count $dim 0 ";
-	if($seqp=~/non/){
-	    print G "0\n$list\n";
-	}else{	
-	    print G "1\n$list\n";
-	}
-	close(G);
-
-	my $command="latticebuild temp$$.vql > $globalname$name.vqh";
-	print ">>> $command\n";
-	die "Couldn't build latticebook.\n\tcommand:$command\n" 
-	    if syst($command);
-
-	my $command="latticehint $globalname$name.vqh $thlist > temp$$.vqh";
-	print ">>> $command\n";
-	die "Couldn't pre-hint latticebook.\n\tcommand:$command\n" 
-	    if syst($command);
-
-	if(-e $datafile){
-	
-	    if($interleave=~/non/){
-		$restune="res1tune";
-	    }else{
-		$restune="res0tune";
-	    }
-	    
-	    if($seqp=~/cull/){
-		my $command="$restune temp$$.vqh $datafile 1 > $globalname$name.vqh";
-		print ">>> $command\n";
-		die "Couldn't tune latticebook.\n\tcommand:$command\n" 
-		    if syst($command);
-	    }else{
-		my $command="$restune temp$$.vqh $datafile > $globalname$name.vqh";
-		print ">>> $command\n";
-		die "Couldn't tune latticebook.\n\tcommand:$command\n" 
-		    if syst($command);
-	    }
-
-	    my $command="latticehint $globalname$name.vqh $thlist > temp$$.vqh";
-	    print ">>> $command\n";
-	    die "Couldn't post-hint latticebook.\n\tcommand:$command\n" 
-		if syst($command);
-
-	}else{
-	    print "No matching training file; leaving this codebook untrained.\n";
-	}
-
-	my $command="mv temp$$.vqh $globalname$name.vqh";
-	print ">>> $command\n";
-	die "Couldn't rename latticebook.\n\tcommand:$command\n" 
-	    if syst($command);
-
-	my $command="rm temp$$.vql";
-	print ">>> $command\n";
-	die "Couldn't remove temp files.\n\tcommand:$command\n" 
-	    if syst($command);
-
-	next;
-    }
-}
-
-$command="rm -f temp$$.vqd";
-print ">>> $command\n";
-die "Couldn't remove temp files.\n\tcommand:$command\n" 
-    if syst($command);
-
-sub syst{
-    system(@_)/256;
-}

data/dependencies/libvorbis/vq/metrics.c

@@ -1,295 +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-2001             *
- * by the Xiph.Org Foundation http://www.xiph.org/                  *
- *                                                                  *
- ********************************************************************
-
- function: function calls to collect codebook metrics
- last mod: $Id: metrics.c 13293 2007-07-24 00:09:47Z xiphmont $
-
- ********************************************************************/
-
-
-#include <stdlib.h>
-#include <unistd.h>
-#include <math.h>
-#include "bookutil.h"
-
-/* collect the following metrics:
-
-   mean and mean squared amplitude
-   mean and mean squared error 
-   mean and mean squared error (per sample) by entry
-   worst case fit by entry
-   entry cell size
-   hits by entry
-   total bits
-   total samples
-   (average bits per sample)*/
-   
-
-/* set up metrics */
-
-float meanamplitude_acc=0.f;
-float meanamplitudesq_acc=0.f;
-float meanerror_acc=0.f;
-float meanerrorsq_acc=0.f;
-
-float **histogram=NULL;
-float **histogram_error=NULL;
-float **histogram_errorsq=NULL;
-float **histogram_hi=NULL;
-float **histogram_lo=NULL;
-float bits=0.f;
-float count=0.f;
-
-static float *_now(codebook *c, int i){
-  return c->valuelist+i*c->c->dim;
-}
-
-int books=0;
-
-void process_preprocess(codebook **bs,char *basename){
-  int i;
-  while(bs[books])books++;
-  
-  if(books){
-    histogram=_ogg_calloc(books,sizeof(float *));
-    histogram_error=_ogg_calloc(books,sizeof(float *));
-    histogram_errorsq=_ogg_calloc(books,sizeof(float *));
-    histogram_hi=_ogg_calloc(books,sizeof(float *));
-    histogram_lo=_ogg_calloc(books,sizeof(float *));
-  }else{
-    fprintf(stderr,"Specify at least one codebook\n");
-    exit(1);
-  }
-
-  for(i=0;i<books;i++){
-    codebook *b=bs[i];
-    histogram[i]=_ogg_calloc(b->entries,sizeof(float));
-    histogram_error[i]=_ogg_calloc(b->entries*b->dim,sizeof(float));
-    histogram_errorsq[i]=_ogg_calloc(b->entries*b->dim,sizeof(float));
-    histogram_hi[i]=_ogg_calloc(b->entries*b->dim,sizeof(float));
-    histogram_lo[i]=_ogg_calloc(b->entries*b->dim,sizeof(float));
-  }
-}
-
-static float _dist(int el,float *a, float *b){
-  int i;
-  float acc=0.f;
-  for(i=0;i<el;i++){
-    float val=(a[i]-b[i]);
-    acc+=val*val;
-  }
-  return acc;
-}
-
-void cell_spacing(codebook *c){
-  int j,k;
-  float min=-1.f,max=-1.f,mean=0.f,meansq=0.f;
-  long total=0;
-
-  /* minimum, maximum, mean, ms cell spacing */
-  for(j=0;j<c->c->entries;j++){
-    if(c->c->lengthlist[j]>0){
-      float localmin=-1.;
-      for(k=0;k<c->c->entries;k++){
-	if(c->c->lengthlist[k]>0){
-	  float this=_dist(c->c->dim,_now(c,j),_now(c,k));
-	  if(j!=k &&
-	     (localmin==-1 || this<localmin))
-	    localmin=this;
-	}
-      }
-      
-      if(min==-1 || localmin<min)min=localmin;
-      if(max==-1 || localmin>max)max=localmin;
-      mean+=sqrt(localmin);
-      meansq+=localmin;
-      total++;
-    }
-  }
-  
-  fprintf(stderr,"\tminimum cell spacing (closest side): %g\n",sqrt(min));
-  fprintf(stderr,"\tmaximum cell spacing (closest side): %g\n",sqrt(max));
-  fprintf(stderr,"\tmean closest side spacing: %g\n",mean/total);
-  fprintf(stderr,"\tmean sq closest side spacing: %g\n",sqrt(meansq/total));
-}
-
-void process_postprocess(codebook **bs,char *basename){
-  int i,k,book;
-  char *buffer=alloca(strlen(basename)+80);
-
-  fprintf(stderr,"Done.  Processed %ld data points:\n\n",
-	  (long)count);
-
-  fprintf(stderr,"Global statistics:******************\n\n");
-
-  fprintf(stderr,"\ttotal samples: %ld\n",(long)count);
-  fprintf(stderr,"\ttotal bits required to code: %ld\n",(long)bits);
-  fprintf(stderr,"\taverage bits per sample: %g\n\n",bits/count);
-
-  fprintf(stderr,"\tmean sample amplitude: %g\n",
-	  meanamplitude_acc/count);
-  fprintf(stderr,"\tmean squared sample amplitude: %g\n\n",
-	  sqrt(meanamplitudesq_acc/count));
-
-  fprintf(stderr,"\tmean code error: %g\n",
-	  meanerror_acc/count);
-  fprintf(stderr,"\tmean squared code error: %g\n\n",
-	  sqrt(meanerrorsq_acc/count));
-
-  for(book=0;book<books;book++){
-    FILE *out;
-    codebook *b=bs[book];
-    int n=b->c->entries;
-    int dim=b->c->dim;
-
-    fprintf(stderr,"Book %d statistics:------------------\n",book);
-
-    cell_spacing(b);
-
-    sprintf(buffer,"%s-%d-mse.m",basename,book);
-    out=fopen(buffer,"w");
-    if(!out){
-      fprintf(stderr,"Could not open file %s for writing\n",buffer);
-      exit(1);
-    }
-    
-    for(i=0;i<n;i++){
-      for(k=0;k<dim;k++){
-	fprintf(out,"%d, %g, %g\n",
-		i*dim+k,(b->valuelist+i*dim)[k],
-		sqrt((histogram_errorsq[book]+i*dim)[k]/histogram[book][i]));
-      }
-    }
-    fclose(out);
-      
-    sprintf(buffer,"%s-%d-me.m",basename,book);
-    out=fopen(buffer,"w");
-    if(!out){
-      fprintf(stderr,"Could not open file %s for writing\n",buffer);
-      exit(1);
-    }
-    
-    for(i=0;i<n;i++){
-      for(k=0;k<dim;k++){
-	fprintf(out,"%d, %g, %g\n",
-		i*dim+k,(b->valuelist+i*dim)[k],
-		(histogram_error[book]+i*dim)[k]/histogram[book][i]);
-      }
-    }
-    fclose(out);
-
-    sprintf(buffer,"%s-%d-worst.m",basename,book);
-    out=fopen(buffer,"w");
-    if(!out){
-      fprintf(stderr,"Could not open file %s for writing\n",buffer);
-      exit(1);
-    }
-    
-    for(i=0;i<n;i++){
-      for(k=0;k<dim;k++){
-	fprintf(out,"%d, %g, %g, %g\n",
-		i*dim+k,(b->valuelist+i*dim)[k],
-		(b->valuelist+i*dim)[k]+(histogram_lo[book]+i*dim)[k],
-		(b->valuelist+i*dim)[k]+(histogram_hi[book]+i*dim)[k]);
-      }
-    }
-    fclose(out);
-  }
-}
-
-float process_one(codebook *b,int book,float *a,int dim,int step,int addmul,
-		   float base){
-  int j,entry;
-  float amplitude=0.f;
-
-  if(book==0){
-    float last=base;
-    for(j=0;j<dim;j++){
-      amplitude=a[j*step]-(b->c->q_sequencep?last:0);
-      meanamplitude_acc+=fabs(amplitude);
-      meanamplitudesq_acc+=amplitude*amplitude;
-      count++;
-      last=a[j*step];
-    }
-  }
-
-  if(b->c->q_sequencep){
-    float temp;
-    for(j=0;j<dim;j++){
-      temp=a[j*step];
-      a[j*step]-=base;
-    }
-    base=temp;
-  }
-
-  entry=vorbis_book_besterror(b,a,step,addmul);
-
-  if(entry==-1){
-    fprintf(stderr,"Internal error: _best returned -1.\n");
-    exit(1);
-  }
-  
-  histogram[book][entry]++;  
-  bits+=vorbis_book_codelen(b,entry);
-	  
-  for(j=0;j<dim;j++){
-    float error=a[j*step];
-
-    if(book==books-1){
-      meanerror_acc+=fabs(error);
-      meanerrorsq_acc+=error*error;
-    }
-    histogram_errorsq[book][entry*dim+j]+=error*error;
-    histogram_error[book][entry*dim+j]+=fabs(error);
-    if(histogram[book][entry]==0 || histogram_hi[book][entry*dim+j]<error)
-      histogram_hi[book][entry*dim+j]=error;
-    if(histogram[book][entry]==0 || histogram_lo[book][entry*dim+j]>error)
-      histogram_lo[book][entry*dim+j]=error;
-  }
-  return base;
-}
-
-
-void process_vector(codebook **bs,int *addmul,int inter,float *a,int n){
-  int bi;
-  int i;
-
-  for(bi=0;bi<books;bi++){
-    codebook *b=bs[bi];
-    int dim=b->dim;
-    float base=0.f;
-
-    if(inter){
-      for(i=0;i<n/dim;i++)
-	base=process_one(b,bi,a+i,dim,n/dim,addmul[bi],base);
-    }else{
-      for(i=0;i<=n-dim;i+=dim)
-	base=process_one(b,bi,a+i,dim,1,addmul[bi],base);
-    }
-  }
-  
-  if((long)(count)%100)spinnit("working.... samples: ",count);
-}
-
-void process_usage(void){
-  fprintf(stderr,
-	  "usage: vqmetrics [-i] +|*<codebook>.vqh [ +|*<codebook.vqh> ]... \n"
-	  "                 datafile.vqd [datafile.vqd]...\n\n"
-	  "       data can be taken on stdin.  -i indicates interleaved coding.\n"
-	  "       Output goes to output files:\n"
-	  "       basename-me.m:       gnuplot: mean error by entry value\n"
-	  "       basename-mse.m:      gnuplot: mean square error by entry value\n"
-	  "       basename-worst.m:    gnuplot: worst error by entry value\n"
-	  "       basename-distance.m: gnuplot file showing distance probability\n"
-	  "\n");
-
-}