PSPDEONS

PerlでもONSでもなかったりしますけれど。

ときに顔画像を立ち絵と合成する座標が判らず、しょうがなく目で見て合わせてみることに。
しかしこれまた丁度いい機能のあるツールが見つからないので、自作で賄ってみようと思い立ち。

欲しい機能
・αPNGを読み込める
・カーソルキーで差分画像を動かせる
・終了時の座標をファイルに出力できる
・予め画像をリスト化しておいて、連続で位置調整ができる

これらの機能とかかる労力と有する技術を色々総合的に判断した結果、Nスクでやることに決定。
…いやまあ、楽なのが一番ですよね。

;mode800
*define


transmode alpha
spi "nscrpng.spi|png"
usewheel


numalias face,10
numalias base,11
numalias left,12
numalias top,13
numalias step,14


defsub chklocate


game


*start
textoff:saveoff
erasetextwindow 0
csvopen "stand.csv","w"


;chklocate "ベース画像","差分画像"
chklocate "sp/anj_00.png","sp/anj0001.png"
chklocate "sp/cho_00.png","sp/cho0001.png"
chklocate "sp/kan_00.png","sp/kan0001.png"
chklocate "sp/kaz_00.png","sp/kaz0001.png"
chklocate "sp/koh_00.png","sp/koh0001.png"
chklocate "sp/kou_00.png","sp/kou0001.png"
chklocate "sp/nan_00.png","sp/nan0001.png"
chklocate "sp/sae_00.png","sp/sae0001.png"
chklocate "sp/say_00.png","sp/say0001.png"
chklocate "sp/tat_00.png","sp/tat0001.png"
chklocate "sp/tou_00.png","sp/tou0001.png"
chklocate "sp/tug_00.png","sp/tug0001.png"
chklocate "sp/kaz_00_z.png","sp/kaz0003_z.png"
chklocate "sp/nan_00_z.png","sp/nan0001_z.png"
chklocate "sp/sae_00_z_s.png","sp/sae0001_z_s.png"
chklocate "sp/tug_01_z.png","sp/tug0008_z.png"


csp -1
print 1
click
end


*chklocate


getparam $base,$face
fileexist %0,$base
if %0 == 0 goto *error1
fileexist %0,$face
if %0 == 0 goto *error2
mov %left,300
mov %top,50
lsp 10,$base,0,0
mov %step,1


*locate_loop


lsp 9,$face,%left,%top
itoa $1,%left
itoa $2,%top
itoa $3,%step
add $1,","+$2+"@"+$3
len %0,$1
if %0 mod 2 != 0 add $1," "
csp 5:lsp 5,":s/20,20,2;#FFFFFF$1",10,10
print 1


btndef clear
btndown 1
getcursor
getenter


btnwait %0


if %0 = -19 goto *result
if %0 = -1 mov %step,1
if %0 = -2 inc %step:if %step>20 mov %step,20
if %0 = -3 dec %step:if %step<1 mov %step,1
if %0 = -40 sub %top,%step
if %0 = -41 add %left,%step
if %0 = -42 add %top,%step
if %0 = -43 sub %left,%step


goto *locate_loop


*result
csvwrite $base,%left,%top
return


*error1
csvwrite $base,"not found"
return


*error2
csvwrite $face,"not found"
return

こんな感じでさっくりと福笑いが完成。
顔画像をカーソルで動かして決定した座標をCSVに出力します。Nスクって便利。
あとは変換する時のテーブルにするなり ImageMagick で総当たり合成するなり。
自作命令に渡すファイル名はPerlで取得したような手入力したような…。

もっとも当然ながら微妙にずれるので、本来の座標が取得出来れば最善なのですが。
何か見落としてないかな。