Changeset 31199

Timestamp:

03/14/09 20:59:14 (4 years ago)

Author:

bayashi

Message:

lil fix

Location:

lang/perl/Text-Chord-Piano/trunk

Files:

• Changes (modified) (1 diff)
• META.yml (modified) (2 diffs)
• lib/Text/Chord/Piano.pm (modified) (6 diffs)

lang/perl/Text-Chord-Piano/trunk/Changes

@@ -1 +1 @@
 Revision history for Text-Chord-Piano
+
+0.0.5  Sat Mar 14 20:20:20 2009
+       removed code. it was no need.
 
 0.0.4  Tue Mar 10 22:10:00 2009

lang/perl/Text-Chord-Piano/trunk/META.yml

@@ -1 +1 @@
 ---
 name: Text-Chord-Piano
-version: 0.0.4
+version: 0.0.5
 author:
   - 'Dai Okabayashi <bayashi@cpan.org>'
@@ -17 +17 @@
   Text::Chord::Piano:
     file: lib/Text/Chord/Piano.pm
-    version: 0.0.4
+    version: 0.0.5
 generated_by: Module::Build version 0.3
 meta-spec:

lang/perl/Text-Chord-Piano/trunk/lib/Text/Chord/Piano.pm

@@ -10 +10 @@
 __PACKAGE__->mk_accessors( qw(finger) );
 
-use version; our $VERSION = qv('0.0.4');
+use version; our $VERSION = qv('0.0.5');
 
 my $cn = Music::Chord::Note->new();
@@ -20 +20 @@
 
 my @white_keys = (
-#       C   C#  D   D#  E   F   F#  G   G#  A   A#  B
-         2,  4,  6,  8, 10, 14, 16, 18, 20, 22, 24, 26,
-        30, 32, 34, 36, 38, 42, 44, 46, 48, 50, 52, 54,
+#   C   C#  D   D#  E   F   F#  G   G#  A   A#  B
+     2,  4,  6,  8, 10, 14, 16, 18, 20, 22, 24, 26,
+    30, 32, 34, 36, 38, 42, 44, 46, 48, 50, 52, 54,
 );
 
@@ -44 +44 @@
 sub generate {
     my ($self, $chord_name, @keys) = @_;
-        my $keyboard = $self->_draw_keyboard;
+    my $keyboard = $self->_draw_keyboard;
     for my $key (0..23){
         my $play = 0;
@@ -51 +51 @@
         }
         if($play){
-                        my $y = $black_keys->{$key} || 5;
-                        $keyboard->[$y]->[$white_keys[$key]] = $self->finger;
+            my $y = $black_keys->{$key} || 5;
+            $keyboard->[$y]->[$white_keys[$key]] = $self->finger;
         }
     }
@@ -60 +60 @@
 sub put_keyboard {
     my $self     = shift;
-        my $keyboard = shift;
-        $keyboard = $self->_draw_keyboard if ref $keyboard ne 'ARRAY';
-        my $text;
-        for my $line (@{$keyboard}){
-                for my $char (@{$line}){
-                        $text .= $char;
-                }
-        }
-        return $text;
+    my $keyboard = shift;
+    $keyboard = $self->_draw_keyboard if ref $keyboard ne 'ARRAY';
+    my $text;
+    for my $line (@{$keyboard}){
+        for my $char (@{$line}){
+            $text .= $char;
+        }
+    }
+    return $text;
 }
 
@@ -83 +83 @@
     croak "undefined chord $chord_name" unless defined $tonic;
     my $scalic = $cn->scale($tonic);
-    croak "undefined kind of chord $chord_name ($kind)"
-        unless defined $cn->chord_num($kind);
     my @keys;
     for my $scale ( $cn->chord_num($kind) ){