gmode7用の画像を作るソースコードとか



#include "a2d.hsp"
#uselib "shell32.dll"
#func DragAcceptFiles "DragAcceptFiles" int,int
#func DragQueryFile   "DragQueryFileA"  int,int,int,int
#func DragQueryPoint  "DragQueryPoint"  int,int
#func DragFinish      "DragFinish"      int

#define WM_DROPFILES      0x0233

; メッセージ処理の登録
oncmd gosub *OnDropFiles, WM_DROPFILES

; ドロップファイルの受け入れを設定
DragAcceptFiles hwnd, 1
if stat == 0 {
    dialog "設定に失敗しました。", 1, "エラー"
    end
}
mes "このウィンドウにファイルをドロップして下さい。"
stop

*OnDropFiles
; ====== ファイルがドロップされたときの処理 ======
hDrop = wparam                    ; データ構造体のハンドル

; ファイルがドロップされた座標の取得
dim point, 2                      ; POINT 構造体
DragQueryPoint hDrop, varptr(point)
mes "ドロップ座標 ( " + point(0) + ", " + point(1) + " )"

; ファイルの数の取得
DragQueryFile hDrop, -1, 0, 0     ; 第2パラメータを -1 に
filecount = stat                  ; ドロップされたファイル数
mes "ファイル数 " + filecount + " 個"

; ファイル名の取得（ドロップされたファイルの数だけ実行）
sdim filename, 260                ; ファイル名を格納するバッファ
repeat filecount
    DragQueryFile hDrop, cnt, varptr(filename), 260
    mes filename                  ; ファイル名を表示
    buffer 1
    	picload ""+filename+"",0:x=ginfo(12):y=ginfo(13)
    buffer 1,x*2,y
    	color 0,0,0 : boxf 0,0,x,y
    	color 255,255,255 : boxf x,0,x*2,y
    	pos 0,0   : picload ""+filename+"",1
    	pos 800,0 : pos x,0 : picload  ""+filename+"",1
	buffer 2,x,y
		gmode 0,x,y : pos 0,0 : gcopy 1,x,0
		gmode 6,x,y,256 : pos 0,0 : gcopy 1,0,0
	buffer 3,x*2,y
		color 255,255,255 : boxf
		gmode 6,x,y,256 : pos x,0 : gcopy 2,0,0
		gmode 0,9999,9999,256
		color 0,0,0:boxf 0,0,x,y
		alCreateImageByFile 0,filename
		alCreateImageByFile 1,filename
			repeat 8//透明度を255にする。
				alCopyImageToImage 0,1,0,0,,,0,0
			loop
			alCopyImageToScreen 1,3,0,0,,,0,0
		redraw 1
		alCreateImage 1,x*2,y
		alCopyScreenToImage 3, 1, 0, 0, x*2, y, 0, 0
		filename = ""+getpath (filename,1)+"-gmode7用.png"//保存するファイル名。同じファイル名のファイルが有った場合、上書きするので注意。
		alSaveFile filename, "image/jpeg", ,,,,95//保存。最後の95は画質。jpegの時用。
	gsel 0
loop
Dialog "処理完了"
; ドロップファイル用のメモリを解放
DragFinish hDrop
return 0
もしよかったら使ってください。かなり前に作ったやつなのでどこで何をやってるのかさっぱり・・・
HSPTV!掲示板
