Show
Ignore:
Timestamp:
03/14/09 20:42:15 (3 years ago)
Author:
bayashi
Message:

lil fixed

Location:
lang/perl/GD-Chord-Piano/trunk
Files:
4 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/GD-Chord-Piano/trunk/Changes

    r31036 r31198  
    11Revision history for GD-Chord-Piano 
     2 
     30.0.7  Sat Mar 14 20:20:20 2009 
     4       lil fix. 
    25 
    360.0.6  Tue Mar 10 21:00:00 2009 

  • lang/perl/GD-Chord-Piano/trunk/META.yml

    r31036 r31198  
    11--- 
    22name: GD-Chord-Piano 
    3 version: 0.0.6 
     3version: 0.0.7 
    44author: 
    55  - 'Dai Okabayashi <bayashi@cpan.org>' 
    … …  
    1818  GD::Chord::Piano: 
    1919    file: lib/GD/Chord/Piano.pm 
    20     version: 0.0.6 
     20    version: 0.0.7 
    2121generated_by: Module::Build version 0.3 
    2222meta-spec: 

  • lang/perl/GD-Chord-Piano/trunk/lib/GD/Chord/Piano.pm

    r31036 r31198  
    1313); 
    1414 
    15 use version; our $VERSION = qv('0.0.6'); 
     15use version; our $VERSION = qv('0.0.7'); 
    1616 
    1717my $cn = Music::Chord::Note->new(); 
    … …  
    5454        } 
    5555        if($play){ 
    56             my ($color, $y); 
    57             $y = $black_keys->{$key} || 0; 
     56            my $y = $black_keys->{$key} || 0; 
    5857            $im->filledRectangle(@{[$x, 24-$y*12, $x+3, 27-$y*12]}, $pcolor); 
    5958        } 
    60         if($black_keys->{$key} and !$black_keys->{$key+1}){ 
    61             $x += 4; 
    62         }elsif(!$black_keys->{$key} and $black_keys->{$key+1}){ 
    63             $x += 5; 
    64         }else{ 
    65             $x += 9; 
     59        $x += 9; 
     60        if($black_keys->{$key}){ 
     61            $x -= 5 unless $black_keys->{ $key + 1 }; 
     62        }elsif($black_keys->{ $key + 1 }){ 
     63            $x -= 4; 
    6664        } 
    6765    } 
    … …  
    8280    croak "undefined chord $chord_name" unless defined $tonic; 
    8381    my $scalic = $cn->scale($tonic); 
    84     croak "undefined kind of chord $chord_name ($kind)" 
    85         unless defined $cn->chord_num($kind); 
    8682    my @keys; 
    8783    for my $scale ( $cn->chord_num($kind) ){ 

  • lang/perl/GD-Chord-Piano/trunk/t/01.jamin.t

    r26566 r31198  
    1818    $im->generate('C', (0,4,7))->png, 
    1919    $im->chord('C')->png, 
    20     "C" 
     20    "generate C" 
    2121); 
     22 
    2223is( 
    2324    $im->generate('Cm', (0,3,7))->png, 
    … …  
    6364); 
    6465 
    65  
    6666is( 
    6767    $im->generate('B7(9,13)', (11,15,18,21,13,20))->png,