String cat

ニノ前しいの使い方

2011-09-10T17:30:00.004+09:00

うだうだしてないでいー加減何か書かないと、９月発売号が出てしまうので。
＃あれ？もう出てる？

先月から、サンデー超で連載をやらせてもらえることになりました。

「ニノ前しいの使い方」

というタイトルです。
８月スタートなのに真冬の話になっているのは、ほんとは去年の冬あたりに始めようと言ってたのがうだうだやってるうちに春になり、夏になり…だったからです。
タイトルにしても、「しい」が名前というのだけ決まっていて、最初はみんパイよろしく「みんなのしい」にしようとか、名著になぞらえ「はじめてのC」でコミックスを買ってくださる奇特なお方を赤面させてやりたいけどサンデーにはじあくあるしなとかなんだとか、うだうだやってるうちに上記のものとなりましたし、そもそもの名前も、CAFEBABEみたく「ADAC(44460号)」でエイダとCにかけていたのが、ブラウザのURL欄で「javascript:alert((28).toString(16))」して「ヤッターCが入ってる」みたいなことがあり、ニノ前しいに変更したんですが、「うわーぷらぷらの0xが11になってるー」とか、時代はgolangかなとか、クロージャ使えて並列強くてコンパイル系で、死ぬほど検索しにくいけど最強じゃねこれとか思ったりでうだうだうだうだうだうだ…。

そうしてうだうだしているところへ、「おい猫砂、編集長が『まだー？』言ってる。そろそろまじやばいぜ」と担当さんに怒られ、スタートとなりました。

たぶん１０回前後で終わる短い連載となりますが、生暖かく見守っていただけたらと思います。

まんが用紙を作る

2010-08-27T23:50:00.002+09:00

　前に作ったまんが用紙が微妙に使いにくかったので作り直し。前と同じでruby/cairo。てことでソースと出力したもの（pdf）晒しておきます。

ダウンロード（zipファイル）

　前よりいくらかよくなったと思うけど使ってみるまでなんとも言えず。まあ印刷してネームろう。てか寝て起きたので一日経ったと思ってたけど今日二本目だこれ。

どうぶつしょうぎが面白い

2010-08-27T03:01:00.003+09:00

　iPadアプリのどうぶつしょうぎがすごく面白くて、トイレ入ってるときナド黙々とやっています。あまり強い思考ルーチンではないのでよほどのことが無い限り負けませんが、だからこそわざと駒を取らせて王様単騎で突っ込んでみたりしてます。
　で、面白いから自分もと、どうぶつしょうぎ互換なゲームをjavascriptで作ってみました。駒の動きを任意に変更できるようにしているので、「どうあがいても駒を動かせなくなったら負け」というルールを追加しています（ただし、リンク先で遊べるゲームは「動けない状態」にならないことが解明されてます）。

○ index.html(google chrome, firefoxで動作確認。一応iPadのtouchイベントにも対応。IEじゃたぶん動かない）

○ iPadのcloudreader用HTML5ウィジェット(wgtファイル)

　思考ルーチンはあんまり強くありません。強いのをどうやれば作れるのか知らないし。将棋に詳しければ書けるんでしょうが、私は将棋の「定石」が何なのかすらよくわかってないので無理です。
　ちなみに内部的には頑張って駒情報へのビット演算で手筋を考えられるようにしたりしたんですが、大半作り終えた時点でここを発見。このリンクの方は強くて面白いどうぶつしょうぎを作っているのですが、そのプログラムの解説によると「駒単位で管理とかやめたほうがいい」そうな。やっぱ盤の配列を使ったほうがよかったのか。ビット演算のパラレル性でiPadでもサックサク！　とか思って書いたものの、さして早いわけじゃないし。
　リンク先のコード、指す先の変数名に「to」とか使ってたりしていて「おお、けっこう近いとこまでは同じ考え」などとニヤニヤしたのですが……他方は強くてこっちは全然アレという結果になってしまいました。う～ん。

急々如律令 1.7.6

2010-08-20T07:35:00.005+09:00

更新履歴を見たら二年ぶり。自作ランチャ「急々如律令」を少しいじったので公開します。私はFSFの支持者なので当然無料です。

ダウンロード

　私はいつも自作のランチャでソフトを起動してるのですが、さっき二年くらい放置していたそのプログラムの動作がむかつくシーンに遭遇したので修正しました。マルチモニタだとデスクトップをダブルクリックしたときランチャの動きがおかしくて、で、仕方ないのでデスクトップに対するフックをオフにしてたんだけどそれやると画面いっぱいにfirefoxを起動したとき困るという感じ。で、修正したんですが、ここんところCいじるときはstdioとstdlibとqtくらいしか使ってなかったので久しぶりに見たWinAPIがなんかキモかった。前は全然気にならなくて、キモイ言ってる人みかけると「そうかな？」と首捻ってたんですが、久しぶりに見た自分のコードが読めねぇ読めねぇでここは魔窟かと。

末代まで！　三巻発売！

2010-08-01T06:43:00.004+09:00

早い書店さまなら昨日〜一昨日に入荷しているようですが、「末代まで！」の三巻（副題: 心霊温泉トレイニング・キャンプ）がスニーカー文庫より本日発売です！
　最近公式サイトのアレがまったく更新できていないのでせめて文章で宣伝すると、三巻は、非実在青少年たちが真夏の島へ合宿に行って温泉やら保護やら勧誘やらをする話。要するに、サブタイにトレイニングとありますが、ぶっちゃけトレイニングはほとんどしてません。gooの辞書で「合宿」を調べたらトレイニングキャンプと出たので採用したってだけです。私はいっつもそんなんです。よろしくお願いします。

　ちなみに表紙は、お岩の髪の色が前と違う上、そもそもデザインが前例を踏襲していません。見つけにくいかもしれませんが、書店で見かけたさいはどうぞよろしくお願いします！
（書影を載せたいとこですが、私はファイルを持ってないし、持っててもブログに載せてよいか微妙なんで掲載は控えました。角川のサイトへ行けばどっかに書影がありますかね……？）

　iPadがどうとかで近況を晒すことをあんまりやってなかったので近況をば。
　三巻が出たばかりですが、四巻用のプロットをさっき送りました。ほんとは昨日が締切りだったんですが一日遅れました。あとがきにも書きましたが三巻はわりとアレだったのでよかったなぁ……。
　ちなみに、このあとはさらに別件のプロットなどを四本ほど考えます。MacのDockのMacVimとEvernoteのアイコンに火ィつきっぱです。
　とりあえずメシだ、メシを食おう。昨日からあんぱん一個しか食ってない……。

iPadに手書き文字を認識させる

2010-07-18T17:26:00.004+09:00

お岩のついったーをいじってばかりで全然ブログ書いてないなぁ思ったので久々更新。

　先日iPadのSDKを落としたので、上の画像のようなことをやってみました。zinniaというフリーのライブラリを使ってiPad/iPhoneで手書き文字を認識させてます。
　で、以下はその手順のメモ（Mac OSX snow leopard, Xcode 3.2.3）。

１）zinniaのサイトからzinniaとモデルファイルをダウンロードしてくる。

２）zinniaとモデルファイルをconfigureしたりmakeしたりなんだり。

３）iPhone/iPadの適当なプロジェクトを作る。

４）プロジェクトのあるフォルダ（~/Documents/Xcode/...）に（２）でmakeしたモデルファイルと、zinniaのソース・コードの*.hや*.cppをコピー。どーせmakeでターミナル開いてるんだからcp使うのが早いかと。

５）コピーしたcppのうち、mainブロックを含むファイル以外をプロジェクトに追加。モデルファイルもプロジェクトの「Resources」に追加。

６）config.hが読み込まれてないせいでエラーが起きるので、「#ifdef HAVE_CONFIG_H」で囲まれた「#include "config.h"」をどうにかする（VCならプロジェクト設定でどうにでもできるんだけど、Xcodeの使い方がよくわからなかったので私は#ifdefのコメント・アウトで対処した）。

７）以上でおわり。適当にサブクラス化とかしたキャンパスを作り、Resourceにあるモデルファイルを読み込み、タッチ座標（線のデータ）を送れば認識してくれる。

// モデルファイルを読み込む
NSString *path = [[NSBundle mainBundle] pathForResource:@"handwriting-ja" ofType:@"model"];
zinnia_recognizer_t *zrec = zinnia_recognizer_new();
if (!zinnia_recognizer_open(zrec, [path cStringUsingEncoding:1])) NSLog(@"ERROR: %s", zinnia_recognizer_strerror(zrec));

// 解析結果をログへ（結果の文字コードはUTF8らしい）
for (size_t i = 0; i < zinnia_result_size(result); ++i)
NSLog(@"%02d: %@ (%f)", i + 1, [NSString stringWithCString:zinnia_result_value(result, i) encoding:NSUTF8StringEncoding], zinnia_result_score(result, i));

-----------------------------

　iPad SDK、面白いけど実機でいじるにはおカネかかるのがなんとも。比較的豊かな日本とかはともかく、アレって物価安い国の人に「来んな」ってシステムじゃないですか？
　てか、auからiPhoneみたいなデザインでandroid出ないかなぁ……。

i文庫HDで「!?」とか「!!」をまともに表示する

2010-06-06T11:20:00.004+09:00

iPadのキラーアプリとか言われているi文庫HDですが、あのソフトは縦中横に対応していません。「!?」や「?!」などの半角記号は全角一文字ぶん使って表示されてしまい（つまり縦に二文字ぶんスペースを取る）、読む人には表示が汚くて嫌でしょうし、私のように青空形式で小説を書いている人間にはものっすごく不便です。半角の疑問符感嘆符（!?）や二連続の半角感嘆符（!!）が全角二文字ぶん使ったせいで章の頭が一ページずれる、なんてこともざらにあるわけです。
　ところで、青空文庫のテキストは規約でJISにしている（らしい）わけですが、i文庫HDはUTF-8に対応してくれていて、そのうえUTF-8には「!?」や「?!」の記号があります（wikipedia - 疑問符感嘆符）。で、こんなのがあるってことは、

「!?にi文庫の野郎が二文字使うってんなら、一文字にしちゃえばいい」

　のではないでしょうか。さっそくそんなプログラムを組んでみました。

i文庫HD 縦中横変換
ダウンロード用

　プログラムはウェブブラウザのFirefoxで動きます。
　実行すると、!?などが一文字でまともに表示されるようなファイル（ユニコードテキスト）が無圧縮zipで生成されます。iPadでの動作画面を掲載したいとこですが……小説ファイルのキャプを見せたらたぶん怒られるのでブラウザの実行画面のキャプチャをば。

　タイトルを入れ、テキスト入力欄に青空文庫形式の文章を入れるとzipファイルへのリンクが出てくるので、ダウンロードしてそのままDropboxに入れるなり、中のテキストを取りだしてFTPで転送するなりしてください。青空形式で小説書く人は管理が楽なのでDropboxを使うのをお勧めします。なお、プログラムで生成されたzipのファイル名はユニなので、対応していない解凍ソフト(i文庫HD含む)だと日本語ファイル名が化けます。名前が化けても中身は大丈夫ですが、嫌な場合はユニに対応したソフトでいじりましょう。
　動作確認はWindows Vista上のFirefoxのみです。zipに固めるライブラリがエラーを起こすのでgoogle chromeでは使えません。zipをダウンロードするのに使うData URIに対応していないのでIEでも使えません。Safariはchromeと同じwebkitなのでたぶんダメだと予想されます。Operaは使ってないのでわかんないです。面倒なんで調べてません。つか最近ブラウザ多すぎじゃないですか。

　＊

　しかし、上記のプログラムでどうにか「!?」「?!」「!!」「??」といったユニコードにある記号は表示できますが、連続した半角アルファベットや半角数字は寝ずに立って表示されてしまいます。!?にしても、デフォルトの明朝フォントがあまり上等ではなく、微妙にずれて表示されてしまいます。DropboxやGood readerから開けるようにzipにするのも少々面倒臭いですし……アップデートで解決して欲しいところです。
　あとこれはi文庫HDに限らない話ですが、青空ビューアのタイトルの表示方法って規約で決まっていないんですかね？　昔「最初の二行をタイトル・著者名とする」というのを読んだ気がするのですが、ビューアによってべた書きテキストになったり一ページ丸々使ってタイトル・著者名を表示したりと、挙動がふらふらしています。で、しかたないので［＃改頁］でごまかすのですが、［＃改頁］が効かないビューアがあってがっかりという。青空文庫形式はvimなどのテキストエディタで書けてしかも汎用性がある、というのがとても便利なのですが、ビューアに統一感が無さすぎな気がします。
　あと、i文庫HDを見習って他のビューアは全部ユニコードに対応するようにしてほしい。最初からユニで書いてしまえば上の変換なんて必要ないわけで。普段ＰＣで愛用しているarisu viewerは禁則やら行・文字数の設定ができて最高なのですが、sjisのみなのですよねぇ……印刷できないし。

iPad来た

2010-05-29T00:39:00.003+09:00

　iPadが届きました。発売前のレビューで「予想以上のユーザー体験」云々というのをよく聞いていたわけですが、ほんとに予想以上の使い心地でした。パソコンぽいけどパソコンじゃないというか。
　一番ぐっと来たのはメールソフトでしょうか。アップルストアで紹介を見たときは「微妙」と思っていたのですが、いざ起動してみるとこれがすげぇ使い易い。普段使っているgmailをサクサク読み込んでくれて、画面を適当にタッチすればメールが読めて文字が小さければピンチで高速に拡大・縮小できて……まあ、別に機能自体は大したことないんですけど、これらを指で直感的にやれるのが実に楽しいし、操作に迷うこともない。
　わたしは最近ドラえもんをひたすら読んでいるのですが、これ、ドラえもんがポケットから出しそうだなと本気で思いました。
　唯一の難点はソフトウェアキーボードですかね。「ものすごく打ちにくい」わけではないものの、iPadをいじったあとに普通のキーボードを触ると「自分こんなに早く打てたんだ」とか思う程度に打ちにくい。ついったーで教えてもらった情報によるとUSB接続で動くキーボードがあったりなかったりらしいのでUSBコネクタを買うべきですかね。ついでに言えばIMが単漢字の変換に弱い印象があるのでGoogle 日本語入力あたりがiPadに対応しねーかなと思ったり。
　ちなみに、アップルストアで注文したとき覚悟してましたが、フラッシュが読めないのでクラブサンデーは表示できず。HTML5はこの記事の前の記事の数独ソフトを動かしたら無駄に重かったので、クラサンには是非とも専用のビューア・アプリを出してほしいですね。processing.jsもやってみたらクソ遅かったし、javascriptはたいしたことないっぽいですiPad。

　締め切りあるのでまだアプリは一切インストールしていないんですが、このあと寝る前にちょっといじってみようかと思います。iBooksとi文庫HDが要チェックですかね。てかそれ以外に話題のアプリをよく知らない。
　実はわたしは「iPadで無料ライトノベルを読もう」てことで、"iPadの発売にあわせて末代のボツになった短編をネットで無償公開しちゃおうぜ"という企画を担当さんと話していて、まあ計画自体は頓挫しちゃったんですがずっと電子書籍系アプリばっかチェックしてまして、結果、他にどんなアプリがあるのかよくわかってません。Evernoteって公式サイトに行くとiPhone版しか置いてないんだけどiPadに入れて平気なのかな？　app storeを起動して人気ソフトを表示させても知らないソフトばっかでした。

　まあともかく、iPadはよいです。人をドキドキさせる力があるオモチャだなと思いました。

HTML5でナンプレ・プレイヤーを作る

2010-05-12T06:44:00.005+09:00

予約可能になったiPadをさっそく予約したんですが、とりあえず家にiPadが来たらsafariで勝手アプリしようとhtml5でナンプレを解くアプリを作ってみました→これ(問題データはここで生成)。
　document.location.hrefに#で問題データをくっつけて（半角81文字。空白はゼロ）、読み込めば問題が描画されるぞ、と。で、わたしが注文したのはwi-fi16GBなのでhtml5のキャッシュもやってみたよ、と。そんな感じです。

　iPadのsafariで動かそうと作ったわけですが、手持ちのwinにはsafariが無いので動作はchromeとfirefoxのみ。osxがジャガーの頃のめっさ不安定なsafariのイメージがぬぐえず、safariは未だにどうも好きじゃないです。iPadに乗ってるのはアレかと思うと少々萎える。
　そういやIEはいつになったらcanvasタグに対応するんでしょうかね。まあ、OS買った時Firefoxを落とすのに使って以来まったく使ってないので対応しなくてもいいんですけど。

　chromeのjavascriptコンソールが便利。ブレークポイントとか最高。でもchromeとfirefoxじゃfirefoxのほうが名前が可愛いからひたすらfirefoxを使ってます。

Google SketchUp7

2010-04-25T00:26:00.004+09:00

　Google SketchUpがいつのまにかバージョン７になっていたのでダウンロードしました。相変わらず異常なくらい操作しやすい。この世のすべての3Dソフトに見習って欲しい快適さ。何にも考えなくてもサクサク形を作ることができます。あと、６より７のほうがうちの環境では操作が軽く感じたのも嬉しい。調べてないから知らないけど処理を軽量化したんでしょうか。

　しかしイマイチ使わないんですよねこのソフト。以前一生懸命モデルを作ってコミスタに読ませたら残念な感じになったりしたので。
　７になってるし、探せば前よりよさげなエクスポートプラグインがあるだろうか。

レナを般若心経で

2010-04-18T08:39:00.004+09:00

　今はもう、昔ながらの網点に拘る時代じゃない――とか思って、トーンワークを探求してみました。まあ、ハーフトーンをいじって遊んだだけなんですけど。
　なんかこう……もっと呪われる感じが欲しい。でも、GIMPでSchemeやPythonを叩けばもっと繊細な動作を指示できるだろうと思いつつ命令を覚えるのがだるい。

　というか、vimで般若心経を整形しようとしたらcp932に設定しているせいで表示できない文字が。で、こういうことがあるたびutf8にしたいと思うんですが、それをやると執筆の友として愛用しているArisuViewerが使えなくなるというジレンマに陥ります。
　ArisuViewerは対応文字コードが増えてマック版が出たらもう文句ないんですが、難しいんでしょうかね。

二巻発売

2010-04-01T12:26:00.003+09:00

ついったーのほうで告知してますが、こちらでも。

　ということで、二巻出ました。よろしくお願いします。ちなみに、今アマゾンは送料無料らしいですね。最初聞いたときはエイプリルフールのネタかと思いましたが。

非実在青少年規制

2010-03-17T01:01:00.008+09:00

最近プログラムネタばっかやっていたので突然ですが、東京都が成立させようとしている、「非実在な女の子とイケナイことしたら発禁しちゃうぜネットとかも規制しまくるぜ条例」に私は反対です。
　で、転載自由のまとまった文章を目にする機会があったので、このブログへも転載しておこうかと。

●●●以下転載／ご自由にお持ち帰りください●●●

　こいつも自由に転載して下さい。

　ダンス・イン・ザ・ヴァンパイアバンドの作者、環望の日記。

http://mixi.jp/view_diary.pl?id=1437518200&owner_id=169340

僕は締め切り前で参加できなかったんだけど、今日「非実在青少年規制」に対する反対集会がおこなわれた。
その模様は知り合いの作家、井上純弌さんがblogでざっと語られているのだけれど、かなり深刻らしい。
http://blog.livedoor.jp/keumaya/
繰り返し申し上げますが、この「非実在青少年規制」は作家だけが圧迫される条例ではありません。
むしろ読者の方がダメージを受けかねないものです。なぜならこれは規制対象がポルノだけではないからです。

例えば「CROWS」。「BIOHAZARD」。「ONE PEACE」だってヤバいかもしれない。
規制する側の恣意的な判断で、つまり「自分はこの漫画、ひどいと思う」と思えば、規制できてしまう、という安直さがあるのです。

ご存知の方も多いでしょうが、以前僕はコンビニで売られるエロ漫画雑誌で連載しておりました。
その頃から規制は頻繁に行われていましたが、不思議だったのは規制の基準がやたらとブレること。
理由は簡単で、担当者が替わると規制もブレルのです。
男性が検閲（と、僕は呼んでいた）担当だと、まあ普通の常識的な規制なのですが、女性、それもポルノなどを毛嫌いしてる方が担当だと、それこそ「？」と言いたくなるくらい厳しかった。
全２０ページの漫画に占める「裸のあるコマ」の割合までも言い立てて、規制される。

つまりこの国に於ける規制には明確な基準が存在しなくて、携わる人間の個人的常識、もっと言ってしまうと「好き嫌い」で決まってしまうのです。あまりに流動的で、不安定。
そのため出版社は最終的に自主規制という名の「逃げ」を打たざるを得なくなります。
ヤバそうなものは一切扱わない。
コンビニ漫画はどれを読んでも同じ内容になってしまった。
それを苦痛と感じながら描いてる作家も少なくないと思います。
僕がエロ漫画から撤退したのもこれが理由の一つだったからです。
同じ事が一般漫画や、ゲーム、アニメで起きるかもしれない。これも問題の一つです。

何よりも納得いかないのは、誰とも知らない人から、自分が好きな作品を「読むに耐えない規制すべきもの」ときめつけられ、奪われるということ。
人間の社会はお互いの好き嫌いを許容し合う多様性こそが命だと信じます。
そして言論、出版の自由はその多様性を支える最も大きなファクターです。
規制が必要なら話し合い、解決すべきだ。一方的に決めつけていいものではない。

ながながと書きましたが、もしこれを読まれた読者の方は何か発言をお願いしたい。
他人事ではありません。あなたの好きな作品を守るため。
誰に何を発言すべきか、に関しては先ほどの井上純弐氏のblogにて具体的に書かれています。
http://blog.livedoor.jp/keumaya/

僕も少年画報社を始めとする出版社の抗議文書に連名で署名する事にした他、何人かの議員に手紙を書いてみようと思っています。　

何しろ時間がない。
後で後悔したくない。

　まんが家、海野蛍の日記。
http://mixi.jp/view_diary.pl?id=1437548280&owner_id=435281

というわけで例の「青少年健全育成条例」改正、つまり「非実在青少年」の件で
某都議に陳情＆「非実在青少年」規制を考える会で都庁に行ってきました。

陳情は翻訳家の兼光ダニエル真さんが発起人で、他の参加者に
あさりよしとお、有馬啓太郎、開田裕治・あや、玉置勉強、井上純弌、田巻久雄、
森奈津子、葉月博規、研太郎、速水螺旋人、楯野恒雪、長谷円、野上武志、
山本夜羽音、霜方降造、足立淳、えずろく、真銅努、さなづらひろゆき、清水清、
藤田貴之、巫代凪遠、菊水、鳳翔伶、こいでたく、永山薫（順不同、敬称略）、
そして自分。その他匿名希望含めると計32名。

民主の某都議に陳情したんですが、ぶっちゃけその場の雰囲気からすると、
予想以上にずっと状況はヤバイみたいです。
このまんまだと十中八九この改正案は通ってしまいます。
通ってしまった後の危機感はこの辺を読めば判るでしょうし、
http://tokyo.cool.ne.jp/jfeug/siryou/togikai_eikyou.html
それに対する集会の内容に関してはこの辺にまとまってます。
http://togetter.com/li/9539

むしろ今問題なのは改正後の心配ではなく、いかに今の危機を乗り越えるか。
通ってしまったらどうなるって危機感もいいけど、
とにかくまずは条例を通してはならないという危機感を持たないと。
都議会内では民主、共産、生活者ネットで腹の探り合いをしてるらしく、
反自公が全然まとまってないっぽいです。
特に民主内に反対を云いづらい空気があるみたい。
民共生が全て反対に回らないとこの改正案は通ってしまいます。

というのも国会議員に比べて都議会議員はこの問題について不勉強だと
その陳情した某都議も認めてましたし、ぶっちゃけ都議会内ではこの条例改正が
表現の自由の侵害になるかどうかも把握してない都議が多い模様。
改正反対＝児ポ法に反対と取られるのを怖れてるみたいです。
ここで「某都議」という書き方をしなきゃならないとこからも、
民主内での反対派への空気が感じられます。

じゃあ我々に何が出来るかといえば、その陳情の場で出た意見では
民主党の国会議員に陳情すること。
国会議員は児ポ法関連で事の次第を把握してる人が多いので、
その国会議員の方から都議に進言してもらうのが一番なんだそうで。
それと、出来れば女性、それも子供のいる主婦からの意見は効果的だそうです。
改正反対＝ロリコンという図式が根底にある人々ですから、
男性からの反対意見よりもそちらの方が聞き入れてくれるだろうという意味で。

とにかく、今週の木曜には改正案の是非が決まってしまいます。
あと三日で何が出来るかをまずは考えないと。
具体的な活動方法についてはここにまとまっています。
http://hijituzai.ehoh.net/
付け加えるなら、都議よりも都の国会議員に、
子供のいる女性が陳情するのが効果的。

　まんが家、あさりよしとおの日記
http://mixi.jp/view_diary.pl?id=1432368400&owner_id=178148

現在、東京都では第二の治安維持法を制定しようとしております。

「俺が気に入らないんだから、貴様、有罪。投獄。」

という、全然法律にもなっていない法律。
正しくは条例だけど、法は法。

実際問題「ガキの分際で、エロ本読んでんじゃねぇ！」で済む話を、針小棒大、さも大変な事のように喧伝して、科学的根拠全く無しの思い付きで、とにかく『自分の気に入らない奴は有罪』という言語道断の法の成立が罷り通ろうとしているのです。

>一　青少年に対し、性的感情を刺激し、残虐性を助長し、又は自殺若しくは犯罪を誘発し、青少年の健全な成長を阻害するおそれがあるもの

>二　年齢又は服装、所持品、学年、背景その他の人の年齢を想起させる事項の表示又は音声による描写から十八歳未満として表現されていると認識されるもの（以下「非実在青少年」という。）を相手方とする又は非実在青少年による性交類似行為に係る非実在青少年の姿態を視覚により認識することができる方法でみだりに性的対象として肯定的に描写することにより、青少年の性に関する健全な判断能力の形成を阻害し、青少年の健全な成長を阻害するおそれがあるもの
（略）

もっともらしそうだけど、内容は何の線引きにもなっておらず、権力の行使側が「そうだ」と言ったらそうなってしまう、曖昧を通り越した出鱈目が並んでいる事がわかるはず。

「非実在青少年」って何？
要するに、架空の存在でも、その振る舞いが為政者の気に食わないと『有罪』って書いてあるのですよ。

そんな杜撰かつインチキで、極め付けに危険な規制が始まろうとしているのです。
これはフィクションの世界じゃないです。今の東京都で、実際に進んでいる出来事です。

自身、こんな阿呆な話は、一部はねっ返り連中のアジだろうと思いつつも、パブリックコメントで「さらっと考えても『違憲』だろ。こんな事を審議している事自体が有害であり、税金泥棒だ」と送っておいたのだが、どうも都議会には、そういう道理のわかる、まともな人間が少数派だったらしい。

かなり危機的状況です。

問題を直視して下さい。
そして、まだ知らない人には、教えてあげてください。

ウォッチャーのblog
http://fr-toen.cocolog-nifty.com/blog/2010/02/post-cbc1.html

●●●●●

　自分自身が「自由に描けない」というだけなら、そこは創意工夫で立ち向かっていけると思うのですが、

むしろ読者の方がダメージを受けかねないものです。なぜならこれは規制対象がポルノだけではないからです。

例えば「CROWS」。「BIOHAZARD」。「ONE PEACE」だってヤバいかもしれない。
規制する側の恣意的な判断で、つまり「自分はこの漫画、ひどいと思う」と思えば、規制できてしまう、という安直さがあるのです。

　これは問題ですね。すごく嫌です。
　私は毎週ジャンプ・サンデー・チャンピオンを読んでますが、例えば「アニキが死んじゃったから腹いせにワンピース規制しちゃえ☆」なんてこともあるかもしれないわけです（まあ、さすがにないか）。

　ともあれ、漫画を始めとする大衆娯楽が好きで、自身それに関わろうとしている者として、条例の成立にはなんとしても失敗してほしいと思います。

vimを任意のimapでエスケープ

2010-03-15T02:04:00.012+09:00

オムニ補間について知りたくてvimのヘルプを見ていたら「<expr>」を発見したので以下のようなマクロを書いてみました。


" 任意のキーでKaoriyaVimデフォルトのエスケープとほぼ同じ動作に
let g:im = 0
function! SetIMIandESC()
    let g:im = &imi
    " return <ESC>
    return "\x1b"
endfunction
au InsertEnter set imi = g:im
au InsertLeave * let g:im = &imi | set imi = 0 ims = 0 imc = 0

" Ctrl+Jでエスケープ
inoremap <expr> <C-j> SetIMIandESC()

　vim(Kaoriya)を使い始めたころ、例えば「imap <C-j> <ESC>」などとしてCtrl+JするとIMEの状態が保存されないのがすごくイヤで（プログラマならともかく、私はvimで日本語を打ちまくる）、win32のapiとか叩いてどうにかしようとしたりAutohotkeyを使ったりしていたのですが、そんなの必要なかったわけですね。asciiのESCの文字コードを返しているあたり、果てしなく「これでいいのかな？」って感じですが、上のやつを組み込んでみたらimの状態がアッサリ保存できた。てか、「<C-^>」を上手く使えばもっとスマートに同じ事ができる？
　まあ、末代の２巻を書くとき「<C-[>」に慣れようとAutohotkeyの設定を消して書いたら二日で慣れたので、今はもう「<C-j>」なんてまったく使わないんですがね。VCのエディタで「Ctrl+[」を連打して首傾げたりしてます。ESCなんてどーでもよくて、次はdaw、cawに慣れたいですね。dwする癖がついているのですが、校正のとき助詞などをdawする癖をつければ余計なhjklwbeが必要無くなる。

map dw :ec "やーい、ばーかばーか！"<CR>

　とかで訓練か。

snow leopardにopencvをインストールする

2010-03-12T23:29:00.005+09:00

ユキヒョウにOpenCV2.0を入れてみました。ウィンドウズ(vc++)だとテキトーにcmakeいじれば入るんですが、どうもsnow leopardとOpenCVは相性悪いらしく……以下、導入のメモ。

◇◇◇

まずはMacPortsとかXCodeとかインストール。
で、どうやらMacPortsから入れるのはイクナイそうなのでOpenCVのサイトから圧縮ファイルを落として適当な場所に展開する。

ほんで、

$ sudo port install pkgconfig
$ sudo port install jpeg libpng tiff
$ cd OpenCV-2.0.0
$ mkdir build
$ cd build
$ cmake ..
$ ccmake .
CMAKE_CXX_COMPILERを/usr/bin/g++-4.0 に
CMAKE_C_COMPILERを/usr/bin/gcc-4.0 に
c 押して e 押して g
$ make -j8

で良いらしいので、ノリノリで「須藤さーん」とか言いながらやってみるも、エラーが出てダメ。テンションが一気に下がる。
ffmpegがどうのとエラーが出たので、

$ sudo port install x264
$ sudo port install faac
$ sudo port install faad2
$ sudo port install a52dec
$ sudo port install ffmpeg +faac +faad +a52 +x264
$ cd OpenCV-2.0.0
$ mkdir build
$ cd build
$ cmake ..
$ ccmake .
$ make -j8

しかし、うまくいかない。
で、

$ sudo port install ffmpeg +gpl +lame +extvorbis +faac +faad +xvid +x264 +a52

するとよいらしいのでやってみるもダメ。
じゃあmpegなんていらねーよと思い、

$ ccmake ..

からWITH_FFMPEGをオフに。
このときOpenMPの項目がオフなのをみかけたので、ついででこっちはオンに。
で、cてgしてmake -j8したらlibdc1394がねーよと出たので、

$ port search libdc1394
$ sudo port install libdc1394

で、make -j8 したらopenmpのせいでなんかエラーが増えたので「いいい、いいわよっ！　ompなんていらないんだからね！」とオフに戻す。
あと、もしかしてlibdc1394入れたからいけんじゃね？　と思ってffmpegをまたオンに戻す。

$ make -j8

やっぱりダメ。
じゃあいよいわよっffmpegなんて消えちゃえっ。

$ ccmake ..
$ make -j8

dc1394がどうのと出る。
ハイハイ、じゃあいいよ。それもいらねーよ。
WITH_1394をオフに。

$ ccmake ..
$ make -j8

通ったっ！
が、くそ遅いgccの出力を眺めていたさい、「ccmake」のあと「.」を二回打っていた自分に気付く。
大丈夫な気もするけどなんかアレなので一旦opencvのフォルダを消し、せっかくなのでsvnからファイルを落とす。

$ rm -r OpenCV-2.0.0
$ svn co http://opencvlibrary.svn.sourceforge.net/svnroot/opencvlibrary/trunk ~/opencv
$ cd opencv/opencv
$ mkdir build
$ cd build
$ cmake ..
$ ccmake .
一回だけ「.」を打ち、コンパイラの設定をし、WITH_FFMPEG, WITH_1394をオフに

$ make -j8

ちゃんと通り、

$ sudo make install

はい、ようやく終わったー。
つうことでテスト。

$ cd ../samples/c
$ vim build_all.sh

「10Gea-4.0<ESC>14Ge.:wq<CR>」する。vimかわいいよvim。

$ export PKG_CONFIG_PATH=/usr/local/lib/pkgconfig/
$ sh build_all.sh
$ ./drawing

動いたー。

◇◇◇

　ウィンドウズで実行ファイルを落として「UACうざっ」とか思いながらインストーラを起動して……とかやってると「postコマンドは便利だなぁ」と思うわけですが、こうエラーばっか出るとインストーラでちゃらっとインストールできたらなあと思いますね。

vimでSQLiteにメモを取る

2010-03-09T20:06:00.002+09:00

pythonに標準でsqliteが入ってるのを知って、データベースにメモを取るvimマクロを組んでみました。:Wで現在のテキストを書き込み、:Rで読み込む。SQLをいじるのは初めてだったので、ソートだのなんだの半時ほど戸惑いました。


"----------------------------------------------------------------------------------
" SQL MEMO
"----------------------------------------------------------------------------------

let g:sql_logfilename = "C:/Users/～/My Dropbox/Note/log.sqlite3"

function! s:SetSQL()
    let tag = input("Tag? ", "Memo")
    if tag == ""
        echo "Cancel..."
        return
    endif
python << EOF
import vim
import sqlite3
import datetime
import sys, os

enc = vim.eval("&enc")
tag = unicode(vim.eval("tag"))
date = datetime.datetime.today().strftime("%Y-%m-%d %H:%M:%S")
text = unicode('\n'.join(vim.current.buffer[:]), enc)

db_fn = vim.eval("g:sql_logfilename")
exist = os.path.exists(db_fn)

db = sqlite3.connect(db_fn)
if not exist:
    db.execute("create table log(date unique, tag, text)")
db.execute("insert or replace into log values(?, ?, ?)", [date, tag, text])

db.commit()
db.close()
EOF
    set nomod
    echo "Write SQL Database."
endfunction
command W call <SID>SetSQL()

function! s:GetSQL(...)
    let n = 5
    if a:0 > 0
        let n = a:1 + 0
    endif
python << EOF
import vim
import sqlite3
import sys, os

db_fn = vim.eval("g:sql_logfilename")
exist = os.path.exists(db_fn)
if exist:
    enc = vim.eval("&enc")
    db = sqlite3.connect(db_fn)
    c = db.cursor()
    n = int(vim.eval("n"))
    c.execute("select * from log order by date DESC limit %d" % n)
    for row in c:
        print "[" + row[0].encode(enc) + "]", row[1].encode(enc)
        print row[2].encode(enc)
        print " "
    db.close()
EOF
endfunction
command -nargs=? R call <SID>GetSQL(<args>)

QtのtabletEventが重くならないようがんばる法

2010-02-25T21:52:00.004+09:00

　ペンタブでの描画がなぜか重かったお絵かきソフト。画像じゃまったく伝わりませんが、ペンタブでもサクサク描けるようになりました。ついでにマウスカーソルの挙動が変だった問題も解決。
　これはQtのサンプルコードが悪いですね。サンプル通りやると重くなるわカーソルがバグるわでダメダメです。タブレット関係は、


void CFoobar::tabletEvent(QTabletEvent *e)
{
  m_pressure = e->pressure();
  e->ignore();
}

　とでもして、筆圧などの必要な情報をゲットしたらignoreしてマウスイベントに飛ぶとバグらなくなりました。コードは毎日寝る前に三十分くらいいじっているんですが、昨日超眠い状態で酒飲みながらコーディングしてて発見しました。

　saiやコミスタみたいに、マウス位置に向かってズームさせるのってどうやるんだろ？　QMatrixのある状態でどう計算させたものか迷う。それ思いついたら0.03公開しよう。

　てことでハイジ見よ。

HogePaint ver0.02

2010-02-20T07:17:00.004+09:00

Download(win/mac LGPL)

　Mouseにチェック入れた状態で消しゴムが使えなかったのとかマウスホイール対応とか。
　そろそろレイヤーが欲しいけど、合成モードだの移動だの透明度保護だのを考えるのが面倒くさい……。

HogePaint 0.01

2010-02-14T12:22:00.005+09:00

　バレンタイン？　何ですかそれ。
　てことでお絵かきソフトを改造しました。打ち合わせの際ちゃらっとペンタブでイメージを伝えたいことはよくあり、といってmacbookの画面はちっさいのでエレメンツは使いにくく、artrageは重いし……「画面を広く使えてローカル＆高解像度でdrawtwitterみたいな書き味のソフト」を目指して修正しました。
　ver0.00のGUIが使いにくいうえ場所を取っていたので一新、転写とか、要らない機能はカット。OpenMPを導入。ボカシが欲しかったから行列フィルタを実装、アプリアイコンを設定したりしました。リージョンを使ってストローク描画を高速化したので文庫の口絵程度の解像度（2000x2000）ならサクサク編集できるようになりました。たいした処理じゃなし、ver0.00の時点でリージョンを使えばよかった。

Free Download(LGPL)

WinVista, OSX snow leopardで動作確認。
OpenMP対応のOSで実行すべきです。
また、OpenMP対応のコンパイラでなければビルドできません。
実行には、QtやOpenMPのインストールが必要かもしれません。
readmeに書き忘れたけどアイコンはこことここのを流用しました。

お絵かきソフト: Hoge Paint

2010-01-30T00:00:00.005+09:00

　何か作るのに飽きてきたのですごい中途半端ながら作りかけのお絵かきソフトを公開してみます。当然フリーです。

Free Download(win & mac)
動作確認環境:
Windows Vista(7や2000、XPもいけるはず）
Mac OSX snow leopard(10.5でも大丈夫かも。私のmacはmacportで考えなしに色々落としているので、別途何かをインストールしなきゃいけない可能性あり）

ライセンス: LGPL
ソースが入っているので、バイナリは使わず自分でビルドしてもよいでしょう。

　ソフトはQtライブラリを使った簡易お絵かきソフトで、ぐちゃっとして見にくい上図は、Windows Vistaでの動作画面とMacでの動作画面をセットにしたものです。面倒なので確認していませんが、Linuxでもビルドすれば動くでしょう。
　書き味は（ペンタブ筆圧＆軽いブレ補正つきで）ここのdrawTwitっぽいです。てかこれをローカルに移植したくて、でもadobe airの仕様を調べるのが面倒くさくて、そんな感じで作ったのがこのソフトでした。あと、mac版が透けてますが、あれは1bitPaperの透明ウィンドウが欲しかったので導入。winでも透けます。

　しかしQtが楽しい。適当にAPIを叩けばそれっぽい画面ができるし、複雑なGUIを作りたいときはどっかからコンポーネントを探してくればいいし。それは.NETやDelphiでいいんじゃないのと思いきやmacやlinuxでも動くし。
　ろくにマニュアル読まずに手探りでコーディングしていて、SIGNALにSIGNALをつなげて良いと気付いたときは久々にプログラムが楽しかった。お絵かきみたいな「SAIあるじゃん」系でなく、なんかもっと局所を狙った変なものを作りたいですね。

座標とか面倒臭ッ

2010-01-26T23:16:00.002+09:00

　お絵かきソフトを継続してプログラミング。
　毎回画像画面のすべてを書き換えているのでたかが512x512でも拡大＆ストロークすると重い。拡大しなければそんなに重くはないんだけど……どうしたものか。
　ペンが通った位置だけ書き換えるようにすれば少しは速くなりそうだけど、ＡＰＩで線を引いているのでペンの太さが具体的に何ピクセルになるのかがわからない。調べるの面倒だし、計算も面倒だし、最近はCoreなんちゃらでＣＰＵがいっぱいあるし、手抜きしてスレッドかな……。乾燥だけでレイヤもないザコツールだし。

水彩ペンとかどう作るんだろ

2010-01-23T09:48:00.004+09:00

　縦書きエディタを作るのに飽きたので、今度はC++でお絵かきソフトを作っています。カラーピッカーとか単純な平均計算によるぶれ補正付きの筆圧対応は終わったけど、まだスポイトもレイヤもアンドゥも無し。というのも、画像データをどう扱うかが全然決まってないので、レイヤやアンドゥの仕様も決めらないんです。
　今はＡＰＩで描画しているけれど、解像度が300超えたら間違いなく使い物にならないはず。速度を出そうと思ったらブレゼンハムあたりで直接メモリに線を引くようにすべきなのでしょうが……よさげな情報がネットに無い。本のほうも、どうせならSIMDを描画部分に入れたくてこの前神保町の本屋を見てまわったら一冊８千円くらいする本しかなかった……。あとはOpenCLもいじってみたいところだけどあれも調べるのかったるいなぁ……。しぃペってソース公開されてなかったっけ？　思い違い？
　saiだのイラスタだのあるので、自作する意味はまったくないとか思いつつ、思い立ってはいじっています。

キャラクターなんとか機

2010-01-15T20:55:00.004+09:00

　先ほど偶然ネットで見つけたのですが、キャラクターなんとか機というソフトが地味に楽しいです。死に装束とか片眼を隠せる素材が欲しい。

続きが気になる怪文書

2010-01-07T04:37:00.005+09:00

新年なのでハードディスクを整理していたら、一昨年の夏頃に自分が書いた、以下のようなテキストファイルをみつけました。

　僕らの住む村には、大昔から続く奇妙な祭りがある。年毎の節分の夜、村の大人が金槌を持って集まって、「何か」をして帰ってくるという祭りだ。一体何をしてくるのか。子供は来てはいけない決まりで、僕らは毎年、大人たちが祭りで「何」をやっているのかを噂しあっていた。どの家の子も例外なく「あの晩一体何をしているの？」と親に聞いて「教えちゃいけない決まりなんだ」と言われているので、その鬱憤もあってか、節分の頃になると、僕らの間での話題は決まって祭りの話になるのだった。「酒屋の○○さんが持ってきた特大の酒樽を金槌で割って飲む」とか、「神社の鐘の歪みを直す」とか、たわいもない噂をあれこれ話して、僕らは毎年の節分を過ごしていた。

　ここまで書いて当時の私は書くのに飽きやがったらしく、文章は途中に改行すら挟まず、上の一行で終了。
　確かこれ、あの頃「小学生の少年が村のお祭りに忍び込んで変な儀式を目撃して怖がり、怖がる自分を淡々とナレーションする夢」を見て、面白かったので書き留めたものだったはずなのだけれど……この続き、どうなるんだっけ？　村のお寺に大昔に悪いことをした奴のミイラがあって、そのミイラには頭に釘が刺さっていて、村人たちはミイラが蘇らないように釘を打ちに行っている（そういう宗教がある）……みたいなストーリーだった気がするけど子細はサッパリです。ファイル名も「怪談.txt」とかいうやる気のないタイトルだし。ドラえもん的公式で、このあと主人公の少年が太った同級生や細い同級生とともに祭りに乗り込み、大人を騙して祭りの様子を見物するエピソードがあった気がするんだけど……？
　夢から起きてすぐ書き留めた記憶があるので、一昨年の私は途中でまた眠くなりやがったのでしょうが……ちゃんと最後までメモしておけばよかったなぁ。

あけまして

2010-01-01T13:58:00.003+09:00

おめでとうございます。２巻とか短編とかがそのうち出ると思うので、本年もどうかよろしくお願いします（図は、さっき作った今年の年賀状）。

自作エディタ

2009-12-25T11:52:00.010+09:00

このままでは今月は何も書かずに終わりそうなので何か書く。

　原稿の合間に縦書きエディタの自作に挑戦しています。Cで組むのは面倒なので、IMやら描画まわりだけCで書いてエディタの動作はPythonかv8に記述する方向で考えたり≒つまりまだキーボードから入力すらできない状態です。スクリプトを組み込んでIMからの入力やWM_CHARをそれに渡し、画面を更新すればエディタになるわけですが……Pythonのほうが自由度高そうだけど組み込みが面倒くさく、v8のほうが組み込みが楽だけど自由度低そう、とか考えてコーディングが進まず。表示のほうは、一応青空っぽいルールでルビと傍点表示に対応したけれど、キャレット位置の計算のことなんかを考えると無いほうが後々楽か。特にぶら下がり機能は消したほうが楽そう。
　TEditなんかの出来合いを使うのではなく自分で一からエディタを作る試みはだいぶ前から「挑戦→挫折」を繰り返しているのですが、今回も面倒くさくて挫折しそうです。だれかFootyかTEditを青空対応な縦書きのコンポーネントにしてフリーで配布してくれないでしょうか（C#にTateBoxがあるけど自由度がイマイチ）。
　それにしてもvc++使いにくい。dawコマンドが使えないのがつらい。vimからvc++にファイル渡すのってどうやるんだっけ。

お岩さんの墓と、怪しい遊戯の招待状

2009-11-30T20:14:00.010+09:00

ふと思い立ち、友人と一緒に東京・西巣鴨にある「妙行寺」という寺に行ってきました。寺は西巣鴨のビルの群れの中にひっそりと建っていて、その脇には並び立つ墓石。そしてその墓の奥には、

　画像ではわかりにくいですが、これ、お岩さんのお墓です。江戸時代に実在した（らしい）お岩さんは、現在巣鴨に眠っておるのですね。私は来月小説作業に入るので、その前に、今日はお岩さんのお墓参りをしてきたわけです。
　朝起きたときふと「行こう」と思って行くことにしたのですが、おどろおどろしいというより都会の喧噪を知らない清浄な雰囲気の場所で、中々気分のよい寺でした。行ってよかった。

　で、まあ、それはそれとして。
　お墓参りの道中、大塚の駅のベンチの上でこんなものを発見しました。

　携帯写真なので判別しにくいですが、これは封筒になっていまして、その表には、

この手紙は落し物ではありません。
だから届け出はしないでください。

でもきっと、開けてはいけません。

　とのうさんくさいメッセージが。
　地下鉄サリンや米国テロなどの影響で、全国の駅では「不審物を発見したさいはただちに係員に～」などというアナウンスが絶えないわけですが、この手紙こそまさにそれでしょう。これ以上無い不審極まる封筒です。私の中で、正義を愛する鋼鉄の心が燃えました。震えるぞハート。燃えつきるほどヒート！
　さっそく私は封筒を手に取り、

　駅員を呼んだりせず、ゲラゲラ笑いながら開けてみました。

　まあ、封筒はごく薄いものでしたから、爆弾や毒物を仕掛ける余裕は無いはずですし、開けても平気と踏んだわけです。

　開いてみると、中にはトランプのカードと、家庭用のプリンタで刷ったような怪しく簡素なプリントが一枚入っていて、その文面はというと、とある「ゲーム」へのお誘い。
　同封のトランプはゲームの参加チケットで、「ゲームが始まるから、トランプを持って○○に来い」というのですね。実にドキドキするお誘いではありませんか。
　文章の内容を詳しく書きたいところですが、たぶんそれは主催者の意図に反するでしょうからここではこれ以上書きません。が、しかし……なんというか、世の中にはすてきなことを考える人がいるものですね。漫画みたいな展開に、一時胸が激しく躍り、高鳴りました。すてきだ……すてきすぎる。

　残念ながら締切があるので私は参加できませんが、この手紙は都市部（たぶん23区内でしょう）にばらまかれているそうなので、拾った方は参加してみるのも一興かと。

　詐欺臭さを感じるくらいメタクソ怪しい文書なので、自己責任が激しく問われますがねｗ

NodeBox

2009-11-24T10:01:00.005+09:00

最近「寝る前にpythonで遊ぶ」を日課にしているので、pythonでprocessingを楽しめる「NodeBox」を使ってみました。


# sin-tan curve

size(384, 240)
speed(9)

def setup():
    global frame
    frame = 1

def draw():
    from math import sin, cos, tan, radians
 
    global frame
    frame += 1.0
    if frame > 180 * 3: frame = 1
    #print frame
    
    fill(0)
    rect(0, 0, WIDTH, HEIGHT)
    for i in range(32):
        nofill()
        strokewidth(sin(radians(frame % 180)))
        
        rotate(12)
        f = (i + 1) / 32.0
        v = sin(radians(frame)) * i * 15
        #v2 = cos(radians(frame)) * i * 20
        v3 = tan(radians(frame)) * i * 10
        autoclosepath(False)

        beginpath(WIDTH / 2.0, HEIGHT / 2.0)

        stroke(0.5, f - 0.1, 0.3 + f, f)
        curveto(v, -v, v, v, frame, frame)

        #stroke(0.5, 0.3 + f, f - 0.1, f)
        #curveto(v2, -v2, v2, v2, frame, frame)

        #stroke(0.5, f - 0.1, 0.3 + f, f)
        curveto(v3, -v3, v3, v3, frame, frame)

        endpath()

　pythonで書けるのはすてきだけど、本家のprocessingと違って何かしようと思うたび英語サイトをめぐらなきゃならないのが面倒、という印象。
　yieldを使って処理を分割して書けるので、pythonの練習がてら弾幕みたいな複雑でウヨウヨしたものを描かせてみようと思ったのですが、例えばカラーモードをHSBにするには？　と思って検索すると英語ばっかで萎えます。
　あと、ダイアログから手軽に動画を描き出せるようになっていて、これ自体は大変すてきだと思うのだけど、たかが数十秒の動画のファイルサイズが300MB越えなのは何故なの。320x240くらいの画面で10フレーム/秒程度の動画なのに300MBて。ブログに動画のっけようと思って書き出ししたら300MBのドでかファイルが爆誕でした。設定が悪いんだと思うんだけど……じゃあどうやって設定すんのかとググると、これがやっぱり英語です。

　お絵描きしたけりゃturtleとかTkinterを使って、本格的に遊びたいときは本家のprocessingを使ったほうがよさげですかね。ライブラリ多いし。

脱引きこもり計画

2009-11-07T05:37:00.006+09:00

ノーパソ持って外で書いてきました。無人の暗い公園で、水筒に持参したコーヒーを飲みつつ、幽霊がどうのと小一時間キーボードを叩きました。
　外はいいですね。空気がおいしいし、
「これでもう、引きこもりとは言わせない。アウトドアだぜ私ッ！」
　などとテンションも上がります。そんなわけで公園で撮ってきた写真を↓

　ええと……赤い矢印の先が顔に見えますね。でも心配ありません。私は科学の子ですから、ファッキンノングレアなツルツルのディスプレイに公園の林がいい感じで写って顔に見えるだけだと確信しています。

　ところで、ふと思ったのですが、openCVの顔認識でこういう写真を解析させたらどうなるんでしょうね？　雑多な写真の中から心霊写真を探すのって意外と面倒だと思うのですが、openCVを使えばサクサク怖い写真をゲットできそうじゃないですか？
　一見何の変哲も無い写真をopenCVで解析させたら、顔に見える部分を示す矩形で悪魔的なまでに写真が埋め尽くされ、「うわぁ、なによこの写真！　怖いわジョージ！」……みたいな新型Ｂ級ホラーとか。
　コーディングは面倒くさいので、portで落とせるopenCV顔認識ソフトが無いか探してみようか。

macbook proを買いました

2009-11-04T18:40:00.000+09:00

　昨日のことになるのですが、小説作業はエディタさえあれば外でできるので、外でやりたいと思ってmacbook proを買い、昨日から今日にかけていじり倒しています。
　とりあえず、

かわせみ
xcode
macport
macvim
gauche
rcairo
imagemagick
dropbox
artRage
mpg123
flex
gimp
inkscape
openoffice
quicksilver
nodebox
processing

　をインストール。
　入れた中では、一番最初の「かわせみ」がよさげでした。macで使えるim(インプットメソッド)なのですが、MS-IMEやAtokと違ってローマ字変換規則に記号類を使えるのが大変すばらしい。私はUSキーボードを使っているので、「'」と「"」にそれぞれ「……」と「――」を設定したりしました。
　この二つ、いままでは「てん」やら「せん」で辞書登録し、変換で出すという面倒な作業をしていたのですが、この設定のおかげで、一回のキーストロークのみ＆変換ナシで入力可能に。神のごとき便利さです。かわせみはmac用のソフトなのが、windows/Atokでもこういうことをできるようにしてほしいものです。

　もうひとつすばらしかったのが、リストの最後にある「processing」。簡単なプログラムでフラクタルなんかを描けるソフトで、マックでやらずともウィンドウズで動かせる、ＯＳを問わないオープンソースのフリーソフト……なのですが。
　macbookにはハードディスクを保護するための加速度センサがついていまして、processingは外部ライブラリによってこのセンサの値を読めるのですよ。

// processingでリンゴの触覚を読み込む。
// 要Sudden Motion Sensorライブラリ(http://www.shiffman.net/p5/sms/)

import processing.video.*; // mov
import sms.*; // xyz
PFont font;
int max0, max1, max2;
int min0, min1, min2;
int movx = 3;
int movy = 3;
int es = 32;
int x1, y1;
Sippo sippo1, sippo2, sippo3, sippo4, sippo5, sippo6, sippo7, sippo8;

// 動画に保存するか否か。trueで起動から終了までをキャプチャして保存。
boolean create_movie = false;

MovieMaker mm;

void setup()
{
  int W = 512;
  int H = 512;
  int x = W / 2;
  int y = H / 2;
  int len = 128;
  size(W, H);
  smooth();
  // ↓Toolsメニューからフォントを作る必要があります
  font = loadFont("Serif-48.vlw");
  textFont(font, 25);
  max0 = max1 = max2 = min0 = min1 = min2 = 0;
  x1 = y1 = 256;
  sippo1 = new Sippo();
  sippo1.init(es, x, y, 0, 0, 0, len);
  sippo2 = new Sippo();
  sippo2.init(es, x, y, 256, 128, 0, len);
  sippo3 = new Sippo();
  sippo3.init(es, x, y, 256, 0, 128, len);
  sippo4 = new Sippo();
  sippo4.init(es, x, y, 128, 0, 256, len);
  sippo5 = new Sippo();
  sippo5.init(es, x, y, 0, 256, 128, len);
  sippo6 = new Sippo();
  sippo6.init(es, x, y, 128, 256, 0, len);
  sippo7 = new Sippo();
  sippo7.init(es, x, y, 256, 256, 256, len);
  sippo8 = new Sippo();
  sippo8.init(es, x, y, 0, 128, 256, len);
  // mov
  if (create_movie)
  {
    frameRate(15);
    mm = new MovieMaker(this, width, height, "sms_test.mov", 15, MovieMaker.H263, MovieMaker.LOSSLESS);
  }
  else frameRate(30);
}



void draw()
{
  int[] vals = Unimotion.getSMSArray();
  fill(48);
  rect(0, 0, width, height);
  // pos
  sippo2.Draw(y1, x1);
  sippo3.Draw(width - x1, y1);
  sippo4.Draw(height - y1, x1);
  sippo5.Draw(x1, height - y1);
  sippo6.Draw(y1, width - x1);
  sippo7.Draw(width - x1, height - y1);
  sippo8.Draw(height - y1, width - x1);
  // top
  sippo1.Draw(x1, y1);
  if (vals[0] > 0)
  {
    x1 -= vals[0] / movx;
  }
  else
  {
    x1 += abs(vals[0]) / movx;
  }
  if (vals[1] > 0)
  {
    y1 += vals[1] / movy;
  }
  else
  {
    y1 -= abs(vals[1]) / movy;
  }
  x1 = min(width, max(x1, 0));
  y1 = min(height, max(y1, 0));
  // line
  stroke(255);
  line(x1, 0, x1, height);
  line(0, y1, width, y1);
  noFill();
  ellipse(x1, y1, es, es);
  ellipse(x1, y1, es / 3 * 2, es / 3 * 2);
  // text
  fill(255);
  text(vals[0], 30, 50);
  text(vals[1], 30, 80);
  text(vals[2], 30, 110);
  // min/max
  if (max0 < vals[0]) max0 = vals[0];
  if (min0 > vals[0]) min0 = vals[0];
  text(max0 + " " + min0, 120, 50);
  if (max1 < vals[1]) max1 = vals[1];
  if (min1 > vals[1]) min1 = vals[1];
  text(max1 + " " + min1, 120, 80);
  if (max2 < vals[2]) max2 = vals[2];
  if (min2 > vals[2]) min2 = vals[2];
  text(max2 + " " + min2, 120, 110);
  // mov
  if (create_movie)
  {
    mm.addFrame();
  }
}

class Sippo
{
  int[] _x;
  int[] _y;
  float si;
  int len;
  int r, g, b;
  void init(float s, int defx, int defy, int _r, int _g, int _b, int l)
  {
    len = l;
    _x = new int[len];
    _y = new int[len];
    si = s;
    r = _r;
    g = _g;
    b = _b;
    int i;
    for (i = 0; i < len; i++)
    {
      _x[i] = defx;
      _y[i] = defy;
    }
  }
  void Draw(int x, int y)
  {
    int i;
    noStroke();
    for (i = 1; i < len; i++)
    {
      _x[i - 1] = _x[i];
      _y[i - 1] = _y[i];
      fill(r, g, b, int(float(i) / float(len) * 256.0));
      int siz = int(float(i) / float(len) * si);
      ellipse(_x[i], _y[i], siz, siz);
    }
    fill(r, g, b, 255);
    _x[len - 1] = x;
    _y[len - 1] = y;
    ellipse(x, y, si, si);
  }
}

　こんな感じのコードを書き込み、実行。macbook proをぶんぶん振り回すと、それに応じて画面が変化します。てことで下は、描画内容をキャプチャした映像。
（振ってるところを取りたいところだけど外付けカメラが無いので無理でした）

　こういう風な、体を使って動作確認するようなプログラムは初めてなので、夢中になる面白さです。ああ、センサかわいいよセンサ。
　執筆の合間に、もっと色々いじってやろうと思います。

重版が決まりました

2009-11-02T18:41:00.000+09:00

お昼ごろ担当氏からメールがあって「一巻、なかなか調子がいいので重版が決まるかもしれない」と言われていたのですが、先ほどついったーのほうで正式に発表があり、

　末代まで！　の第一巻が緊急重版決定しました。

　これも応援して下さったみなさまのおかげです。発売前に担当さん等から「重版……できるかなぁ？　できるといいですけどね。ははは」みたいに言われていたので、ほんとうに、ほんとうに嬉しいです。ありがとうございます。
　しかし、発売日の翌日に重版決定って……大丈夫なんでしょうか。編集部は決断早すぎなんじゃないでしょうか。ついったーでの発表も、アレたぶん時間的に「編集部の会議で重版決定⇒会議室出て即座につぶやく」みたいな感じですよ？　あとで「やっぱ重版無し！」とかないですよね!?

　ちなみに、昨日の夜に友人の作家さんに教えてもらったのですが、日本有数のアクセス数を誇るアキバblog様に末代の記事を書いていただいたようで、

　このブログのアクセス数が笑えるくらい跳ね上がってます。ありがたいことです。私のついったーのほうにもフォローが来たり「読みました」メッセージが来たり書評が来たり（！）していますし……応援して下さっている皆様の期待を裏切らないよう、

「ぱんつをはかないで呪文を唱えると威力が増す」
「精神力を鍛えるために全裸で野山を走る」
「リサがまんカレに投稿する（萌えよペン）」
※手持ちのメモより

　火力を増して、がんばってはっちゃけていきたいと思います。

　本当に、ありがとうございました。今後とも、どうかよろしくお願い致します。

「末代まで！」の一巻が発売されました

2009-11-01T09:31:00.000+09:00

昨日いただいてきたアニメ店長がすげぇ面白い。金言が満載ですよ。たとえば、

　というわけで、書店によっては２，３日前から並んでいたりするのですが、公式ではいよいよ今日が「末代まで！」の発売日。

　どうしよう、いよいよ発売ですよ。ここはひとつ、この日を記念して何かやろう。やらねば！　やるべきだ！
　……とか思っていたのですが、まあ、特にやることを思いつかなかったので、

はじめる

　前に小説のために作ったミニゲームをアップしてみました。本当はこんなわけわかんないことをやるくらいなら堅実にamazonへのリンクを張ったりするべきなんでしょうが、そういうのは公式ＨＰとネタが被りそうなのでやめました。手続きの方法もよくわからないし。
　このゲームは、以前ザ・スニーカー向けに末代の短編を書いた際に、作中に「芦屋先生はASでゲームを作っていた」云々という記述を入れたので、「短編発表に合わせてこのゲームの実物をブログにアップしよう」と作ったものです。が、肝心の短編がボツをくらい、今日までＨＤＤにお蔵入りしていたといういわくつきの物件。
　発売された一巻とは何の関係もないものですが、まあ、記念ということで。相手に一点も与えずに勝つ完封勝利を目指して遊んでみてください。

※動作にはなるたけ最新のフラッシュプレイヤーが必要です。
※このゲームはFlex3で作られました。ソースはここから落とせます。対人対戦できない仕様やCPUの強さに不満がある方は勝手に改造してください。

秋葉原に行ってきました

2009-10-31T21:11:00.000+09:00

いよいよ末代が明日発売。
　ということで、サイン本を書きに秋葉原のお店をまわってきました。
　アニメイト、ゲーマーズ、とらのあな、有隣堂……。
　当たり前ですが行ったのはどれも本屋さん。なので店頭には漫画がいっぱい並んでいました。欲しい本もいっぱいです。
　……でも、我慢しなくてはなりません。大阪が万博でも我慢しなくてはなりません。だって私は今日、本を買いに来たわけじゃないんだから！　

　なんて殊勝なことを考えられるほど私は大人ではありませんでした。朝、秋葉原に行く前におろしてきた万札が夢に消えましたよ。
　ちなみに最上部のアニメ店長の漫画は、アニメイトの中にアニメ店長の本があるのを見て爆笑、即座に購入を決めレジに向かった私に書店員さんがプレゼントしてくださったものです。感謝です。次はサイン本作業をほったらかしてレジに並んだりせず、ちゃんと仕事を終えてからガチで買うので許して下さい。

　ゲーマーズと有隣堂は秋葉原駅を出てすぐ、アニメイトととらのあなは電気街の大通りをちょっと歩いた先にあります。どのお店も東京都下のクソ田舎に住んでいる私には垂涎モノの品揃えなので、秋葉原に行く予定のある方はぜひ。

雨の中

2009-10-26T01:09:00.000+09:00

　資料用に、母校の学園祭に写真を撮りに行ってきました。私が通っていた高校では学園祭のあと夕暮れの校庭で後夜祭というものが行われるのですが、キャンプファイヤやらねぶたやら気球やら花火やら、毎年無駄にハデなことをするのでこれを写真に納めておこうかと。
　が、天気はあいにくの雨。もう校庭がぐちゃぐちゃなのでそんなもんできるはずもなく、写真は撮れませんでした。……まあ、しかたないですね。図書室やらを適当に撮って帰ってきました。

new macbook

2009-10-21T02:08:00.000+09:00

　we'll be back soon.
　を寝ないで監視していたら、ついに出ました新型macbook。
　（iMacとmac miniも出たらしいけどどうでもいい）

　待ちに待った新型です。
　気になる中身は、デザイン一新の上、cpu等はmacbook pro13インチとほぼ同じで、値段はproより２万円ほど安いというもの……だった、わけですが……。
　これってつまり、proと２万円しか違わないってことで。
「macbookの新型出たら買う！　絶対！」
　と思っていたものの、どうしても「２万の差ならpro買ったほうがよくね？」という気持ちが消えません。スペック同じで、proならアルミでバックライトですよ？
　こうしてみると、決して悪くはないけれど、特別よいというわけでもない。

　どうしたものでしょう。外で原稿したかったので、５時間だったバッテリが７時間になったのは嬉しいけど……う～ん。やはりproと差が無いのがどうにも。
　私は別にmacにこだわりがあるわけではないので、windows7にあわせて発売予定の、

vaio x
dynabook mx
Pavilion dm3i

　あたりも気になるところ。
　これらはせいぜい７～８時間のmacbook(pro)に比べて10時間だの20時間だのという駆動時間が魅力ですが、メモリとかcpuを見てると「どうせモッサリなんだろ？」という疑念がぬぐえません。
　それならまともに動きそうなmacbookにしておいたほうがよいとかなんだとか、macにしておけばXだのp言語だのデフォルトでウニっぽさを楽しめるけどcl.exeもautohotkeyもwin32apiも無いだとかなんだとか、眠くて思考がまとまりません。
　結局のところ、gvimが動けばなんでもいいような気がしてきました。vimとテケトーなファイルシステムが入ってるワープロ（エディタ専用機）とか、どっかの会社が売りに出してくれないですかねぇ。

　とりあえず寝て、起きてからmac系のサイトの購入レポートを漁ろうと思います。

さあ、はやくもどっておいで。

2009-10-20T22:20:00.000+09:00

昨日は小学館に行き、今日は飯田橋で打ち合わせ、みたいな感じだったのですが。
　小説の一巻に関連した作業がほぼ一段落つき、このあとは短編小説とか短編漫画をやるぜぇみたいな感じなのですが。
　ペン入れはさすがにメインＰＣでやりたいけど、私は漫画の下描きとかテキスト編集は外でやりたいと思っているのですが。

　we'll be back soon?
　いいからはやくもどっておいで。
　iMacはどーでもいい。
　macbookとmacbook proが重要ですよ？

　もどってきたら、力一杯抱きしめてあげるから。
　多少お高くても即買ってあげるから。
　買ったその日から使い倒してあげるから。
　御託はいいからはやくもどっておいで？

　新型macbookを全裸待機なうです。

おばけ2.0

2009-10-16T02:27:00.000+09:00

フライング情報になりますが。

　９月ごろの打ち合わせの席で、「時代はweb2.0ですよ。最近のおばけはついったーくらい余裕で使いこなすはず」的なことを担当さんに言ったらそれが通り、

　月末からついったーにて、拙作「末代まで！」の公式ついったー（とでも言うべきモノ）が始まります。10月はザスニが出る月なので本格的な運用は来月からっぽいですが、ついったーをご利用の方々、よければフォローしてください。まだ具体的にいつ開始されるのかは知らないのですが、たぶん20日あたりには始まるはずです。

　ちなみに、



# 末代まで！　ついったー投稿用rubyスクリプト
# @nekosuna


#
# 文字コード変換のためのダミー
#
def utf8henkan(foo)
    # todo: ここにデータベースの文字列をUTF8に変換する処理を書き込みます
    #       データベースに利用するファイルの文字コードに合わせて、
    #       UTF8への変換処理を記述してください
    #       変換した文字列はsystem関数で送信されることにも留意してください
    return foo
end


#
# curlでつぶやく（例外処理無視）
#
def post_data(post)
    # 「ID:pass\tメッセージ」というデータだと仮定します
    dat = post.split(/\t/)
    # 改行を削除
    dat[1] = dat[1].chomp
    # 文字コードの変換
    dat[1] = utf8henkan(dat[1])
    # 送信
    system('curl -u "' + dat[0] + '" -d status="' + dat[1] + '" http://twitter.com/statuses/update.xml')
    # URLの最後を「update.xml?source=vim」などとすると
    # vimから投稿した、というふうにできます
end


#
# main
#
# 引数に、「ID:pass\tメッセージ」という行が書き込まれたファイルを渡すと
# 先頭行を切り取って送信します
# $ mdai_twit.rb hoge.txt
# 引数のファイルは破壊的に編集されます
#
ARGV.each do |file|
    data = ""
    post = ""
    # 読み込み（例外処理無視）
    open(file, 'r') do |f|
        # 富豪的に、すべて読み込む
        data = f.readlines
        # 先頭の一行を取り出す
        post = data.shift
    end
    # 送信
    post_data(post)
    # 読んだ行を削除したものを保存（例外処理無視）
    open(file, 'w') do |f|
        f.write data
    end
end

　言い出しっぺの責を取り、原稿の合間につぶやき投稿用のものっそい単純なrubyスクリプトを組んで送ったりしていたのですが、開始後しばらくの期間の運営は、角川書店の中の人が手動でやるらしいです。「大変じゃないですか？」と思いましたが、まあ、オフィシャルなんで間違いがあっちゃなんねーということなのでしょう。

禁断症状

2009-10-09T22:58:00.000+09:00

角川書店に打ち合わせに行ってきたんですが、急に直さねばならない原稿が出来たため、社内にあったDellのPCを借りて会議室で書いてきました。

　キーボードは担当さんが私と同じHHK-US使いだったので借りられたのですが、エディタのほうは、借り物のwindowsPCにvimが入っているはずもなく、仕方ないのでワープロソフトの一太郎を使いました。
　が、もうこれが使いにくいったらない。
　一太郎にはメモ帳と違ってCtrl+Hでダイアログが開く糞仕様は無いんですが、慣れてないので検索すらできません。保存するときもとっさにはCtrl+Sが頭に浮かばず、「:w」しようとする自分を発見して愕然としたり。そろそろvim使い始めて一年になるけど、vimの依存性はマリファナといい勝負なんじゃないかなぁと思います。
　まあ、文句言ってもしかたないので、タバコの吸えない会議室で、ニコチンとvimを夢に見ながらシコシコ原稿書いてきましたよ。

　ちなみに、ネットがあればポータブルgvimを落として使えたんですが、会議室の隅にLANポートをみつけたのは、入稿を終えたあとでした。ちっ。

バナナ＼e

2009-10-05T00:18:00.000+09:00

私はigoogleのデザイン設定を「日ごとに適当に変える」ものにしているんですが、さっきこんな画像が表示されました。

　「バナナ＼e」に見えたのは、私がなんだかんだで日本人だからなんでしょうか。今週のサンデーのコナン君のやつは、最初から数字でなく解のほうに見えてたんですが。

バベル

2009-09-21T21:57:00.000+09:00

作業がとても立て込んでいます。さっき積読タワーの高さを計ってみたら50cmありました。ジャンプ２冊とゲッサンと、クラサンの単行本にふしぎ遊戯の文庫全集に……という感じで、なかなか壮観ですよ。神様早くあのバベルの塔壊して。

　ネームを切ろうにも相変わらず漢字が書けないのでIMEに教えてもらっています。

ポスターに神の字

2009-09-14T21:00:00.000+09:00

小説のほうでどっと予定が入ったため、この文章を書いてる現在、昨日の午後４時から寝てない状態なんですが、徹夜はまだよいとして、今日はその上小学館で打ち合わせでした。
　死ぬほど大変ってわけじゃないんですが、道を歩いているとき電信柱にぶつかったり、神保町駅に電車が着き、電車のドアが開いているのに「早く着かないかなぁ」と開いたドアの前でぼーっとしたり。今もだいぶぼんやりした気分なんですが、居眠り運転で事故った人はこんな精神状態だったのかなぁ。

　それはともかく。

　ぼーっとしていたおかげでしょうか。サンデーの打ち合わせブースのポスターに、漫画の神様・藤田先生の直筆らしき文字を見つけました。このポスター、わりと前から貼ってあったと思うのですが、こんな文字が書いてあることには今日の今日まで気付きませんでした。席に着いて、たまたま電話中だった担当さんを待っているとき、「眠いなぁ」とか思って虚ろな視線をフラフラさせていたのがよかったぽい。
　神のサイン(?)が目の前に！　てことで、少し眠気が覚めました。

　先週のジャンプとサンデーをまだ読んでいないので「少年サンデー、超読みたくね？」って感じなんですが、もうそろそろ徹夜30時間になるので寝ます。

ベビースターラーメンのパッケージに毛

2009-09-10T19:42:00.000+09:00

小説作業の息抜きをかねて、ついさきほどぽてちを買いに百均まで行ってきたのですが、ぽてちを２，３袋カゴにぶちこんだあと、ふと「ベビースターラーメン」のパッケージが目に入り、愕然としました。

　よく見て下さい。

　これ、毛じゃね？

　最初は拡大写真の部分のベビスタがヒビ割れていて、その陰が写ったのかなぁと思ったんですが、光の向きや黒い曲線の流れ的に、これ、毛ですよねたぶん。
　――いやっほう、すげぇもん見つけた！
　ってことで、ぽてちと一緒に即座に購入してきましたよ。パッケージを作った人、気付かなかったんですかねこれ？
　てか、仮に上のが毛ではなくヒビだったとしても、食品のパッケージに毛に見えるヒビが写り込んでいるって問題じゃないですか。私は頭がアレなので「子ネタゲットだぜぇ」と面白がって買いましたが、これが子持ちのお母さんとかだったら「危険そうだからやめておこう」と考えそうです。

　ちなみに、いま記事を書きながら袋を開けてみたところ、パッケージは毛入りですが、袋の中は無問題でした。有名企業の商品ですから当然ですが、ちゃんとラーメンだけが入ってます。
　しかし、そのうち回収騒ぎとか起こったりしますかねぇ、これ？

ゲラとかそういうの相談してきた

2009-09-09T23:37:00.000+09:00

小説の打ち合わせをしてきました。
　喫茶店で日焼けパフェとかいう変な名前の普通のチョコパフェを食べ、沖縄料理店でゴーヤジュースを飲んできました。どっちも一見キワモノぽいですが意外にうまかった。
　打ち合わせは、４時に始めて、ゲラを見ながら担当さんのiPhone借りて類語辞書を引き、「興奮」と同じ意味の単語を探したりなんだりで終わったのは11時。７時間もの打ち合わせでした。

　米国でiPodのイベントが開催されています。打ち合わせを終えて家につき、ググったら、予想通りmacの情報がチラチラ出始めてました。

　apple storeも更新中です。iPodはどうでもいいんだけど、mac tablet、出るのかなぁ。出たら買うんだけどなぁ。

　それはともかく眠いのでもう寝ます。

ゲラを一休みして

2009-09-06T01:22:00.000+09:00

載せていいのかなこれ？　まあダメなら削除ということで。

　ゲラを一通り見終わったのですが、もう一度見直す前に一旦休みを入れた方がよいだろってことで別の作業をやってます。あのお方はまゆげが太くて真っ直ぐな記憶があったのですが、太く描きすぎた気がします。

ボンクラの朝

2009-09-05T08:29:00.000+09:00

夜に起きて昼寝るという昼夜逆転生活をしつつ、ひたすらゲラをチェック中です。
　私は基本的には「体内時計？　なんですかそれ」という生活をしているのですが、これはよくないリズムですね。私のPCのディスプレイはノングレアなのですが、私の部屋は朝日が上るころはちょうどよい角度で窓から真っ直ぐ画面に日が当たり、ノングレアでも見づらくなってイライラするレイアウトなんですよ。
　午後の三時頃起きて、朝、日が昇るころに寝る生活のほうがPC作業はやりやすい。早いとこ生活リズムを「合理的にダメなリズム」に戻さなきゃ。

　さきほど、ついったーのタイムラインで朝からビール飲んでるやつにボンクラ呼ばわりされました。botなので投稿文章はほとんどランダムなんですが、kaiji_bot面白いなぁ。私もgoogle app engine使ってこんな感じの組んでみようかな。

他レーベルの方々と

2009-09-02T23:40:00.000+09:00

読み方のアイウエオ順で、ライトノベル作家のSOWさん、橘さん、伏見ひろゆき、宮沢さんと遊んできました。j-books＆メガミ、富士見、SD……スニーカーでないレーベルの方と遊ぶのは初めてです。
　池袋の飲み屋でワイワイと、ここには書けない禁則事項とか橘さんのプロットのボツ案とかをおしゃべり。一番盛り上がったのが最近読んだ面白いラノベの話で、みなさん時に奇声を上げつつお気に入りの作品の魅力を絶叫。作家らしくキラリと光る形容表現で語りに語りまくりでした。

　飲みの中、SOWさんに、メガミノベル大賞作品「みすぷり！」をプレゼントしてもらいました。書いてと頼んでサインも入れてもらってます。

ゲラ

2009-08-31T23:58:00.000+09:00

ゲラをやっています。校正者さんが紙に「ママ」とか「トル」とか「許可を(y/n)」とか書いたものに「やっちまえ」と答えていく作業です。

　図のごとく、生まれて初めてのゲラなので勝手が分からず、適当に黒のシャーペンで×などを30ページ近くカキカキしてたら伏見ひろゆきに電話で「はぁ!?　シャーペンじゃダメだよ赤ペンだよ赤ペン何やってんの猫砂担当さんにやりかた教わらなかったの!?」と真実を教えてもらったので、これからファミマに赤ペン買いに行きます。ついでにSAI用のネットマネーを買って来よう。

中国語ぽい

2009-08-29T00:21:00.000+09:00

今日はザスニの発売日。長きにわたる箝口令解除だー！　ってことで、公式らしくブログをすっごいリニューアルしたろと思ってたけどだるいので中止。テンプレをちょっといじったり記事の整理をしたりしたあたりで力尽きました。まあ、今度やることにしよ今度。
　とりあえず、小説と漫画に区別をもうけることに意味が無くなったと思うので、作業のグチには全部「雑記」のタグを付けて行こうと思います。ダブルファングです。

　サンデーの方のネームをやっておるわけですが、小説で何万語と書いているくせに台詞のための漢字が全然思い出せません。で、IMEで漢字を出して書く、ということを繰り返したらどうよこれパッと見中国語。「痴漢」の綴りを知りたいのにAtokのアホが「置換」を出してむかついた歴史も刻まれていたり。

　snow leopardも発売となり、いよいよmacが気になってしかたありません。macbook proを買うってのはほぼ決めているんですが、９月に新ハードが出るならそっちが欲しいなぁと。てか、mactabletが出るという噂はどこまで本当なのでしょうか。本当なら即買いなんですが。
　あと、macvimがsnow leopardで動作不安定ってのは何日くらいしたら解決する問題なのでしょうね。winのgvimしか情報追ってないので更新ペースがわからない。基本小説編集用に買うので早く解決してほしいです（オープンソースなんだから自分でやれって話ではあるのですが）。
　最近は暑いですね。汗でネーム用紙もへたっています。そんなくそ暑い中での「snow」というのは残暑お見舞いってことなんでしょうか。――というか、上のやつ雪がうんこに見えますね。ええ。

クラブサンデーにショートカットを追加するgreasemonkeyスクリプト

2009-08-19T00:00:00.000+09:00

表題の通り、クラブサンデーにショートカットを追加するgreasemonkeyスクリプトを組みました。以前ブックマークレットとして書いたものを（ブックマークレットは呼び出すのがめんどいので）greasemonkeyに移植したものです。
　document.on～で関数オブジェクトの代入をやるとエラーだったり、クラサンに用意されているページ送りの関数を呼ぶとエラーだったりでちょっとイラつきましたが、基本ブックマークレットのコードを移すだけなので、３分程度で完成。
　インストールすると、クラサンで漫画を表示させるたびにショートカットが自動設定され「j」「k」でページを移動できるようになります。


// ==UserScript==
// @name           Clubsunday shortcuts
// @namespace      http://string-cat.blogspot.com/
// @description    Clubsunday shortcuts
// @include        http://club.shogakukan.co.jp/dor/*
// ==/UserScript==

document.addEventListener('keypress', function(event)
{
    var ch = (event.keyCode != 0? event.keyCode: event.charCode);
    var flag = true;
    switch(ch)
    {
        default: flag = false; break;
        case "j".charCodeAt(0):
            unsafeWindow.MoveLeftMouseDown();
            break;
        case "k".charCodeAt(0):
            unsafeWindow.MoveRightMouseDown();
            break;
    }
    if (flag) event.preventDefault();
}

　greasemonkeyのメニューで新規ユーザースクリプトを選択し、上をコピペで動くはずです（あるいは、上をcs.user.jsなどの名前で上のテキストに保存して読み込む）。

16分割計画書

2009-08-14T18:56:00.000+09:00


###################################################
#
# name_thumb_scale.rb
#
###################################################

require 'cairo'

###################################################
#
# 準備
#

# 出力ファイル名
# 出力されたファイルは、Foxit Readerやgimpじゃないと開けないぽい
filename = 'name_thumb.pdf'

# 単位変換(mm -> pt)
def toPoint(n)
    (n.to_f * 360.0) / 127.0
end

# A4
width = toPoint(210)
height = toPoint(297)


# PDFキャンバスを作成
sur = Cairo::PDFSurface.new(filename, width, height)
sur.set_size(width, height)
ctx = Cairo::Context.new(sur)


###################################################
#
# 描画
#

# 太線を描く
ctx.set_line_width(toPoint(0.7))

ctx.move_to(width / 2, 0)
ctx.line_to(width / 2, height)
ctx.stroke

ctx.move_to(    0, height / 4 * 1)
ctx.line_to(width, height / 4 * 1)
ctx.stroke

ctx.move_to(    0, height / 4 * 2)
ctx.line_to(width, height / 4 * 2)
ctx.stroke

ctx.move_to(    0, height / 4 * 3)
ctx.line_to(width, height / 4 * 3)
ctx.stroke


# 細線を描く
ctx.set_line_width(toPoint(0.5))
ctx.set_dash([toPoint(0.1), toPoint(0.9)], 0)

ctx.move_to(width / 4 * 1, 0)
ctx.line_to(width / 4 * 1, height)
ctx.stroke

ctx.move_to(width / 4 * 3, 0)
ctx.line_to(width / 4 * 3, height)
ctx.stroke


###################################################
#
# 出力
#
ctx.show_page
sur.finish

出力結果

　大きな紙に描く前に、サムネイルを描いてどう描くか考えてます。

ネーム用紙を作ってみた

2009-08-06T04:25:00.000+09:00

この前角川に行ったときのこと。資料として見せてもらった季刊誌に久米田先生のネームが掲載されていたんですが、ネームを描くためにネーム用紙のようなものを使っていて、それがなんかいい感じだったので似たものを作ってみました。
　直線を等分したりするのでベクター系のソフトで作るべきなんですが、手頃なソフトを持ち合わせていないのでrubyのrcairoで泥臭くゴリゴリとコードを書いて作成しました。


###################################################
#
# sunday_name_scale.rb
#
###################################################

require 'cairo'



###################################################
#
# 準備
#

# 出力ファイル名
# 出力されたファイルは、Foxit Readerやgimpじゃないと開けないぽい
filename = "sunday_name_scale.pdf"

# 単位変換(mm -> pt)
def toPoint(n)
    (n.to_f * 360.0) / 127.0
end

# A4
width = toPoint(210)
height = toPoint(297)


# PDFキャンバスを作成
sur = Cairo::PDFSurface.new(filename, width, height)
sur.set_size(width, height)
ctx = Cairo::Context.new(sur)


###################################################
#
# まんが版面の描画
#

# 少年サンデーのまんが版面
hanw = toPoint(180)
hanh = toPoint(270)

# 線の設定
ctx.set_line_width(toPoint(0.7))
#ctx.set_dash([toPoint(0.1), toPoint(0.9)], 0)

# 点線でメートル法定規を
# foxitだと印刷時にずれることがあるので、gimpでレンダリングしてから印刷するとよさげ
ctx.set_dash([toPoint(0.1), toPoint(0.9), toPoint(0.1), toPoint(0.9),
    toPoint(0.1), toPoint(0.9), toPoint(0.1), toPoint(0.8),
    toPoint(0.3), toPoint(0.8), toPoint(0.1), toPoint(0.9),
    toPoint(0.1), toPoint(0.9), toPoint(0.1), toPoint(0.9),
    toPoint(0.1), toPoint(0.7), toPoint(0.5), toPoint(0.7)], toPoint(9))

# 描画
hanx = (width - hanw) / 2
hany = (height - hanh) / 2
ctx.rectangle(hanx, hany, hanw, hanh)
ctx.stroke



###################################################
#
# 等分割位置表示
#


#
# ３分割
#
radius = toPoint(1)
y3 = (hanh / 3)

step = 2 * Math::PI * radius / 18
ctx.set_line_width(toPoint(0.3))
ctx.set_dash([step - 0.3, step + 0.3], 0)
ctx.set_line_cap(Cairo::LineCap::ROUND)
off = toPoint(1)

# 左右
ctx.arc(hanx - radius - off, hany + y3, radius, 0, 2 * Math::PI)
ctx.stroke
ctx.arc(hanx - radius - off, hany + hanh - y3, radius, 0, 2 * Math::PI)
ctx.stroke
ctx.arc(hanx + radius + off + hanw, hany + y3, radius, 0, 2 * Math::PI)
ctx.stroke
ctx.arc(hanx + radius + off + hanw, hany + hanh - y3, radius, 0, 2 * Math::PI)
ctx.stroke

#上下
x3 = (hanw / 3)
ctx.arc(hanx + x3, hany - off - radius, radius, 0, 2 * Math::PI)
ctx.stroke
ctx.arc(hanx + hanw - x3, hany - off - radius, radius, 0, 2 * Math::PI)
ctx.stroke

ctx.arc(hanx + x3, hany + hanh + off + radius, radius, 0, 2 * Math::PI)
ctx.stroke
ctx.arc(hanx + hanw - x3, hany + hanh + off + radius, radius, 0, 2 * Math::PI)
ctx.stroke

#
# ４分割
#
def getd(ang)
    Math::PI * (ang / 180.0)
end

def tri(x, y, ang, len, c)
    c.move_to(x, y)
    xx = x + len * Math::cos(getd(ang))
    yy = y + len * Math::sin(getd(ang))
    c.line_to(xx, yy)
    ang += 120
    xx = xx + len * Math::cos(getd(ang))
    yy = yy + len * Math::sin(getd(ang))
    c.line_to(xx, yy)
    ang += 120
    xx = xx + len * Math::cos(getd(ang))
    yy = yy + len * Math::sin(getd(ang))
    c.line_to(xx, yy)
    c.stroke
end

ctx.set_dash(nil, 0)
ctx.set_line_join(Cairo::LineJoin::MITER)
tlen = toPoint(2)

# 左右
tri(hanx - off, hany + (hanh / 2), 150, tlen, ctx)
tri(hanx + off + hanw, hany + (hanh / 2), -30, tlen, ctx)
tri(hanx - off, hany + (hanh / 4), 150, tlen, ctx)
tri(hanx + off + hanw, hany + (hanh / 4), -30, tlen, ctx)
tri(hanx - off, hany + (hanh / 4) * 3, 150, tlen, ctx)
tri(hanx + off + hanw, hany + (hanh / 4) * 3, -30, tlen, ctx)

# 上下
tri(hanx + (hanw / 2), hany - off, 150 + 90, tlen, ctx)
tri(hanx + (hanw / 2), hany + hanh + off, -30 + 90, tlen, ctx)

tri(hanx + (hanw / 4), hany - off, 150 + 90, tlen, ctx)
tri(hanx + (hanw / 4), hany + hanh + off, -30 + 90, tlen, ctx)

tri(hanx + (hanw / 4) * 3, hany - off, 150 + 90, tlen, ctx)
tri(hanx + (hanw / 4) * 3, hany + hanh + off, -30 + 90, tlen, ctx)


#
# ノンブル
#
ctx.set_font_size(10)
ctx.select_font_face("NSimSun", Cairo::FONT_SLANT_NORMAL, Cairo::FONT_WEIGHT_NORMAL)
str = "(      )"
te = ctx.text_extents(str)
ctx.move_to((hanx + (hanw / 2)) - (te.width / 2) - te.x_bearing, off + te.height * 2.5)
ctx.show_text(str)




###################################################
#
# 出力
#
ctx.show_page
sur.finish

出力結果⇒sunday_name_scale.pdf(foxit reader推奨)

　上のソースのコメントにも書いているけど、印刷はgimp経由でやるのがよさげ。
　さあ、用紙も出来たしあとは描くだけですよ。

Illuststudio用のコピック色見本

2009-07-17T00:43:00.000+09:00

tooのホームページで配布されている色見本データを元に、Illuststudio用のコピック色見本を作ってみました。
　ヘルプをちゃんと読んでないのでアレですが、Illuststudioのメニューを見る限り、どうもフォトショの色見本やテキストデータから色見本を作ってくれる仕組みは無いっぽい。と言って、元となるデジタルデータが用意されているものを手で入力なんてのァ計算機に対する侮辱もいいところ。
　そんなわけで、Illuststudioのデフォルトの色見本をバイナリエディタで見て、「たぶん」とか「きっと」とアタリをつけてC言語から色見本を書き出してみました。16進数をこんなに真面目に睨んだのは自作ランチャの独自形式データを作ってたとき以来です。0x0Cがlengthを示す値だとわかって「ウヒョー」みたいな。構造体を定義してfwriteで「ウヒョー」みたいな。

　で、そんな試行錯誤の結果が上。
　勘で書いたコードだったんですが、一発でちゃんと問題なく動く色見本を生成させることができました。
　てことで、さっそく配布を……していいのかなこれ。たぶん大丈夫だと思うけど、ライセンス的にきわどい？
　まあ、「やめてください」と言われたら即座に消すってことで。

　ダウンロード

　zipで固めてIlluststudioの色見本ファイル(clsファイル)が入っているので、Illuststudioのカラーセットのサブメニューから「読み込み」してください。一度読み込めばどっかにコピーが保存されるようで、元のファイルは必要なくなるみたいです。消したいときは、やっぱりメニューから。色見本の編集ダイアログから手軽に削除できます。
　zipには、Cのソースも入れておきました。たいしたコードじゃないのでJavascriptに移植して、dataスキームで落とす感じにすればブラウザで動的に色見本生成＆ダウンロードとかできそうですねー。

　ちなみに色見本のデータはリトルエンディアンで、コーディング中に「macよりwin(いんてる)重視の設計なんだなー」とか思ってたんですが、どうもIlluststudioはMac未対応らしい。なるほど。

Intuos4のキーリピートをどうにかする

2009-07-16T20:56:00.000+09:00

原稿中、せっかく引いた線が何度も消えまくり、いい加減腹立ってきたので。

　「Intuos4の横に付いてるボタンにCtrl+zを設定してうっかりボタンを長押しするとキーリピートでとんでもない過去までUndoしてしまい、Undoしてしまったのにそれに気付かないで線を引いてUndoバッファが消えてRedoできなくて、もうどうしようもなくてしょんぼり問題」

　をソフトの力でどうにかしてみました。

　使ったのはAutohotkey。そのスクリプトに、例えばComicstudio4exとIlluststudio1のUndoキー（どちらもCtrl+z）を呼び出す新たなキー（たとえば、Ctrl+Alt+Shift+z）を書き込み、そのキー経由でCtrl+zを送信、送信後700ミリ秒待たせる、ということをやってみました。
　ペンタブにはCtrl+zの設定を消し、Autohotkeyにラップしたキーを新たに設定します（例では、Ctrl+Alt+Shift+z）。


; Illuststudio1
#IfWinActive ahk_class IS10FrameWnd
$^!+z::
    Send,^z
    Sleep, 700
return
#IfWinActive

; Comicstudio4
#IfWinActive ahk_class CS40FrameWnd
$^!+z::
    Send,^z
    Sleep, 700
return
#IfWinActive

※仕様なのか、zがZになるばかりでShiftが表示されてないけど、「Ctrl+Alt+Shift+z」をUndo用に設定している。

　以上の設定で、ボタンを長押ししても一瞬にしてすっごい過去に飛んだりはしなくなりました。ウェイトの700ミリ秒はちょっと長すぎるかもしれないので、使いながら微調整ですね。

vimでTwitterを読み書きする（改）

2009-06-30T16:35:00.000+09:00

vimrcにfenc=utf-8とか設定したついでで、以前書いた「vimでついったー」を修正しました。
　以前のものはcp932のユニ変換の過程で「～」を読み込んだり書き込んだりしようとすると落ちたりしてたので、これをUTF-8版に改良です。とりあえず今のところ投稿に「～」使っても平気だし、読み込める。同時に文字列の長さの判定もちゃんとユニに対応（できてると思う）。
　回線が切れてると場合によってはvimごと落ちることがあるっぽいけど、こんなのは電話交換機が古くてADSLなのに電話が来ると回線が切れるウチのような環境じゃなきゃ困らないはず。早くユニに書き換えておけばよかった。
　下のコードを「NekoTwitter.vim」なんてな名前のファイルに、適当な文字コード（cp932で保存しても問題なさげ）で保存すれば動きます。
（動作確認: KaoriyaVim7, Python26, WinVista）


"
" NekoTwitter.vim
" 2009/07/18 Nekosuna Ippei ( http://twitter.com/nekosuna )
"
" python26などでmd5の警告が出る場合は、twitter.pyの「import md5」を
" 「import hashlib」に書き換え、
" _GetPathの「hashed_key = md5.new(key).hexdigest()」を
" 「hashed_key = hashlib.md5(key).hexdigest()」に書き換えてください。
"
" また、twitter.pyのPostUpdateに「data['sourse'] = 'vim'」を付け加えると
" vimからの投稿を明示できます。
"
"

" vimrcに下の二行を書く
" let g:nekotw_user_name = 'user_name'
" let g:nekotw_user_pass = 'pass'

if !exists('g:nekotw_user_name')
    echoerr "NekoTwitterError: Please set g:nekotw_user_name in vimrc."
    finish
endif
if !exists('g:nekotw_user_pass')
    echoerr "NekoTwitterError: Please set g:nekotw_user_pass in vimrc."
    finish
endif

" ウィンドウ作成
function! s:NekoTwitter()
    if bufexists('ReadTwitter')
        bdelete NekoTwitter
    endif
    sil bel 15new NekoTwitter
    "set fileencoding=utf-8
    "set fileformat=unix
    call s:SetSyn()
    call s:ReadTwitter()
    set nomod
    set ro
    exe ":normal gg"
    " qで終了、iで投稿
    noremap <buffer><silent> q :q<CR>
    noremap <buffer><silent> i :call <SID>PostTwitter()<CR>
endfunction

" 読み込み
function! s:ReadTwitter()
python << EOF
import vim, twitter, simplejson, re
u = vim.eval("g:nekotw_user_name")
p = vim.eval("g:nekotw_user_pass")
e = vim.eval("&enc")
api = twitter.Api(u, p)
timeline = api.GetFriendsTimeline()
for t in timeline:
    vim.current.buffer.append('@%s' % re.sub('\n', '', t.user.screen_name.encode(e)))
    vim.current.buffer.append('  %s' % re.sub('\n', '', t.text.encode(e)))
    vim.current.buffer.append('  [%s]' % t.relative_created_at.encode(e))
    vim.current.buffer.append('')
EOF
endfunction

" 色
function! s:SetSyn()
    syntax match name /^@[a-zA-Z_]*/
    syntax match follow /@[a-zA-Z_]*/ contains=name
    syntax match igno /^C:\\.*/
    syntax match come /^  \[[^\]]*]/
    highlight link name Label
    highlight link follow Underlined
    highlight link igno Ignore
    highlight link come Comment
    " 単語の区切りに@を追加
    setlocal iskeyword=@-90,97-122,48-57,_
endfunction

" 投稿
function! s:PostTwitter()
    let post = input("twitter: ")
    if strlen(substitute(post, ".", "x", "g")) > 140
        echoerr "NekoTwitter Error: 140 over"
    else
python << EOF
import vim, twitter
post = vim.eval("post")
u = vim.eval("g:nekotw_user_name")
p = vim.eval("g:nekotw_user_pass")
api = twitter.Api(u, p)
api.PostUpdate(unicode(post, 'UTF-8'))
EOF
    echo "Send ".strlen(post)." chars."
    endif
endfunction

" :NekoTwitter<CR> すると機能が呼び出されます
command NekoTwitter :call <SID>NekoTwitter()

showwin

2009-05-31T23:08:00.000+09:00

改稿終了。てことで、ネットをプラプラしているのですが。

　linuxなんかでおなじみのコマンドラインmp3プレイヤーである、mpg123をダウンロードしてみました。コマンドからmp3を再生できれば、例えばvistaになって明らかに使いにくくなったファイルダイアログを使わずとも、ワイルドカードやdirなんかでファイルを設定できます。
　そんなことを考えながら落として見たところ……まあ、これが大変微妙。
　再生中はDOS窓が表示されっぱになるので、ウザイから「start /B」でウィンドウを消したりするわけですが、windowsのコマンドプロンプトはプロセスをstartでバックグラウンド化できるもののフォアグラウンド化できません（イヤ、もしかしたら調べまくればやり方みつかるかもですが）。
　てわけで、改稿も終わったし、指定した非表示ウィンドウを表示するコマンドラインプログラムを作ってみました。
　Autohotkeyなんかで似たようなことができるんですが……まあ、一応⇒showwin.zip。

○使い方
　mpg123は、argvのゼロ番にでも依存しているのか、それとも私の環境が悪いのか、mpg123.exeをフルパスで呼び出さないと音楽を再生できないので、


> start "mpg123" /B "C:/.../mpg123/mpg123.exe" "C:/music/*.mp3"

　てなカンジでコマンドを打つ。するとバックグラウンドで再生が始まります。
　で、止めたくなったときは新たにコマンドプロンプトを開き、


> rem showwinの呼び出し。
> rem 「-cmd」フラグを設定すればConsoleWindowClassは書かなくて良い。
> rem SW_SHOWなどの定数を表す文字列は内部で数値に変換される。

> showwin.exe -t "mpg123" -c "ConsoleWindowClass" SW_SHOW

　すればmpg123が表示されるので、Ctrl+Cで終了できます。あっけないですね。

　いやあ、しかしこうしてみると、やっぱfoobar2000が便利ですね（結論）。

クラブサンデーをハックしてみた

2009-05-31T01:04:00.000+09:00

読みに行ったりはもちろん、私の場合は買い取ってもらったりもしている小学館の話題のWebサービス・クラブサンデーをご存じですか。オンラインで漫画が読み放題で、好評につき無料期間延長という素晴らしいサイトです。

　と、ほめておいた上で。

　このステキサイトに、ついさっき（自分のを見ないように全神経を集中させながら）漫画を読みに行ったんですが、いざ読もうとすると、私が使っているHappy Hacking Keyboardにはカーソルキーが無いため、少し……てか超、イラっときました。たかがページをめくるだけの操作で、なぜに「Fn+;」を押さねばならないのかと。
　……まあ、マニア向けのキーボードを使っている私が悪いっちゃあ悪いんでしょうが、そういうマニアな子のためにキーボード・カスタマイズを用意してくれればよいのに、クラサンの漫画ビューアにはキー・カスタマイズがありません。マウスで読む場合は、ムダにでかい緑のマウスカーソルが画面をうろついてイラっと来るし……正直何でこんな仕様にしているのか、意味がわからん作りになってます。

　と、いうわけで、ちょっくらビューアをハックしてみることにしました。

　やりたいことは、jでページをめくり、kでページを戻す、という、ただそれだけ。Ctrl+Uでソースを見ると、どうもMoveLeftMouseDown()という関数で漫画を表示しているフラッシュ動画にページをめくる指示を出しているようなので、漫画を表示している状態でブラウザのURL欄にonKeyPressを組み込むコードを直打ちです。

javascript:document.onkeypress=function(event){var ch=event.keyCode!=0?event.keyCode:event.charCode;switch(ch){case "j".charCodeAt(0):MoveLeftMouseDown();break;case "k".charCodeAt(0):MoveRightMouseDown();break;}};void(0);

　上のコードをURL欄に打ち込み、エンターしてみると……やりました。バッチリうまくいきました。
　フラッシュにフォーカスが逝っている場合はページをめくれませんが、フラッシュを最大化せず、画面上部のボタンが並んでいる部分にフォーカスが当たっている状態ならjkでページを前後させることができます。
　キーまわりの動作はOSやブラウザによってかなり違うらしいのに動作確認はFirefox3.0.10のみですが、クラサンユーザーでマウスやカーソルキーが嫌いでFirefoxマンセーな人は是非（上のコードをブックマークのURLに設定し、クラサンのビューアを表示した状態でブックマークを呼び出せばjkでページを送れます）。

※greasemonkeyに移植してみたものがあります。

rcairoでリサジュー

2009-05-30T03:26:00.000+09:00

改稿も四回目が終わったので、昨日のjsプログラムを、さらにruby/cairoに移植してみました。pngの他、svgやpdfで出力できるので印刷バッチこいです。


#! ruby -Ks

# lissajous.rb
# lissajous curveを描画

# C:\foo>ruby lissajous.rb hoge.svg
# などとして実行

require 'cairo'
$KCODE = 'SJIS'

_end = 35.0
ww = 888
hh = 480
w = ww / 2.0
h = hh / 2.0
cx = w
cy = h
a = 15.0
b = 30.0
deg = 0.0
step = 0.1
time = 0.0
x = 0.0
y = 0.0
fn = ""
surface = 0;
lw = 0.3
col = "#00008080"


# 使い方表示
def usage()
    puts ""
    puts "[ LISSAJOUS CURVE ]"
    puts ""
    puts "C:\\..\\usage> ruby lissajous.rb [options...] filename"
    puts "filename: *.png, *.pdf, or *.svg"
    puts ""
    puts " --start -S: ループの初期値を設定。デフォルトはゼロ。"
    puts "   --end -E: ループの終了条件を設定。デフォルトは35.0。"
    puts "  --step -s: ループの増え幅を設定。デフォルトは0.1。"
    puts " --width -W: 画像の幅を設定。デフォルトは888px。"
    puts "--height -H: 画像の高さを設定。デフォルトは480px。"
    puts "     --a -a: 揺れ幅aの値を設定。デフォルトは15.0。"
    puts "     --b -b: 揺れ幅bの値を設定。デフォルトは30.0。"
    puts "   --deg -d: degの値を設定。デフォルトは0.0。"
    puts "  --line -l: 線の幅を設定。デフォルトは0.3。"
    puts " --color -c: 線の色を設定。デフォルトは#00008080(#RRGGBBAA)。"
    puts "  --help -h: このヘルプを表示して終了。"
    puts ""
    exit 1
end



# 引数処理
if ARGV.length == 0
    usage()
end

for i in 0 ... ARGV.length
    case ARGV[i]
    when "--start", "-S"
        i = i + 1
        time = ARGV[i].to_f
    when "--end", "-E"
        i = i + 1
        _end = ARGV[i].to_f
    when "--width", "-W"
        i = i + 1
        ww = ARGV[i].to_i
    when "--height", "-H"
        i = i + 1
        hh = ARGV[i].to_i
    when "--a", "-a"
        i = i + 1
        a = ARGV[i].to_f
    when "--b", "-b"
        i = i + 1
        b = ARGV[i].to_f
    when "--deg", "-d"
        i = i + 1
        deg = ARGV[i].to_f
    when "--step", "-s"
        i = i + 1
        step = ARGV[i].to_f
    when "--line", "-l"
        i = i + 1
        lw = ARGV[i].to_f
    when "--color", "-c"
        i = i + 1
        col = ARGV[i]
    when "--help", "-h"
        usage
    else
        fn = ARGV[i]
    end # case
end


# filename
if fn == ""
    puts "Error: no filename"
    exit -1
end

# surface
if fn =~ /\.pdf/i
    surface = Cairo::PDFSurface.new(fn, ww, hh)
elsif fn =~ /\.svg/i
    surface = Cairo::SVGSurface.new(fn, ww, hh)
elsif fn =~ /\.png/i
    surface = Cairo::ImageSurface.new(Cairo::FORMAT_ARGB32, ww, hh)
else
    puts "Error: Unknown filetype '" + fn + "'"
    exit -2
end

if !surface
    puts "Error: cairo-surface could not be created."
    exit -3
end


# context
ctx = Cairo::Context.new(surface)
if !ctx
    puts "Error: cairo-context could not be created."
    exit -4
end


# init
w = ww / 2.0
cx = w
x = w * Math.sin(a * time + deg) + cx
h = hh / 2.0
cy = h
y = h * Math.sin(b * time) + cy
ctx.line_width = lw
ctx.set_source_color(col)
ctx.move_to(x, y)


# draw
while time < _end
    time = time + step
    x = w * Math.sin(a * time + deg) + cx
    y = h * Math.sin(b * time) + cy
    ctx.line_to(x, y)
end
ctx.stroke()


# write
if fn =~ /\.pdf/i || fn =~ /\.svg/i
    ctx.show_page
    surface.finish
else
    surface.write_to_png(fn)
end

exit 0

　しかし、Rubyはそれなりに便利なんだけど、どうしてもARGV.shiftとかは「……？」です。eachよりfor(;;)のほうが頭に馴染んでいる、というか。上でも結局Cみたいなループを使ってるし、いっそschemeみたいに、基本ループは再帰のみ、などとしてくれたほうが頭の切り替えが楽な気がします。あと、case/whenは違和感ありまくり。これって普通にC系のswitch文じゃダメだったんでしょうかね？

リサジュー曲線

2009-05-29T02:46:00.000+09:00

こんなもんついったーに書くべきだけど、まあ、画像とセットで紹介したかったので。

　リサジュー曲線をJavascript & Canvas(Firefox)で描いてみました。
　参考にしたのはここのサイト。Actionscript3のコードをそのままjsに移植したら動きました（a、bなどのfloatなパラメータがフォームのvalueから直読みできなくて、parseFloatしないとダメなのに少しハマったけど）。

　ところで、リサジューてリサージュと言っちゃダメなんですかね？　リサージュで記憶してたんですが、Wikipediaとかを見るとリサジューが正式名称らしい。う～ん……。

vimでついったーを読む

2009-05-22T13:49:00.000+09:00

※修正版がこちらにあります

　なんか意外とサクサク進み、予定通り改稿が100%まで行けました。まあ、単に一回すべての改稿指示に目を通したってだけで、このあとまた１から読み返してさらに改稿しなきゃならないんですが。

　で、改稿のときひたすらついったーにつぶやいていたので、一旦脳を休ませる意味合いも兼ね、vimでついったーのタイムラインを表示するスクリプトを組んでみました。さすがに今日は余計なダウンロードなどせず、最初からif_pythonで書こうと決めて書きましたよ。
　たいして深く考えずに書いたものなので、探せばどっかに絶対これより優秀なスクリプトがあるでしょうが、まあ、頭の体操ということで。


" vimでついったーを読む。要if_python & twitter.py
" vimはSJISで使っていると仮定

function! ReadTwitter()
    bel 10new twitter
python << EOF
import vim, twitter, simplejson, re
# TODO: ここに自分のユーザー名とパスワードを入れるべし
api = twitter.Api('nekosuna', '*****')
timeline = api.GetFriendsTimeline()
for t in timeline:
    vim.current.buffer.append('【%s】' % re.sub('\n', '', t.user.screen_name.encode('shift-jis')))
    vim.current.buffer.append(re.sub('\n', '', t.text.encode('shift-jis')))
    vim.current.buffer.append('')
EOF
    set nomod
endfunction

　:call ReadTwitter()<CR>でついったー表示。自分やフォローしてる人たちのつぶやきが、ウィンドウ下部についっと出てきます。
　ああ、pythonかわいいよpython。

◇5/23追記
　さらに改造してみた。
　twitter.pyをいじって警告が出ないようにし、vimrcにはユーザー名とパスワードのみを記述。pythonコードはNekoTwitter.vimというファイルにまとめてpluginフォルダにぶち込んだ。
　シンタックスやら何やらも追加。qでバッファを閉じたりなんだり。
　ほんとは@の上でエンターすると投稿開始、みたくしたいけどもう面倒になってきた。


"
" NekoTwitter.vim
" 2009/05/23 Nekosuna Ippei ( http://twitter.com/nekosuna )
"
" python26などでmd5の警告が出る場合は、twitter.pyの「import md5」を
" 「import hashlib」に書き換え、
" _GetPathの「hashed_key = md5.new(key).hexdigest()」を
" 「hashed_key = hashlib.md5(key).hexdigest()」に書き換えてください。
"
" また、twitter.pyのPostUpdateに「data['sourse'] = 'vim'」を付け加えると
" vimからの投稿を明示できます。
"
" vimはwindows/cp932で使っているものとします
"

" vimrcに下の二行を書く
" let g:nekotw_user_name = 'user_name'
" let g:nekotw_user_pass = 'pass'

if !exists('g:nekotw_user_name')
    echoerr "NekoTwitterError: Please set g:nekotw_user_name in vimrc."
    finish
endif
if !exists('g:nekotw_user_pass')
    echoerr "NekoTwitterError: Please set g:nekotw_user_pass in vimrc."
    finish
endif

" ウィンドウ作成
function! s:NekoTwitter()
    if bufexists('ReadTwitter')
        bdelete NekoTwitter
    endif
    bel 15new NekoTwitter
    call s:SetSyn()
    call s:ReadTwitter()
    set nomod
    set ro
    exe ":normal gg"
    " qで終了、iで投稿
    noremap <buffer> q :q<CR>
    noremap <buffer> i :call <SID>PostTwitter()<CR>
endfunction

" 読み込み
function! s:ReadTwitter()
python << EOF
import vim, twitter, simplejson, re
u = vim.eval("g:nekotw_user_name")
p = vim.eval("g:nekotw_user_pass")
api = twitter.Api(u, p)
timeline = api.GetFriendsTimeline()
for t in timeline:
    vim.current.buffer.append('@%s' % re.sub('\n', '', t.user.screen_name.encode('CP932')))
    vim.current.buffer.append('　%s' % re.sub('\n', '', t.text.encode('CP932')))
    vim.current.buffer.append('　[%s]' % t.relative_created_at.encode('CP932'))
    vim.current.buffer.append('')
EOF
endfunction

" 色
function! s:SetSyn()
    syntax match name /^@[a-zA-Z_]*/
    syntax match follow /@[a-zA-Z_]*/ contains=name
    syntax match igno /^C:\\.*/
    syntax match come /^　\[[^\]]*]/
    highlight link name Label
    highlight link follow Underlined
    highlight link igno Ignore
    highlight link come Comment
    " 単語の区切りに@を追加
    setlocal iskeyword=@-90,97-122,48-57,_
endfunction

" 投稿
function! s:PostTwitter()
    let post = input("twitter: ")
    if strlen(post) > 140
        echoerr 140
    else
python << EOF
import vim, twitter
post = vim.eval("post")
u = vim.eval("g:nekotw_user_name")
p = vim.eval("g:nekotw_user_pass")
api = twitter.Api(u, p)
api.PostUpdate(unicode(post, 'CP932'))
EOF
    endif
endfunction

" :NekoTwitter<CR> すると機能が呼び出されます
command NekoTwitter :call <SID>NekoTwitter()

vimに400字で詰めさせる

2009-05-21T07:36:00.000+09:00

出力シートに書かれた改稿指示を見ながら一巻改稿中。今日一日で50%行けたので、同じペースで出来れば明日にはとりあえず100%になる、という取らぬ狸の皮算用してるんだけどどうだろ。まだ見てないからわからないけど、後半のほうが直しが多くなりそう。
　てか、シートの中に担当さんがちょろちょろジョークを書き込んでいてオモロイ。真面目な改稿案が続いたかと思えば、「ここのシーン、ぼえーんとかどうよ？」とか書いてあって、爆笑しながら速攻で採用したり。こういう作業は漫画ではやったことが無かったので新鮮です。

　ところで。
　小説にいつ合字やサンスクリットを埋め込みたくなってもよいよう、今日、改稿開始前にnkfをインストールしました。これでいつでもちょろっとコマンド打つだけでS-JISをUTF-8にできるぜぇ、とか喜んでいたんですが、ふとここに、nkfを使った原稿用紙換算スクリプトを発見。
　私はWinVistaなのでwcもsedも無いため、早速UnxUtilsをダウンロードしてvimで「:echo str2nr(system("nkf -s -F40-5 ".shellescape(expand("%"))." | wc -l"), 10) / 20」してニヤニヤしていたんですが、そのとき思いました。

　あれ？　nkfってrubyに入ってるんじゃね？

　ああ、無駄な道。いろいろ落としてインスコして環境変数設定して……という時間を改稿に当てていれば、今日は70%くらいまで行けてたかもと激しく後悔。
　ユーザーにこういう無駄な時間を取らせないよう、Kaoriyaのvimにはif_rubyってものが入っているのですよ猫砂さん！　つーかてめーperlとpythonもインスコしてんだからif_perlもif_pythonも使い放題だろアホがッ！
　と自分を叱責しましたよ。

　というわけで、vimで小説書いたりしている変態以外には一生縁の無いvimスクリプトを一応公開しておきます。


" 1行目から現在行までのテキストを400字詰め換算して表示するvimスクリプト
" ※要 if_ruby

function! MyCnt()
ruby << EOF
    require 'nkf'
    $KCODE = 'SJIS'
    str = ""
    for i in (1 .. VIM::Buffer.current.line_number) do
        str << $curbuf[i] << "\n"
    end
    # 《》によるルビ指定を除去。私はルビは青空形式で書いてます。
    str = str.gsub(/《[^》]*》/, "")
    len = NKF.nkf("-s -F40-5", str).count("\n")
    VIM::message("400字詰め換算: #{len / 20}枚 #{len % 20}行, 総行数 #{len}")
EOF
endfunction

" ちゃっちゃと呼び出すmap
noremap ,c :call MyCnt()<CR>

" 小説ファイルを*.s.txtという名前にしている場合、保存時に換算枚数を表示
au! BufWritePost *.s.txt call MyCnt()

実行結果:

　まあ、rubyかわいいよrubyってことで、前向きに考えよう。

フリーソフト配布所

2009-04-28T18:21:00.000+09:00

猫砂は結構前から暇人らしくプログラムいじって遊んでいます。
メニューランチャ・急々如律令等のプログラムは、以下のページで配布しています。
いずれのソフトも未来永劫フリーソフトです。
興味があれば気軽に使ってみてください。
大抵のソフトはWindows専用です。
なるたけ全部のWindowsで動かしたいと思ってますが、基本的には猫砂の環境（Vista Home）で動けばいいや、という作りになっています。
なお、開発の方針として、配布しているすべてのソフトはレジストリを利用しません。

http://cid-5142edd673fc161d.skydrive.live.com/browse.aspx/.Public