xelf.scroll.lua for mdiapp 1.00h

機能

　アクティブな32bppレイヤーの画像をスクロールした32bppレイヤーを追加します。

用法

　スクロールしたい32bppレイヤーをアクティブにして実行します。

コメント

　更新されたAPIを利用して使いやすいように変更しました。詳細は後で見ていきたいと思います。
APIの更新に合わせmdi_img32_bltmode_copy()を追加しました。

-- スクロール for mdiapp 1.00h
-- xelf.scroll.lua (C)2006-09-10〜2006-09-14 XELF
mdi_undo_all()
local oldLayer = mdi_layer_active()
local oldImage = mdi_img_layer(oldLayer)
local newLayer = mdi_layer_add(32)
local newImage = mdi_img_layer(newLayer)
local w, h = mdi_width(), mdi_height()
local w2, h2 = math.floor(mdi_width()*0.5), math.floor(mdi_height()*0.5)
local w3, h3 = w - w2, h - h2
mdi_img32_resize(newImage, w, h)
mdi_img32_bltmode_copy()
mdi_img32_blt(newImage,  0,  0, oldImage, w2, h2, w3, h3)
mdi_img32_blt(newImage, w3,  0, oldImage,  0, h2, w2, h3)
mdi_img32_blt(newImage,  0, h3, oldImage, w2,  0, w3, h2)
mdi_img32_blt(newImage, w3, h3, oldImage,  0,  0, w2, h2)