紙への手書き絵を簡易なアニメーション化する方法
についてのご回答です
概要は某サイトでお答えしましたので
ここではHSPスクリプトを掲載します。
その前に、画像を透過処理するソフトについてですが
私はこれ
を愛用しています。無料です。http://www.officedaytime.com/toumei/?ver=1.2.0.0
透過のコツとしては、目的の絵に使われていない色で
あらかじめ透過したい部分を塗りつぶしておくことです。
たとえば赤い車だけ残し他を透明にしたいなら緑か青で
塗りつぶします。
残したい色に含まれていない（なるべくかけ離れた）色なら
何色で塗りつぶしてもＯＫです
この作業を効率よく行えるソフトウェアもあると思いますが
私は使用していないのでよくわかりません
以下、HSPスクリプトです。
キーボードの矢印キーでズームや回転をコントロール
できるようになっています。
終了したいところでESCキーを必ず押してください。
ESCキーを押さないといつまでも動画Iが作られ続け
ファイルサイズが膨大なものになってしまいます。
また、ESCキーを押さないで強制終了した場合
正常にAVIファイルが作成されません
以下のスクリプト実行用に予め用意しておくもの
背景画像 640x480 (画像サイズ)
車の透過png画像 128x128
動物の透過png画像 64x64
スクリプトを実行すれば最初にコーデックの選択が出ます。
よくわからない場合は全フレーム未圧縮を選ぶと無難です。
成功すればスクリプトと同じフォルダにsample.aviができます
#include "hspcv.as"
cvbuffer 1,640,480
cvmakeavi "sample.avi",,,1
celload "haikei.bmp" ;背景画像
bgfee=stat
celdiv bgfee,640,480,0,0
celload "usagi.png" ;うさぎ画像
usagi=stat
celdiv usag,64,64,32,32
celload "car.png" ; 車画像ファイル
car=stat
celdiv car,128,128,64,64
mx=320:my=240:zx=1.0:zy=1.0:mr=0.0:
cxf=1:cmx=450:cmy=50
*main
redraw 0
pos 0,0
celput bgfee,0,1,1,0.0
gmode 2
pos mx,my
celput usagi,0,zx,zy,mr
; car move
pos cmx,cmy
celput car,0,1,1,0.0
cmx=cmx-cxf:cmy=cmy+1
switch cmy
case 170: cxf=0
swbreak
case 250: cxf=2
swbreak
case 370: cxf=1
swbreak
case 450: cmx=450:cmy=50
swend
redraw 1
cvputimg 1
cvputavi
await 20
stick key,15
if key&1 : mr=mr+0.05
if key&4 : mr=mr-0.05
if key&2 : zx=zx+0.1:zy=zy+0.1
if key&8 : zx=zx-0.1:zy=zy-0.1
if key&128: goto *oshimai
goto *main
*oshimai
cvendavi
end