読者です 読者をやめる 読者になる 読者になる

にぽたん研修所

ほほー、これがうわさのはてなブログかぁ

A Hard Days Night

ビートルズのハードデイズナイトのイントロのコードがついに分かった!(動画) : ギズモード・ジャパン

これは
ジョージの 12 弦ギター
f:id:nipotan:20111216160839p:plain
とジョンのギター
f:id:nipotan:20111216160830p:plain
を同時に鳴らすってことでしょ。


ポールマッカートニーは
[uke:D@0050]

あーら、ウクレレ記法使えないのか。
ポールのベースは
f:id:nipotan:20111216162107p:plain

こう。

#!/usr/bin/env perl

use strict;
use warnings;
use UNIVERSAL::require;

my @part = (
    {   
        member     => 'George Harrison',
        instrument => 'guitar',
        chord_name => 'Fadd9/G',
        fret       => '333213',
    },
    {   
        member     => 'John Lennon',
        instrument => 'guitar',
        chord_name => 'Dsus4',
        fret       => 'xx0233',
    },
    {   
        member     => 'Paul McCartney',
        instrument => 'ukulele', # XXX instead of bass
        chord_name => 'D',
        fret       => [qw(0 0 5 0)],
    },
);

for my $sound (@part) {
    my $file = '/path/to/' . $sound->{member} . '.png';
    $file =~ tr/ /_/;
    my $class = 'GD::Tab::' . ucfirst(lc($sound->{instrument}));
    $class->require;
    my $inst = $class->new;
    open my $png, '>', $file or die "$file: $!";
    print $png $inst->generate($sound->{chord_name}, $sound->{fret})->png;
    close $png;
}

ウクレレ記法使えたらいいのにね。
あとギター記法とか追加してくれたりいのにね。
あと、bayashi さんの GD::Chord::Piano 使って鍵盤記法とか出来るとだいぶ幸せ。

はてなはアレだからそういうの好きそうな気がした。
でもまぁ、livedoor Blog とかで対応してくれるんでもいいけどね。