palm - music

■diary > 過去の日記

2004年10月28日

行ってきました。

アジアのスーパー・ガラ・コンサート２００４　～かよいあう心～

10/2に書いた、文化庁主催の演奏会です。

ジョン・健・ヌッツォ氏、体調不良でキャンセル！

という残念なアクシデントもあったりして、全体としては、（予想通り？）ちょっとどうかと思う演奏会ではあったのですが……、

ともかく、「新選組！」の音楽を、フルオーケストラ、作曲の服部隆之さんの指揮で聞くことができきました。

（撮影は10月でクランクアップしているけれど、音入れの最終は11月だとか。）

嬉しかったのは、メインテーマだけでなく、この日のためのスペシャルアレンジの劇中音楽メドレーだったこと。

最初は、ドラマのオープニング、「誠」の旗のところの曲（「♪ドコドンドンドン、チャラララ～♪」）。

以下、泣かせるシーンのヴァイオリンソロ、八木家から引っ越しする時などに出てくるなごみ系の曲、池田屋事件のチャンバラ・シーンの鐘がカンカン鳴る音楽……等々、盛りだくさんで、楽しませていただきました。

そうこうするうちに、30日には、映画版「笑いの大学」、一般公開ですね。

公式サイトのプロデューサーさんの製作日記が、かなり面白いです。

舞台版（私はテレビ中継のビデオを知人から借りて見ました）を知らない＝ストーリーをご存じでない人は、ネタバレというか、話の流れが想像できてしまうので、映画を見てから読むほうが、良いかとは思いますが。

2004年10月27日

昨日（26日）は、結局、溜まっていた書類の整理に手間取ってしまいまして、

「関西のPalmOSマシンユーザが集まる“お気楽・お気軽”グループ」
（↑とても良いコピーですよね）

PUGOの定例会に行くことができませんでした。

残念。

2004年10月26日

■近況

楽曲解説、秋の陣。来月初めまでにあと３本。頑張らねば。

■関西コミュニティ大決戦

演奏会の間隙を縫って、23日、終了間際の30分＋三次会（途中参加）だけでしたが行って来ました。

■PUGO

そして今日は、関西コミュニティ大決戦にもブース出展した、

「関西のPalmOSマシンユーザが集まる“お気楽・お気軽”グループ」
（↑「コミュニティ大決戦」紹介文）

PUGOの定例会です。

2004年10月18日

『新選組！』で、ただでさえ気持ちが動揺している時に、オペラ、まして、「椿姫」のような極め付きのメロドラマを観てはいけませんね。

詩人（アルフレード）と娼婦（ヴィオレッタ）の純愛が、男の父親（世間体を気にしてしまう善良な市民）の横槍で引き裂かれる、というようなお話。

仕事がらみで、手持ちのLDを、夜中に、iBookでメモを取りながら見直したのですが、

別れ別れの二人が最後に再会する時に、これでもかと音楽が盛り上がったら（作曲：ヴェルディ）、もう、ダメでした。

ヴィオレッタは、結核で、もう先が長くない。その病床に、外国にいるはずの、別れた男が駆けつけるという場面。

ヴィオレッタは、こんな姿は見せられない、と夜会服に着替えようとするのです。……でも、もう、自力で立つことができないのです。

「お医者様を呼んで。アルフレードが来たの。私はまだ生きなければならないの」

と言うわけです。

いわば、労咳の藤原竜也が、半泣きで「ここでは死ねん」と言っているわけです（←なんだそれは）。もう、わけわからないことになって、取り乱してしまいました。

観たのは、ゼフィレッリが監督したオペラ映画版。

一部、カットがありますが、美術や演奏（ストラータス、ドミンゴ、レヴァイン指揮メトロポリタン歌劇場他）は、素晴らしいですね。

もし、これから「椿姫」を観るという方は、ここから入るのが一番ではないかと思います。

DVDも出ていて、Amazonでは、在庫切れみたいですが、同じものの新装版をCDショップで見かけたような気がします。

そういえば、お店に、クライバーの「カルメン」、正規版DVDが、11/3発売予定という広告が出ていました。

私が言うまでもなく、非常に有名な映像。以前、NHKで放映されていましたが、これも、観ないと一生後悔するかも。

2004年10月17日

『新選組！』

（もちろん、何があっても、毎週、日曜８時の本放送で観ています）

番組自体の感想は、もう書かない、というか、書けない、うかつに書いては申し訳ないという気がしていたのですが……、

今回は、ちょっと参りました。

ここまで観ている側の予想をひっくり返すとは……。

『燃えよ剣』の彼岸にたどりついている感じ。ラストスパート、頑張って欲しいです。

P. S. 全然、関係ないですが、今日10月17日は、たしか、ショパンの命日（1849年）。日付を見ていて、ふと思い出しました。（生まれた日は、1810年の２月22日、 28日、３月１日、諸説あって、はっきりしたことはわかっていません。）

[追記] その後、10時からのBSの分まで観てしまいました。録画してあるから、いつでも見直せるのに……。

2004年10月16日

AirBonchi（生放送）、聞かせていただきました。

PalmもってこいNagasakiは、とても、良い雰囲気の集まりになったみたいでなにより。(^^)

そして、最後のジャンケン大会とか、司会の瓜生さんのみならず、聞き慣れた声が聞こえてくると、「あ、この人も行っていたのか！」（いいなあ）などと、思ってしまいました。

最近、関西以外のイベントは、全然、参加できていませんが、都合がつけば、次回こそ。

2004年10月15日

Macのエディタは、ずっとJeditを使っているのですが、miの評判が良いみたいなので、ちょっとだけ試してみました。

拡張子ごとにモードを切り替えるというのは、UNIXやWindowsのエディタ風で、結構、良いかも、と思いました。（Windowsでは、「秀丸」の、よく似た機能を使っていましたし。）

私が、一番、便利そうだと思ったのは、

「Finderで開く」
（「Cmd」＋「D」）

という機能。カーソル行にファイルパスやURLがあると、それをウェブ・ブラウザなどで開くことができるのですね。

これ、Jeditでできないかと、少し、考えてみました。

（誰かが、そういうマクロを既に作っているような気もしますが、見つけられなかったので。）

カーソル行の取得は、AppleScriptで、すぐにできそうですし、

tell application "Jedit4"
  set targetLine to the paragraph number of selection in document 1
  set targetWords to words 1 thru -1 of paragraph targetLine in document 1
end tell

SafariでURLを開くのは、アップルが公開しているスクリプト集を参考にして、

tell application "Safari"
  make new document at beginning of documents
  set the URL of document 1 to targetURL
  activate
end tell

これで、なんとかなりそう。

問題は、カーソル行（targetWords）から、URL（targetURL）を取り出す部分ですが……、

AppleScriptで、そういうことができるのか、よくわからなかったので、Perlを使うことにしました。

set targetURL to do shell script 
  ("/usr/bin/perl [ここにPerlのスクリプト名] '" 
  & (targetWords as text) & "'")

で、あとは、Perlのスクリプト。

Palmメモの「http URLの正規表現」を見たのですが、厳密にやると、かなり大変みたいですね。

一番最後に出てくる、簡易版の正規表現で済ませることにしました。

# 文書 $text から http URL を抽出して @http に格納する
@http = $text =~ /s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+/g;

（「(s)http(s)://」に、URLで使用可能な文字が続く文字列を、抜き出している、ということですよね、たぶん。）

で、Perlのスクリプトの骨組みは、こんなので良いはず。

#!/usr/bin/perl
$words = @ARGV[0];
chomp($words);
@http = $words =~ /s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+/g;
print $http[0];

URLが１行に２つ以上あった場合、２つ目以降は捨てています。

JeditとAppleScriptで文字列をやりとりする時に、文字コードがどうなるのか、とか、よくわかっていないところもありますが、

それは、使いながら修正することにして、

とりあえず、このAppleScriptを、Jeditのマクロに登録しておけば、miの「Finderで開く」相当のことができそうです。

結構、便利。

tell application "Jedit4"
  set targetLine to the paragraph number of selection in document 1
  set targetWords to words 1 thru -1 of paragraph targetLine in document 1
end tell
try
  set targetURL to do shell script 
    ("/usr/bin/perl /Users/tsiraisi/get_url.pl '" 
    & (targetWords as text) & "'")
on error error_message number error_number
  if the error_number is not -128 then
    display dialog error_message buttons {"OK"} default button 1
  end if
end try
if (targetURL is "") then
  tell application "Jedit4"
    display dialog "URL not found."
  end tell
else
  tell application "Safari"
    make new document at beginning of documents
    set the URL of document 1 to targetURL
    activate
  end tell
end if