+++ /dev/null
-#!/usr/bin/perl
-
-$nmax= 126;
-
-#$max= 117;
-#$max= 50;
-$max= 108.9;
-
-@steps= 67..94;
-
-$doublings= 0;
-$vmin= 40;
-$vmax= 255;
-
-for ($i=0; $i<@steps; $i++) {
- push @vals, $i + @steps * (exp($i/@steps * log(2) * $doublings) - 1.0);
-}
-$maxval= $vals[$#val];
-grep { $_ *= ($vmax-$vmin)/$maxval * $max/$nmax; $_ += $vmin; } @vals;
-
-printf "# autogenerated!\n" or die $!;
-while (<DATA>) { print or die $!; }
-
-for ($i=0; $i<@steps; $i++) {
- printf "%d %d\n", $steps[$i], $vals[$i]
- or die $!;
-}
-
-__END__
-addr 1
-#2 1
-29 0x16
-51 0x07
-57 0x06
-
-# speed curve: