[ViewVC] Diff of: cvs/PDL-Audio/audio.pd

Comparing PDL-Audio/audio.pd (file contents):
Revision 1.3 by root, Tue Dec 28 01:39:43 2004 UTC vs.
Revision 1.5 by root, Tue Dec 28 02:02:59 2004 UTC

    $beta = 2.5 unless defined $beta;
    $size = $size->getdim(0) if ref $size;
    $size > 2 or barf "fft window size too small";
-   my $midn = $size >> 1;
+   my $midn  = $size >> 1;
    my $midm1 = ($size-1) >> 1;
    my $midp1 = ($size+1) >> 1;
-   my $dur = zeroes $size;
+   my $dur   = zeroes $size;
    my $sf    = ($size-1)/$size;
    %fft_window = (
       RECTANGULAR => sub {
          $dur->ones
       },
 sub spectrum {
    my ($data, $norm, $window,  $beta) = @_;
    my $len;
    if (defined $window) {
-      $window = gen_fft_window ($data->getdim(0), $window, $beta) unless ref $window;
+      $window = gen_fft_window ($data->getdim (0), $window, $beta) unless ref $window;
       $data = $data * $window;
-      $len = $window->getdim(0);
+      $len = $window->getdim (0);
    } else {
-      $len = $data->getdim(0);
+      $len = $data->getdim (0);
    }
-   $data = rfft ($data->slice("0:".($len-1))->sever)->slice(",0:".int($len/2))->Cr2p->slice("(0)");
+   $data = rfft (
+              $data->slice ("0:" . ($len - 1))
+                   ->sever
+           )
+           ->slice (",0:" . int ($len / 2))
+           ->PDL::Complex::Cr2p
+           ->slice ("(0)");
    if ($norm == 1 || lc $norm eq "norm") {
       $data / max $data;
    } elsif (($norm =~ /^[.0]+$/) || (lc $norm eq "db")) {
       log (1e-37 + $data / max $data) * (20 / log 10);
    } else {

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines