Perl
修理に出したタブレットが戻ってきたが、全ての記憶を失って出荷状態になっていた。 そのセッティングをして、メインPCとのファイル共有を行った。 その結果、GOM PlayerでメインPCの中の動画ファイルを読めるようになってまずはめでたい。 しかしながら、普…
修理に出したタブレットが戻ってきたが、全ての記憶を失って出荷状態になっていた。 そのセッティングをして、メインPCとのファイル共有を行った。 その結果、GOM PlayerでメインPCの中の動画ファイルを読めるようになってまずはめでたい。 しかしながら、普…
修理に出したタブレットが戻ってきたが、全ての記憶を失って出荷状態になっていた。 そのセッティングをして、メインPCとのファイル共有を行った。 その結果、GOM PlayerでメインPCの中の動画ファイルを読めるようになってまずはめでたい。 しかしながら、普…
出版社検索API - 永字八法について。 エラー報告が出ていたので、フィックスしました。 id:ppyv さん、ありがとうございました。
出版社検索API - 永字八法について。 エラー報告が出ていたので、フィックスしました。 id:ppyv さん、ありがとうございました。
出版社検索API - 永字八法について。 エラー報告が出ていたので、フィックスしました。 id:ppyv さん、ありがとうございました。
一日かけて、Perl/Tk使って、ZIPを読み込むビューワーを作っていましたよ、と。 GDでWindows BitMapを作成する。 - 永字八法はこれのための伏線でした。 特徴は、 今更だけれどもPerl/Tkであること。 Image::Magick不使用 二枚並べてで見開き対応 先読み機能…
一日かけて、Perl/Tk使って、ZIPを読み込むビューワーを作っていましたよ、と。 GDでWindows BitMapを作成する。 - 永字八法はこれのための伏線でした。 特徴は、 今更だけれどもPerl/Tkであること。 Image::Magick不使用 二枚並べてで見開き対応 先読み機能…
一日かけて、Perl/Tk使って、ZIPを読み込むビューワーを作っていましたよ、と。 GDでWindows BitMapを作成する。 - 永字八法はこれのための伏線でした。 特徴は、 今更だけれどもPerl/Tkであること。 Image::Magick不使用 二枚並べてで見開き対応 先読み機能…
GDモジュールの画像オブジェクトを、24bitフルカラービットマップにするメソッドを追加する。 sub GD::Image::bmp { my $self = shift; my ( $w, $h ) = $self->getBounds(); my $linelen = $w * 3; while ( 0 < $linelen % 4 ) { ++$linelen; } my $bit = 1…
GDモジュールの画像オブジェクトを、24bitフルカラービットマップにするメソッドを追加する。 sub GD::Image::bmp { my $self = shift; my ( $w, $h ) = $self->getBounds(); my $linelen = $w * 3; while ( 0 < $linelen % 4 ) { ++$linelen; } my $bit = 1…
GDモジュールの画像オブジェクトを、24bitフルカラービットマップにするメソッドを追加する。 sub GD::Image::bmp { my $self = shift; my ( $w, $h ) = $self->getBounds(); my $linelen = $w * 3; while ( 0 < $linelen % 4 ) { ++$linelen; } my $bit = 1…
メモ - 永字八法の続き。 アルゴリズム見なおし 素材の大幅増（同じアスペクト比率の画像だけで30,000枚弱） 元画像の切り分け方をさらに細かく 以上の結果、このようになりました。 元画像 変換 モザイク画像 → ……んー。元画像が小さすぎるのかねえ。 ちな…
メモ - 永字八法の続き。 アルゴリズム見なおし 素材の大幅増（同じアスペクト比率の画像だけで30,000枚弱） 元画像の切り分け方をさらに細かく 以上の結果、このようになりました。 元画像 変換 モザイク画像 → ……んー。元画像が小さすぎるのかねえ。 ちな…
メモ - 永字八法の続き。 アルゴリズム見なおし 素材の大幅増（同じアスペクト比率の画像だけで30,000枚弱） 元画像の切り分け方をさらに細かく 以上の結果、このようになりました。 元画像 変換 モザイク画像 → ……んー。元画像が小さすぎるのかねえ。 ちな…
GD::Imageのメソッド、copyResampledについて。 効果は、イメージA（の一部）をイメージBに拡大縮小してコピーする。 例文 $image->copyResampled($sourceImage, $dstX, $dstY, $srcX, $srcY, $destW, $destH, $srcW, $srcH); 意味 $コピー先->copyResampled…
フォトモザイク、と言う画像の技法がありまして。 一つの画像を他の画像を縮小したタイルで再構成するやつで、どんなものかはgoogle:フォトモザイクでググっていただきたく。 で、自分でそれを実装させてみた。 気づいた点 これ、一番色が近い画像をそのまま…
GD::Imageのメソッド、copyResampledについて。 効果は、イメージA（の一部）をイメージBに拡大縮小してコピーする。 例文 $image->copyResampled($sourceImage, $dstX, $dstY, $srcX, $srcY, $destW, $destH, $srcW, $srcH); 意味 $コピー先->copyResampled…
フォトモザイク、と言う画像の技法がありまして。 一つの画像を他の画像を縮小したタイルで再構成するやつで、どんなものかはgoogle:フォトモザイクでググっていただきたく。 で、自分でそれを実装させてみた。 気づいた点 これ、一番色が近い画像をそのまま…
フォトモザイク、と言う画像の技法がありまして。 一つの画像を他の画像を縮小したタイルで再構成するやつで、どんなものかはgoogle:フォトモザイクでググっていただきたく。 で、自分でそれを実装させてみた。 気づいた点 これ、一番色が近い画像をそのまま…
GD::Imageのメソッド、copyResampledについて。 効果は、イメージA（の一部）をイメージBに拡大縮小してコピーする。 例文 $image->copyResampled($sourceImage, $dstX, $dstY, $srcX, $srcY, $destW, $destH, $srcW, $srcH); 意味 $コピー先->copyResampled…
a.bmpをa.pngに変換する。ただし、a.bmpは24bitフルカラービットマップに限定される。作成されるpngもまたトゥルーカラーパレット無しになる。 速度もメモリ効率も度外視。バッドノウハウの集合だけれども。 use strict; use warnings; use GD; open ( IN, '…
a.bmpをa.pngに変換する。ただし、a.bmpは24bitフルカラービットマップに限定される。作成されるpngもまたトゥルーカラーパレット無しになる。 速度もメモリ効率も度外視。バッドノウハウの集合だけれども。 use strict; use warnings; use GD; open ( IN, '…
a.bmpをa.pngに変換する。ただし、a.bmpは24bitフルカラービットマップに限定される。作成されるpngもまたトゥルーカラーパレット無しになる。 速度もメモリ効率も度外視。バッドノウハウの集合だけれども。 use strict; use warnings; use GD; open ( IN, '…
PerlでローカルからTwitterにポストする。（仮）後で変更を加える。 - 永字八法の続きと言うか焼き直し。 command.txtの1か2を作成して、同じディレクトリに置いてから、tweet_poster.plを実行する。すると、result.txtにその結果が記述される。 command.txt…
PerlでローカルからTwitterにポストする。（仮）後で変更を加える。 - 永字八法の続きと言うか焼き直し。 command.txtの1か2を作成して、同じディレクトリに置いてから、tweet_poster.plを実行する。すると、result.txtにその結果が記述される。 command.txt…
PerlでローカルからTwitterにポストする。（仮）後で変更を加える。 - 永字八法の続きと言うか焼き直し。 command.txtの1か2を作成して、同じディレクトリに置いてから、tweet_poster.plを実行する。すると、result.txtにその結果が記述される。 command.txt…
タイトル通り。 参考にしたのは、http://d.hatena.ne.jp/layerzero/20090930/p1。 tweet_poster.pl use utf8; use strict; use warnings; # 日本語で書いてます。 my $comfile = 'command.txt'; -e $comfile or exit(); # コマンドファイルがなければ何もし…
タイトル通り。 参考にしたのは、http://d.hatena.ne.jp/layerzero/20090930/p1。 tweet_poster.pl use utf8; use strict; use warnings; # 日本語で書いてます。 my $comfile = 'command.txt'; -e $comfile or exit(); # コマンドファイルがなければ何もし…
タイトル通り。 参考にしたのは、http://d.hatena.ne.jp/layerzero/20090930/p1。 tweet_poster.pl use utf8; use strict; use warnings; # 日本語で書いてます。 my $comfile = 'command.txt'; -e $comfile or exit(); # コマンドファイルがなければ何もし…
