mieki256's diary

https://github.com/layerdiffusion/sd-forge-layerdiffuse

◎ 2024/05/24追記 :

C:\Users\(USERNAME)\AppData\Local\Temp\gradio\

1. Stable Diffusion web UIで、2枚の人物画像と背景画像を生成。
2. フレーム補間ツール FILM で中間画像ファイル群を生成。
3. 動画編集ソフト AviUtl で読み込んで再生速度にイージングをつけて動画にする。

• Windows10 x64 22H2
• CPU : AMD Ryzen 5 5600X
• GPU : NVIDIA GeForce GTX1060 6GB
• RAM : 16GB
• AviUtl 1.10

◎ 元になる素材画像を用意する :

画像生成AI Stable Diffusion web UI を使って、似た感じの人物画像を2枚、加えて、背景画像を1枚、生成した。ちなみに、LoRAを使えば、人物の顔をある程度統一できそうな気はする。

◎ 人物画像の背景を消去 :

画像生成AIが生成した人物画像は、人物部分はともかく、背景部分が全然違う。

このままだとフレーム補間で中間画像を作った際におかしなことになるので、人物の背景を消去して透過部分にしてしまって、別の背景画像を合成してしまうことにした。

Stable Diffusion web UI には、人物画像の背景部分を消去してくれる拡張機能がいくつか存在している。今回は、sd_katanuki という拡張機能を利用させてもらった。ありがたや。

_GitHub - aka7774/sd_katanuki: Anime Image Background Remover for AUTOMATIC1111
_【sd_katanuki】画像の背景を一括で透明化や白背景化してくれる拡張機能の紹介！【Stable Diffusion】 | 悠々ログ

人物の背景部分がある程度消去できた。

フリンジが残っていたり、髪の毛のあたりがちょっとアレなのが気になるし、処理時間は若干かかるというか、待たされている感じはあるのだけど、それでも、手作業での切り抜き作業と比べたら、圧倒的に早く目的を果たせる感じはする。

切り抜いた人物画像に対して、GIMP 2.10.34 Portable を使って、背景画像を合成。以下のような感じになった。

このぐらいの画像になってくれれば、フレーム補間ツールもそれなりに処理をしてくれるだろう…。

◎ FILMで中間画像を生成 :

◎ AviUtl＋拡張編集プラグインで連番画像を読み込み :

出来上がった連番画像を、動画編集ソフト AviUtl + 拡張編集プラグインを使って動画にしていく。読み込んだ動画(連番画像)に対して、再生速度にイージングを適用していくことで、多少はそれっぽい動きになってくれることを期待する。

ここから先は、自分も作業手順を忘れそうなので、スクリーンショットを貼ってメモしていく…。3日後には忘れてそう…。

まずはプロジェクトを新規作成。拡張編集ウインドウの上で右クリック。「新規プロジェクトの作成」を選択。

元になる連番画像のサイズに合わせて、512x512、24fpsにしておく。

連番画像を動画として読み込む。右クリック → メディアオブジェクトの追加 → 動画ファイル。

動画ファイルオブジェクトのプロパティウインドウが開くので、「参照ファイル」をクリック。

連番画像の一番最初のファイルを選択して「開く」。

これで、連番画像を読み込んで、動画ファイルとして配置することができた。

◎ ループ動画にするために動画ファイルを複製 :

1 → 2 → 1 と再生されるようなループ動画を作ってみたいので、読み込んだ動画(連番画像)をコピペで増やして配置する。

◎ 動画を早送り、逆再生 :

前半の動画、1 → 2 に相当する部分は、若干早送りで再生して尺を短くしたい。動画ファイルのプロパティウインドウで、再生速度を、100 から 150 に変更。これで、元の動画の150%の速度で再生されて、尺はその分短くなる。

例えばこの値を200にすれば倍速再生になるし、50にすれば1/2の速度でスロー再生される、らしい。


後半部分は、2 → 1 と再生されるようにしたいので、逆再生を指定する。再生速度にマイナス値を設定すると逆再生になってくれる。

◎ 再生速度にイージングをかける :

このまま再生すると、フレーム補間で作った中間画像がリニア(線形)で再生されて、機械的な動きになってしまう。イージングと呼ばれる加速/減速をつけてやることで、多少は自然な動きになるようにしたい。

再生速度、というか再生位置を調整するオブジェクトとして、「時間制御」というオブジェクトがあるらしいので、ソレを追加する。右クリック → メディアオブジェクトの追加 → 時間制御。

AviUtl でイージングを実現するスクリプトは色々あるようだけど、今回は、「イージングスクリプト トラックバー対応版」を利用させてもらうことにした。

_AviUtl イージングの悩みをあっさり解決。導入から使い方･2020年版まで初心者でもわかる。 - Aviutl簡単使い方入門｜すんなりわかる動画編集
_AviUtlで必須のスクリプト、イージング(トラックバー版) - FLAPPER

もっと細かくタイミングを指定をしたい場合は、グラフを描画して調整していくタイプのプラグインやスクリプトを利用することになるのだと思う。

_AviUtl、イージングをウィンドウ上で編集するCurve Editor - FLAPPER
_GitHub - mimaraka/aviutl-plugin-curve_editor: Curve Editor - 様々なイージングをウィンドウ上で編集
_AviUtlのイージングをカスタマイズ、マルチベジェ軌道 - FLAPPER


時間制御オブジェクトのプロパティウインドウ上で、「位置」をクリックして、easing_normal@uf_easing を選択。

イージングの種類を指定しないといけない。「位置」をクリックして、「設定」を選ぶ。

表示された「移動フレーム間隔」というウインドウ上で、イージングの種類番号を入力してEnter。

イージング種類は、イージングスクリプトに同梱されている画像を参考にする。一応引用しておきます。

◎ 終了フレームを指定 :

動画の終了フレームを指定。最後のフレームを表示した状態にしてから、右クリック → 範囲設定 → 現在位置を最終フレーム。

これで、再生速度にイージングをつけた状態の動画を作成することができた。

後は、連番画像として保存してからffmpegでmp4動画にしてもいいし、いきなり mp4 で出力できるプラグインを導入してもいい。

_AviUtlの連番画像の読み込みと出力のやり方を初心者にもわかりやすく解説 - Aviutl簡単使い方入門｜すんなりわかる動画編集
_AviUtl 物置 - JPN takeshima
_GitHub - rigaya/x264guiEx: 拡張 x264 出力(GUI) Ex

◎ イージングの有無を比較 :

◎ 余談。コマを抜いたり増やしたりしたい :

◎ ジェフ・シーガルさんが謎過ぎる :

「Ubuntu 16.04 LTS」は2016年4月にリリースされ、5年間の標準サポート期間が設定されています。そのため2021年4月30日に標準サポートが終了しました。

Ubuntu 16.04 その332 - Ubuntu 16.04 LTSの標準サポート終了のお知らせ - kledgeb より

◎ インストールしてみて分かった点。 :

◎ インストール時の覚書。 :

◎ Debianインストール直後の設定。 :

sudo aptitude search open-vm-tools
sudo apt install open-vm-tools*
sudo reboot

su -
apt updateapt install sudo
gpasswd -a USERNAME sudo
reboot

su -
apt install vim aptitude ranger byobu build-essential wget git make neofetch

vi /etc/apt/sources.list
apt update

sudo apt -y install fonts-ipafont fonts-ipaexfont fonts-takao fonts-mplus fonts-migmix fonts-mmcedar fonts-umeplus fonts-motoya-l-maruberi fonts-motoya-l-cedar fonts-horai-umefont fonts-droid-fallback fonts-ricty-diminished fonts-vlgothic fonts-noto fonts-urw-base35 fonts-liberation fonts-texgyre
sudo apt -y install xfonts-mplus xfonts-100dpi xfonts-75dpi xfonts-base xfonts-scalable xfonts-shinonome xfonts-intl-japanese xfonts-intl-japanese-big xfonts-kaname xfonts-intl-arabic xfonts-intl-asian xfonts-intl-chinese xfonts-intl-chinese-big xfonts-intl-european xfonts-intl-phonetic emacs-intl-fonts
sudo apt -y install xfonts-naga10 ttf-mscorefonts-installer fonts-urw-base35 fonts-liberation fonts-texgyre

sudo apt install task-xfce-desktop

sudo vi /etc/gdm3/daemon.conf

[daemon]
# Enabling automatic login
AutomaticLoginEnable = true
AutomaticLogin = USERNAME

sudo apt-get install xdg-user-dirs-gtk
LANG=C xdg-user-dirs-gtk-update

◎ OpenMPTもインストールした。 :

◎ 手順をメモ。 :

Synfig Studio は、フィルタレイヤーが結構用意されているのだけど。その中の Noise Distort を使えばそれっぽくなりそうだなと…。レイヤー → 新しいレイヤーを追加 → ゆがみ → Noise Distort、で追加できる。

Noise Distort レイヤーは、下にあるレイヤーに対してゆがみを与えてくれるけど。ラインダムノイズのシードが変化するように指定してやればグネグネ具合が変化する。また、変位やサイズを変更して、イイ感じのグネグネ具合に調整できる。

◎ 余談。 :

◎ Linux版も試してみた。 :

◎ 3コマ中3。 :

◎ 某アニメを観察。 :

直線 → 円弧 → 直線

直線 → クロソイド曲線 → 円弧 → クロソイド曲線 → 直線

◎ VSTの分類が分からず。 :

◎ Gross Beatを試用。 :

◎ NewTone を試用。 :

1. ウインドウサイズの RenderTarget を作成。
2. RenderTarget に drawMorph で描画。
3. Window.drawEx で Image の代わりに RenderTarget を渡しながら、Shader を使って色変更。

• 色変更が必要か不要かを事前に判定。
• 色変更が必要なら、RenderTarget と Shader を使って描画。
• 色変更が不要なら、Window.drawMorph で描画。

◎ 処理時間を測定。 :

                      user     system      total        real
xml parse:        0.016000   0.000000   0.016000 (  0.023001)
get fps           0.000000   0.000000   0.000000 (  0.002000)
load image:       0.952000   0.172000   1.124000 (  1.161067)
load shape:       0.015000   0.000000   0.015000 (  0.006000)
load sprite:      0.000000   0.000000   0.000000 (  0.008000)
root tmline:      0.031000   0.000000   0.031000 (  0.031002)

◎ 感想。 :

◎ ミラーボール撮影時のアレコレをメモ。 :

ミラーボールを4方向 x 3露出で撮影。こんな感じ。

場所その1。

場所その2。

ちなみに、こういうアームを自作して撮影してました。

三脚に固定してたので、デジカメとミラーの位置は、一度設定すれば後から変更する必要はないのだけど。強度が問題だった…。

方向に関しては、どうも4方向では足りないような気もする。5〜8方向ぐらいから撮影しないと、画質の面ではダメな印象も。

あるいは、「画質が悪くてもいいから、とにかく早く撮影を終わらせるぞ」と割り切って、1方向だけ、もしくは90度だけずらした角度で2方向のみ、撮影して済ませるのもアリかも。ミラーボールは、周辺の歪みはともかく、一応360度分の風景が映り込んでるし。どうせミラーボールを撮影してる時点で画質は期待できないのだし。IBLレンダリング用の光源画像として使うのだと割り切れば、それでもOKかも。

ミラーボールは、球が全部入った形で撮影したほうがヨサゲ。そのほうが、後の作業が楽。中途半端に球が切れちゃってると後々面倒臭い。今回はそのへん失敗した。

ミラーボールの固定部分は、ガッシリしたものが必要。そうじゃないと、ブラケット撮影(露出を変えて撮影)した際、各画像の位置がずれてしまう。今回は、固定アームの強度がダメダメで、そよ風が吹くだけでフラフラして、撮影画像の位置合わせ作業が入ってきてますます面倒なことに。

方法はなんでもいいから、自分 ＋ デジカメ ＋ 三脚が小さく写る状態を実現するよう心掛けたほうが後で楽。

• ゴイスな望遠レンズを使って遠くから撮影するとか。
• 撮影する瞬間、三脚の後ろからミラーボールの後ろに、マッハで移動するとか。…ちゃんと撮影できたのか確認する手間が増えるけど。
• 三脚の足と同化して見えるような、JoJo立ちっぽいポーズを新発明しながら撮影するとか。

なんだか馬鹿馬鹿しいけど、一番綺麗に写る部分に、自分の姿がいつも写ってるのは、画質的にもったいないので。

◎ 画像編集作業のアレコレをメモ。 :

まず、画像の回転や左右反転をする。ミラーだから左右逆なので反転させないと。今回は、 _XnView の「高画質JPEG変換」を使って済ませた。まあ、この作業は、どこの段階でやっても構わないですけど。

撮影画像の位置合わせ。 _Fusion Free版 を使った。ずらした分、周辺に黒枠ができることに注意。…もし、三脚やミラーボールがガッシリ固定されて、ブラケット撮影時も位置が全然ずれてないなら、この作業は必要ないはずですが。

画像を GIMP等でトリミング。ミラーボールがまるっと入った、縦横幅が同じ画像 = 正方形の画像を作る。

ここからは、Hugin で作業。

トリミングした画像群を、Hugin で読み込む。ミラーボール撮影画像の場合、「Equisolid、等立体角」を選ぶのだと思う。水平画角は適当で。どうせ後で自動調整されるし。180〜360とか打ち込んどけばいいのでは。わからんけど。

Hugin 上で、露出の違う画像をまとめて「スタック」にしておく。スタックを使うことで、「この画像達は、撮影位置は同じで、露出が違うだけだよ」と Hugin に教えてやる、らしいですが。スタックの指定の仕方は、画像タブで、画像を複数選んで「新規スタック」だったかな…。

とりあえず「配置」をさせてみる。邪魔なものがたくさん入った状態のプレビュー画像が見れるはず。

• マスクを設定。邪魔な部分を除外していく。
• コントロールポイントが足りてなかったら、手作業で追加したり。
• 「最適化」タブや「露出」タブで、アレコレ選んで最適化。
• 「カメラとレンズ」タブで、画像ごとに露出(EV)が変わってることを確認したり。

イイ感じになったら、スティッチャータブでスティッチする。本来は Hugin からいきなりHDR画像を出力できるのだろうけど、今回、いくらやっても、まともなHDR画像が出力できなかった。仕方ないので、全画像の再マッピングだけをして出力することにした。「再マッピング： 露出補正なし、普通のダイナミックレンジ」にだけチェックを入れて「スティッチを実行」。

4方向 x 3露出の、再マッピングされた画像群(RGBA、8+8+8+8bit)が出力される。

これを、enblend を使って合成する。露出がほぼ同じ4枚(=4方向分)を、1枚にする。

enblend.exe -w -l 29 -o m0.tif 00.tif 03.tif 06.tif 09.tif
enblend.exe -w -l 29 -o m1.tif 01.tif 04.tif 07.tif 10.tif
enblend.exe -w -l 29 -o m2.tif 02.tif 05.tif 08.tif 11.tif

結果、露出が違う3枚が得られる。GIMPで開いて、見た目がおかしいところをレタッチ。

露出の異なる3枚の画像から、HDR画像を作成。今回は、 _Photomatix Pro 体験版 やら、 _Luminance HDR やらを試した。 _Picturenaut でも作れると思うけど、Hugin が出力した再マッピング画像は、どうも細かいところで位置が合ってない感じなので、位置合わせをしてHDRにするソフトのほうがいいのかなと…。

HDR画像からLDR画像を作るのは、Picturenaut や Luminance HDR を使った。

◎ ということで。 :

◎ 2017/03/19追記。 :

◎ SEデータを作成中。 :

◎ プログラマーがデータを作るべきではないのかも。 :

• USB接続有線マウス、SANWA SUPPLY MA-LS19GD。多ボタンレーザーマウス。色はゴールド。1,593円。
• 集中スイッチ、iBUFFALO BSTAD04WH。雷サージ付き。2分配。467円。
• 個別スイッチ付き4個口電源タップ、SANWA SUPPLY TAP-B005BIHJGO。個別スイッチはランプがついていないもの。1,465円。

• 全体の形は比較的持ちやすい。
• 軽いので、動かす際に楽。
• クリック音は、左ボタン等が「ボコッ」。拡張ボタンは「パチャッ」。ホイールクリックは「チキッ」。どれも、少し大き目でうるさい、気もしたけれど、この価格帯の製品ならフツーの音かもしれない。
• 左クリックの押し心地は、軽くもないが、めちゃくちゃ重いわけでもなく。
• 横の拡張ボタンは比較的押しやすい。
• 上の拡張ボタンは、マウスの先端に位置している上に細長いので押しづらい。また、少し押し込まないと反応しないので、押すのにコツが必要。中ボタンとして使うのは厳しい印象を受けた。
• ホイールクリックは、格別軽いわけでもなく、ぐにゃりとかなり押し込むわけでもなく。この価格帯なら、やはりフツーだろうか。個人的には、ちと我慢ならない印象だけど。
• ホイールの位置が手前にあって、回す際に少し指がシンドイ。上面拡張ボタンを押せる位置で握るとホイールが回しづらく、ホイールが回しやすい位置で握ると上面拡張ボタンが押しづらくなる。
• センサ位置は、中央下のあたり。左や右に寄ってなくて助かったが、マウスの中央のほうが良かった…。
• ドライバ、というか、ボタン割り当てアプリは、最低限の機能を持たせている印象。とりあえず、割り当て一覧に、中ボタン(ホイールクリック)があるのが素晴らしい。

• iZ3D ... ドライバ単体を入手するには海外サイトで申込み・クレジットカードが必要。
• TriDef ... iZ3Dと同様。
• 3D Vison kit ... 市場に出回っている量が少ない印象。
• 3D TV Play ... 単体で入手するには海外サイトで申込み・クレジットカードが必要。

• iZ3D ... 立体視対応液晶ディスプレイ、ZALMAN ZM-M215WGD か ZM-M240WGD を購入すれば付属してくる。4〜6万円。Windows XP 環境でも使える。
• TriDef ... LG D2342P-PN を購入すれば付属してくる。3万円。Windows XP環境でも使える。
• 3D TV Play ... 3D Vision kit を購入して、赤外線エミッタを接続した状態で 3D TV Play を有効にしないといけない。

• まずはOSを Windows 7 にしないといけない。2万円。
• 更に120FPS表示可能な液晶ディスプレイを購入する必要がある。それらはえてしてTN液晶パネル。3〜5万円。
• その上、3D Vision kit も購入しないといけない。2万円。
• 今使ってるIPSパネルのディスプレイに比べたら、TNパネルのディスプレイは各種作業に厳しいだろう。となると、デュアルディスプレイ環境を構築しないといけない。液晶アームが必要かもしれず。5千〜2万円。
• 液晶アームをとりつけられるPCラックではないような予感も。PCデスクへと買い替えが必要だろうか。5千〜2万円。

• PyCairo
• PyGObject
• PyGTK

◎ パスを作れるかどうか試してみた。 :

# python-fuを使うよ
from gimpfu import *

# 画像を作るよ
image = pdb.gimp_image_new(256, 256, RGB)
display = pdb.gimp_display_new(image)

# パスを作るよ
vectors = pdb.gimp_vectors_new(image, "arrowpath")
pdb.gimp_image_add_vectors(image, vectors, 0)

# パスとしてストロークを追加するよ
controlpoints = [10,10,10,10,10,10,200,200,200,200,200,200,30,50,30,50,30,50]
stroke_id = pdb.gimp_vectors_stroke_new_from_points(vectors, 0, len(controlpoints), controlpoints, TRUE)

# パスを表示するよ
pdb.gimp_vectors_set_visible(vectors, TRUE)

◎ One-Click Ruby Installer for Windows をインストールしようかどうかを悩んだり。 :

◎ ActiveTclをインストール。 :

◎ wxRubyもインストール。 :

gem install wxruby

Perlインストールフォルダ\bin\wperl.exe "Perlインストールフォルダ\site\lib\ZooZ.pl"

use strict;
use warnings;

use Win32::GUI;
use Win32 ();
use Win32::GUI::Loft::Design;

my $fileWindow = "launcher.gld";
my $objDesign = Win32::GUI::Loft::Design->newLoad($fileWindow) or die("Could not open window file ($fileWindow)");

my $win = $objDesign->buildWindow() or die("Could not build window ($fileWindow)");

$win->Show();

Win32::GUI::Dialog();

'use Win32::GUI;' is currently exporting constants into the callers scope. This functionality is deprecated. Use 'use Win32::GUI();' or list your required exports explicitly instead. at C:\home\prg\perl\test_win32_gui\test.pl line 8
'use Win32::GUI;' is currently exporting constants into the callers scope. This functionality is deprecated. Use 'use Win32::GUI();' or list your required exports explicitly instead. at C:/usr/local/Perl/site/lib/Win32/GUI/Loft/Design.pm line 31
'use Win32::GUI;' is currently exporting constants into the callers scope. This functionality is deprecated. Use 'use Win32::GUI();' or list your required exports explicitly instead. at C:/usr/local/Perl/site/lib/Win32/GUI/ToolbarWindow.pm line 23
'use Win32::GUI;' is currently exporting constants into the callers scope. This functionality is deprecated. Use 'use Win32::GUI();' or list your required exports explicitly instead. at C:/usr/local/Perl/site/lib/Win32/GUI/BorderlessWindow.pm line 24
'use Win32::GUI;' is currently exporting constants into the callers scope. This functionality is deprecated. Use 'use Win32::GUI();' or list your required exports explicitly instead. at C:/usr/local/Perl/site/lib/Win32/GUI/Loft/Cluster.pm line 21
'use Win32::GUI;' is currently exporting constants into the callers scope. This functionality is deprecated. Use 'use Win32::GUI();' or list your required exports explicitly instead. at C:/usr/local/Perl/site/lib/Win32/GUI/AdHoc.pm line 31
'use Win32::GUI;' is currently exporting constants into the callers scope. This functionality is deprecated. Use 'use Win32::GUI();' or list your required exports explicitly instead. at C:/usr/local/Perl/site/lib/Win32/GUI/Loft/Control/ListView.pm line 22
'use Win32::GUI;' is currently exporting constants into the callers scope. This functionality is deprecated. Use 'use Win32::GUI();' or list your required exports explicitly instead. at C:/usr/local/Perl/site/lib/Win32/GUI/Loft/Control/TabStrip.pm line 23
'use Win32::GUI;' is currently exporting constants into the callers scope. This functionality is deprecated. Use 'use Win32::GUI();' or list your required exports explicitly instead. at C:/usr/local/Perl/site/lib/Win32/GUI/TabStripGroup.pm line 25
'use Win32::GUI;' is currently exporting constants into the callers scope. This functionality is deprecated. Use 'use Win32::GUI();' or list your required exports explicitly instead. at C:/usr/local/Perl/site/lib/Win32/GUI/HyperLink.pm line 6
Use of uninitialized value in subroutine entry at C:/usr/local/Perl/site/lib/Win32/GUI/Loft/Control/ListView.pm line 294.

◎ Proce55ingは不安定。 :

◎ JavaAppletで実験。 :

◎ 容量を減らさなくていいというメールが届いた。 :

◎ 多角形を分割しない方法を試してみた。 :

日本テレビは22日、同日午後10時からの連続ドラマ「セクシーボイスアンドロボ」第7話の放送を「実在する事件を想起させる場面を含んでいる」として取りやめると、ホームページで発表し、第2話の再放送に差しかえた。

Yahoo!ニュース - 読売新聞 - 日本テレビが番組差し替え…愛知の籠城・発砲事件連想？ より

◎ 従兄の子供たちにどうかと思ったが。 :

• loop() → draw()
• BImage → PImage
• BFont → PFont

◎ _Language (API) / Processing 1.0 (BETA) / Processing 1.0 (BETA) - 変更点 :

◎ processing だと検索に引っ掛からないな。 :

#!/usr/bin/perl
#
# Platinum の保存ファイル、 .ppj の中から、
# レイヤーに使われている画像ファイル名を取得・出力する。
#
# usage: perl getlayerimg.pl PPJ_FILE

use strict;

my $line = "";
open( IN,$ARGV[0]) || die "Can't open $ARGV[0] : $!";
binmode IN;
while( read(IN,$_,1)) {
    if ( unpack("C",$_) < 32 ) {
        $line .= '_';
    } else {
        $line .= chr unpack("C", $_);
    }
}
close IN ;

my @layername = ();
my @imgname = ();
while (1) {
    my $f = index($line, 'LAY_LSTR');
    last if  $f < 0;
    substr($line, 0, $f+12) = "";
    
    my $nl = index($line,'PSTR');
    die "Can't search PSTR : $!" if $nl < 0 ;
    my $layer = substr($line, 0, $nl);
    $layer =~ s/_+$//;
    push(@layername, $layer);
    
    substr($line, 0, $nl+8) = "";
    my $ni = index($line,'LINV');
    die "Can't search LINV : $!" if $ni < 0 ;
    my $img = substr($line, 0, $ni);
    $img =~ s/_+$//;
    $img =~ s/\.(|bmp|png|jpg|gif)$//;
    $img = uc $img;
    push(@imgname, $img);

    substr($line, 0, $ni+4) = "";
}

print "\tstatic final byte[] IMGLAYER_TBL = {\n";

my $i = 0;
foreach my $img (@imgname) {
    print "\t\tIMG_" , $img , ",\t// " , $layername[$i] . "\n";
    $i++;
}

print "\t};\n";

exit 0;

        static final byte[] IMGLAYER_TBL = {
                IMG_TESTIMG01,  // レイヤー0
                IMG_TESTIMG02,  // レイヤー1
        };

◎ 実体験だったのか。 :

◎ _akJ OptiPngWrapper(PNGの最適化 GUI) :

◎ _Winamp5 FAQ :

◎ _Shift-JISの漢字を含むファイル名/パス名 - Shift-JISテキストを正しく扱う :

◎ ruby や python ではどうなるんだろう :

H:/temp2/strigcmptest/
 ├ t.txt
 ├ test.pl
 ├ test.rb
 ├ あ/
 ├ ソ/
 ├ 能/
 ├ 表/
 └ 法/

◎ perlで動作確認 :

#!/usr/bin/perl

&get_filelist(@ARGV);
exit 0;

sub get_filelist {
    my($path) = @_;
    opendir DH, $path || die "Can't open $path";
    foreach my $f (readdir DH) {
        next if $f =~ /^\.{1,2}$/;
        if ( -d "$path/$f" ) {
            print "[D] $f\n";
        } else {
            print "[f]  $f\n";
        }
    }
    close DH;
}

H:\temp2\strigcmptest>test.pl .
[f]  ソ
[f]  能
[D] 法
[D] あ
[f]  t.txt
[f]  test.rb
[f]  test.pl
[f]  表

#!/usr/bin/perl

&get_filelist(@ARGV);
exit 0;

sub get_filelist {
    my($path) = @_;
    opendir DH, $path || die "Can't open $path";
    foreach my $f (readdir DH) {
        next if $f =~ /^\.{1,2}$/;
        $f .= "/";                  # 追加
        if ( -d "$path/$f" ) {
            print "[D] $f\n";
        } else {
            print "[f]  $f\n";
        }
    }
    close DH;
}

H:\temp2\strigcmptest>test.pl .
[D] ソ/
[D] 能/
[D] 法/
[D] あ/
[f]  t.txt/
[f]  test.rb/
[D] 表/
[f]  test.pl/

◎ rubyで動作確認 :

H:\temp2\strigcmptest>ruby -v
ruby 1.8.2 (2004-12-25) [i386-mswin32]

#!/usr/bin/ruby

def get_filelist(path)
    d = Dir.open(path)
    flst = d.entries
    flst.each do |f|
        next if f =~ /^\.{1,2}$/
        if FileTest.directory?(f) then
            printf("[D] %s\n",f)
        else
            printf("[f]  %s\n",f)
        end
    end
end

get_filelist(ARGV.shift)

H:\temp2\strigcmptest>test.rb .
[D] ソ
[D] 能
[D] 法
[D] あ
[f]  t.txt
[f]  test.rb
[D] 表
[f]  test.pl

◎ pythonで動作確認 :

#! /usr/bin/python
# -*- coding: shift_jis -*-

import sys, os

def get_filelist(path) :
    if not os.path.isdir(path) :
        print "Error: Not dir ",path
        sys.exit(2)

    try :
        flst = os.listdir(path)
    except OSError, e :
        print "Error: Can't open ",path
        sys.exit(3)

    print flst

    for e in flst :
        fullpath = os.path.join(path,e)
        if os.path.isfile(fullpath) :
            print "[f] ",e
        elif os.path.isdir(fullpath) :
            print "[D] ",e
        else :
            print "[x] ",e
    
get_filelist(sys.argv[1])
sys.exit(0)

H:\temp2\strigcmptest>test.py .
['\x83\\', '\x94\\', '\x96@', '\x82\xa0', 't.txt', '\x95\\', 'test.pl', 'test.rb', 'test.py']
[x]  ソ
[x]  能
[D]  法
[D]  あ
[f]  t.txt
[x]  表
[f]  test.pl
[f]  test.rb
[f]  test.py

◎ まとめ :

Control-Home

行の先頭からカーソル位置までを削除

Control-End

カーソル位置から行末までを削除

F7

コマンド履歴ウィンドウをポップアップ表示する。[↑]、[↓]キーでコマンド履歴を選択して、[←]、[→]キーを押すとそのコマンドが入力され、リターン キーを押すとそのコマンドが入力、実行される。

◎ _Windows 2000 コマンドライン徹底活用 :

◎ 漢字の扱い :

◎ 補完 :

◎ キー割り当てのカスタマイズ :

◎ 隠れてるウインドウが居る… :

◎ xyzzy の py-mode と比べると :

◎ 前の家の方から苦情(?)があった。 :

◎ なんだか面倒な状況 :

◎ サイレントモード :

◎ お気に入りメニューの限界かもしれん :

◎ _轍を踏んじゃダメじゃん :

◎ _テスト :

◎ 西郷隆盛が :

◎ _Hierarchical File System :

◎ _パソコンOS年表(1973〜1984) :

◎ _Finder :

◎ _CP/M :

◎ 自分が最初にFDに触れたのは、X1-turboなのだけど :

◎ _Unixの歴史 :

◎ 話はズレるけど :

◎ _コンピュータ偉人伝:テッド・ネルソン :

◎ _格安 UNIX の構成 :

◎ そして年金未納だの帰国云々だのの報道の裏では :

◎ _人の心を打つのはどっちといわれれば :

◎ 高血圧に有効な食べ物について調べてみた :