swk's log 2005-12

* プロペラ機 [misc]

東京から仙台に引っ越して，生家のある釧路に近くなったかと思ったら，交 通的には遠ざかってるらしい．千歳経由の空路を使う．片道 4 万円超え． ぐはー．

プロペラ機というやつに初めて乗った．座席は主翼のすぐ隣．高度が低いの でなかなか面白い．

• http://www.hac-air.co.jp/

* 冬場に作った氷を首都圏に運び冷房に [misc]

• http://www.mainichi-msn.co.jp/shakai/wadai/news/20051228k0000e040078000c.html
• (via http://news18.2ch.net/test/read.cgi/femnewsplus/1135745055/)

「今 日本はこの通り灼熱の夏地獄だが…
世界中のドコかでは寒くて凍える国があるハズだ
そこでだ… その国と長いパイプをつなげて冷たい水を送ってもらうんだよ」

クロマティ高校 12 巻，第241話「In the heat of the day」

* 3D プリンタ [tech]

• http://japanese.engadget.com/2005/12/28/3d-printer/

まだ個人が買える代物ではないらしい．

* サニタイズの話 [tech]

サニタイズの基本．

• http://memo.xight.org/2005-12-22-3

サニタイズ言うなキャンペーン．

• http://takagi-hiromitsu.jp/diary/20051227.html#p02

ふーむ．

* サラダ味とは? [misc]

• http://skmwin.net/archives/001033.html

「サラダ油」味のことらしい．がーんん．

* いすずジェミニの CM [misc]

• http://news.2-3-0.org/comment/comment_200512_338.php
• (via http://d.hatena.ne.jp/yaneurao/20051227#p1)

懐かしい．インパクト大きかった．

* 静電気防止スプレーに着火の恐れ [misc]

• http://www.excite.co.jp/News/bit/00091135314822.html
• (via http://www.oikaze.com/~tamada/Diary/2005-12-27.html#2005-12-27-1)

「着ている衣類には、必ず自分でスプレーする。他の人がスプレーすると、まれに静電気火花が発生して衣類を焦がすことがある」

そういえば他人と触れたときに放電することってたまにあるな．

引火性のないガスにするとかできないもんなんだろうか．

* 全自動M&Ms仕分け機 [misc]

• http://japanese.engadget.com/2005/12/25/mandms-sorter/
• (via http://www.pochi.cc/~sasaki/chalow/2005-12-27-1.html)

M&Ms は駅で売ってるので、1日あたり日本の人口の多分1%程度は、 購入していると思われる。

http://www.pochi.cc/~sasaki/chalow/2005-12-27-1.html

ちょwwww 多スギスww

* ThanksCard をもらえる確率は? [misc]

60人の社員が，自分以外の 3 人をランダムに選んで ThanksCard を送る． ある人が 10 枚以上のカードをもらえる確率は? というクイズ．

• http://d.hatena.ne.jp/takujih/20051226/1135566409
• (via http://www.hyuki.com/t/200512.html#i20051226142630)

(defun prod-n-m (n m)  ;; n * (n-1) * ... * m
  (if (< n m)
      1.0
    (* 1.0 n (prod-n-m (- n 1) m))))

(defun power (a k) ;; a^k
  (if (<= k 0)
      1.0
    (* 1.0 a (power a (- k 1)))))

(defun pr-k-cards (k)
  (* (/ (prod-n-m 59 (- 60 k)) (prod-n-m k 1))
     (power (/ 3.0 59) k)
     (power (/ 56.0 59) (- 59 k))
     100))

(- 100 (apply '+ (mapcar 'pr-k-cards '(0 1 2 3 4 5 6 7 8 9))))
0.0732554296409802

(あ，これコードの部分だけうっすら見えるな．まいいか)

* Super Mario Nano [misc]

• http://pya.cc/pyaimg/pimg.php?imgid=22080

しばらく何だか分からなかった．

* LaTeX でウォーターマーク [tech] 7 users

ウォーターマークとか透かしとか呼ぶらしいけど，書類の背景にうすーく何 かの文字を (しばしば斜めに) 入れたい場合がある．

これを LaTeX でやりたくて調べてみた．見つかった方法は大きく分けて 2 つ．

(1) EPS 画像ファイルを作って \@oddhead と \@evenhead に貼り込む．

• http://nakanohiro.web.infoseek.co.jp/pc/tex/yy_etc.html#watermark
• http://buran.u-gakugei.ac.jp/~mori/SETUP/TIPS/74_watermark.html

(2) 専用のスタイルファイル dmesh.sty

• http://acapulco.dyndns.org/hiki/hiki.cgi?%28Tex%29dmesh

EPS ファイルを作らなくていい分 dmesh.sty がスマート．素晴らしい．素 晴らしいのだけど，これって「latex をかけた日時」の表示専用なので，任 意の文字列だけの表示は，このままではできない．

で，中を見た．ふむ，ミソは \fancyput か．これなら直接書けそうな気も するぞ．ごそごそ．えーと，

ウォーターマークを入れたいファイルの，\begin{document} の前に以下を 入れてみる．

% derived from:
% 'dmesh.sty' written by Tetsuya Kimata <t_kimata@easter.kuee.kyoto-u.ac.jp>
% $Id: dmesh.sty 16 2005-02-27 13:31:19Z svn $
\usepackage{graphicx}
\usepackage{fancybox}
\usepackage{color}
\fancyput(-0.7in,-9.5in){
 \color[rgb]{0.85,0.85,0.85}{
  \rotatebox{50}{
   \scalebox{10}{CONFIDENTIAL}
  }
 }
}

おお，できた．

* キャンディフルーツ [misc]

• http://www.candyfruit.com/

メイドのコスプレ衣装ショップ，かと思ったら，本当にメイドの派遣もやっ てるらしい．そうかこういうビジネスもありか．

* テラワロス [misc]

テ ラ ワ ロ ス ｗ

「アイドル」の定義が確実に塗り変えられている気がする．

* 閏秒と 117 [misc]

来年の 1/1 には閏秒が挿入されるので，午前8時59分60秒 (JST) が存在する．

• http://www.itmedia.co.jp/news/articles/0512/16/news072.html

しかし 117 の時報はそうではなくて，

「117」は、時報が自然に聞こえるよう、100秒間の秒音を100分の1秒ずつ長くし、合計で1秒遅らせてうるう秒に合わせる。1972年1月1日以来計23回、今回と同様な方法でうるう秒の調整を行ってきた。

とするらしい．つまりこの 100 秒間は 117 は不正確な時を刻んでいるわけ だな．なんかこの時間帯に 117 にかけてみたくなってきたぞ．

まあ電話自体にも遅延があるからどうでもいいっちゃどうでもいいんだけど な．携帯電話は論外として，固定電話ってどのくらいずれるものなんだろう．

(追記) 固定電話だと 0.03 秒程度の信頼性があるんだそうです．

• http://uchukan.satsumasendai.jp/data/occult/pandoraguide2.txt
• (via http://cgi14.plala.or.jp/imaishi/changelog/2005-12-21.html)

* 凍結した山道 [misc]

北海道育ちなので凍結した道を歩くのにはまあ慣れているのだけど，凍結し た山道を深夜に徒歩で降りるのにはもちろん慣れているわけがない．なんか 立ったまま 5m くらい滑走 したりしましたよ．危険すぎる．

という話をボスにしたら，

「そうそう，あれ楽しいよねー」

いや楽しいとかの問題じゃないです．いつか絶対コケる．

家に着いて アイゼン とかぐぐってみたけど，これ も素人にはおすすめできなさそうな気配．

* HHK Pro で議事録を取る [hhkpro]

ある会議の書記の仕事が隔月で回って来る．いつも使っている Let's Note CF-R1 で議事録を取るのだが，会話内容をリアルタイムに書き止めるには ちょっと内蔵キーボードでは辛すぎる．

ので，今日は HHK Pro (カテゴリ: hhkpro) を外付けで使うこ とにした．普段デスクトップ PC で使っているやつを，さくっと抜いて会議 室に持って行く．USB ケーブルを挿して，AltIME (内蔵キーボードのときは Ctrl と Caps をひっくり返したり，Backspace を ` に割り当てたりしてい る) を停止して，準備完了．こういうとき USB はありがたいな．PS/2 だと， 帰って来てデスクトップPC にまた挿しても動かなかったりするので．

というわけで快適に議事録はメモできたけど，ちょっと問題が．キータイプ 音がうるさすぎる．部屋全体に響く感じ．

いや，このキーボードの一番近くにいるのは自分なので他の人にどう聞こえ ているかはよくわからないし，特にうるさいと指摘されたわけではないんだ けど…．さて次回はどうしよう．

* すべてがFになる 〜 有限と微小のパン [misc]

せっかくだから [2005-12-18-4]，S&M の書影も並べて置こう．後で便利かも(?)

読んだのは，えーと確か D3 の秋から冬にかけて，だったか．

* 黒猫の三角 〜 赤緑黒白 [misc]

ようやく読了．

んーどうだろう．ネタバレになるのであまり書けないけど，シリーズ読み終 わったら色んな謎がすっきりするかと思ってたのに，そうは問屋が卸しませ んかそうですか．

単純に個人的な好き嫌いでいうと，S&M (すべてがFになる〜有限と微小のパ ン) [2005-12-19-1] の方が好きっぽい．

(追記) 追記というか，せっかくなので書影を並べてみた．色鉛筆のように．

ていうか帯が邪魔．

* ホワイトボードペーパー [misc][shopping]

ホワイトボードペーパーの話 [2005-12-15-2] を書いたら反応を頂いた．

ダイソーでうっとるしの。

http://dkiroku.com/2005-12-16-2.html

!!!

そうかダイソーか．というわけでさっそく買ってみる．45x30cm で 100 円．

さーどう使おうかな．(← 考えてから買えと小1時間)

* DQII あぶないみずぎ [misc]

• http://www.code-d.org/archives/2004/20040918193706.html

あーこれ本当だったんだ．

教会で仲間を生き返らせる時の曲が流れ始めるというシュールさ。

ちょwwww

* Dr. X の正体 [misc]

Queensryche の新譜 Operation: Mindcrime II の Dr. X 役(?) は Ronnie James Dio らしい．なぬー．

• http://silver.ap.teacup.com/tomosang/1750.html

O:M2 からは 2 曲ほどサンプルが公表されているけど，どうも不安な感じ． 名作のイメージをぶち壊さないでくれることをただただ祈る…

http://www.queensryche.com/news/2005/12.html

* 笑い飯，かわいそうな象 [misc]

上方お笑い大賞新人賞受賞記念．というわけでは別にないのだけど，

• http://pya.cc/pyaimg/pimg.php?imgid=9953

flash 出回ってたのか．知らなかった．

歴史博物館のやつが見たいな．というか，純粋に笑い飯のネタだけ入った DVD が出れば即時買うのだが．

* メールの返信フォーム [misc]

さて忘年会シーズンなわけで，こんなメールがたくさんやってきます．

下記のフォームにご記入の上，ご返信下さい．

********************** 返信フォーム ***********************
平成17年 ○○忘年会

御所属:
御芳名:
    御出席 御欠席 (不要な方をお消し下さい)
**********************************************************

こういうのが物理メールで来たら，「御」と「芳」を二重線で消して返答す るのが当然なのだけど，電子メールの場合，そして特に対象人数が多い場合， ちょっと悩んでしまう．

もしかして，自動集計だったりするのではなかろうか?

と勘ぐってしまうのである．以前 1000 人くらいにアンケートを送って，返 信メールを自動集計するプログラムを書いたときにいろいろ悩んだ記憶があ るので…．

まあ考えても答えは出ないので，大体はさくっと消して返答するようにして ますけど．

* ホワイトボードカレンダー [misc] 1 user

• http://www.1101.com/store/calendar/index.html

表面をホワイトボード加工した紙，ってのは応用が聞きそうな予感．

ホワイトボードペーパー でぐぐると，いろいろ出て 来るけど，どうかな．(→ つづく [2005-12-18-3])

* 誤発注の瞬間 [misc]

これ本物?

http://tech.ciao.jp/blog2/2005/12/post_276.html

「alias rm rm -i」とかしちゃダメ，ってのは今や常識だと思うけど，こう いう話を目にすると改めて思い知らされるな．

* トドちゃん [misc]

ε(      v ゜ω゜)　＜　TODO 78頭

http://www.hyuki.com/d/200512.html#i20051213105853

モエス

...はっ

% grep ^TODO work/dia/2005.txt | wc -l
    94

ちょwwwwwwww

TODO 死んでる TODO を整理する．

* ねずみ講と年金の違い教えてください [misc] 1 user

• http://blog.livedoor.jp/orz_kawaisosu/archives/50248979.html
• http://nya.livedoor.biz/archives/50248979.html

31 :番組の途中ですが名無しです :05/12/11(日) 19:30:31 ID:bagAgF1w0
ねずみ講と取り締まる法律を作るとき、
最初に提出された法案だと、年金システムも、ねずみ講になってしまうので、
法案の作り直しに１年もかかってしまった件について。

ほんとかよ．

第２条　この法律において「無限連鎖講」とは、金品（財産権を表彰する証 券又は証書を含む。以下この条において同じ。）を出えんする加入者が無限 に増加するものであるとして、先に加入した者が先順位者、以下これに連鎖 して段階的に２以上の倍率をもつて増加する後続の加入者がそれぞれの段階 に応じた後順位者となり、順次先順位者が後順位者の出えんする金品から自 己の出えんした金品の価額又は数量を上回る価額又は数量の金品を受領する ことを内容とする金品の配当組織をいう。

無限連鎖講の防止に関する法律

作り直し云々はともかくとして，「2以上の倍率」ってのがミソかな．

逆にいうと，倍率がぎりぎり 2 にならないような仕組みだったら合法だっ てことですか?

• 新しく入会した人はサイコロを振る
• 出た目が 1 だった人は 1 人だけ勧誘，それ以外の人は 2 人だけ勧誘して子会員にする
• 1 段階の倍率は 11/6 < 2 なので合法．ウマー

ほんとかよ．教えて偉い人．

* トイレットペーパーRSSリーダ [tech]

• http://japanese.engadget.com/2005/12/11/rsstroom-rdr/

ねらいが分からない．

* サムスン ポケットプロジェクタ [tech]

• http://japanese.engadget.com/2005/12/12/samsung-pocket-imager/

12.7センチ×9.45センチ×5.08センチで660グラム

* ハードディスク時計 [tech]

• http://japanese.engadget.com/2005/12/10/real-hdd-clock/

前にいた研究室では，流しのところに鏡の代わりにハードディスクのプラッ タが置いてありました．最初はギャグだったはずだけど，いつの間にか定着 してた．今でもあるんだろうか．

* 防水 DVD プレイヤ [dv-900w][shopping]

というわけで [2005-09-19-1]，購入．家電エクスプレスで 41,900(税別)．

• http://www.rakuten.co.jp/k-express/672726/656488/678036/#700970

実際に見てみると 9 インチはちょっと小さいかなという印象．まあしかた ないかな．大きくても邪魔だし．

うちだと，内蔵アンテナではテレビはほとんど見えない．テレビ見るなら専 用アンテナ線買うしかなさそう．結構高いんだよな．

• http://www.rakuten.co.jp/k-express/672726/656488/678036/#705402

さて，どうしよう．DISCAS [2005-05-24-2] でも試してみるかな．

* ラーメンズの寿司講座 [misc][rahmens]

なんだこれ．

• http://video.google.com/videoplay?docid=6905089586228877019&q=sushi

(追記: 無くなってしまったようです)

(追記: YouTube にあるようです [2006-03-09-1]．いつまであるか分からん けど)

* 半田づけカフェ [misc]

• http://pcweb.mycom.co.jp/news/2005/12/07/011.html
• (via http://dkiroku.com/2005-12-08-14.html)

工具のレンタル料込みで800円 / 1時間(延長は250円 / 30分)。

高くね?

(追記) vipper の皆さんが興味を示されたようです．

• http://blog.livedoor.jp/orz_kawaisosu/archives/50243153.html

* ASCII じゃない文字フィルタ [tech]

英語のページを書いていたはずなのに，いつのまにか日本語の文字が混じっ ていて，実は英語圏から見ると化け化けだった．

てなことは，自分自身が書いたページではあまりないんだけど，世の中見回 すと結構あります．

というわけで，以前 ASCII じゃない文字をハイライト表示するゲートウェ イ型フィルタを書いて，某所で内部的に使ってたんだけど，また最近必要に なったので，手直しして，せっかくなので公開してみる．

• http://www.kagami.org/noascii/ (ここのサーバには Crypt::SSLeay がインストールされていないので，https なページは開けません．)

その他の既知の問題としては，

• パスワード認証がかかっているページを開くのは無理 (やりたくない)
• a 要素以外でのジャンプに未対応 (だから frame なページはダメ)
• title の中に non-ascii な文字があると気持ち悪いことに
• 元のファイルに base 要素があった場合はそのままにしといた方がいい?

などがあります．

ソースはこんな感じ:

#!/usr/bin/env perl -T

use strict;
use Jcode;
use CGI;
use URI;
use HTML::Parser;
use HTML::Entities;
use LWP::UserAgent;

&main;

sub main
{
    my $query = new CGI;
    my $script_uri_copied = URI->new($query->url());

    # ヘッダ出力
    print $query->header(-type => 'text/html', -charset => 'EUC-JP');

    # ハイライトの色: デフォルトは cyan
    my $color_str = $query->param('color');
    my $color_code = &hilight_color($color_str);

    # EUC に変換した HTML を取得
    my $http_response = &get_html($query->param('uri'));
    my $uri_base = $http_response->base;
    my $html_code = Jcode->new($http_response->content)->euc;

    # Parser を起動
    my $handler_text = &handler_text_closure($color_code);
    my $handler_start = &handler_start_closure($script_uri_copied, 
                                               $uri_base, $color_str);
    my $hp
      = HTML::Parser->new(default_h =>
                          [sub { print shift; }, 'text'],
                          text_h =>
                          [$handler_text, 'text'],
                          start_h =>
                          [$handler_start, 'tagname, attr, attrseq, text']
                         );
    $hp->parse($html_code);
}

sub hilight_color
{
    my ($color_str) = @_;
    my %color_hash = ('cyan'    => '#00ffff',
                      'magenta' => '#ff00ff',
                      'yellow'  => '#ffff00',
                     );
    
    return $color_hash{$color_str} || 'cyan';
}

sub get_html
{
    my ($uri_str) = @_;
    my $uri = URI->new($uri_str)->canonical;

    # http と https のみ対応
    if ($uri->scheme ne 'http' && $uri->scheme ne 'https') {
        &print_error("scheme not supported: $uri_str");
        exit;
    }
    
    # ファイルを取得して EUC に変換
    my $ua = LWP::UserAgent->new;
    my $res = $ua->get($uri->as_string);

    if (!$res->is_success) {
        print $res->error_as_HTML;
        exit;
    }
    if ($res->content_type ne 'text/html') {
        &print_error("not an HTML: " . $res->content_type);
        exit;
    }

    return $res;
}

sub handler_text_closure
{
    my ($color_code) = @_;
    my $style = "color: black; background-color: $color_code;";

    # テキスト部分で，8 ビットめが立っているところと立ってないところの
    # 境界を検出してタグを挿入する．
    return sub {
        my ($text) = @_;

        $text = " $text ";

        $text =~ s/([\x00-\x7f])([^\x00-\x7f])/$1<b style=\"$style\">$2/g;
        $text =~ s/([^\x00-\x7f])([\x00-\x7f])/$1<\/b>$2/g;

        $text =~ s/^ //;
        $text =~ s/ $//;

        print $text;
    };
}

sub handler_start_closure
{
    my ($script_uri, $uri_base, $color_str) = @_;
    my $is_base_set = 0;

    # タグもちょっといじる
    return sub {
        my ($tagname, $attr, $attrseq, $text) = @_;

        if (!$is_base_set && $tagname ne 'html' && $tagname ne 'head') {
            # html と head 以外が初めて出て来る場所の直前に base を挿入
        
            print "<base href=\"$uri_base\">\n";
            $is_base_set = 1;
        }
    
        if ($tagname eq 'a' && defined($$attr{href})) {
            # a の href の中身を，この CGI を経由するように変換する
        
            print '<a href="', 
                  &wrap_uri(encode_entities($$attr{href}), 
                            $script_uri, $uri_base, $color_str),
                  '"';
            print map {
                $_ eq 'href'? '': " $_=\"" . encode_entities($$attr{$_}) . '"';
            } @$attrseq;
            print '>';
        } elsif ($tagname eq 'meta'
                 && $$attr{'http-equiv'} =~ /^Content-Type$/i) {
            # content-type を指定する meta があるなら，EUC に書き換える
            
            print '<meta http-equiv="Content-Type"', 
                  ' content="text/html; charset=EUC-JP">';
        } else {
            print $text;
        }
    };
}

sub wrap_uri
{
    my ($arg, $script_uri, $uri_base, $color_str) = @_;

    $script_uri->query_form(uri => URI->new_abs($arg, $uri_base),
                            color => $color_str);

    return $script_uri->as_string;
}

sub print_error
{
    my ($s) = @_;
    print "<html><body>$s</body></html>\n";
}

* PostScript でレイトレーシング [tech]

• http://at-aka.blogspot.com/2005/12/postscript.html
• (via http://www.pochi.cc/~sasaki/chalow/2005-12-05-5.html)

!!!!!

* スレンダートーンフィギュラ [shopping]

電気刺激で腹筋を鍛えるという器具の一種．お試し期間があるというので試 してみたけど，効果が見られないので返品．

• http://mall0.shopjapan.co.jp/olm/showdetl.cfm?&DID=46&Product_ID=51759&CATID=5895

始めた直後は確かに筋肉痛が発生して，腹筋に負荷がかかること自体は実感 できた．けど別に体重もウェストも減らなかった．PC に向かったまま運動 できるなら楽だなーとか思ってたけど，まあそんな甘くはないようだ．

* 超小型汎用PC [tech]

スタパ先生が Mac Mini っぽい PC をさぐっている．

• ミニピーシー http://pc.watch.impress.co.jp/docs/2005/1121/minipc.htm
• Aopen MP915-B http://pc.watch.impress.co.jp/docs/2005/1128/aopen.htm
• (via http://bb.watch.impress.co.jp/stapa_blog/archives/2005/12/pc.html)

んー，どっちもベアボーンなのか．前者は BTO セットがある．OS (WinXP) まで載っけた価格で9万円くらい．値段は結構するんだな．

* CPU で目玉焼き [misc]

• http://www.phys.ncku.edu.tw/%7Ehtsu/humor/fry_egg.html
• (via http://japanese.engadget.com/2005/11/30/fry-egg-cpu/)

11 分ほどかかるらしい．

* スパムに返信したらどうなるの? [misc]

• http://spamijiri.michikusa.jp/
• (via http://www.oikaze.com/~tamada/Diary/2005-12-02.html#2005-12-02-1)

件名：わ〜！うんこマンだ〜！

最近は小学生がスパム送ってるのか．すごいな．

* 魔術 [misc]

• http://blog.livedoor.jp/warata2ki/archives/50017003.html

その状況を想像するだけでひたすら笑える．

* ハバネロに似てる方 [misc]

• http://blog.livedoor.jp/warata2ki/archives/50017027.html

うわ，激似．

* はがせるイレーザー [shopping]

ホワイトボードは便利だけど，イレーサが汚れて消しにくくなるとストレス がたまる．かといって，ちょくちょく買い替えるのも何だかなあと思ってた ときに見つけた，レイメイ藤井の「はがせるイレーザー」

http://www.rakuten.co.jp/akishimado/436825/596369/

フェルトが 10 層くらい重なっていて，汚れたらはがして使える．かしこい． 300 円くらい．

さっそく買って，しばらく使って汚くなって，よーしそろそろはがすぞーと 思ってわくわくしていた矢先に紛失した ＿|￣|○

というわけで 2 個目使用中．1 枚目をはがせる日はまだ遠い．