実際にはＣの上に構築されたプリプロセッサのようなイメージで、その操作はＣのコードとランタイムライブラリへのアクセスへと還元することが出来る。そしてＣの部分は隠蔽されることなく使用することが出来、それ故、インラインアセンブラのようにObjective-Cの操作をＣで記述したコードを混在させるといったことも出来てしまう。そういった泥臭さはＣ言語族の特徴と言うべきなのだろうか。

ランタイムライブラリをいじらないまでも、例えば文字列で指定されたクラス名のインスタンスを作成するのはこんな感じで出来る。

Class klass = NSClassFromString(className);
id obj = [klass alloc];

この機能を使用すると、テキストファイルで指定されているクラスのインスタンスを動的に作成するというようなことが出来る。

さらに、標準のXMLパーサNSXMLParserと組み合わせると、手っ取り早く（とりあえずの）設定を読み取り、インスタンスを生成するモジュールを実装することが出来る。

NSXMLParserはエレメントを見つけたときのdelegate呼び出しに、エレメントのアトリビュートをNSDictionaryで渡してくれる。これをそのままインスタンスの初期化に渡してしまおうというわけだ。

#define kAttributeName @"name"

@implementation Foo

- (id) initWithAttributes:(NSDictionary *)attributes {
    if ((self = [super init])) {
        self.name = [attributes objectForKey:kAttributeName];
    }
    return self;
}

@end

NSXMLParserは、せめてuserData等のプロパティがあれば良かったのだけど、無いので、派生させて必要なプロパティを追加しておく。

@interface KTXMLParser : NSXMLParser

@property (assign) NSUInteger state;
@property (assign) NSMutableArray *objects;

@end

@implementation KTXMLParser

@synthesize state = _state;
@synthesize objects = _objects;

@end

パース部分は相当手抜きして、ルートとその子エレメントしか考慮しないことにする。

- (void)parser:(KTXMLParser *)parser didStartElement:(NSString *)elementName namespaceURI:(NSString *)namespaceURI qualifiedName:(NSString *)qName attributes:(NSDictionary *)attributeDict {
    switch (parser.state) {
        case 0:
            if (![elementName isEqualToString:kRootElement]) {
                NSLog(@"The document starts with unknown element %@",elementName);
                [parser abortParsing];
            }
            break;
        case 1:
            {
                id obj = _createInstance(elementName, attributeDict,_cmd);
                if (obj) {
                    [parser.objects addObject:obj];
                    [obj release];
                } else {
                    NSLog(@"Instance creation failure");
                    [parser abortParsing];
                }
            }
            break;
        default:
            NSLog(@"Invalid document structure");
            [parser abortParsing];
    }
    parser.state += 1;
}

エレメント名をクラス名としてインスタンスを作成する。<Foo .../>だとFooクラスのインスタンスと言うことになる。

そしてインスタンス作成部分はというと。

static
id _createInstance(NSString *className,NSDictionary *attributes,SEL _cmd) {
    Class klass = NSClassFromString(className);
    id obj = nil;
    if (klass) {
		
        obj = [klass alloc];
        if ([obj respondsToSelector:@selector(initWithAttributes:)]) {
            obj = [obj performSelector:@selector(initWithAttributes:) withObject:attributes];
        } else {
            NSLog(@"A instance of class %@ can not respond to selector initWithAttributes:",className);
            [obj release];
            obj = nil;
        }
    } else {
        NSLog(@"Unknown class:%@",className);
    }
    return obj;
}

メソッドではなくstaticな関数として実装しているのは、Objective-Cにはプライベートメソッドが存在せず、そのかわりなのか、@implementaionと@endの中にある関数はインスタンスのプライベートメンバにアクセスが出来る。つまり、プライベートメソッドはそういう風に実装してねという暗黙の了解なのかもしれない。と、いった理由による。

引数で_cmdを渡しているのだけど、これはメソッドの中では自動的に定義される変数で、そのメソッドのセレクタを示す。NSLogは_cmdを必要とするので、とりあえず呼び出し元の値を渡している。

_createInstanceの中身の主なところは前出の指定クラスのインスタンスの作成だ。そのあと、initWithAttributes:が実装されているかを調べ、実装されている場合には呼び出し、されていない場合は削除してnil（失敗）を返す。

以上で主な実装は終了だ。クラスを追加したとしても、initWithAttributes:にさえ対応していれば特に追加で実装しなくても良い。つまり、使い回しがきく。

実際には作成できるオブジェクトの制限がないので、プロダクトに使うのはどうかと思うのだけど、プロトタイピングでサクッと試したい場合には便利だ。昨年作成したKinectのプロジェクトでも使用している。

ソースはhttps://gist.github.com/1577809を参照ください。

今年もいろんなことに挑戦していきたいと思います。

12/18の日曜日に、妻の主催する「子どもの音楽会」でKinectを使ったインタラクティブな音楽作品の発表を行いました。

手を叩くと音が鳴るように、空間に触れると音が鳴る、挙動が音になる。そういった、触覚ではなく、音によるフィードバックによる空間と身体のインタラクションだ。それは、空間を楽器にしてしまおうという試みでもある。

マルチタッチサーフェスを仮想的に空間に用意し、触れたり、かき回す（お風呂に腕を突っ込んだり、かき混ぜたりするイメージがわかりやすいかもしれない）ことにより音を奏でる機能を実装してみた。

今回、Kinectを使い、その上でアプリケーションを構築してみるという、わたしにとっては最初の挑戦であり、いくつか入力方法を用意してみて、試していく過程で、わかりやすさ、確実性という点から絞っていった。そこには、「子どもの音楽会」と冠されるように、メインの対象は子どもで、見ただけで、まねしてみただけで出来る事が必要という理由もあった。

やってみないと分からないことはあるもので、男の子は意外にシャイだという点が、「あれ、そうなの？」と言う感じだった。やんちゃに走り回ってたりするのにね。一人で前に出てやってみると言うのはなかなか難しいのだ。母親といっしょとか、誰かとコンビでなんとか。わたしもこのぐらいの年頃（３歳から７歳ぐらい）はそうだったのだろうか。

男の子とは対照的に女の子は積極的で、どんどん参加してくれた。それは三歳の女の子ですらそうで、彼女にはどういう世界が見えてるのかとても興味があるのだけど、すごい集中力で、一心不乱に踊っている（操作をしてる人を端から見ると踊ってるように見えるのだ）姿は可愛かった。

チラシを刷るのにタイトルを決めなきゃということで、「miburi-teburi（イタリア語っぽくミブーリテブーリと読む）」なんて適当に決めたのだけど、よくよく調べてみるとミブリー＆テブリーとか、ミブリ・テブリ（こちらはKinectってあたりも被っている）なんて先人がいた。当然のことながら、これらの作品とわたしはなんの関係もない。しかし、良くあるネーミングだし、まあそのままでも良いかなと思っている。

もう、このエントリーを書く時点では会期がはじまってしまっているのですが、義妹でガラス作家の金子博子さんの企画展に参加しています。

架空の会社「宝の水酒造」をめぐり、様々な作家の方が共演を繰り広げます。

わたしはというと、「宝の水酒造」イメージソング「宝の水」の歌詞に曲をつけ音楽で参加しています。

会場はスタジオ・スティックさんで、今月１１月の２７日までとなっています。

よろしければ、是非。

何となくの予感はあったのだけど、いざ訪れてしまうとどんな言葉でも言い表せない。
 
あなたの作品をもっと見たかった。
あなたの示すビジョンをもっと見たかった。

スティーブ、たくさんのワクワクをありがとう。そして安らかに。
]]> tag:blog.soprano.jp,2011://1.211 2011-03-31T15:30:00Z 2011-03-31T15:31:25Z

Late 2010バージョンのMacBookAirは待機時間が最大３０日という事になっている。その秘密はどうやらある一定時間が過ぎると、スリープがディープスリープに切り替わる事らしい（そしてＳＳＤとの組み合わせのマジックでもある）。

ディープスリープかどうかの違いは、簡単に言えばメモリ上の情報をＨＤＤに待避するかどうかと言う事になる。通常のスリープではメモリを保持するバッテリーを消費する代わりに、起こせばすぐに戻ってくると言う利点がある。

ところで、MacBookシリーズのスリープは通常ではSafe Sleepというモードになっている。何がセーフなのかという事なのだけど、これはバッテリーが持ちそうな間はメモリ上に、危なくなってきたらＨＤＤに待避してディープスリープに移行する仕組みから来ている。

危なくなってきたらという、おそらく残容量をキーにして移行するという点が違うのだけど、自動的にディープスリープに移行する仕組みは元々備わっていた。時間によって移行する仕掛けが新機能というわけだ。

普段持ち歩いていてもこの後はしばらく使わないというのが分かって閉じる事がある。こういうときにあらかじめディープスリープさせておけたら、もう少し使える時間が延びるのではないかと常々思っていた。

MacBookは（OSXはという方が正しいのかもしれない）スリープモードを、スリープのみ、ディープスリープのみ、セーフスリープ（前述の物）の３つのうちのどれかに設定する事が出来る。つまり積極的にディープスリープだけを使うという設定にも出来るのだけど、残念な事にディープスリープからの復帰はLate 2010 Airのように数秒とはいかないのだ。設定してみた物の毎回数十秒待たされるのに閉口して元に戻してしまった。

そこで登場するのがDeepSleepというWidgetだ。使い方はわざわざ説明するまでもなく、以前のバージョン、1.2の時はWidgetを使ってスリープさせたときの挙動を選べたのだけど、最新版の1.5.1はきわめてシンプルになって、押すとディープスリープする。以上。という潔さ。

ただし注意する点が一つだけある。ACにつないだ状態の場合だと、マシンの設定によってディープスリープには移行しないことがあるようだ。

わたしの場合、長時間電車などで移動する間にAir(Late 2008)を使用し、降りて移動する前にWidgetでディープスリープさせるといった使い方をしている。そのまま次の日まで忘れてたりする事もあるのだけど、感覚的にはもっと減ってるはずのバッテリーの残量にびっくりするのだ。

Axonic Labs - DeepSleep Widget - Hibernate your Mac

]]> tag:blog.soprano.jp,2011://1.194 2011-02-28T13:40:00Z 2011-02-28T13:41:24Z

ジュンク堂という書店は、わたしにとってとても親しみのある書店で、というのも、もともと神戸発祥のこの書店の三宮にある店へ父親に幼少の頃から連れて行かれていたのだった。そして、自分の好きな本と父親がこれと決めた本を一冊ずつ、１ヶ月のうちに一回買いに行くというのがなんとなく我が家の定期行事だったのだ。

それに習ったわけではないのだけど、今年は入力し出力する年と年始に決めて、それならばとなんとなく妻に提案してみたところ開催と相成ったわけだ。妻という他人が入ることによって、さらに別の「目」による発見も期待できる。

金額もお互い１万円というのも考えたのだけど、一年たってみたら（そう、最低一年毎月行おうと思ってるのだ）書籍の量もとんでもないものになってるのではないかというので、とりあえず半額にしてみた。とはいえ、厳密にその予算の中に納めるというゲームではないので、目安ではある。

もちろん、普段から読書量は少なくない方なので、本を読みましょうと言うキャンペーンではない。書店に行って、その書架の海を放浪して、そしてなにかピンと来る本を見つけましょうというのがその趣旨なわけだ。

わたしが人生において最も重要なスキルはジャケ買いのスキルだと思っているのだけど、その話はおいておこう。

いざジュンク堂に行ってみると、自分の書店での行動がいかに目的の本を探すかという行動原理に従ってるかというのに気がつく。どうも先に頭でイメージした本を探すというそんな動きになってしまうのだ。

もちろん、目的のものを買いに行った場合にはそれも理にかなっているのだけど、今回はそうではない。捜し物をするときのコツはいかに探していないところを見つけるかで、そうでないと同じ所を探してぐるぐる回ってしまうのだけど、同じように、固定化した自分のパターンの中で探してみても想像を超えるものは出てこない。

なるべくニュートラルに自分を保ちつつ書架をうろついてるうちに、最初はぎこちなかったのだけど、徐々になんとなく流せるようになってくる。世の中にはいろんな本があるものだなと思う。

そんな中でどうやって本を選び取るか、だけど、それは不思議なもので、まず第一印象で手に取るかどうかが決まり、そして、手にした後にぱらぱらとめくり始めると吸い付いたように離れない、どんどん先を進めたくなる本というのがあるのだ。

そういう本をかごに入れては放浪していたらわずか３冊で予算を少々超えるという結果になった。ぎりぎり判断に迷った本はそのまま書架に戻し、本当に縁があれば次回選び取るだろうとすっぱりあきらめた。

さて、わたしが選んだ３冊は以下の通り。せっかくなのでジュンク堂へのリンクとしたいのだけど、Amazonのようには気の利いたパーツがないので、画像などは直リンクとなってしまって、あまりお行儀がよろしくない。そのうち切れてしまうかもしれない。

いずれもまださわり程度でほぼ未読だと言うことはお断りしておかないといけない。

今年もいろいろなことに挑戦していきたいと思います！

ようやくUGenからみていったSuperColliderの処理の流れも、一周してきたというわけだ。

流れをもう一度確認してみよう。

同じような流れは以前にも出てきたのだけど、少々込み入っていて把握しづらい。図示してみた。

図の上段が前回の部分だ。そして、タイマーからのトリガーが下段だ。このawakeからの部分は、実は以前にも見ていて対象のクラスが違うので微妙に異なる部分があるのだけど、大体においては同じだ。

と、いうことで、今回はprNextからの流れを見ていくことにしよう。

EventStreamPlayerクラスのprNextの実装は次のようになっている。

    prNext { arg inTime;
        var nextTime;
        var outEvent = stream.next(event.copy);	    // 1
        if (outEvent.isNil) {
            streamHasEnded = stream.notNil;
            cleanup.clear;
            this.removedFromScheduler;
            ^nil
        }{
            nextTime = outEvent.playAndDelta(cleanup, muteCount > 0); // 2
            if (nextTime.isNil) { this.removedFromScheduler; ^nil };
            nextBeat = inTime + nextTime;	// inval is current logical beat
            ^nextTime
        };
    }

prNext Stream.sc

大まかにいうと演奏すべきイベントを取り出し(1)、実際に演奏する(2)という流れになっている。戻り値は次にトリガーを予約する時間で、次に演奏すべきデータがない場合はnilを返すようになっている。

stream.nextで取り出したoutEventを演奏するメソッド、playAndDeltaはEventクラスで実装されている。

    playAndDelta { | cleanup, mute |
        if (mute) { this.put(\freq, \rest) }; // 3
            cleanup.update(this);
            this.play;        // 4
            ^this.delta;
        }

playAndDelta Event.sc

ミュートが指定されている場合、3でなにやら設定しているようなのだけど、とりあえず飛ばして先に進んでみる。4でそのものずばりのメソッドplayが呼ばれる。

    play {
        if (parent.isNil) {
            parent = defaultParentEvent;
        };
        this.use {
            this[\play].value;	// 5
        };
//      ^this.delta
    }

play Event.sc

さっきのmuteのところでも気になったのだけど、5でなにやら自分に対してシンボル\playにひも付いた値を取り出そうとしているように見える。

Eventクラスの継承関係はどうなってるのだろうか。

EventクラスはDictionaryクラスの派生クラス（直接ではないけど）ということが見えてくる。保留にしていたmuteの時の処理(3)も\freqのというキーに\restというシンボルを結びつけているということがわかる。

さて、EventがDictionaryクラスのサブクラスなのはわかったのだけど、では[\play]、そしてそのオブジェクトに対してvalueというメソッドを呼び出している(5)の意味とはなんだろうか。その答えは、Eventクラスのクラス初期化を追っていくとわかる。

    *initClass {
        Class.initClassTree(Server);
        Class.initClassTree(TempoClock);
        this.makeParentEvents;                // 6
		
        StartUp.add {
            Event.makeDefaultSynthDef;
        };
    }

initClass Event.sc

*initClassはクラスファイルが読み込まれたときに一度だけ実行されるメソッドだ。 このなかでmakeParentEventsというメソッドが呼ばれている(6)。

このmakeParentEventsというのはEventクラスのクラスメソッドで、こんな感じで実装されている。

    *makeParentEvents {		
        // define useful event subsets.
        partialEvents = (

makeParentEvents Event.sc

makeParentEventsはとても巨大なメソッドなので冒頭の部分だけの抜粋になるけど、ここでは演奏用のイベントデータのパターンをすべて登録しているのだ。そして、このメソッドの最後で、

defaultParentEvent = parentEvents.default;

と、クラス変数defaultParentEventにセットしている。

つまり、this[\play]で取り出されているものは\playに結びつけられた、つまり演奏用のイベント情報なわけだ。

value

さて、this[\play]に続くvalueだけど、これはもう何度も出てきているのでおなじみかもしれない。このメソッドはレシーバを評価するというメソッドだ。このメソッドはObjectに定義されている。

    value { ^this }

デフォルトの挙動では自分自身を返す。もし、レシーバがFunctionクラスのインスタンスだった場合を見てみると、

    value { arg ... args; 
        _FunctionValue         // 7
        // evaluate a function with args
        ^this.primitiveFailed 
    }

実装の実体は_FunctionValueで、これはおなじみのプリミティブ、つまりはネイティブに実装された内部ルーチンが呼び出されることになる。このようにレシーバがFunctionクラスの場合、その値はメソッドを実行した戻り値となる。

さて、Eventクラスのキー\playに対する値がどう定義されているのだろうか。

    play: #{
        var tempo, server;
					
        ~finish.value;

        server = ~server ?? { Server.default };
					
        tempo = ~tempo;
        if (tempo.notNil) {
            thisThread.clock.tempo = tempo;
        };
        ~eventTypes[~type].value(server);
    },

このようにのブロック（関数）となっている。valueメソッドで評価されるものは、このブロックがとなる（このブロックが実行されて値を返す）。つまり、このブロックこそがEventクラスが演奏を行うときのコアロジックとなるわけだ。

Environment Variable

ところで、~が頭につく変数というのはどういう変数なのだろうか。グローバル変数のように使用できるのだけど、グローバル変数というのはいまひとつ正確ではない。SuperColliderのドキュメントにはこのように記されている。

~			access an environment variable
~abc			compiles to \abc.envirGet
~abc = value		compiles to \abc.envirPut(value)
supercollider.svn.sourceforge.net--SymbolicNotations.html

つまり~はenvironment variable（環境変数）へのアクセスを行うためのシンタクスシュガーなわけだ。環境(environment)は、そのものずばり、Environmentというクラスがある。環境変数というのはそのEnvironmentクラスのインスタンスのキー値となる。

さて、~abcみたいに、対象のインスタンスを指定しなくてもアクセスできているということは、the environmentと呼べるようなEnvironmentクラスのインスタンスがどこかに存在するはずだ。

どこかというと、やはりObjectクラスが思い浮かぶわけで、実際Objectクラスにはクラス変数としてcurrentEnvironmentというEnvironmentクラスの変数が定義されているのだ。

こんなコードで実験をしてみた。

~x = 'hello';
~x.postln
(上の２行を評価)
hello
hello
currentEnvironment = Environment.new
(上の行を評価)

Environment[  ]
~x.println
(上の行を評価)

ERROR: Message 'println' not understood.
RECEIVER:
   nil

途中でcurrentEnvironmentにあたらしいEnvironmentクラスのインスタンスをセットしている。それによって~xが未定義状態になっていることがわかる。新しいEnvironmentには\xの値をセットしていないからだ。

このように、環境変数はごっそりと環境ごと換えて（換えられて）しまうことが出来る。

Event Types

さて、寄り道が長くなってしまったが、Eventクラスのplayメソッドに戻ろう。playメソッドにはとてもさり気ない記述なのだけど重要な処理を行っている部分がある。

    play {
        if (parent.isNil) {
            parent = defaultParentEvent;
        };
        this.use {  // 8
            this[\play].value;
        };
//      ^this.delta
    }

play Event.sc

この(8)の部分だ。自身のuseメソッドをブロックを引数に呼び出している。useの実装はEnvironmentクラスで行われている。

    use { arg function;
        // temporarily replaces the currentEnvironment with this, 
        // executes function, returns the result of the function
        var result, saveEnvir;
	
        saveEnvir = currentEnvironment;
        currentEnvironment = this;    // 9
        protect {
            result = function.value(this);
        }{
            currentEnvironment = saveEnvir;
        };
        ^result
    }

use Environment.sc

(9)をみるとcurrentEnvironmentを自分自身で書き換えている。(9)で環境を取り替えた後、他のスレッドからは排他的に実行するためにprotectメソッドの中で引数の関数ブロックを実行する。そして、終了したらまた環境を元に戻すという処理を行っている、

さて、\playによって評価されるのは現在の環境の\playに結びつけられた値、今の場合ブロックなのでブロックが評価される（実行される）。

もう一度\playに結びつけられているブロックをふりかえってみよう。

    play: #{
        var tempo, server;
					
        ~finish.value;

        server = ~server ?? { Server.default };
					
        tempo = ~tempo;    // 10
        if (tempo.notNil) {
            thisThread.clock.tempo = tempo;
        };
        ~eventTypes[~type].value(server);  // 11
    },

(10)で自身に\tempoのキーで値が設定されていないかを調べて、設定されていた場合にはテンポを設定している。

このようにデフォルトの値が設定されていないキーもあれば設定されているキーもある。(11)では\eventTypesキーに結びつけられたオブジェクトのさらに\typeのキーに結びつけられたオブジェクトを引き、それを評価(value)している。

\typeは\playの定義のすぐ上でこんな風に定義されている。

    type: \note,

何も指定しなかった場合、イベントのタイプは\noteとなるわけだ。

\eventTypeにはいろんなタイプの演奏イベントが定義されている。例えば\restはこうなっている。

    rest: #{},

何もしないというのが一目瞭然だ。

さて、いま、とりあえずイベントのタイプは\noteだとして進もう。\noteはというと、こんな風に定義されている。

note: #{|server|
    var freqs, lag, strum, strumTime, sustain;
    var bndl, addAction, group, sendGate, ids;
    var msgFunc, desc, synthLib, bundle, instrumentName, schedBundleArray, offset;
						
    freqs = ~detunedFreq.value;
            ...

とても長いので、流れをざっとみていくことにする。

前半はソースのコメントにもあるとおり、OSCメッセージを組み立てている。そして、後半、処理は二つに分かれる。ひとつはそのまま組み立てたメッセージをまとめて送信するか、それともアルペジオのように間隔を空けて順次送信するかだ。

そしてどちらも最終的に到達するメソッドは同じで、server.sendBundleとなる。余談になるけど、その前段階に呼ばれる~schedBundleArray.valueも~schedStrummedNote.valueも、この巨大な辞書の中に定義されている。このノリは少しJavaScriptににているような気がする。

~schedBundleArrayの方を見てみると、以下のようになっている。

    schedBundleArray: #{ | lag, offset, server, bundleArray |
        thisThread.clock.sched ( offset, {
            if (lag !=0 ) {
                SystemClock.sched(lag, { server.sendBundle(server.latency, *bundleArray) })  //12
            } {
                server.sendBundle(server.latency, *bundleArray)  // 13
            }
        })
    },

offsetによってタイマーのトリガを予約して、トリガーがかかると、lagが０のときはすぐにserver.sendBundleを行い(13)、そうでない場合はタイマーにsendBundleの実行を予約している(12)。offsetもlagも０ではないときはoffset+lag分二回のタイマーのトリガを経てserver.sendBundleに到達することになる。

ここで、ようやくイベントはサーバに届き、音として再生されることとなるわけだ。