そしたら、シンバル売場に銅鑼が無いw

ま、津田沼の楽器屋にある訳ないな。お茶の水まで逝けってこった。

右端のちっこいの。僕が求めている銅鑼と全然違う。もっとNiel Paeartのセットの後ろにドシンと控えてるチャイナシンバルくらいデカイのが欲しい。叩くと「ゴワァ〜〜〜ン〜」と鳴るやつ。写真のは叩いても「カシャン」とか言いやがるので銅鑼ではない。ただのカナモノ。これ買うくらいなら合羽橋で真鍮の鍋のフタ買えば充分だべ。

てなこと楽器屋であーだこーだやってたら中古で5500円のMega Distortionがあったので思わず買ってもうた。あれ、おかしいなぁ。僕、今日銅鑼買いに行った所用で幕張に行っただけのはずなのに。

ディストーション一個増えると面倒くせぇんだよなぁ。。配線増えるし。アタマの中で家中のケーブルの在庫をチェックして電源周りとシールドの本数数えたら、どう考えても足りない。しょうがないから電源とシールドとラインセレクターを確保。

ディストーション一個の単価よりもケーブルの方が全然高いじゃんね。バカだなぁ。

てなわけで銅鑼の予算は見事に使い切ってしまいました。
お年玉もらえるまで待って下さい。

package Plagger::Plugin::Filter::TrackEndTimeFromTitle;

use strict;
use base qw( Plagger::Plugin );
use Encode;
use HTML::Entities;
use Plagger::Event;

sub register {
    my($self, $context) = @_;
    $context->register_hook($self,
                            'update.entry.fixup' => \&filter,);
}

sub filter {
    my($self, $context, $args) = @_;
    my $e = $args->{entry};
    my ($title, $artist,$duration);
    my $starttime = $e -> date;
    my $event = $e -> event;

    $title = $e->title;
    $title = encode('UTF-8',$title);

    #Last.FM/audioscrobbler
    if($title =~ /(.*?)\s\342\200\223\s(.*?)\Z/){
        $artist = decode('UTF-8',$1);
        $title = decode('UTF-8',$2);
    }

    $duration = get_duration($self, $context, $artist, $title);

    unless($duration eq '') {
        my $event = Plagger::Event -> new;
        $event -> dtstart($e -> date);
        $event -> dtend($e -> date + DateTime::Duration->new(seconds => ($duration/1000)));
        $e -> add_event($event);
    }
}

sub get_duration {
    my ($self,$context,$artist, $title) = @_;
    my $url  = URI->new('http://ws.audioscrobbler.com/2.0/');
    my $file = $self->cache->path_to('track.getInfo_result.html');

    $artist = encode('UTF-8', $artist) unless $context->conf->{no_decode_utf8};
    $title = encode('UTF-8', $title) unless $context->conf->{no_decode_utf8};
    $context->log( info => 'Getting song duration from ' . $artist . " / " . $title );

    my $ua = Plagger::UserAgent->new;
    $url->query_form(method => 'track.getinfo',
                     artist => $artist,
                     track => $title,
                     api_key => $self->conf->{api_key} || 'b25b959554ed76058ac220b7b2e0a026',);

    my $res = $ua->mirror( $url->as_string => $file );
    if($res->is_error) {
        $context->log( error => $res->status );
        return;
    }

    open my $fh, "<:encoding(utf-8)", $file
        or return $context->log(error => "$file: $!");

    my $duration;
    while (<$fh>) {
        if(m!(.*?)!){
            $duration = $1;
            $context->log(info => "duration: $duration");
            last;
        }
    }
    return $duration;
}

plugins:
  - module: Subscription::Config
    config:
      feed:
        - url: http://ws.audioscrobbler.com/1.0/user/yoozoosato/recenttracks.rss

  - module: Filter::Rule
    rule:
      module: Fresh
      mtime:
        path: ./lastfm.tmp
        autoupdate: 1

  - module: Filter::TrackEndTimeFromTitle
    config:
      api_key: YOUR_API_KEY

ひかりの玉（僕は勝手に「たましいくん」と命名した）がギターの音に合わせて動いているの分かります？

普通にprocessingで同じようなことができるんでしょーけど、ruby-processing使えばサクッと動くもんが実装できるので、本来の目的である「表現」に注力できるのが最大の魅力？なのかな？ processingをちゃんと使った事ないので良くわかりません。すいません。

「いやいや、それpro(以下ry」というご指摘がありましたらコメントやメールでいただけると嬉しいです。

MacBookとアンプがケーブルで繋がってるとか特殊な装置かましているとかは無いです。
内蔵マイクでギターアンプの音を拾ってるだけ。ただしそのマイクが音楽用マイクではないので性能があまりよろしくなく、ギターの音を爆音にしないと反応しやがらないのでアンプのすぐ横に置きました。

実行コードも http://ashkenas.com/codework/a_face_for_stephen_hawking.html にあるやつをほぼそのまま。なんか編集してた気はするけど、色々弄ってたので全然覚えてない。てか、ギター弾きながらコード書くなんて今までやったことなかったから脳内キャッシュにそんな情報をいちいち保持してないw（こういうことができるのがLLのいいところ。コンパイル？何それ？）

ただし、ustでmuraveさんに教えてもらった
「drawメソッドの先頭あたりに background 0.05 とか追加」
は直さないと上記の動画のようには動かないです。

<br /> def draw<br /> background 0.05<br /> configure_gl<br />

ギター、ベース、ドラムにそれぞれ違った図形や色の動きをコーディングしておき、ライブ演奏時にステージ後ろのモニタで合成して出力とかすると面白いかも。
# このネタは日曜に行ったDesignFestaで音楽やってた人達見て思いついた

そんな週末。

月曜からは当面の間perlを書く人に戻ります。

last.fmのAPIにtrac.getInfoというのがあるので、そこにリクエストを投げるとこんな感じのレスポンスが返ってくる。

実験的にアーティスト名the police、楽曲名every breath you takeでリクエスト投げるとこんな。

楽曲の時間はdurationにミリ秒単位で格納されているので、これを取り出せばOKっすね。
今回必要なのはこのdurationだけなんだけど、色々とおもしろい情報が返ってくるので発想が膨らんでしまうなぁ。。画像とかamazonだし。

impelliteriのsince you've been gone。
さすがにthe policeほど知名度がないせいか、tagも少ないし、wikiコンテンツも持ってないみたい。

どーでもいいけどstand in lineは激しく名盤なので今すぐ全力で買ってください。

■関連エントリ
last.fmの「最近聴いた楽曲」のRSSフィード

楽曲の「再生開始時刻」はpubDateから取得できるから、
・楽曲情報をどっかから持ってきて
・再生開始時刻 + 楽曲の長さ　で
・「再生終了時刻」が求められる
はず

もうちょっと楽ちんに、一発で「再生開始時刻」と「再生終了時刻」を出せないかなぁ。。

Processingは、もともとJavaで開発された製品なんですが、JRubyを活かし、Rubyから利用できるようにしたのがRuby- processingです。

RubyらしさとJavaの良さ。そんなものを活かした技術。この機会を利用して、ソフトウェアの可能性を、もう一度考え直してみよう。

何故か(w)僕も裏方として色々とお手伝いしているので、お時間のあるかたは是非ご参加ください。
ustream.tvでも勉強会の模様を配信する予定です。

詳細はコチラから。

ustream.tvのURLはコチラです。（当日10:00頃より配信開始予定）
http://www.ustream.tv/channel/rubybizcommons

いつまで経ってもこの画面から先に行かない。
困った。

サポートwikiに書いてある通りに作業しただけなのになぁ。。

# やっぱtracにしちゃおうかなぁ。。

【15:40ごろ追記】
一回全部無かった事にして、サブドメインを追加する所からもう一度やり直してみたら動いた。

原因は単純で、DreamHost + fast_cgiでRailsアプリを動かす時と同じ理屈でCGI実行ユーザーを別ユーザーにしてしまったため。すげーケアレスミス。

あながあったらはいりたい。

Aにこじつけられれば次回のLTで何か喋るかもしれない。

まずはHCV検査の結果。

「検出せず」のままで一安心。（写真中、赤ボールペンで囲まれている部分）

肝機能のAST、ALT、γGTPも正常値に戻った。

とは言ってもこの辺の項目は自覚症状ないから、数字で言われても「あー、そうですか」みたいな感じ。気分的には嬉しいけど。

逆に身体で痛感できる血球値の方は全然変っていなかったりして、ちょっと凹んだ。

相変わらずヘモグロビン濃度とか10台。道理で階段の昇り降りがまだツライわけだよな。レッドゾーン振り切ってた時は歩くのがやっとだったからあの時に比べたら遥かにマシだけど、相変わらずの貧血状態は未だしんどい。
でも白血球が正常値に戻っているので、風邪とかインフルエンザにも人並みの抵抗力が戻っているはず。ちゃんと予防するのに超した事はないけど。

その「焦るな」っていうのが一番難しいんですけどね（w

減らし方は以下のような順序。

■精神安定剤（デパス、ソラナックス）
　止めていいよ、と言われたので即座に止めた。

■睡眠剤（アモバン、マイスリー10mg、ハルシオン）
　3種類 → 2種類 → 1種類 という感じで徐々に服用量を減らす
　使わずに眠れるようなら使わない
　昼寝はしない（これ重要）

■抗鬱剤（パキシル）
　睡眠剤を1種類まで減らして1〜2週間様子を見て、眠りが順調であれば1日3錠服用しているパキシルを2錠に減らす
　2錠でしばらく様子を見て、再度医師と相談

インターフェロンの副作用は薄れてきても、今度はパキシルの副作用がうざい。さっさと止めたいんだが、そうは問屋が卸してくれない。なげー。

病院であれこれ言われた内容はまぁこんな感じ。

あとどーでもいいけど1年以上マトモに身体を動かしていなかったので脚が激痩せした。探してみたら4年位前にウェットスーツを作った時の数字が残ってたんだけど、太腿で4cm、脛で2.5cmほど細くなってる。

今これ着て潜ったらブカブカすぎて保温力無いからきっともの凄く寒いと思う。

スノボのブーツも試しに履いてみたけどやっぱり緩い。

さぁ、どうしよう。。

http://wiki.somethingnew2.com/lt/index.php?Events%2F2008%2F11

■日時
　11/20（木）19:15開場、19:30開始
　懇親会（飲み会）は21:00頃開始予定

■場所
　 タワーホール船堀
　都営新宿線の船堀駅から徒歩1分です

■Vol.11のテーマ
　Aから始まるテーマ

話したい人、聴きたい人とも11/6（木）から募集開始します。
定員20名くらいかな。

詳細は上記リンクからご確認下さい。ご質問などはこちらのフォームでもこのエントリのコメント欄でも構いません。

ということでどうぞよろしくお願いいたします。

・外出先でE-Mobile使ってインターネット接続
・サーバーに接続して作業
　作業内容は障害対応だったり、障害対応だったり、障害対応だったり・・・
　（ウソです。最近はあんまり障害対応はしてません。放置するのでｗ）

という状況で電池がどのくらい持つのかをテストしてみようと思います。
自宅でフル充電 & Windows起動してサスペンド状態にしたX200を持ってきて、9:30すぎにパカっと開いてみました。

保護プログラムにすると、こんな変更が適応されるらしい。バッテリー残量がプラス４分。微妙だなぁ。。

ということで、残り時間あと5分。
標準バッテリーでE-Mobile通信しっぱなしだと1時間持たない感じですねぇ。。

試してみよう。

バッテリーの持ち時間が気になったので実際にテストしてみました。

えい、っと本日15:00くらいに電源ケーブルをぶっこ抜いて、

残量不足の警告音がなったのでさっきアダプターを刺した。

だいたい1時間40分くらい?
この時間にやっていた作業はテキストエディタでJavaScriptをイジりながら分からないことがあったらネットで調べたり、Google Readerでニュース見たりと。ごくごく普通の開発作業。
ネットワークは普通にLAN接続で、無線とかE-Mobileとか電波を使う機器でネットにつなぐともうちょっと持たないかもしれない。今度試してみる。

2時間程度のテクニカルセッションはよくあるイベントなので、外出時に標準バッテリーだけだときついですね。

試してみよう。

とにかく日本で普通に売っているノートPCの最大のネックはキーボード配列。
JIS配列嫌い。
で、Windows上で101キーにすると元に戻すの面倒くさい & さらにVistaではやったことないので元に戻せる自信がない。

だからUbuntuで。

これまた結構簡単で、Systemメニューの「設定」に「キーボード」というメニューがあって、

開くとこんな感じ。

普通にインストールされた直後だとJISになっているはずなので、レイアウトはこんな。

USA配列だとこう。括弧の位置とか@の位置がこうじゃないとプログラム書きたくないです。

あとはUSAをデフォルトにして、

Ctrlキーは「A」の左横。

これでちょっとはマトモになったかなぁ。。
デスクで作業している時は気にならなかったけど、膝の上に置いてみるとホームポジションが微妙に身体の中心から左に指一本分ずれているのが気になる（なんか、常時右脇を閉めてないといけない感じ）けど、なれればどうってことない範囲だと思われ。

lispと言えばEmacs lispくらいしか知らない & そのEmacs lispも基本的には使ってるだけで自分では書いた事ないレベルの僕には濃すぎて、トークの内容には全然付いて行けなかったっすw
すいません。

でもありとあらゆる点で勉強になった。

今年はlisp誕生50周年らしいけど、おばあちゃんの知恵袋的な発想があちこちに転がっていて眼からウロコが何枚おちたか判らん。貴重な機会を与えてくれてどうもありがとうございました。 > スタッフの皆様
Ustream.tvで中継されていた & 録画されていたはず、なので明日もう一回気になる部分はおさらいしてみよう。

ダイナミックな発想を持つには色んな人が持っている引き出しの中身を見せてもらうのが一番早いし、勉強会ってのはその手段として最速かつ最も合理的な手段だなぁとあらためて再認識。

僕がlispをもっと深く勉強することは多分ないと思う。

やっぱ古いもんは古いし、僕の身体は一個しかない。
Rubyとかを「使う」だけでもうおなかいっぱいなところに、系統が全く違う言語をもう一個なんて物理的にどーかんがえても無茶だし。

ダメとは言わない。学ぶべきものは沢山あるから、lisp的な発想をどうやって近代的な言語の次世代バージョン上で実装するかを考える妄想するほうが幸せになれそうかな。

TODOの内容を変更できないってのもいかがなものかと・・・。