個人サイト 東方妖々夢攻略コンテンツ復活 (12.25 05:01)
冬コミ準備と日記の更新だけでいっぱいいっぱいで、掲示板とかをどんどん縮小している今日この頃です（汗）。そんな中いただいたWEB拍手のご指摘。
東方始めた頃こちらの妖Ex攻略が非常に役に立ったのですが今はもう公開していないのでしょうか。東方のコンテンツが閲覧できない状態ですが
ありがとうございます ...え"（汗）。見られないことに気付いていませんでした。何かの理由でカウンタまわりが壊れて、それでアクセスできなくなっていたようです。
というわけで 東方メモ帳 ページを復活させました。どうもありがとうございました m(_ _)m
そういえばトップページが去年の冬コミのままでした(-・; もし冬コミ頒布物の情報公開があれば差し替えます... やっぱり冬しか動いていないと言うことか(-・;;
ひとりごと Paint Shop Pro X + Python (12.25 05:17)
今回の冬コミ作業で、α付きのフルカラーpngを使って、別の画像を作るという作業がありました。その時の一コマ。
きっかけ
画像処理ソフトで同じ作業を繰り返したいときに、スクリプトやマクロを使うことがあります。
今回、数千～数万回程度の大量のコピペ作業があって、とても手作業ではできませんという。そこで、プログラムで書くか、画像処理ソフトのスクリプトで書くかというところで、〆切が短いこともあってスクリプトになりました。α付き画像をプログラムで触ったことが無く（汗）。
ソフトは普段使っているPaint Shop Pro X。最新から2世代前ですが、マクロを使うには十分です。SOURCENEXTから出ている Paint Shop Pro 9 でも多分大丈夫。
スクリプト
Microsoft Officeのマクロと同じ。作業状態を録画して、再生すると別の画像に対して同じ操作を繰り返せます。
例えば、この日記でよく使っているのが、Windowsの枠を取り除くスクリプトです。640×480のゲームのウィンドウをキャプチャするとき、枠がないと綺麗に4:3で縮小できるのに、枠があるとなんだかと思うことがあります。そんな時に。再生ボタンを一発。
これを「vistawindow640」という名前で保存しています。便利。
スクリプトの編集
スクリプトはPython言語で書かれています。ExcelのマクロがVBAで書かれているようなもの。勿論一から手で書くなんて事はなく、何か操作をするごとに自動保存されます。それをそのまま使うこともできますし、関数にまとめて使うことも出来ます。なんでもありなはず。
というわけで実験。画像の一部をコピーして、同じ画像の中の2カ所に選択領域貼り付けする、という操作をしてみました。そのファイルを開いてみると...
from PSPApp import *
def ScriptProperties():
return {
'Author': u'',
'Copyright': u'',
'Description': u'',
'Host': u'Paint Shop Pro X',
'Host Version': u'10.10'
}
def Do(Environment):
# EnableOptimizedScriptUndo
App.Do( Environment, 'EnableOptimizedScriptUndo', {
'GeneralSettings': {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((10,1,0),1)
}
})
# Selection
App.Do( Environment, 'Selection', {
'General': {
'Mode': App.Constants.SelectionOperation.Replace,
'Antialias': True,
'Feather': 0
},
'SelectionShape': App.Constants.SelectionShape.Rectangle,
'Start': (32,32),
'End': (64,64),
'GeneralSettings': {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((10,1,0),1)
}
})
# Copy
App.Do( Environment, 'Copy', {
'GeneralSettings': {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((10,1,0),1)
}
})
# PasteAsNewSelection
App.Do( Environment, 'PasteAsNewSelection', {
'Offset': (-296,-279),
'GeneralSettings': {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((10,1,0),1)
}
})
# PasteAsNewSelection
App.Do( Environment, 'PasteAsNewSelection', {
'Offset': (-264,-279),
'GeneralSettings': {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((10,1,0),1)
}
})
...えーと、読む気が失せるのは私だけでしょうか(-・; コメントで何をしているかはだいたい分かりますが、だいたい分かるだけです(-・; ぱっと思ったのはこのあたり。
- 全部 App.Do から始まっていてオブジェクト指向っぽく見えない
- Environment って変数みたい。命名規則が不明
- GeneralSettingsのコピペ、それは...
- 貼り付け先は絶対座標でなくて中央座標からのオフセット値ですか
- というか各命令の仕様はどこにありますでしょうか(-・;
マニュアルを探す
...どこにありますでしょうか(-・; Corel Paint Shop Pro Xインストールフォルダを探しても見つかりませんでした。
WEBを巡回していて見つけたのが、Jascが作っていた頃のドキュメント。[Jasc® Paint Shop Pro™ 9 Additional Download Resources] 末尾にある、「Scripting for Script Authors」「Paint Shop Pro 9.01 Scripting API」の2つをダウンロード。
英語は良く分かりません(-・; けれども、「文書プロパティを取ってこられる（現在の画像サイズを取得できる）」「入力ダイアログを表示できる」くらいが分かればまぁいいかと。
実行
こんな感じでざくざくと。Do関数の中身はRubyで出力しました。この方法だと、たまたま一番最後がPythonだったというだけで(-・;
def NewRasterLayer(Environment, name):
# New Raster Layer
App.Do( Environment, 'NewRasterLayer', {
'General': {
'Opacity': 100,
'Name': name,
'IsVisible': True,
'IsTransparencyLocked': False,
'LinkSet': 0,
'UseHighlight': False,
'PaletteHighlightColor': (255,255,64),
'GroupLink': True,
'BlendMode': App.Constants.BlendMode.Normal
},
'BlendRanges': {
'BlendRangeGreen': (0,0,255,255,0,0,255,255),
'BlendRangeRed': (0,0,255,255,0,0,255,255),
'BlendRangeBlue': (0,0,255,255,0,0,255,255),
'BlendRangeGrey': (0,0,255,255,0,0,255,255)
},
'GeneralSettings': {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((10,1,0),1)
}
})
def Do(Environment):
MakeNewFile(Environment, 'sample', 3840, 3840)
NewRasterLayer(Environment, 'a')
NewRasterLayer(Environment, 'b')
NewRasterLayer(Environment, 'c')
ImportPicture(Environment, 512, 448, 'D:/dev/working.png')
SelectLayer(Environment, 0)
Selection(Environment, 32, 0, 32, 32)
Copy(Environment)
SelectLayer(Environment, 1)
Selection(Environment, 1632, 2976, 32, 32)
PasteIntoSelection(Environment)
Selection(Environment, 1664, 2976, 32, 32)
PasteIntoSelection(Environment)
# これが2万行ほど続く(-・;
ネスト関係がインデントでというのが最初怪しいと思っていたのですけれども、試してみるとたいしたことがないというか。原理的に括弧の閉じ忘れがなくなるのが嬉しいです。何度rubyでendを書き忘れてエラーになったことか（汗）。Pythonについての情報は[るびま]の[Rubyist のための他言語探訪 【第 1 回】 Python] くらいしか知らなくて。
自動保存されるマクロは使いにくくても（汗）、ちょっと加工すればけっこういけるかもと思いました。
オチ
このスクリプトを流すと... PaintShopPro がOutOfMemoryで落ちました(-・; 1万個くらいの操作で一旦途中経過を保存して、再実行が必要なようで。
うーん、2GBの壁というか、x86 OSだと実質1つのアプリケーションで1GB前後のメモリを消費すると危なっかしくなるのがなんだか（汗）。早くx64が流行って欲しいなと思いました。
ということを話したら、「普通それってスクリプトでなくてGDI+でやらない？」 ...はぃ、VS2008 Expressを落として出直してきます（汗）。作業手順を保存する事が目的のマクロで、きっとこんなヘビーな事は考えていないと思います、はぃ。実際Core2 Duoで1枚の画像を得るのに1時間とか、なんというか8bit機でJpeg画像を分単位をかけて展開していたようなまったり感が得られました(-・;
冬コミ焼きCDのおまけに入っている、今のままだと大変すぎてやる気がしないというのはそういうことで...
おまけ：Windowモードの枠を取り除くスクリプト
def GetGeneralSettings():
return {
'ExecutionMode': App.Constants.ExecutionMode.Default,
'AutoActionMode': App.Constants.AutoActionMode.Match,
'Version': ((10,1,0),1)
}
def Do(Environment):
# config
width = 640
height = 480
# EnableOptimizedScriptUndo
App.Do( Environment, 'EnableOptimizedScriptUndo', {
'GeneralSettings': GetGeneralSettings()
})
# Selection
offset = (App.ActiveDocument.Width - width) / 2
x = offset
y = App.ActiveDocument.Height - (height + offset)
App.Do( Environment, 'Selection', {
'General': {
'Mode': App.Constants.SelectionOperation.Replace,
'Antialias': True,
'Feather': 0
},
'SelectionShape': App.Constants.SelectionShape.Rectangle,
'Start': (x, y),
'End': (x + width, y + height),
'GeneralSettings': GetGeneralSettings()
})
# Copy
App.Do( Environment, 'Copy', {
'GeneralSettings': GetGeneralSettings()
})
# PasteGraphicAsNewImage
App.Do( Environment, 'PasteGraphicAsNewImage', {
'CreateFromDropData': False,
'GeneralSettings': GetGeneralSettings()
})
# SelectDocument
App.Do( Environment, 'SelectDocument', {
'SelectedImage': 0,
'Strict': False,
'GeneralSettings': GetGeneralSettings()
})
おまけ２：るびまゴルフ 【第 2 回】
[Rubyist Magazine 0022 号] より。
| | | | |
801.times{|i|p -2000-i*10}
801.times{|i|p -10.*200+i}
これでパーを下回ってもというコードができあがりました(-・; これより現時点で4文字削っている方がいるようで。凄い...
