Mac OS X のための Smalltalk （風？）のスクリプト言語で [[F-script:http://www.fscript.org/%5D%5D というのがあるんですがご存知ですか？ちょっとすごいです。F-script を[[インストール:http://www.fscript.org/download/download.htm%5D%5Dして、実行するとインタプリタの画面が出てきますので、ビデオの下に書いた15行ばかりのコードを copy & paste してみましょう。したのビデオはそのデモの様子です。

image := CIImage imageWithContentsOfURL:(NSURL fileURLWithPath:’/Library/Desktop Pictures/Nature/Clown Fish.jpg’).

bumpFilter := CIFilter filterWithName:’CIBumpDistortion’.
bumpFilter setValue:900 forKey:’inputRadius’.
bumpFilter setValue:0.8 forKey:’inputScale’.
bumpFilter setValue:image forKey:’inputImage’.

keyWindow := NSApplication sharedApplication keyWindow.
rect := (200100 extent:600400).

0 to:2500 by:5 do:
[:i|
bumpFilter setValue:(CIVector vectorWithX:i Y:700) forKey:’inputCenter’.
bumpedImage := bumpFilter valueForKey:’outputImage’.
bumpedImage drawInRect:rect fromRect:image extent operation:NSCompositeSourceOver fraction:1.
keyWindow flushWindow.
]

F-script とこのコードに興味が湧いたら[[20分で分かるF-script:http://www.fscript.org/documentation/LearnFScriptIn20Minutes/index.htm%5D%5Dを読むといいです。