// Windowで画像描画 32×32＋1個ウィンドウを並べて画像を書く
// 他の大きさでもいいけど、とりあえずコレくらいだと問題ないかと
// ただ、画面を1025個も開くので運が悪いとPC死にます
#include “hspcv.as” // 画像処理プログラム読み込み HSPCVの方が何かと便利なので
// 画像選択
dialog “jpg;*.gif;*.png;*.bmp”,16:if stat==1{file=refstr:goto *start}else{end}
*start
cvreset:cvbuffer 0,640,480:cvload file,0:cvgetinfo img_w,0,CVOBJ_INFO_SIZEX:cvgetinfo img_h,0,CVOBJ_INFO_SIZEY:n=32.0/img_w:img_nh=1.0*img_h*n:cvresize 32,int(img_nh),0,CV_INTER_AREA:screen 0,32,32,0,0,0:cvgetimg 0,0 // 初期化 画像サイズ取得 計算 リサイズ 画面へ出力
if img_nh>32 {rp=32}else{rp=img_nh} // 何回縦ループすればいいか考える
repeat rp:cur_w=0:repeat 32:gsel 0:pget cur_w,cur_h:r=ginfo(16):g=ginfo(17):b=ginfo(18):bgscr scr+1,5,5,0,52+(cur_w*5),(cur_h*5)+20,5,5 :color r,g,b:boxf:cur_w++:scr++:loop:cur_h++:loop //描画部分
作成環境
HSP3.1
Intel Pentium Dual-Core E2160
MEM Samsung PC-6400 1GBx4(4GB)
OS XP
動画用意しました。
ニコニコ見れない方は頑張ってアカウントとってね！
// っていうか、編集しろよ俺