[Tokyo.pm] Mindstorms & Perl

[OKABE, Keiichi]

先日のTokyo.pmの話題で出たPerlでMindstormsをコントロールして
手旗信号でTCPセッション張るって話ですが

# まじめな感じで書くのはちとはずかしかったりして　(^^;

できるかもしれないです。ビデオカメラを搭載したロボットから画像を
パソコンに送り、そこで画像処理をして、それを今度は赤外線で
RCXに命令を送るというプロジェクトを見つけました。

今つながらないんで詳しいことはわからないんですが、
LegoVision 'http://legovision.sourceforge.net/'
です。多分飲み会の席でもちょっと話したMindstormsでロボカップ
に出場するための技術開発だと思うので調べてみます。

中川さんは熱をだされてたんですね。もう熱は下がりましたか?
暑い時の風邪はしんどいですからお大事に。
---
use Tk;$c=tkinit->Canvas(-height=>50,-width=>100)->pack;$a="15115155,223342,
2343,3335,24254544,6163,5292918185,53939484,7273,6465757464";$a=~s/\s//g;
map{s/(\d)/sprintf("%s,",$1*10)/eg;$c->createLine(split /,/,$_)}(split /,/,$a);
MainLoop; #okabek ＠ beige.ocn.ne.jp